|
OVRDBF {file} POSITION(*END) -irg >From: William Washington III <W.WASHINGTON3@xxxxxxxxxxxxx> >Reply-To: RPG programming on the AS400 / iSeries <RPG400-L@xxxxxxxxxxxx> >To: Midrange <MIDRANGE-L@xxxxxxxxxxxx>, rpg400 <RPG400-L@xxxxxxxxxxxx> >Subject: Externally-defined,arrival-sequence file - getting to the last record >Date: Sat, 28 Feb 2004 14:07:19 -0800 (PST) > >Hi All, > >How does one get to the last record of an externally-defined, arrival-sequence (i.e., no keys) file without reading thru every record? I want to start the program, then immediately hit the end-of-file, then wait for a new record to appear. (I know about overriding the file with EOFDLY(nnn) for this to work.) > >I added the RECNO(rrn) keyword to the file definition, set rrn=*hival and tried using > >CHAIN (rrn) Filename and >SETGT (rrn) Filename. > >I keep getting compile error messages saying "key field list not allowed with program described file". > >I have the file defined as an input, full procedural, externally-described disk file with a blank record address type and a RECNO keyword. To me, that makes this a file to be processed by relative record number. > >Where am I going wrong????? Ideas??? (I haven't had to deal with relative record number processing outside of subfiles since my S/34 Mapics days fresh out of school!) > >Many thanks in advance, > >William > > > >_______________________________________________ >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list >To post a message email: RPG400-L@xxxxxxxxxxxx >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l >or email: RPG400-L-request@xxxxxxxxxxxx >Before posting, please take a moment to review the archives >at http://archive.midrange.com/rpg400-l. > ---------------------------------------------------------------------- Take off on a romantic weekend or a family adventure to these great U.S. locations.
As an Amazon Associate we earn from qualifying purchases.
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.