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

[Alan Shore <AlanShore@xxxxxxxx>]

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.