Re: Sanity check -- RPG400-L

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