RE: %EOF

["Dan Bale" <dbale@xxxxxxxxxxx>]

Brad,

>>Key        SETLL    Filename
Key        READE    Filename

            DOW   not %EOF(Filename)

        (do some code here)
Key        READE    Filename
            Enddo

 Change it to this...  More structurally correct as well.<<

IMHO: No, no, no, no!!!!  How is that more "structurally correct" than:

Key      Setll     Filename
         DoU       %EoF
Key      ReadE     Filename
         If        not %EoF
.. do some code here ...
         EndIf
         EndDo

or maybe even:

Key      Setll     Filename
         DoU       %EoF
Key      ReadE     Filename
         If        %EoF
         Leave
         EndIf
.. do some code here ...
         EndDo

I would always rather have one READE in a loop than two.

Back to the original poster's question, though; it sounds like a bug.  Are you
up to date on PTFs?  Might be worth checking.

- Dan Bale





* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *