zOs/JCL/DB2SHRUN

//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DBTF,'A540769U.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 RE01A1T.A599A
    TEMPLATE  UNLD    DSN(A540769.DATA.&DB..&TS..LOAD.D&JDATE.)
    TEMPLATE  PUNCHD  DSN(A540769.DATA.&DB..&TS..LPUN.D&JDATE.)
    UNLOAD    LIST UNLDLISTE
                   SHRLEVEL CHANGE ISOLATION CS
                -- SHRLEVEL REFERENCE
        PUNCHDDN   PUNCHD
        UNLDDN     UNLD
/*