zOs/JCL/DB2DROP

//YDROPXX1 JOB (KEL25071,0240,,3612),'CATALOG',
//*       RESTART=???
//         MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//**********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//**********************************************************************
//*
//***********************************************************ADB2GEN***
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//**********************************************************************
//SQL      EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB  DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBLF)
  RUN PROG(ADB2GEN) PLAN(ADB2GEN)
  END
/*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=SHR,
//           DSN=DSN.DROP.DBLF.JCL(BJAADDL)
//IN       DD *
  DB2SYS   = 'DBLF',
  DB2ALOC  = '',
  DB2SERV  = 'CHSKA000DBLF',
  DB2AUTH  = 'S100447',
  DB2REL   = '815',
  RUNSQLID = 'S100447',
  GENSG    = 'N',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'D',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'D',
  GRANTDB  = 'N',
  GRANTTS  = 'N',
  GRANTTAB = 'N',
  GRANTVW  = 'N',
  GRANTSG  = 'N',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWGRANTOR = '',
  SPCALLOC = 'DEFINED',
  TGTDB2   = '';
  DB='BJA10001';
  DB='BJA20001';
  DB='BJA30001';
  DB='BJA40001';
  DB='BJA50001';
  DB='BJA60001';
  DB='BJA70001';
  DB='BJA80001';
/*
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//       IF RC = 0 THEN
//UNLO     EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBLF,'A540769.UNLOAD'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBLF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     LISTDEF LL INCLUDE TABLESPACE  BJA10001.*
                INCLUDE TABLESPACE  BJA20001.*
                INCLUDE TABLESPACE  BJA30001.*
                INCLUDE TABLESPACE  BJA40001.*
                INCLUDE TABLESPACE  BJA50001.*
                INCLUDE TABLESPACE  BJA60001.*
                INCLUDE TABLESPACE  BJA70001.*
                INCLUDE TABLESPACE  BJA80001.*
     UNLOAD LIST LL
       PUNCHDDN TPUNCH UNLDDN TSRECD
         SHRLEVEL REFERENCE
     QUIESCE  LIST LL

     MODIFY RECOVERY
       LIST LL
         DELETE AGE (*)
     COPY
       LIST LL
         COPYDDN(TCOPYD)  FULL YES
//       IF RC <= 4 THEN
//FREE     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYS(DBLF)
//          DD DISP=SHR,DSN=DSN.DROP.DBLF.JCL(BJAAFREE)
//       IF RC <= 4 THEN
//DROP     EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBLF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*YSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
  SET CURRENT SQLID = 'S100447';
//         DD *
SET CURRENT SQLID = 'S100447';
//         DD DISP=SHR,DSN=DSN.DROP.DBLF.JCL(BJAAALDR)
//         DD *
   DROP DATABASE BJA10001 ;
   COMMIT;
   DROP DATABASE BJA20001 ;
   COMMIT;
   DROP DATABASE BJA30001 ;
   COMMIT;
   DROP DATABASE BJA40001 ;
   COMMIT;
   DROP DATABASE BJA50001 ;
   COMMIT;
   DROP DATABASE BJA60001 ;
   COMMIT;
   DROP DATABASE BJA70001 ;
   COMMIT;
   DROP DATABASE BJA80001 ;
   COMMIT;
//       ENDIF
//       ENDIF
//       ENDIF