zOs/SQL/V

//A540769D JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//       IF RC = 0 OR RC = 4 THEN
//UTI001   EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769D'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
  LISTDEF C#LIST
   INCLUDE TABLESPACE BJAAACOP.BJAAAOJP
   INCLUDE TABLESPACE BJAAACOP.BJAAAOJQ
   INCLUDE TABLESPACE BJAAACOP.BJAAAOJR
   INCLUDE TABLESPACE BJAAACOP.BJAAAOJS
   INCLUDE TABLESPACE BJAAACOP.BJAAAOJT
   INCLUDE TABLESPACE BJAAADY9.BJAAAVDH
   INCLUDE TABLESPACE BJAAADY9.BJAAAVDI
   INCLUDE TABLESPACE BJAAADY9.BJAAAVDJ
   INCLUDE TABLESPACE BJAAADY9.BJAAAVDK
   INCLUDE TABLESPACE BJAAADY9.BJAAAVDL
   INCLUDE TABLESPACE BJAAADY9.BJAAAVDM
   INCLUDE TABLESPACE BJAAADZB.BJAAAVDT
   INCLUDE TABLESPACE BJAAADZB.BJAAAVDU
   INCLUDE TABLESPACE BJAAADZB.BJAAAVDV
   INCLUDE TABLESPACE BJAAADZB.BJAAAVDW
   INCLUDE TABLESPACE BJAAADZB.BJAAAVDX
   INCLUDE TABLESPACE BJAAADZB.BJAAAVDY
  QUIESCE  LIST C#LIST
  MODIFY RECOVERY
    LIST C#LIST
    DELETE AGE (*)
  COPY
    LIST C#LIST
    COPYDDN(TCOPYD)  FULL YES
    PARALLEL
//       ENDIF
//       IF RC = 0 OR RC = 4 THEN
//DROP001  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                    00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
set current sqlid = 'S100447';
drop database BJAAACOP;
  commit;
drop database BJAAADY9;
  commit;
drop database BJAAADZB;
  commit;
//       ENDIF
//SLEE001  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//           PARM='WSH s'
//SYSIN    DD DUMMY
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
//WSH      DD *
    call sleep 1, 1
//OUT      DD SYSOUT=*
//       IF RC = 0 OR RC = 4 THEN
//UTI002   EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769D'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
  LISTDEF C#LIST
   INCLUDE TABLESPACE BJAAAE00.BJAAA1FI
   INCLUDE TABLESPACE BJAAAE00.BJAAA1FJ
   INCLUDE TABLESPACE BJAAAE00.BJAAA1FK
   INCLUDE TABLESPACE BJAAAE00.BJAAA1FL
   INCLUDE TABLESPACE BJAAAE00.BJAAA1FM
   INCLUDE TABLESPACE BJAAAE00.BJAAA1FN
   INCLUDE TABLESPACE BJAAAE02.BJAAA1FU
   INCLUDE TABLESPACE BJAAAE02.BJAAA1FV
   INCLUDE TABLESPACE BJAAAE02.BJAAA1FW
   INCLUDE TABLESPACE BJAAAE02.BJAAA1FX
   INCLUDE TABLESPACE BJAAAE02.BJAAA1FY
   INCLUDE TABLESPACE BJAAAE02.BJAAA1FZ
   INCLUDE TABLESPACE BJAAAE03.BJAAA1F0
   INCLUDE TABLESPACE BJAAAE03.BJAAA1F1
   INCLUDE TABLESPACE BJAAAE03.BJAAA1F2
   INCLUDE TABLESPACE BJAAAE03.BJAAA1F3
   INCLUDE TABLESPACE BJAAAE03.BJAAA1F4
   INCLUDE TABLESPACE BJAAAE03.BJAAA1F5
  QUIESCE  LIST C#LIST
  MODIFY RECOVERY
    LIST C#LIST
    DELETE AGE (*)
  COPY
    LIST C#LIST
    COPYDDN(TCOPYD)  FULL YES
    PARALLEL
//       ENDIF
//       IF RC = 0 OR RC = 4 THEN
//DROP002  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                    00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
set current sqlid = 'S100447';
drop database BJAAAE00;
  commit;
drop database BJAAAE02;
  commit;
drop database BJAAAE03;
  commit;
//       ENDIF
//SLEE002  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//           PARM='WSH s'
//SYSIN    DD DUMMY
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
//WSH      DD *
    call sleep 1, 1
//OUT      DD SYSOUT=*
//A540769D JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//       IF RC = 0 OR RC = 4 THEN
//UTI001   EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769D'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
  LISTDEF C#LIST
   INCLUDE TABLESPACE BJAAAE06.BJAAA1GI
   INCLUDE TABLESPACE BJAAAE06.BJAAA1GJ
   INCLUDE TABLESPACE BJAAAE06.BJAAA1GK
   INCLUDE TABLESPACE BJAAAE06.BJAAA1GL
   INCLUDE TABLESPACE BJAAAE06.BJAAA1GM
   INCLUDE TABLESPACE BJAAAE06.BJAAA1GN
  QUIESCE  LIST C#LIST
  MODIFY RECOVERY
    LIST C#LIST
    DELETE AGE (*)
  COPY
    LIST C#LIST
    COPYDDN(TCOPYD)  FULL YES
    PARALLEL
//       ENDIF
//       IF RC = 0 OR RC = 4 THEN
//DROP001  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                    00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
set current sqlid = 'S100447';
drop database BJAAAE06;
  commit;
//       ENDIF
//SLEE001  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//           PARM='WSH s'
//SYSIN    DD DUMMY
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
//WSH      DD *
    call sleep 1, 1
//OUT      DD SYSOUT=*
$***out            20090806 17:14:29