that's a very good reason to *not* copy code, not to avoid using the file
name in the BIF. if it has to run in more than one place then you should
be using subroutines or subprocs for it. JMO.
Thanks,
Tommy Holden
From:
"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
To:
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date:
07/02/2008 03:16 PM
Subject:
RE: Standards question: What is your feeling about %found
&%eofvs.%found(file) & %eof(file) ?
Actually, I got burn for using qualify name before. I copied a block
of dow loop and forgot to change the file name in the %eof bif.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Wednesday, July 02, 2008 3:08 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Standards question: What is your feeling about %found
&%eofvs.%found(file) & %eof(file) ?
Again, to paraphrase Bill Clinton, "It's the maintenance, stupid."
While %found() and %eof() may work fine 99.9% of the time (especially if
one goes through hoops), never has a program crashed and burned because
%found(SomeFile) or %eof(AnotherFile) failed to work. The program's
logic may fail, but not the bif. It, if qualified, is explicit and
precise; unqualified is not.
Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of jdavis@xxxxxxxx
Sent: Wednesday, July 02, 2008 2:30 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Standards question: What is your feeling about %found
&%eofvs. %found(file) & %eof(file) ?
Yes Lim you can code it like this
setll somekey myfile;
read myfile;
DoW Not %eof();
setll somekey2 myfile2;
read myfile2;
DoW Not %Eof();
Read Myfile2;
enddo;
read myfile;
enddo;
I like to code for the next programmer, i believe it is a little clear
for the next guy to see the file names in the bifs.
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.
--
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.
midrange.com
