zOs/JCL/TO01UNLO

***************************** TOP OF DATA *********************
//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=(DBOL,'A540769.UNLOAD'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//*SYSTEMPL  DD DSN=DBOL.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     TEMPLATE TSRES    DSN('SAVR24.TO01.S24.&SN..P&PA..UNL')
                       STORCLAS (MNN00) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
                    -- DISP(OLD,KEEP,KEEP)
     TEMPLATE TSPUS    DSN('SAVR24.TO01.S24.&SN..P&PA..UPU')
                       STORCLAS (MNN00) MGMTCLAS(COM#E008)
                       SPACE (1,1) CYL
                    -- DISP(OLD,KEEP,KEEP)
     LISTDEF LL INCLUDE TABLESPACE  TO01A1P.*
     UNLOAD LIST LL
       PUNCHDDN TSPUS UNLDDN TSRES
         SHRLEVEL REFERENCE