Re: How do you read this code ?

[jdavis@xxxxxxxx]

If (TTBAST = 'H' and  TTA9CD = '001') or (TTA9CD = '002') or (TTA9CD = 
'003') or
  (TTA9CD = '012') or (TTA9CD = '013') or (TTA9CD = '   ' and TTBAST = 
'H')



Jeff Davis
Programmer
Dental Network of America
2 Transam Plaza Drive, Suite 500
Oakbrook Terrace, IL. 60181
630.691.0336




"Cyndi Bradberry" <CyndiB@xxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/07/2008 04:12 PM
Please respond to
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

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