Re: RPG read loops

On Tue, 1 Feb 2005, Tony Carolla wrote:

DoW readmyfile();
EndDo;

So each file would have it's own subprocedure for reading?  Beautiful.
Bulky, but beautiful.  And if you wanted to read into a DS, then
would you define the DS in the subproc and the main, and return the
DS?  Or would you forego encapsulation and access the Global DS?  And
then, while maintaining this code, you might find yourself scrolling
all the way down to the bottom/back to the top,etc.

In my opinion, this overcomplicates the operation.

eval filehandle = %open(myfile);

dow (readfile(filehandle) <> %EOF)
...

P readfile    B
D readfile    PR
D filepointer          *
C            read   filepointer
      return %EOF;
P readfile    E

James Rich

It's not the software that's free; it's you.
        - billyskank on Groklaw