RE: read on a do loop

["Jeff Crosby" <jlcrosby@xxxxxxxxxxxxxxxx>]

> /free
> 
>   Setll myfile;
> 
>   Dou %eof(myfile);
>     Read myfile;
>     If %eof(myfile);
>       Iter;
>     Endif;
> 
> // other processing
> 
>   Enddo;
> 
> /end-free

I don't like that.  "Iter" seems like "next record" to me.

I like to do it this way:

Setll mykey myfile;
Dow '1';
  Read myfile;
  If %eof(myfile);
    Leave;
  Endif;
  // processing here
Enddo;

That just seems the clearest to me.