zOs/JCL/TWB510CO

//A540769Q JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,LINES=(999999,WARNING)
//*MAIN CLASS=LOG
//COPY     EXEC PGM=DSNUTILB,PARM='DBAF,A540769F.LOAD'
//SYSPRINT   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSUT1   DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT  DD DISP=(,PASS),UNIT=SYSDA
//SYSTEMPL   DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
    COPY TABLESPACE WB12A1A.A510H FULL YES COPYDDN(TCOPYD)
         SHRLEVEL REFERENCE