Re: %EOF condition

Hi Rich,
I can't see your data.
If you are only wanting to read for the two key fields then use a key list with 2 fields.
Your code will perform 2 tests for every single read. I prefer:
<klist> Setll <klist> Reade Dow not %eof // code<klist> ReadeendDo


Yours truly,
Glenn Gundermannglenn.gundermann@xxxxxxxxx (416) 317-3144-------- Original message --------From: Richard Reeve <rjrjr64@xxxxxxxxx> Date: 2016-03-05 4:54 PM (GMT-05:00) To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> Subject: %EOF condition
All,


     I have a program that is doing a SETLL and READE and I'm always
getting an EOF condition.  The key structure in the program is a partial
key but it's SZMCU = 3201 and SZPSN = 3568.  The READE is always returning
an %EOF condition but shouldn't be based on the key and the data below.
[image: Inline image]

Here is a snippet of the code.....
C     K47037        KLIST
C                   KFLD                    UP1BP
C                   KFLD                    BATCHN
C                  KFLD                    EDSPX

C                   MOVE      *OFF          *IN53
C     K47037   SETLL      F470371_7


C                   DOW       NOT %EOF(F470371_7)
C     K47037   READE     F470371_7
C                   IF        %EOF(F470371_7)
C                   LEAVE
C                   Endif

Any ideas as to why I'm always getting an %EOF condition?

Thanks for any advise that you might have.

Rich