Two reade loops: which one preferred ?

[afvaiv <afvaiv@xxxxxxxxxx>]

Two different but functionally equivalent “read equal” loops follow.

From many of the answers to other posts read thru this list, Style#1 
seems to be the “preferred” one for most people.
But, IN MY OPINION, the second one should be more “appropiate” from RPG 
way of thinking...

C and PASCAL have a “before_read EOF detection”, whereas RPG and COBOL 
have a “after_read EOF detection”, thus :

- C/PASCAL loops were usually coded as
while NOT EOF(file)
do
read file
... process ...
enddo

- whereas RPG/COBOL loops used to be coded as , the
do “forever”
read file
at EOF(file) leave
... process ...
enddo

So, applying the C/PASCAL approach to RPG forces to include one 
additional “read” before the loop as in Style#1.

Just for curiosity, some people will code it the #2 way, but WHY do MOST 
people seem to prefer #1 ?

----- Style #1 -------------------------------------------
mykey setll record
if %equal
mykey reade record
dow not %eof
... process ...
mykey reade record
enddo
endif

----- Style #2 -------------------------------------------

mykey setll record
if %equal
do *HIVAL
mykey reade record
if %eof leave
... process ...
enddo
endif

--
Antonio Fernandez-Vicenti
afvaiv@xxxxxxxxxx