RE: Resetting %EOF

[Jim Langston <jlangston@xxxxxxxxxxx>]

You are not "priming" your loop.

The way I would code this same thing would be:

 C     KlistB        SetLL     IN057P2
 C     KlistB        ReadE     IN057P2
 C                   DOW       Not %EOF(IN057P2)
     --- Process record here ---
 C     KlistB        ReadE     IN057P2
 C                   EndDo

So you need 2 read statements.  One *before* you enter your DOW loop to
"prime" the
indicator, the second just before the enddo to read the next record.

You also don't need the If %EOF... leave statement.  Adding an extra read,
and moving a read is a good trade off for getting rid of a leave statement,
IMO.

You can also change your DOW to a DOU, but then you would need your leave
statement.

Regards,

Jim Langston

-----Original Message-----
From: Juan Robledo [mailto:Juan_Robledo@irco.com]

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