Code: |
3034:SEQNUM,8,PD,START=0,RESTART=(3001,4))), |
Code: |
3034:SEQNUM,8,PD,START=0,RESTART=(3001,17))), |
Code: |
//S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=... input file //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS) //OUT1 DD DSN=... output file1 //OUT2 DD DSN=... output file2 //TOOLIN DD * SELECT FROM(IN) TO(T1) ON(1,12,CH) ALLDUPS USING(CTL0) COPY FROM(T1) USING(CTL1) //CTL0CNTL DD * SORT FIELDS=COPY /* //CTL1CNTL DD * INREC IFTHEN=(WHEN=INIT, OVERLAY=(3001:1,12,3013:24,5,3018:SEQNUM,8,PD, 3034:SEQNUM,8,PD,START=0,RESTART=(3001,17))), IFTHEN=(WHEN=(3034,8,PD,EQ,+0), OVERLAY=(3018:SEQNUM,8,PD)), IFTHEN=(WHEN=NONE, OVERLAY=(3026:SEQNUM,8,PD, 3018:3018,8,PD,SUB,3026,8,PD,TO=PD,LENGTH=8)) OUTREC OVERLAY=(3018:3018,8,PD,MOD,+2,TO=ZD,LENGTH=1) OUTFIL FNAMES=OUT1,INCLUDE=(3018,1,ZD,EQ,1),BUILD=(1,3000) OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,3000) /* |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours