zOs/JCL/DB2COPY

//A540769L JOB (CP00,KE50),'DB2 COPY',
//           MSGCLASS=T,TIME=1440,
//           NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0 SYSTEM=S14
//P02     EXEC PGM=DSNUTILB,
//             PARM='DP4G,A540769F.FULCOPL'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD *
TEMPLATE TCOPYX   DSN('&SSID..&DB..&SN(1,7)..P&PART..T&TIME.')
                  DATACLAS(ENN35) MGMTCLAS(COM#A041) STORCLAS(FAR$N)
                  SPACE (1500,10000) TRK
LISTDEF C#LIST                                                          00010000
  INCLUDE TABLESPACE DA540769.*  PARTLEVEL                              8620
OPTIONS EVENT(ITEMERROR, SKIP)
COPY LIST C#LIST COPYDDN(TCOPYD, TCOPYD)
            RECOVERYDDN(TCOPYD, TCOPYD)
    PARALLEL
 -- CHANGELIMIT (0, 0.5) -- REPORTONLY
    SHRLEVEL CHANGE
//*