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

I agree, my preference is to use select, but I did not write this program.
I just wanted to see if anyone could come up with some logic that would not
need to qualify the %found



Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/02/2008 03:55:55 PM:

Like many things, there are always some exceptions. In this case, I'll
do qualify.

Uumm,
Just wonder why not use the select or elesif vs else if.

Wouldn't this better?
if %found(file1) and %found(file2)
processA

elseif not %found(file1) and %found(file2)
processB

elseif %found(file1) and not %found(file2)
processC

else
// by default neither has been found
processD
endif;

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Wednesday, July 02, 2008 2:08 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Standards question: What is your feeling about
%found&%eofvs. %found(file) & %eof(file) ?

Here is some code that is in one of our production programs

chain key1 file1:
chain key2 file2;
if %found(file1) and
%found(file2)
processA
else
if not %found(file1) and
%found(file2)
processB
else
if %found(file1) and
not %found(file2)
processC
else
// by default neither has been found
processD
endif;
endif;
endif;


and within each process there are other chains on other files


QUESTION: for those people who do NOT qualify with file names, how would
you handle this piece of logic?



Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
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.