Code: Select all
INREC IFTHEN=(WHEN=(10,4,CH,EQ,C'2009'),BUILD=(1,80)),
IFTHEN=(WHEN=ANY,BUILD=(1,80))
This makes no changes to the input records for several reasons.
Since you used BUILD=(1,80) for the WHEN=(logexp) clause, it just "rewrites" the record with no changes when 10-13 is '2009'. Since you don't have HIT=NEXT, the WHEN=ANY clause is ignored when WHEN=(logexp) is true. If you did have HIT=NEXT, then WHEN=ANY still wouldn't do anything else because it would again "rewrite" the record with no changes given that you used BUILD=(1,80).
WHEN=ANY is used whenever any WHEN=(logexp) is satisfied providing that HIT=NEXT is used to continue evaluating subsequent clauses.
Any record that doesn't satisfy the WHEN=(logexp) is just written without changes.
So everything you've done here results in NO changes to the records.