RE: read on a do loop

Hmm...It's a religious question. I was brought up in the Brotherhood of
the Priming Read.  At the risk of being branded a heretic for even
considering the dread dou:

setll myfile;

dou %eof(myfile);
    read(myfile);

    if NOT %eof(myfile);
        do_stuff();
    endif;

enddo;

Dou is actually fine, but I've seen good programmers get bitten by the
always execute once property.  Checking for EOF twice in the same loop
goes against my grain, but it's probably the BOTPR's influence.  Not
using Leave and iter is also part of the California BOTPR's doctrine
even if though leave would eliminate the two checks for EOF.  I'm so
thoroughly brainwashed that I feel guilty about using multiple return
statements in a procedure. 

The above approach is only clean looking if the do_stuff portion is
encapsulated in a subroutine or procedure.  I foam at the mouth when I
see large blocks of code contained in an if statement.


<><><>-----Original Message-----
<><><>From: rpg400-l-bounces@xxxxxxxxxxxx
<><><>[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
<><><>Sent: Friday, August 19, 2005 8:33 AM
<><><>To: 'RPG programming on the AS400 / iSeries'
<><><>Subject: RE: read on a do loop
<><><>
<><><>> /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.
<><><>
<><><>--
<><><>Jeff Crosby
<><><>Dilgard Frozen Foods, Inc.
<><><>P.O. Box 13369
<><><>Ft. Wayne, IN 46868-3369
<><><>260-422-7531
<><><>

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************