zOs/JCL/XBWWWCO0

//A540769V JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,                     00020003
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  COPY  WWW TABLES
//*      DO NOT RUN THE JOBS, THEN RUN OR TERMINATE FOREVER|
//*      PROBABLY BECAUSE LONG LISTDEF|
//***************************************************
//STEP1 EXEC PGM=DSNUTIL?,TIME=1440,
//   PARM=(DVBP,'A540769V.COPY'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     --OPTIONS(PREVIEW)
     LISTDEF LST INCLUDE TABLESPACE XBFIV*.*WWW* PARTLEVEL
     COPY LIST LST COPYDDN(TCOPYS)
       FULL YES PARALLEL
       SHRLEVEL CHANGE
//A540769I JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,                     00020003
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769I.COPY'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     --OPTIONS(PREVIEW)
     LISTDEF LST INCLUDE TABLESPACE XBFI*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBFIV*.*WWW* PARTLEVEL
     COPY LIST LST COPYDDN(TCOPYS)
       FULL YES PARALLEL
       SHRLEVEL CHANGE
//A540769A JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,                     00020003
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769A.COPY'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     --OPTIONS(PREVIEW)
     LISTDEF LST INCLUDE TABLESPACE XBFA*.*WWW* PARTLEVEL
                 INCLUDE TABLESPACE XBFC*.*WWW* PARTLEVEL
                 INCLUDE TABLESPACE XBFD*.*WWW* PARTLEVEL
                 INCLUDE TABLESPACE XBF9*.*WWW* PARTLEVEL
     COPY LIST LST COPYDDN(TCOPYS)
       FULL YES PARALLEL
       SHRLEVEL CHANGE
//A540769F JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,                     00020003
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769F.COPY'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     --OPTIONS(PREVIEW)
     LISTDEF LST INCLUDE TABLESPACE XBF*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBFA*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBFC*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBFD*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBF9*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBFI*.*WWW* PARTLEVEL
     COPY LIST LST COPYDDN(TCOPYS)
       FULL YES PARALLEL
       SHRLEVEL CHANGE
//A540769R JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,                     00020003
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769R.COPY'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     --OPTIONS(PREVIEW)
     LISTDEF LST INCLUDE TABLESPACE XB*.*WWW* PARTLEVEL
                 EXCLUDE TABLESPACE XBF*.*WWW* PARTLEVEL
     COPY LIST LST COPYDDN(TCOPYS)
       FULL YES PARALLEL
       SHRLEVEL CHANGE