zOs/JCL/DB2SHRLO

//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DBOF,'A540769U.UNLOAD'),REGION=0M
//*
//STEPLIB  DD DISP=SHR,
//            DSN=DB2@.RZ2.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN DD *
    LISTDEF   UNLDLISTE INCLUDE TABLESPACE NI02A1P.A601A
                        INCLUDE TABLESPACE NI02A1P.A602A
                        INCLUDE TABLESPACE NI02A1P.A603A
    TEMPLATE  UNLD
                      DSN(DSN.&SSID..&DB..&TS..UNLOAD.S99.D&JDATE.)
                      VOLUMES(SHR299)
                      MAXPRIME 950
    TEMPLATE  PUNCHD  UNIT DISK
                      DSN(DSN.&SSID..&DB..&TS..UPUNCH.S99.D&JDATE.)
                      VOLUMES(SHR299)
                      MAXPRIME 950
    UNLOAD    LIST UNLDLISTE
                   SHRLEVEL CHANGE ISOLATION UR
                -- SHRLEVEL REFERENCE
        PUNCHDDN   PUNCHD
        UNLDDN     UNLD
/*