RE: read on a do loop

Good point about the result variable; I do that a lot too.  Too bad the
debugger doesn't recognize BIFs; then it would be less of a necessity.

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Rich Duzenbury
> Sent: Friday, August 19, 2005 5:58 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: read on a do loop
>
>
> On Fri, 2005-08-19 at 15:14 -0700, Peter Dow (ML) wrote:
> > Hi Rich,
> >
> > You could trim your procedure down to this:
> >
> >       p read_example    b
> >
> >       d read_example    pi              n
> >
> >        /free
> >           read example;
> >           return not %eof(example);
> >        /end-free
> >       p                 e
>
> Uhh, of course.  I often use a 'result' variable in functions that
> return something so that I can run the debugger over it and press F11 on
> it to see the contents.  Pressing F11 on %eof(example) produces an
> error, as does eval %eof(example).
>
> I should remove the unnecessary 'if' statement:
>
>       p read_example    b
>
>       d read_example    pi              n
>
>       d result          s               n
>        /free
>           read example;
>           result = not %eof(example);
>           return result;
>        /end-free
>       p                 e
>
>
>
>
> Regards,
> Rich
>
> --
> Current Conditions in Des Moines, IA
> Broken Clouds
> Temp 89.6F
> Winds calm
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.338 / Virus Database: 267.10.13/78 - Release Date: 8/19/2005
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.13/78 - Release Date: 8/19/2005