Author: Vikas Maharnawar
Subject: Reply to: Need Help of Jcl
Posted: Thu May 11, 2017 3:18 pm (GMT 5.5)
I written below JCl
Job gives below Output to me
Coded - again
_________________
Thanks
vikas
Subject: Reply to: Need Help of Jcl
Posted: Thu May 11, 2017 3:18 pm (GMT 5.5)
I written below JCl
| Code: |
| //STEP01 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=XYZ,DISP=SHR //IN2 DD DSN=PQR,DISP=SHR //TEMP DD DSN=&&TEMP,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS) //OUT DD DSN=ABC,DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800), // UNIT=3390,SPACE=(TRK,(10,10),RLSE) //TOOLIN DD * COPY FROM(IN1) TO(TEMP) USING(CTL1) COPY FROM(IN2) TO(TEMP) USING(CTL2) SPLICE FROM(TEMP) TO(OUT) ON(81,2,ZD) WITH(14,02) USING(CTL3) //CTL1CNTL DD * INREC BUILD=(1,17,81:SEQNUM,2,ZD) /* //CTL2CNTL DD * INREC BUILD=(14:1,02,81:SEQNUM,2,ZD) /* //CTL3CNTL DD * OUTFIL FNAMES=OUT,BUILD=(1,80) /* |
Job gives below Output to me
| Code: |
| AAA BBB CCC D12D PPP PPP QQQ S13S EEE FFF GGG H14H KKK LLL MMM N15N SSS TTT SSS J16J |
Coded - again
_________________
Thanks
vikas