RE: RPG Indicators

["Bale, Dan" <DBale@xxxxxxxx>]

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

> -----Original Message-----
> From: Andrew Sereda [SMTP:asereda@HU.EEFT.COM]
> Sent: Friday, April 14, 2000 12:55 PM
> To:   'RPG400-L@midrange.com'
> Subject:      RE: RPG Indicators
> 
> I found addition inconvenience as for using %found and %eof. 
> Normaly I use such routine: 
> Key  chain format         99 
>      dow   *in99=*off 
> ... 
> ... 
> Key  reade format           99 
>      enddo 
> 
> In case %eof is not working with chain opcode I need to insert addition
> 'if'. 
> so I should do: 
> 
> Key  chain format 
>      if    %foun 
> ... 
> Key  reade format 
>      endif 
>      dow not %eof 
> ... 
> Key  reade format 
>      enddo      
> 
> Thanks, 
> 
> Andrew 
> -----Original Message----- 
> From: McCallion, Martin [ <mailto:MccalliM@Midas-Kapiti.com>] 
> Sent: Thursday, April 13, 2000 5:37 PM 
> To: 'RPG400-L@midrange.com' 
> Subject: RE: RPG Indicators 
> 
> 
> I think that %found doesn't work for READ* opcodes.  You might want to 
> try %eof instead.  In any case it's better practice to use 
> %found(filename).  That way it's always clear exactly which condition 
> you're testing.  Without the file name, %found reflects the result of 
> the most recent applicable opcode. 
> 
> Cheers, 
> 
> Martin. 
> 
> --                                                                     
> Martin McCallion                 
> Midas-Kapiti International 
> Work:  mccallim@midas-kapiti.com 
> Home: 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
+---