Re: How do you read this code ?

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.