zOs/JCL/PLOADTEU

//A540769U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769.UNLOAD'),
//   REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//*SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     TEMPLATE TSRE2    DSN('A540769.TMPR2.&DB..&TS..P&PART..UNLO')
                   --  DATACLAS (NULL12) MGMTCLAS(COM#A092)
                       MGMTCLAS(NONSMS) VOLUMES(SHR109)       --> RR2
                       SPACE (10,250) CYL
     TEMPLATE TSPU2    DSN('A540769.TMPR2.&DB..&TS..PUNCH')
                   --  DATACLAS (NULL12) MGMTCLAS(COM#A092)
                       MGMTCLAS(NONSMS) VOLUMES(SHR109)       --> RR2
                       SPACE (10,250) CYL
     UNLOAD
       TABLESPACE  DGDB9998.A801A
         FROM TABLE GDB9998.TWK801A1
       PUNCHDDN TSPU2 UNLDDN TSRE2
         SHRLEVEL REFERENCE
     UNLOAD
       TABLESPACE  DGDB9998.A802A PART 1:4
         FROM TABLE GDB9998.TWK802A1
       PUNCHDDN TSPU2 UNLDDN TSRE2
         SHRLEVEL REFERENCE
     UNLOAD
       TABLESPACE  MF01A1A.A200A  PART 25:32
         FROM TABLE OA1A.TMF200A1
       PUNCHDDN TSPU2 UNLDDN TSRE2
         SHRLEVEL CHANGE
//*--------------------------------------------------------------------
//*  UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------