RE: read on a do loop

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

Peter Dow
Dow Software Services, Inc.
www.dowsoftware.com
909 793-9050 voice
909 793-4480 fax


> -----Original Message-----
> Until such syntactic sugar is introduced into RPG to reduce our burden
> of choosing an appropriate looping construct, I've devised the 'duzy
> way' (tm) of file reading thusly:
>
<snip>
>       *
>       * read a record from the example file
>       * return true if end of file is off
>       * return false if a end of file is on
>      p read_example    b
>
>      d read_example    pi              n
>
>      d result          s               n   inz('0')
>       /free
>
>          read example;
>          if not %eof(example);
>              result = '1';
>          endif;
>
>          return result;
>       /end-free
>      p                 e
>
>
> A bit of extra code to combine the reading of the record with the
> returning of the eof status, and Bob's your uncle.
>
> Perhaps one day the RPG gods will look kindly on us and introduce a
> '%read' bif that will return the EOF status.  It would be really great
> if it could accept a variable that refers to any one of the compiled in
> files as well.
>
> YMMV.
>
> Regards,
> Rich
>
> --
> Current Conditions in Des Moines, IA
> Few Clouds
> Temp 82.4F
> Winds out of the Southwest at 6mph
>
>
> --
> 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