Re: DOW & DOU

["Roger Pence" <rp@xxxxxxxxxxxxxx>]

-----Original Message-----
From: Jeffrey M. Silberberg <silbrbrg@netcom.com>
To: Roger Pence <rp@rogerpence.com>
Cc: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Friday, May 08, 1998 12:38 PM
Subject: Re: DOW & DOU


>
>  Roger,
>
> where would the read go in this case, just before the DOU, and
>just before the enddo.

Yes. Still gotta prime the pump. But at least no indicators.


C                   READ      TK#L
C                   DOU       %eof( K25 )
C                     .
C                     .
C                     .
C                   READ      TK#L
C                   ENDDO


Yes. Beware RPG's slipperly slopes with its read that doesn't turn on EOF
until after EOF occurs!
In some other languages, reading a file's last record fetches last record
data _and_ sets the EOF condition.

The manual also offers up the pretty awful
C                   DOW       '1'
C                   READ       TK#L
C                   ...
C                   IF                $EOF( K25 )
C                   LEAVE
C                   ENDIF
C                   ENDDO


Sure would be nice to simply code

while not %eof( FileName )
     ....
    next FormatName      (where when next enounters the last record the EOF
file condition is also set.
end

rp



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---