zOs/JCL/DB2UNLOR

//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=(DE0G,'JOBNAME.UNLOA'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DE0G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
-- TSRECD: UNLDDN FUER UNLOAD
TEMPLATE TSRECD   DSN('???.&DB..&SN..P&PART..REC')
                  DATACLAS(ENN35) MGMTCLAS(COM#A032)
                  SPACE TRK MAXPRIME 600
-- TPUNCH: PUNCHDDN FUER REORG UNLOAD
TEMPLATE TPUNCH   DSN('???.&DB..&SN..P&PART..PUN')
                  DATACLAS(NULL8) MGMTCLAS(COM#A032)
                  SPACE(1,10) TRK
     UNLOAD FROM TABLE OA1P.TSB????1
       PUNCHDDN TPUNCH UNLDDN TSRECD
         SHRLEVEL REFERENCE