zOs/JCL/DB2SHPUL

//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//*  UNLOAD TO VOLUMES(SHR2*): RZ2 <--> RR2
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DBAF,'A540769.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 DA540769.A102A
    TEMPLATE  UNLD    UNIT DISK
--                    DSN(DSN.&SSID..&DB..&TS..P&PA..UNL.D&JDATE.)
                      DSN(DSN.&SSID..&DB..&TS..UNL1.D&JDATE.)
--                    DATACLAS (EYN08P) MGMTCLAS(D035N000)
                      VOLUMES(SHR101)
                      DISP(NEW,UNCATLG,UNCATLG)
--                    MAXPRIME 950
    TEMPLATE  UNLT    UNIT AC20
                      DSN(DSN.&SSID..&DB..&TS..P&PA..UNL1.D&JDATE.)
                      STACK YES
    TEMPLATE  PUNCHD  UNIT DISK
--                    DSN(DSN.&SSID..&DB..&TS..P&PA..PUN1.D&JDATE.)
                      DSN(DSN.&SSID..&DB..&TS..PUN1.D&JDATE.)
--                    DATACLAS (EYN08P) MGMTCLAS(D035N000)
                      VOLUMES(SHR101)
                      DISP(NEW,UNCATLG,UNCATLG)
                      MAXPRIME 950
    UNLOAD    LIST UNLDLISTE
                   SHRLEVEL CHANGE ISOLATION UR
        PUNCHDDN   PUNCHD
        UNLDDN     UNLD
/*