zOs/JCL/DB2LOADI
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG ,SYSTEM=S14
//S1 EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//*YSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//INDUMMY DD DUMMY
//SYSIN DD *
COPY TABLESPACE D??1A1T.A121A DSNUM 27 COPYDDN(TCOPYD)
FULL YES SHRLEVEL REFERENCE
LOAD DATA LOG NO
WORKDDN(TSYUTS, TSOUTS)
COPYDICTIONARY 26
INTO TABLE OA1T.TDG121A1 PART 27 INDDN INDUMMY
RESUME NO REPLACE COPYDDN(TCOPYS)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL