zOs/TX/WK924COP

//A540769C JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG SYSTEM=S14
//*
//P02     EXEC PGM=DSNUTILB,
//             PARM='DBAF,A540769C.FULCOPL'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD *
  COPY TABLESPACE DA540769.A924A
          COPYDDN(TCOPYD)
    FULL YES
    SHRLEVEL CHANGE
//*