DSNTEJ0
THIS JCL PERFORMS THE PHASE 0 CLEANUP FOR THE SAMPLE APPLICATIONS ON A LOCAL Db2 SYSTEM (A Db2 SYSTEM WHICH CONTAINS THE ACTUAL SAMPLE TABLES).
//*********************************************************************
//* NAME = DSNTEJ0
//*
//* DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//* PHASE 0 (LOCAL SYSTEM)
//*
//* Licensed Materials - Property of IBM
//* 5698-DB2
//* COPYRIGHT IBM CORP 1982, 2022
//*
//* STATUS = Version 13
//*
//* FUNCTION = THIS JCL PERFORMS THE PHASE 0 CLEANUP FOR THE SAMPLE
//* APPLICATIONS ON A LOCAL DB2 SYSTEM (A DB2 SYSTEM
//* WHICH CONTAINS THE ACTUAL SAMPLE TABLES).
//*
//* NOTICE =
//* THIS SAMPLE JOB USES DB2 UTILITIES. SOME UTILITY FUNCTIONS ARE
//* ELEMENTS OF SEPARATELY ORDERABLE PRODUCTS. SUCCESSFUL USE OF
//* A PARTICULAR SAMPLE JOB MAY BE DEPENDENT UPON THE OPTIONAL
//* PRODUCT BEING LICENSED AND INSTALLED IN YOUR ENVIRONMENT.
//*
//* CHANGE ACTIVITY =
//* 07/26/2014 Add DSN!!0.DSN8.DSN8ED8.UTILFILE s20128_inst1 s20128
//* 08/18/2015 Drop database DSN8D!!Z 179574
//* 08/18/2015 Rename DSN!!0.DSN8.DSN8ED8.UTILFILE s25173
//* to DSN!!0.DSN8.DSN8EDA.UTILFILE
//* 02/15/2016 Long data set names PI42601
//* 12/01/2021 Remove tolerance for deprecated TSs e6837 / s15746
//*
//*********************************************************************
//JOBLIB DD DSN=DSN!!0.SDSNLOAD,DISP=SHR
//*
//* STEP 1: DELETE DATA SETS CREATED BY THE DB2 IVP JOBS
//PH00S01 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DELETE 'DSN!!0.SYSCOPY.DSN8D!!A.DSN8S!!D'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!A.DSN8S!!E'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.PART3'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!P.DSN8S!!A'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!P.DSN8S!!B'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!P.DSN8S!!C'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!A.DSN8S!!M'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!A.DSN8S!!N'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!A.DSN8S!!O'
DELETE 'DSN!!0.SYSCOPY.DSN8D!!A.DSN8S!!P'
DELETE 'DSN!!0.DSN8UNLD.SYSPUNCH'
DELETE 'DSN!!0.DSN8UNLD.SYSREC00'
DELETE 'DSN!!0.DSN8UNLD.SYSREC01'
DELETE 'DSN!!0.DSN8D!!P.DSN8S!!A.REORGCPY'
DELETE 'DSN!!0.DSN8D!!P.DSN8S!!B.REORGCPY'
DELETE 'DSN!!0.DSN8D!!P.DSN8S!!C.REORGCPY'
DELETE 'DSN!!0.DSN8.LISTDEF'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.SYSPUNCH'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.P00001'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.P00003'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.P00004'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.REORGCPY'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.REORGDSC'
DELETE 'DSN!!0.DSN8D!!A.DSN8S!!E.REORGPUN'
DELETE 'DSN!!0.DSN8.DSN8EDA.UTILFILE'
//*
//* STEP 2: FREE PLANS AND PACKAGES CREATED BY DB2 IVP JOBS
//PH00S02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
FREE PLAN(DSNTEP!!)
FREE PLAN(DSNTP4!!)
FREE PLAN(DSNTIB!!)
FREE PLAN(DSN8BD!!)
FREE PLAN(DSN8BH!!)
FREE PLAN(DSN8BF!!)
FREE PLAN(DSN8BP!!)
FREE PLAN(DSN8LC!!)
FREE PLAN(DSN8LL!!)
FREE PLAN(DSN8LP!!)
FREE PLAN(DSN8LR!!)
FREE PLAN(DSN8IC0)
FREE PLAN(DSN8IP0)
FREE PLAN(DSN8IQ0)
FREE PLAN(DSN8IH0)
FREE PLAN(DSN8CC0)
FREE PLAN(DSN8CP0)
FREE PLAN(DSN8CQ0)
FREE PLAN(DSN8CH0)
FREE PLAN(DSN8EC2)
FREE PLAN(DSN8ED1)
FREE PLAN(DSN8ED3)
FREE PLAN(DSN8ED4)
FREE PLAN(DSN8ED5)
FREE PLAN(DSN8ED6)
FREE PLAN(DSN8ED7)
FREE PLAN(DSN8ED8)
FREE PLAN(DSN8EDXD)
FREE PLAN(DSN8EDXI)
FREE PLAN(DSN8EDXR)
FREE PLAN(DSN8EDXU)
FREE PLAN(DSN8EE2)
FREE PLAN(DSN8EP1)
FREE PLAN(DSN8EPU)
FREE PLAN(DSN8SC!!)
FREE PLAN(DSN8HC!!)
FREE PLAN(DSN8SP!!)
FREE PLAN(DSN8UW!!)
FREE PACKAGE(DSN8CC!!.*)
FREE PACKAGE(DSN8EC!!.*)
FREE PACKAGE(DSN8ED!!.*)
FREE PACKAGE(DSN8EE!!.*)
FREE PACKAGE(DSN8EP!!.*)
FREE PACKAGE(DSN8ES!!.*)
FREE PACKAGE(DSN8HC!!.*)
FREE PACKAGE(DSN8IC!!.*)
FREE PACKAGE(DSN8LC!!.*)
FREE PACKAGE(DSN8LL!!.*)
FREE PACKAGE(DSN8LP!!.*)
FREE PACKAGE(DSN8LR!!.*)
FREE PACKAGE(DSN8DU!!.*)
END
//*
//* 3: PURGE RECOVERY RECORDS FOR IMAGE-COPIED SAMPLE TABLE SPACES
//PH00S03 EXEC DSNUPROC,PARM='DSN,DSNTEX'
//DSNTRACE DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(4000,(50,50),,,ROUND)
//SYSIN DD *
MODIFY RECOVERY TABLESPACE DSN8D!!A.DSN8S!!D DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!A.DSN8S!!E DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!P.DSN8S!!A DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!P.DSN8S!!B DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!P.DSN8S!!C DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!A.DSN8S!!M DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!A.DSN8S!!N DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!A.DSN8S!!O DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!A.DSN8S!!P DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!T DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!U DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!V DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!W DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!X DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!Y DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!X.DSN8S!!Z DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!U.NEWDEPT DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!U.NEWPHONE DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!A DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!B DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!C DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!D DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!E DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!F DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!G DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!H DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!I DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!J DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!K DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!L DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!M DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!N DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!O DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!P DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!Q DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!R DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!S DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!Y.DSN8S!!Y DELETE AGE(*)
MODIFY RECOVERY TABLESPACE DSN8D!!L.DSN8S!!B DELETE AGE(*)
//*
//* 4: DROP TABLES AND DB'S CREATED BY DB2 IVP JOBS
//PH00S04 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
LIB('DSN!!0.RUNLIB.LOAD')
END
//SYSIN DD *
SET CURRENT SQLID = 'SYSADM';
DROP TABLE DSN8!!SA.STAFF;
COMMIT;
DROP TABLE DSN8!!SA.TESTSTUFF;
COMMIT;
DROP DATABASE DSN8D!!A;
COMMIT;
DROP DATABASE DSN8D!!E;
COMMIT;
DROP DATABASE DSN8D!!L;
COMMIT;
DROP DATABASE DSN8D!!P;
COMMIT;
DROP DATABASE DSN8D!!U;
COMMIT;
DROP DATABASE DSN8D!!X;
COMMIT;
DROP DATABASE DSN8D!!Y;
COMMIT;
DROP DATABASE DSN8D!!Z;
COMMIT;
//*
//* 5: DROP STOGROUPS CREATED BY DB2 IVP JOBS
//PH00S05 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
LIB('DSN!!0.RUNLIB.LOAD')
END
//SYSIN DD *
SET CURRENT SQLID = 'SYSADM';
DROP SEQUENCE DSN8!!0.POID;
COMMIT;
DROP SEQUENCE DSN8!!0.CID;
COMMIT;
DROP STOGROUP DSN8G!!0;
COMMIT;
DROP STOGROUP DSN8G!!U;
COMMIT;
DROP STOGROUP DSN8G!!Y;
COMMIT;
//*
//* 6: DROP USER-DEFINED FUNCTIONS CREATED BY DB2 IVP JOBS
//PH00S06 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
LIB('DSN!!0.RUNLIB.LOAD')
END
//SYSIN DD *
SET CURRENT SQLID = 'SYSADM';
DROP SPECIFIC FUNCTION DSN8.DSN8DUCDDVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUCDVVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUADV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUCTTVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUCTVVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUATV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUCYFV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUCYFVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8EUDND RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8EUDNV RESTRICT;
COMMIT;
//*
//* 7: DROP USER-DEFINED FUNCTIONS CREATED BY DB2 IVP JOBS (CONT)
//PH00S07 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
LIB('DSN!!0.RUNLIB.LOAD')
END
//SYSIN DD *
SET CURRENT SQLID = 'SYSADM';
DROP SPECIFIC FUNCTION DSN8.DSN8EUMND RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8EUMNV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTINV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTINVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTINVVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTISV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTISVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTISVVV RESTRICT;
COMMIT;
//*
//* 8: DROP USER-DEFINED FUNCTIONS CREATED BY DB2 IVP JOBS (CONT)
//PH00S08 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
LIB('DSN!!0.RUNLIB.LOAD')
END
//SYSIN DD *
SET CURRENT SQLID = 'SYSADM';
DROP SPECIFIC FUNCTION DSN8.DSN8DUTILV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTILVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUTILVVV RESTRICT;
COMMIT;
DROP SPECIFIC FUNCTION DSN8.DSN8DUWFV RESTRICT;
COMMIT;
DROP PROCEDURE DSN8.DSN8EC1 RESTRICT;
COMMIT;
DROP PROCEDURE DSN8.DSN8ED2 RESTRICT;
COMMIT;
DROP PROCEDURE DSN8.DSN8ES1 RESTRICT;
COMMIT;
DROP PROCEDURE DSN8.DSN8ES2 RESTRICT;
COMMIT;
DROP TABLE DSN8.DSN8ED2_RS_TBL;
COMMIT;
DROP TABLE DSN8.DSN8ES1_RS_TBL;
COMMIT;
//* 