Re: RPG Indicators

["Nelson C. Smith" <ncsmith@xxxxxxxx>]

Now you've done it, Dan.  Started up the Do Wars again!   :-)

(Although, John Carr and I both agree with you on DOU, you will find it a
very small cheering section! )


----- Original Message -----
From: "Bale, Dan" <DBale@lear.com>
To: <RPG400-L@midrange.com>
Sent: Friday, April 14, 2000 3: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
>
> > -----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
+---