RE: Resetting %EOF

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

If you are going to code the loop like that then you should be using a DOU,

  C                        DOU       %EOF(IN057P2)

Scott Mildenberger

> -----Original Message-----
> From: Juan Robledo [mailto:Juan_Robledo@irco.com]
> Sent: Thursday, June 06, 2002 7:38 AM
> To: rpg400-l@midrange.com
> Subject: Re: Resetting %EOF
>
>
>
> 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
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>