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

Well one reason is a different standard - Only one read per do loop.

Start Do Loop 1 dow 1 = 1;
Read in Loop 1 read myfile;
if %eof();
Eof leave Loop 1 Leave;
endif;
setll somekey2 myfile2;
Start Do loop 2 dow 1 = 1;
Read Loop 2 read myfile2;
if %eof();
EOF leave loop 2 leave;
endif;
End Loop 2 enddo;
End Loop 1 enddo;

I see two file reads inside of loop 1.....

But I do understand what you are saying.

In your example you could not use ITER since the read is not at the top
of the loop.

In over 10 years of programming I never used a leave or an iter in RPG.
IMHO, that is just a lazy way of programming.

Plus, finding the primary and secondary reads in large loops becomes a
problem. Therefore, the other standard of only one read per loop.

That is what subroutines and subprocedures are for. Keep the main line of
the code cleaner.

setll somekey myfile;
read myfile;
DoW Not %eof(myfile);
setll somekey2 myfile2;
read myfile2;
DoW Not %Eof(myfile2);
Read Myfile2;
Process_Myfile2_Records();
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.

**********