Re: Resetting %EOF (never ending loop)

This should work. There is no need to reset EOF
or check %EOF as part of the DOW as you are checking
for EOF just after the READE.
In fact in my example the DOW is a never ending loop but
is exited via the Leave.
You can obviously code anything in the DOW
test to loop, I like to code DOW  @loop = @loop.


C     KlistB        SetLL     IN057P2
C                   DOW       %EOF = %EOF
C     KlistB        ReadE     IN057P2
C                   If        %EOF(IN057P2)
C                   Leave
C                   EndIf
C                   EndDo


Frank Kolmann


>On Behalf Of Juan Robledo
>here is  a some of the code
>
>
> C     KlistB        SetLL     IN057P2
>
> C                   DOW       Not %EOF(IN057P2)
> C     KlistB        ReadE     IN057P2
> C                   If        %EOF(IN057P2)
> C                   Leave
> C                   EndIf
>Juan Robledo
>Programmer Analyst