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

On Sun, 2001-12-30 at 10:25, Joe Pluta wrote:
> I did some researching back a ways, and I found that there have been a few
> discussions regarding the use of the file I/O BIFs.  It seemed to always
> revolve around which of the basic CHAIN/SETLL/READE loops you used.  Now,
> ever since I was able to, I've used the following standard code:
>
>       CHAIN
> *IN90 DOWEQ *OFF
>     (process)
>       READE
>       ENDDO
>

Hi Joe

We pretty much all used this method in our department, and got a bit
confused with the right %BIF to use when moving to RPGIV. We settled on
a one line extension to it and just used the (functional equivalent)
SETLL/READE pair instead of the CHAIN and just use %EOF.

 FileKey  SETLL    File
 FileKey  READE    File
          DOW      not %EOF(File)
         (process)
 FileKey  READE    File
          ENDDO

Regards, Martin
--
martin@dbg400.net  jamaro@firstlinux.net  http://www.dbg400.net
/"\
DBG/400 - DataBase Generation utilities - AS/400 / iSeries Open        \
/
Source free test environment tools and others (file/spool/misc)
X
[this space for hire]  ASCII Ribbon Campaign against HTML mail & news  /
\