zOs/JCL/DB2UNLOL

//A540769U JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//***************************************************
//*  UNLOAD
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A54076U.UNLOAD'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     TEMPLATE TUNL     DSN('DSN.SAVE.&DB..&TS..P&PART..UNL')
                       DATACLAS (NULL30) MGMTCLAS(COM#A014)
              --       SPACE (10,1250) CYL
     TEMPLATE TPUN     DSN('DSN.SAVE.&DB..&TS..P&PART..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#A014)
     LISTDEF LST INCLUDE TABLESPACE SU03A1P.* PARTLEVEL
     UNLOAD LIST LST
        PUNCHDDN TPUN UNLDDN TUNL
          SHRLEVEL REFERENCE