zOs/JCL/DB2SR4UN

//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=BS1
//**************************   UNLOAD AUF SHR FÜR RZ4 ******************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DVTB,'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 DXB04.SXBD710
    TEMPLATE  UNLD    UNIT DISK
                      DSN(A540769.DATA.&DB..&TS..LOAD.D&JDATE.)
    TEMPLATE  PUNCHD  UNIT DISK
                      DSN(A540769.DATA.&DB..&TS..LPUNCH.D&JDATE.)
    UNLOAD    LIST UNLDLISTE
                   SHRLEVEL CHANGE ISOLATION UR
        PUNCHDDN   PUNCHD
        UNLDDN     UNLD
/*