zOs/JCL/DB2COPPR

//A540769F JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02     EXEC PGM=DSNUTILB,
//            PARM='DBTF,A540769F.FULCOPY,PREVIEW'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD *
-- OPTIONS PREVIEW
TEMPLATE TCOPYX   DSN('&SSID..&DB..&SN..P&PART..&UNIQ.')
                  DATACLAS(ENN0X) MGMTCLAS(SUB#ADB1) STORCLAS(FAR$N)
                  SPACE TRK UNCNT 59
LISTDEF C#LIST                                                          00010000
                    INCLUDE TABLESPACE  MF01A1T.A150A
COPY LIST C#LIST COPYDDN(TCOPYX)
          PARALLEL(10)
SHRLEVEL CHANGE

//*