zOs/JCL/XBWWW

//A540769W JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,                     00020003
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769.UNLOAC'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     OPTIONS(PREVIEW)
     TEMPLATE TSRE2    DSN('A540769.TMPUL.&DB..&TS..UN4')
                       DATACLAS (NULL30) MGMTCLAS(COM#A092)
                       SPACE (10,1250) CYL
     TEMPLATE TSPU2    DSN('A540769.TMPUL.&DB..&TS..PU4')
                       DATACLAS (NULL12) MGMTCLAS(COM#A092)
                       SPACE (10,250) CYL
     TEMPLATE TSRET    DSN('&SSID..&DB..&SN..D&DATE..UNLOAC')
                       UNIT 3490
                       RETPD 23
                       STACK YES
     TEMPLATE TSREC    DSN('&SSID..&DB..&SN..D&DATE..UNLOAD')
                --     DATACLAS (EYY0X) MGMTCLAS(COM#E005)
                       DATACLAS (NULL30) MGMTCLAS(COM#E005)
                       SPACE (1000,1250) CYL
     TEMPLATE TSPUN    DSN('&SSID..&DB..&SN..D&DATE..UNLPUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E005)
                       SPACE (10,250) CYL
     TEMPLATE TSRES    DSN('SHR21.DIV.P021.&DB..&SN..P&PA..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
                       DISP(OLD,KEEP,KEEP)
     TEMPLATE TSPUS    DSN('SHR21.DIV.P021.&DB..&SN..P&PA..UPU')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
                       DISP(OLD,KEEP,KEEP)
     UNLOAD TABLESPACE DA540769.A600A033
       PUNCHDDN TPUNCH UNLDDN TSRECD
         SHRLEVEL CHANGE
//SYSXX  DD *
       PUNCHDDN TSPUS UNLDDN TSRES
         SHRLEVEL CHANGE
     UNLOAD
       TABLESPACE  CZ10A1A.A720A
         FROM TABLE OA1A.TCZ720A1
       PUNCHDDN TSPUS UNLDDN TSRES
         SHRLEVEL REFERENCE
     UNLOAD
       TABLESPACE  CZ10A1A.A724A
         FROM TABLE OA1A.TCZ724A1
       PUNCHDDN TSPUS UNLDDN TSRES
         SHRLEVEL REFERENCE
//SYSXX DD *
     UNLOAD DATA FROM TABLE VDPS2.VTINSTRUMENTEVENT LIMIT 10000000
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE
       TOCOPY DBAF.DA267167.A031OLD.D06293.T121727  <- RZ 1 DATA
       TOCOPY DBAF.DA267167.A031OLD.D06307.T153331  <- RZ 2 DATA |||
       TOCOPY DBAF.DA267167.A031OLD.D06331.T092656  <- RZ BLUP
       TOCOPY DBAF.DA267167.A031OLD.D07005.T101131  <- RZ2 DATA ORIGINAL
       TOCOPY DBAF.DA267167.A031OLD.D06331.T101744  <- EMPTY
       TOCOPY DBAF.DA267167.A031OLD.D07037.T125512  <- SAVE 6.2. 1ST RUN
//*--------------------------------------------------------------------
//*  UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------
     UNLOAD
       TABLESPACE  CZ10A1A.A720A
         FROM TABLE OA1A.TCZ720A1
       PUNCHDDN TSPUS UNLDDN TSRES
         SHRLEVEL REFERENCE
     UNLOAD
       TABLESPACE  CZ10A1A.A724A
         FROM TABLE OA1A.TCZ724A1
       PUNCHDDN TSPUS UNLDDN TSRES
         SHRLEVEL REFERENCE