RE: Sanity check

[Jim Langston <jlangston@xxxxxxxxxxx>]

RPG II code saying, If CM contains 'CM', move '* CREDIT' to MEMO,
and *BLANKS to PONO.  If CM contains 'DM', move *BLANKS to PONO
and '*  DEBIT' to Memo.

Same thing in RPG IV following same logic:

/free

       Clear   Memo
       If      (CM = 'CM') Or (CM = 'DM')
       If      (CM = 'CM')
           Memo = '* CREDIT'
           PoNo = *Blanks
       Else
           PoNo = *Blanks
           Memo = '*  DEBIT'
       EndIf
       EndIf

/endfree

I've seen lots of this type of code, and the thing you have to remember,
RPG II at one point didn't seem to have an Else If type statemnent, so
this type of thing was used.

In more Modern Format:

/free

      If   (CM = 'CM')
          Memo = '* CREDIT'
          PoNo = *Blanks
      Else If (CM = 'DM')
          Memo = '*  DEBIT'
          PoNo = *Blanks
      EndIf
      EndIf
/endfree

(Does RPG IV Freeformat have ElseIf keyword?)

I quit tryign to make sense out of RPG II code and why it
was written the way it is a long time ago.  "They" did not
seem to have quite a few of the keywords we have to make
our lives easier.

Regards,

Jim Langston