RE: RPG Indicators

Mainly because your trying to avoid the use of a goto statement, and place
it within a logical loop, you could easily code like:

dow 1=1
read
if %eof
leave
endif
enddo

or, what i normally do.

d Done            s               n   inz(*Off) 

c     *start        setll     pmpreqd                   
c                   dou       done                      
c                   read      pmrreqd                   
c                   if        %eof(pmpreqd)             
c                   eval      ReqCtl_SflEnd = *on       
c                   leave                               
c                   endif                               
c                    ....
c                   enddo

And this will loop forever until you hit the LEAVE command.

tim


> -----Original Message-----
> From: Tom.Clements@helpsystems.com [SMTP:Tom.Clements@helpsystems.com]
> Sent: Friday, April 14, 2000 2:19 PM
> To:   RPG400-L@midrange.com
> Subject:      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
> +---
+---
| 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
+---