RE: read on a do loop

/free

Dou %eof(myfile);
  Read myfile;
  Select;
  When (%eof(myfile));
    Leave;
  When (Itactv = 'N');
    Iter;
  EndSl;
//....
EndDo;

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Marvin Radding" <MRadding@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/08/19 03:24 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: read on a do loop






Can you provide an complicated example.  I have tried select but have
not reached a satisfactory code level.

Marvin


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, August 19, 2005 10:45 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: read on a do loop

Me, I'm a Select man, myself.

Rob Berendt