Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
subbu1522,
use the following control cards
Code: |
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(005,4,SS,EQ,C'3442,6898',AND,
056,1,CH,EQ,C'1',AND,
201,3,CH,EQ,C'530'),OVERLAY=(215:C'09')),
IFTHEN=(WHEN=(005,4,SS,EQ,C'3442,6898',AND,
056,1,CH,EQ,C'1',AND,
201,3,CH,EQ,C'531'),OVERLAY=(230:C'09'))
//* |
|
|