zOs/JCL/DB2UNLST

//A540769U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//**AIN CLASS=LOG0
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBOF,'A540769U.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=*
//SYSIN DD *
   LISTDEF LST INCLUDE TABLESPACE FK01A1P.*
     TEMPLATE  UNL  -- UNIT DISK
                      DSN(A540769.TMPUL.&DB..&TS..UNL)
                      DATACLAS (NULL30) MGMTCLAS(COM#A069)
     TEMPLATE  PUN  -- UNIT DISK
                      DSN(A540769.TMPUL.&DB..&TS..PUN)
                      DATACLAS (NULL30) MGMTCLAS(COM#A069)
     UNLOAD LIST LST
         UNLDDN UNL    PUNCHDDN PUN
         SHRLEVEL CHANGE