zOs/JCL/DB2COPIX
//A540769F JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769F.FULCOPY'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TCOPYT DSN('&SSID..&DB..&SN..P&PART(2)..D&DATE(3)..T&TIME.')
UNIT 3490
RETPD 23
STACK YES
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE DA540769A.A011*
INCLUDE INDEX A540769A.IWK011*
COPY LIST C#LIST COPYDDN(TCOPYD) SHRLEVEL CHANGE 00040000
//*