RE: RPG Indicators

This structure seems inefficient to me, though I've seen it quite a bit.

For every read, you check twice for EOF? Why?

Tom Clements
Help/Systems Inc.
612-563-2780


                                                                                
                                    
                    "Bale, Dan"                                                 
                                    
                    <DBale@lear.com>         To:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>              
                    Sent by:                 cc:                                
                                    
                    owner-rpg400-l@mi        Subject:     RE: RPG Indicators    
                                    
                    drange.com                                                  
                                    
                                                                                
                                    
                                                                                
                                    
                    04/14/00 02:07 PM                                           
                                    
                    Please respond to                                           
                                    
                    RPG400-L                                                    
                                    
                                                                                
                                    
                                                                                
                                    




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



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