× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



On Thursday 12 September 2002 4:40 pm, Condon, Mike wrote:
> Is there a way to delete the very first record of a physical file in a
> CL program?

Hi Mike

If it needed to be from CL I'd use EXCSQL[1]

EXCSQL SQL('delete from file where rrn(file) = 1')

but only if there are no deleted records - the file might have a deleted
record at RRN 1, and the first active record is at RRN 2 or higher. To
handle both cases okay with slightly longer SQL you could use.

EXCSQL SQL('delete from file where rrn(file) in +
        (select min(rrn(file)) from file)')

Whether this is over the top compared to a handful of lines of RPG is
debatablle ;)

Regards, Martin
[1] http://www.dbg400.net/excsql.html
--
martin@dbg400.net  jamaro@firstlinux.net  http://www.dbg400.net    /"\
DBG/400 - DataBase Generation utilities - AS/400 / iSeries Open    \ /
Source free test environment tools and others (file/spool/misc)     X
Debian GNU/Linux | ASCII Ribbon Campaign against HTML mail & news  / \



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.