zOs/JCL/UNLOASHR

//A540769L JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DBTF,'A540769.UNLOAD'),REGION=0M
//*
//STEPLIB  DD DISP=SHR,
//            DSN=DB2@.RZ1.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 BX01A1T.A123A
--                      INCLUDE TABLESPACE
--                      INCLUDE TABLESPACE
--                      INCLUDE TABLESPACE
--                      INCLUDE TABLESPACE
    TEMPLATE  UNLD    UNIT DISK
--                    DSN(DSN.&SSID..&DB..&TS..P&PA..UNL.D&JDATE.)
                      DSN(DSN.DBTF.&DB..&TS..UNL1.D&JDATE.)
--                    DATACLAS (EYN08P) MGMTCLAS(D035N000)
                      VOLUMES(SHR106)
                      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.DBTF.&DB..&TS..PUN1.D&JDATE.)
--                    DATACLAS (EYN08P) MGMTCLAS(D035N000)
                      VOLUMES(SHR106)
                      MAXPRIME 950
    UNLOAD    LIST UNLDLISTE
                   SHRLEVEL CHANGE ISOLATION UR
        PUNCHDDN   PUNCHD
        UNLDDN     UNLD
/*