Utilities › CTSTAPER Utility—Test CA 1 Operating System Intercepts and Functions › Report Description › Job Control Statements

Job Control Statements

//TAPEOUT  EXEC PGM=CTSTAPER[,PARM='[JFCB][,ABEND]']
//STEPLIB  DD  DSN=CAI.CTAPLINK,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//ttnnxxxx DD  DSN=test.dataset.name,UNIT=TAPE,
//             LABEL=EXPDT=99009,DISP=(NEW,CATLG)
//ttnnzzzz DD  ......
//....

Parameter Definition

JFCB

Specifies to print the contents in hex of the operating system-constructed JFCB read by CA 1 before OPEN and after OPEN processing. This cannot be specified with ABEND.

ABEND

Specifies to abend (with S0C3) after OPEN to test CA 1 abend processing. This cannot be specified with JFCB.

JCL Considerations

DD names

The ddname determines the type of tape processing to perform. A maximum of nine ddname statements can be specified.

ttnnxxxx

Indicates the type of open, the number of volumes to open, and exclusively identifies the DD statement, where:

tt

Indicates the type of open to be performed:

OU - Open for OUtput

IN - Open for INput

nn

Indicates the number of volumes to be processed.

xxxx

Defines any user-designated characters to make it a unique DD.

Examples:

The following JCL statements will test CA 1 intercepts, multivolume processing, and multi-data set processing, and can be used for both SL and NL tapes. An SL tape test could be:

//TAPEOUT  EXEC PGM=CTSTAPER
//STEPLIB  DD  DSN=CAI.CTAPLINK,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//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=A
//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

For nonlabel tapes, specify LABEL=(x,NL) in the above JCL.