Re: READE in Free form, and dow not %eof

Hi Booth,

I don't use /free, I am at V4R5, but on all my %found, %eof, etc... I
always put the file name in. This 'might' make a difference.



Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



Booth Martin <booth@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/14/2008 02:26 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
READE in Free form, and dow not %eof






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;
enddo;

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.