Re: %EOF condition

That looks like columnar code. Check for that little letter "K" in the correct column in the F-spec. That's what Birgitta was pointing out.

As others have pointed out also, you mention the key structure as a partial key but then you list only two values for it. Do you want to start with those two values or all the three in the KLIST?

Third, if that third field EDSPX has a leftover value from previous input or calculation, that might point the file to EOF. Without more detail, well...

Alan Cassidy



On 3/5/16 4:54 PM, Richard Reeve wrote:

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