//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