Re: How do you read this code ?

["John McKay" <jmckay@xxxxxxxxxxxxxxxx>]

Have you looked at the SELECT clause?  It can be used in either fixed or 
free form.

SELECT

  WHEN TTBAST <> 'D'
     AND TTA9CD <> '001'
         MOVE TTOFCD     OFCD

  WHEN TTA9CD <> '002'
         MOVE TTOFCD     OFCD

  WHEN TTA9CD <> '003'
         MOVE TTOFCD     OFCD

  WHEN TTA9CD <> '012'
         MOVE TTOFCD     OFCD

  WHEN TTA9CD <> '013'
         MOVE TTOFCD     OFCD

  WHEN TTBAST <> 'H'
     AND TTA9CD <> '001'
         MOVE TTOFCD     OFCD

ENDSL


----- Original Message ----- 
From: "Cyndi Bradberry" <CyndiB@xxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Friday, November 07, 2008 10:12 PM
Subject: How do you read this code ?


>     C     TTBAST        IFNE      'D'
>     C     TTA9CD        ANDNE     '001'
>     C     TTA9CD        ORNE      '002'
>     C     TTA9CD        ORNE      '003'
>     C     TTA9CD        ORNE      '012'
>     C     TTA9CD        ORNE      '013'
>     C     TTBAST        ORNE      'H'
>     C     TTA9CD        ANDNE     '   '
>     C                   MOVE      TTOFCD               OFCD      2
>
> We have run across  this code in a very old program we are trying to
> bring into the current century.
>
> If you were to rewrite this using parenthesis.....how would you group
> things ?  We dragged out the manual on the order of resolving equations,
> but it really doesn't help us much.
>
> Thanks,
> Cyndi B.
> Boise Idaho
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.