RE: Sanity check

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

After reviewing the generated MI, I found that I was right in my
assumption:

When a piece of code like this is specified:

0001 C                     MOVE 'CM'      FIELDA  2
0002 C                     MOVE 'ID'      FIELDB  2
0003 C                     MOVE '11'      FIELDC  2
0004 C           FIELDA    COMP FIELDB                   44
0005 C     N44   FIELDB    COMP FIELDC                   44
0006 C      44   FIELDA    IFEQ 'CM'
0007 C                     MOVEL'PASSED'  MSG    10
0008 C                     ELSE
0009 C                     MOVEL'FAILED'  MSG
0010 C                     ENDIF
0011 C           ENDPGM    TAG
0012 C                     MOVEL*ON       *INLR

When Indicator 44 is *OFF, when attempting to execute line 6 (the IF
statement) control branches to the ENDIF (line 10) statement, NOT the
ELSE statement (line 8).  If this were rewritten to follow the logic of
the indicator, it might appear (albeit ugly) as follows:

0001 C                     MOVE 'CM'      FIELDA  2
0002 C                     MOVE 'ID'      FIELDB  2
0003 C                     MOVE '11'      FIELDC  2
0004 C           FIELDA    COMP FIELDB                   44
0005 C     N44   FIELDB    COMP FIELDC                   44
0006 C           *IN44     IFEQ *ON
0007 C           FIELDA    IFEQ 'CM'
0008 C                     MOVEL'PASSED'  MSG    10
0009 C                     ELSE
0010 C                     MOVEL'FAILED'  MSG
0011 C                     ENDIF
0012 C                     ENDIF
0013 C           ENDPGM    TAG
0014 C                     MOVEL*ON       *INLR

The two code examples produce identical results.

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 Peter Dow
> Sent: Thursday, January 10, 2002 8:55 AM
> To: rpg400-l@midrange.com
> Subject: Re: Sanity check
>
> Hi Steven,
>
> You're right, I missed that CLEAR stmt. Something about looking at
that code
> triggered a memory of some program where the situation I described
caused a
> problem, and that's apparently all my old grey cells could see.  Or
maybe
> all those grey cells are leaking out and that's why my hair is grey...
>
> Regards,
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
>
> ----- Original Message -----
> From: <steven.ryan@denso.com.au>
> To: <rpg400-l@midrange.com>
> Sent: Wednesday, January 09, 2002 7:55 PM
> Subject: Re: Sanity check
>
>
> >
> > 'Fraid not Peter
> >
> > Thre first line of Code clears MEMO unconditionally.  Therefore, if
CM
> > isn't 'CM'  or 'DM' then Memo WILL be blank.
> >
> > It's such an UGLY program that I needed to look a couple of times
before I
> > convinced myself of this.
> >
> >
> >
> >                     "Peter Dow"
> >                     <pcdow@yahoo.com>        To:
> <rpg400-l@midrange.com>
> >                     Sent by:                 cc:
> >                     rpg400-l-admin@mi        Subject:     Re: Sanity
check
> >                     drange.com
> >
> >
> >                     10/01/02 08:45
> >                     Please respond to
> >                     rpg400-l
> >
> >
> >
> >
> >
> >
> > Hi David,
> >
> > Actually, if CM is not 'CM' and not 'DM', MEMO and PONO will not be
> > modified.  That is to say, the first time through (assuming this is
the
> > only
> > code that modifies MEMO and PONO), they would remain blank.  But if
one
> > pass
> > sets MEMO = '* CREDIT', and the next pass has CM not = 'CM' or 'DM',
then
> > MEMO will still be '* CREDIT'.
> >
> >
> > >
> > >
> > >             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
> > >
> > >
> >
> > _________________________________________________________
> > Do You Yahoo!?
> > Get your free @yahoo.com address at http://mail.yahoo.com
> >
> > _______________________________________________
> > 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.
> >
> >
> >
> >
> > _______________________________________________
> > 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.
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> _______________________________________________
> 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.