//TAPETEST EXEC PGM=CTSTAPER,PARM=JFCB|ABEND,[JFCB] [,ABEND] //STEPLIB DD DSN=CAI.CTAPLINK,DISP=SHR //SYSPRINT DD SYSOUT=* //TTNNXXXX DD DSN=TEST.DATASET.NAME,UNIT=TAPE,... //SYSIN DD DATA TEXT TO BE SENT TO THE OPERATOR CONSOLE.
Example:
In this example, four data sets are created spanning 3 volumes. Then these four data sets are read in the second step.
OU02SL1 causes TEST.FIRST.FILE to be written to the first and second tape volume. OU01SL2 causes TEST.SECOND.FILE to be added to the second tape volume. OU02SL3 causes TEST.THIRD.FILE to be added to the second tape volume and to span to a third. OU01SL4 causes TEST.FOURTH.FILE to be added to the third tape volume. The tape reads in the second step work the same way.
//TAPEOUT EXEC PGM=CTSTAPER //STEPLIB DD DSN=CAI.CTAPLINK,DISP=SHR //SYSPRINT DD SYSOUT=* //OU02SL1 DD DSN=TEST.FIRST.FILE,DISP=(NEW,CATLG),UNIT=TAPE, // VOL=(,RETAIN),LABEL=(1,SL) //OU01SL2 DD DSN=TEST.SECOND.FILE,DISP=(NEW,CATLG),UNIT=TAPE, // VOL=(,RETAIN,REF=*.OU02SL1),LABEL=(2,SL) //OU02SL3 DD DSN=TEST.THIRD.FILE,DISP=(NEW,CATLG),UNIT=TAPE, // VOL=(,RETAIN,REF=*.OU01SL2),LABEL=(3,SL) //OU01SL4 DD DSN=TEST.FOURTH.FILE,DISP=(NEW,CATLG),UNIT=TAPE, // VOL=REF=*.OU02SL3,LABEL=(4,SL) //* //TAPEIN EXEC PGM=CTSTAPER //STEPLIB DD DSN=CAI.CTAPLINK,DISP=SHR //SYSPRINT DD SYSOUT=* //IN02SL1 DD DSN=TEST.FIRST.FILE,DISP=SHR //IN01SL2 DD DSN=TEST.SECOND.FILE,DISP=SHR,UNIT=AFF=IN02SL1 //IN02SL3 DD DSN=TEST.THIRD.FILE,DISP=SHR,UNIT=AFF=IN02SL1 //IN01SL4 DD DSN=TEST.FOURTH.FILE,DISP=SHR,UNIT=AFF=IN02SL1 //SYSIN DD DATA /* //
|
Copyright © 2014 CA.
All rights reserved.
|
|