RE: code question

[Jerry Adams <Jerry@xxxxxxxxxxxxxxx>]

Adam,

The "oreq" starts a new comparison set.  Which is why I like to use /free so that I can easily group these for readability if nothing else.  As in:

/free
        IF (cfco = '9' AND cfacct = '1919)
        OR cfacct = '2020';
                Whatever
        ENDIF;
/end-free

Then anyone (even my Visual Basic boss!) can see that ever '2020' account will be selected, not just company '9' records.

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 Adam West
Sent: Friday, October 03, 2008 8:38 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: code question


HI I have  a question on this code.

cfco          ifeq      '9'
cfacct        andeq     '1919''
cfacct        oreq      '2020'
....   do whatever
endif


is there a problem here in that will it take any company 9 acct (besides the 1919 and 2020)?




--
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.