Re: %EOF condition

[aec <cfuture@xxxxxxxxxxx>]

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