RE: READE is confusing to me

Booth

I always qualify the file names on my %xxx  Functions.

How about?

          C     Key      Setll           File
          C              DoU       %EOF(Filex)
          C     Key      ReadE(E)  File
     C              If        (%EOF(Filex)  Or  %Error(Filex))
     C              Leave
     C              Endif

     C              * stuff

          C              EndDo


<RD,  LMAO> ,  < ROF>,  with a <VBG>

P.S.   I'm not going to read a single reply about the above.

John Carr

----------------------------------------------------------
I'm trying to learn this stuff.  Why not the code below, but like this?

     C     Key           Chain(E)  File
     C                   DoW         (%Found Or Not %EOF) And (Not %Error)
                 *  stuff
     C     Key           ReadE(E)  File
     C                   EndDo

_______________________
Booth Martin

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---