nah. Tried it. It didn't work. Acted exactly the same.
I am thinking that it may have to do with the "reade (XX1: 11) XXFILE;" line? Does this reade with two keys act the same as a 2-field klist in factor 1 when run against a 3-key file?

Michael_Schutte@xxxxxxxxxxxx wrote:
just for sh*ts and giggles try adding the name of the file to the EOF bif.

Dow not %EoF(XXFILE);

I've seen it before and that's why I always use the name of the file in the

Michael Schutte
Admin Professional
Bob Evans Farms, Inc.

rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/14/2008 03:26:31 PM:

READE in Free form, and dow not %eof

Something is not working the way I expected.

I have a file with three keys. I want to read all records (53 of them)
where key1 = the value in XX1 and key2 = 11.

Here's what I think I have done:
FXXFILE if e k disk
XX1 = 'O';
// Retrieve XXFILE record:
setll (XX1: 11) XXFILE;
reade (XX1: 11) XXFILE;
dow not %eof;
... stuff
reade (XX1: 11) XXFILE;

This all works as I expect in debug *except* that once the 53 records
are retrieved nothing more that I can see happens. It acts like an
endless loop, but I just don't know what is happening.

Any suggestions would be most welcome.

Booth Martin

This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives

This thread ...


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

This mailing list archive is Copyright 1997-2019 by 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].