RE: Resetting %EOF

Juan,

        Here is a snippet of my source code for a do loop. This is
actually inside of a bigger do loop. The file I2402L1 will be reset from
%EOF every time it enters this loop.

0059.00 C     CoDivItem     Setll     I2402L1

0060.00 C     CoDivItem     ReadE     I2402L1

0061.00  *

0062.00 C                   Dow       (not %EOF)

0063.00  *

0064.00 C                   Eval      XX = (XX + 1)

0065.00 C                   Eval      PoArray(XX) = PDPRCE

0066.00 C     CoDivItem     ReadE     I2402L1

0067.00 C                   EndDo



Justin Houchin
Programmer
ReliaTek, Inc
jhouchin9@charter.net


-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of Juan Robledo
Sent: Thursday, June 06, 2002 8: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.