zOs/JCL/DB2UNLPL

//A540769V 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,'A540769V.UNLOAC'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
-- TSREC: UNLDDN FUER UNLOAD
TEMPLATE TREC     DSN 'DSN.TX.PLANRZ1.&SSID..&SN..&UNIQ..UNL'
                  DATACLAS(ENN35) MGMTCLAS(COM#A032)
                  SPACE TRK MAXPRIME 600
TEMPLATE TPUN     DSN 'DSN.TX.PLANRZ1.&SSID..&SN..&UNIQ..PUN'
                  DATACLAS(ENN35) MGMTCLAS(COM#A032)
                  SPACE TRK MAXPRIME 6

     UNLOAD FROM TABLE SYSIBM.SYSPLAN
       PUNCHDDN TPUN UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD FROM TABLE SYSIBM.SYSPLSYSTEM
       PUNCHDDN TPUN UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD FROM TABLE SYSIBM.SYSPACKLIST
       PUNCHDDN TPUN UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR