RE: %EOF, %FOUND and the infamous Dow loop

["jt" <jt@xxxxxx>]

Doug,

At what release?

(Please don't tell me V3R2...  I don't want to appear like I've been away
from this stuff THAT long...;-)

Thanks.

jt

| -----Original Message-----
| From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
| Behalf Of Douglas Handy
| Sent: Sunday, December 30, 2001 3:09 PM
| To: rpg400-l@midrange.com
| Subject: Re: %EOF, %FOUND and the infamous Dow loop
|
|
| JT,
|
| >But IMHO, what's called for is an additional %BIF called %NRF (No Record
| >Found), that is set on in either case.
|
| One alternative that is already available is to use %status() and
| check for a
| zero (or non-zero) condition.  Then it works regardless of
| whether you used
| CHAIN or a READxx variant.
|
| Using Joe's example, it looks like:
|
|       Chain
|       Dow     %status( file )  = *Zero
|       (process)
|       Reade
|       Enddo
|
| Of course, %status() can be non-zero for reasons other than just
| a record not
| found condition.  A record lock is a common example.
|
| It depends on what you are trying to do...
|
| Doug