Re: RPG read loops

James,

You're right.  I caught that after seeing Tony's post.  Why test for the
indicator returned on the procedure?  Just use the procedure as an
indicator.

Ali's DoW loop would be:

DoW readmyfile();
EndDo;

Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

"James Rich" wrote

> But this doesn't do what was asked.  The example was:
>
> >> DoW  %read(FileToRead)
> >> .....
> >> EndDo
>
> The read is done when the dow is evaluated.  Using your approach above
> doesn't gain you anything.  But doing the read *at the time of the DOW
> evaluation* is very nice as it 1. reduces the number of lines and 2. makes
> clear under what conditions the loop continues.  Some psuedo-code to
> implement this might look like:
>
> P readmyfile      B
> D readmyfile      PR
> C          read  myfile
>             return %EOF
> P readmyfile      E
>
> For this to work %EOF would have to be off on a successful read.  Then you
> could code what was asked for:
>
> dow (readmyfile <> %EOF)
>
> James Rich