//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(75:C'000001'))
SORT FIELDS=(34,4,CH,A,51,4,CH,A)
SUM FIELDS=(75,6,ZD)
OUTREC BUILD=(34,4,X,51,4,X,75,6)
INREC IFTHEN=(WHEN=INIT,OVERLAY=(75:C'000001'))
SORT FIELDS=(34,4,CH,A,51,4,CH,A)
SUM FIELDS=(75,6,ZD)
OUTREC BUILD=(34,4,X,51,4,X,75,6)