The following sample JCL demonstrates how to use the CTTTPI utility to initialize tapes in a StorageTek silo (automated cartridge system), from another program:
//INITAPE JOB ,USER,MSGCLASS=X,CLASS=A
|
//INITT EXEC PGM=SLUADMIN,PARM=MIXED
|
//STEPLIB DD DISP=SHR,DSN=SYS3.HSC HCS LOADLIB
|
// DD DISP=SHR,DSN=SYS2.IOA.LOAD CTT LOADLIB
|
//SLSTAPE DD DISP=NEW,UNIT=(3490,,DEFER) <=== UPDATE UNIT
|
//SLSIN DD *
|
INITIALIZE CAP(000:00) PROG(CTTTPI) OPT(SCR) CNTLDD(SYSIN)
|
//SLSINIT DD *
|
INITT OWNER=ABCD,SER=******
|
//*
|
//SLSPRINT DD SYSOUT=* SLUADMIN MSGS
|
//SYSPRINT DD SYSOUT=* CTTPI MSGS
|
//SYSIN DD UNIT=DISK,SPACE=(TRK,1) CTTTPI SYSIN
|
//CTTTPITP DD UNIT=AFF=SLSTAPE,DISP=NEW UNIT=AFF=SLSTAPE
|
//DAMDB DD DISP=SHR,DSN=SYS2.CTT.MDBD <=== UPDATE CTT MDBD
|
//DAMDI DD DISP=SHR,DSN=SYS2.CTT.MDBI <=== UPDATE CTT MDBI
|
//DATRC DD DISP=SHR,DSN=SYS2.CTT.TRC <=== UPDATE CTT TRC
|
//DALOG DD DISP=SHR,DSN=SYS2.CTT.LOG <=== UPDATE CTT LOG
|