Re: RPG read loops

["Paul Morgan" <pmorgan@xxxxxxxxxxxxxx>]

Ali,

You could code your own procedure:

P ReadMore     B
D ReadMore     PR       N
/Free
  Return Not %Eof(FileToRead);
/End-Free
P ReadMore      E

Then your read loop would be:

Read FileToRead;
DoW ReadMore();
  // do something
  Read FileToRead;
EndDo;

It's too bad you can't treat file names as handles and pass them into
procedures like variables.  Then you could write your own File BIF like:

P ReadMore    B
D ReadMore    PR
D  FileToRead                                    H (too bad F is already
used for floats)
/Free
 Return Not %EoF(FileToRead);
/EndFree
P ReadMore    E

Then your read loop would be:

Read FileToRead;
DoW ReadMore(FileToRead);
  // do something
  Read FileToRead;
EndDo;


Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

"Ali Ekinci" wrote

> What would be nice is (may be already there, but I don;tknow)%read(File)
BIF, returns a boolean true (and of course the file buffer), if the read was
successfull. Then we can have a read loop like below:
>
> DoW  %read(FileToRead)
> .....
> EndDo