Re: Sanity check

[steven.ryan@xxxxxxxxxxxx]

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