//SYSIN DD DD
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(60,3,CH,EQ,C' '),
OVERLAY=(60:X'00000C')),
IFTHEN=(WHEN=(10,2,CH,EQ,C' '),
OVERLAY=(10:X'000C')),
IFTHEN=(WHEN=(69,3,CH,EQ,C' '),
OVERLAY=(69:X'00000C')),
IFTHEN=(WHEN=(90,4,CH,EQ,C' '),
OVERLAY=(90:X'0000000C'))
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(60,3,CH,EQ,C' '),
OVERLAY=(60:X'00000C')),
IFTHEN=(WHEN=(10,2,CH,EQ,C' '),
OVERLAY=(10:X'000C')),
IFTHEN=(WHEN=(69,3,CH,EQ,C' '),
OVERLAY=(69:X'00000C')),
IFTHEN=(WHEN=(90,4,CH,EQ,C' '),
OVERLAY=(90:X'0000000C'))
"Code'd" - sysin statement is incorrect. . .
This results in the first field being changed to zero however the subsequent updates dont take place. The syntax looks correct to me so I am confused as to why this doesnt work. Any advice gratefully accepted.
s