Re: RPG Indicators

["Peter Dow" <pcdow@xxxxxxxxx>]

I agree Dan. This has the added advantage that using ITER makes sense,
although it also has the disadvantage that you have to repeat the condition.
If there are more conditions than just eof, it could be modified something
like this:

      c     Key           Setll     FileName
      c                   DoU       %EoF( FileName )
      c     Key           ReadE     FileName
      c                   If        %EoF( FileName ) or
      c                             (a = b and c = d) or
      c                             e = f
      c                   leave
      c                   EndIf
       ***   do stuff
      c                   EndDo


Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: Bale, Dan <DBale@lear.com>
To: <RPG400-L@midrange.com>
Sent: Friday, April 14, 2000 12:07 PM
Subject: RE: RPG Indicators


> My preference is to just have one file input operation for the loop, i.e.:
>
>      c     Key           Setll     FileName
>      c                   DoU       %EoF( FileName )
>      c     Key           ReadE     FileName
>      c                   If        not %EoF( FileName )
>       ***   do stuff
>      c                   EndIf
>      c                   EndDo
>
> This has always worked for me.
>
> - Dan Bale

me: martin.mccallion@ukonline.co.uk
> +---
> | 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
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

+---
| 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
+---