RE: Standards question: What is your feeling about %found & %eofvs. %found(file) & %eof(file) ?

That's true, and I typically do write my loops that why... but something to
think about, if you write this way and you want to use the Iter statement,
now you have to put another read before you issue the iter.


Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/02/2008 02:04:30 PM:

Why add complexitiy to the code with
setll somekey myfile;
dow 1 = 1;
read myfile;
if %eof();
Leave;
endif;
setll somekey2 myfile2;
dow 1 = 1;
read myfile2;
if %eof();
leave;
endif;
enddo;
enddo;


When this is, IMHO, less complicated and easier to read and understand

setll somekey myfile;
read myfile;
DoW Not %eof(myfile);
setll somekey2 myfile2;
read myfile2;
DoW Not %Eof(myfile2);
Read Myfile2;
enddo;
read myfile;
enddo;




Thanks,
Jeff Davis
Dental Network of America


**********

The information contained in this communication is confidential,
private, proprietary, or otherwise privileged and is intended only
for the use of the addressee. Unauthorized use, disclosure,
distribution or copying is strictly prohibited and may be unlawful.
If you have received this communication in error, please notify the
sender immediately at (312)653-6000 in Illinois; (800)835-8699 in
New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in Texas.

**********
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.