RE: IFEQ ANDEQ vs IFEQ OREQ

 
Want to go back even farther....

C           FHSSUF    COMP 'XP'                     19
C  N19      FHSSUF    COMP 'AC'                     19
C  N19      FHSSUF    COMP 'GS'                     19
C   19                MOVEL$MSG,225  #EMSG     P

Ya... I know, the P (pad blanks) didn't happen in those days.

Ken Slaugh (707) 795-1512 x118
Chouinard & Myhre, Inc.
http://www.cm-inc.com/ 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Scott Klement
Sent: Thursday, December 11, 2003 1:50 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: IFEQ ANDEQ vs IFEQ OREQ



> Will Example 1 and Example 2 have the same effect?

Ahhh, RPGIII! A stroll down memory lane.  It's like going to a museum...

> Example 1:
>            c

No, the two examples don't do the same thing.   The first one sets
#EMSG whenever FHSSUF is either 'XP' or 'AC' or 'GS'

> Example 2:
>            C           FHSSUF    IFEQ 'XP'
>            C           FHSSUF    ANDEQ'AC'
>            C           FHSSUF    ANDEQ'GS'
>            C                     MOVEL$MSG,225  #EMSG     P
>            C                     END

the second one will never affect #EMSG.  The only way that it could would be
if FHSSUF could be set to 'XP', 'AC' and 'GS' all at the same time.
_______________________________________________
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.