zOs/JCL/DB2LOADU

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S14
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//INDUMMY   DD DUMMY
//SYSIN    DD *
LISTDEF TLST
    INCLUDE TABLE A540769.TWK927A1 PARTLEVEL 2
    INCLUDE TABLE A540769.TWK927A1 PARTLEVEL 4
UNLOAD LIST TLST
  PUNCHDDN TPUNCH UNLDDN TSRECD
    SHRLEVEL REFERENCE
LOAD DATA LOG NO
    WORKDDN(TSYUTS, TSOUTS)
    STATISTICS INDEX(ALL KEYCARD) REPORT NO UPDATE ALL
    IDENTITYOVERRIDE
  INTO TABLE A540769.TWK927A1 PART 2
    IGNOREFIELDS YES
    RESUME NO REPLACE COPYDDN(TCOPYS)  INDDN INDUMMY
  INTO TABLE A540769.TWK927A1 PART 4
    IGNOREFIELDS YES
    RESUME NO REPLACE COPYDDN(TCOPYS)  INDDN INDUMMY