zOs/JCL/GUBLERU2

//A540769U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  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 TSREC    DSN('DSN.VDPS2.&SSID..&DB..&SN..UNLOAD')
                       DATACLAS (NULL30) MGMTCLAS(COM#E005)
                       UNIT(AC10)
     TEMPLATE TSPUN    DSN('DSN.VDPS2.&SSID..&DB..&SN..UNLPUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E005)
                       SPACE (1,10) CYL
     LISTDEF U#LIST  INCLUDE TABLESPACE VV24A1A.VDPS185
     UNLOAD LIST U#LIST
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
//*--------------------------------------------------------------------
//*  UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------