RE: Sanity check

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

David,
I'd have to go back and look at the code that gets generated, but I
believe the condition indicator is NOT part of the IF statement itself.
That is it may transfer control to the corresponding END(IF) statement
rather than to the else.
Each use of an indicator in RPG III generates a compare and branch
instruction.
Normally, the branch jumps around the corresponding opcode.
But since the opcode is an IF, the IF is never performed, hence the ELSE
doesn't apply.
So unless someone bothers to go read the IRP listing for this, I would
guess on a Not 44, control branches to the END(IF) statement, not the
ELSE statement.

Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of David Schopp
> Sent: Wednesday, January 09, 2002 2:36 PM
> To: RPG400 ListServ (E-mail)
> Subject: Sanity check
>
> Okay, I've got this section of code:
>
>
>             Factor1   OpCodFactor2   ResultLenDHHiLoEQ
> C                     CLEARMEMO
> C           CM        COMP 'CM'                     44 On if CM='CM'
> C  N44      CM        COMP 'DM'                     44 On if CM='DM'
> C   44      CM        IFEQ 'CM'
> C                     MOVEL'* CREDIT'MEMO    8
> C                     MOVE *BLANKS   PONO
> C                     ELSE
> C                     MOVE *BLANKS   PONO
> C                     MOVEL'*  DEBIT'MEMO    8
> C                     END
>
>
> Here's my question - My first thought was that this might be a coding
> error - that if CM was set to 'CM', Memo would contain '* CREDIT' and
PONO
> would be blank, and if CM contained anything else, MEMO would contain
'*
> DEBIT' and PONO would be blank.
>
> Then, I realized (I THINK) that the whole IFEQ stmt only is processed
if CM
> equals 'DM' or 'CM' - anything else and the IF stmt is bypassed,
right?  So,
> if CM was blank, MEMO would be blank too, correct?
>
> Hope this makes sense...
>
>
> David Schopp
> WISDM Team Leader
> Computers Unlimited
> 2407 Montana Ave
> Billings, MT  59101
> v:406.255.9500
> f:406.255.9693
>
>
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.