Could you test this :
//IN DD DATA,DLM='/.'
/.
//TOOLIN DD *
COPY FROM(IN) TO(OUT) USING(ICE0)
//OUT DD SYSOUT=*
//ICE0CNTL DD *
OUTFIL FNAMES=OUT,
OVERLAY=(1:SEQNUM,9,ZD,START=1,INCR=4,
1:((1,9,ZD,ADD,-999999999),MUL,-1),M25,LENGTH=9)
/*---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
