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

["Phil" <sublime78ska@xxxxxxxxx>]

>
> You could use this to imitate the %NRF (or a %RF, as I prefer to test a
> positive) though:
>
> FileKey    CHAIN   File
>            EVAL    RcdFound = %FOUND(File)
>            DOW     RcdFound
>           (...)
> FileKey    READE   File
>            EVAL    RcdFound = %EOF(File) = *OFF
>            ENDDO
>
> Hmmm, somehow I don't think there'd be many takers for that one...
>
> Regards, Martin

Martin, this is similar to what Linoma's RPGWIZ tool does if you select the
'use I/O BIF's' option, only in reverse.  It removes the indicator from the
CHAIN, READ, etc but sets it anyway on the next line using the BIF so as not
to break the code ie:

   CHAIN     FILE          30

becomes

   CHAIN     FILE
   eval  *in30 = %found

Phil


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com