zOs/JCL/FRANZUNL

//A540769V JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//*   UNLOAD RZ2 --> RZ1 MIT SHR21.DIV.P021.*
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DBOF,'A540769V.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 *
    TEMPLATE  UNLD    DSN(SHR21.DIV.P021.A540769.NZ242.P&PART..UNL5)
                      DATACLAS (EYN08P) MGMTCLAS(COM#A015)
                      STORCLAS(ANN)
                      SPACE (10,250) CYL
    TEMPLATE  PUNCHD  DSN(SHR21.DIV.P021.A540769.NZ242.PUN5)
                      MGMTCLAS(COM#A015)
                      SPACE (1,1) CYL
    UNLOAD    TABLESPACE NZ06A1P.A242A PART 1:60
              FROM TABLE OA1P.TNZ242A1  SAMPLE 20.0
        PUNCHDDN   PUNCHD
        UNLDDN     UNLD
        SHRLEVEL CHANGE