Cat/Dir REORG JCLs Part 2 - DB2CATCK

Michael Ebert

Cat/Dir REORG JCLs Part 2 - DB2CATCK
Dr. Michael Ebert
DB2 Database Administrator
aMaDEUS Data Processing
Erding / Munich, Germany
Tel. ++49 -8122-433962
Fax ++49-8122-433260

//OBO025CK JOB (USERJOB,ME),'M. EBERT X3962',CLASS=Y,MSGCLASS=X,
// MSGLEVEL=(1,1),REGION=6M,NOTIFY=&SYSUID,TYPRUN=HOLD
/*JOBPARM SYSAFF=AMAB
//JOBLIB DD DISP=SHR,DSN=SYS1.DB2.PRD1.SDSNLOAD
//*
//*=====================
//* Check Catalog & Directory
//*
//* For some obscure reason, adding these steps after the DB2PCAT job
//* causes a RESOURCE UNAVAILABLE condition on the VSAM files in the
//* RLODTABL steps, so they have to be in their own job.
//*
//*=====================
//*
//*#####################################################################
//CHECKR PROC TABLE=DB.TABLE Instream Procedure
//CHKR EXEC PGM=DSN1CHKR,PARM='FORMAT',COND=(4,LT)
//SYSUT1 DD DSN=DB2P.DSNDBC.DSN&TABLE..I0001.A001,DISP=SHR
//SYSPRINT DD SYSOUT=*
// PEND
//CHECK PROC TABLE=DB.TABLE Instream Procedure
//CHK EXEC PGM=DSN1COPY,PARM=(CHECK),COND=(4,LT)
//SYSUT1 DD DSN=DB2P.DSNDBC.DSN&TABLE..I0001.A001,DISP=SHR
//SYSUT2 DD DUMMY
//SYSPRINT DD SYSOUT=*
// PEND
//*#####################################################################
//*
//CHKDBD01 EXEC CHECKR,TABLE=DB01.DBD01
//CHKDBASE EXEC CHECKR,TABLE=DB06.SYSDBASE
//CHKDBAUT EXEC CHECKR,TABLE=DB06.SYSDBAUT
//CHKGROUP EXEC CHECKR,TABLE=DB06.SYSGROUP
//CHKPLAN EXEC CHECKR,TABLE=DB06.SYSPLAN
//CHKVIEWS EXEC CHECKR,TABLE=DB06.SYSVIEWS
//*
//*---------------------------------------------------------------------
//*
//CHKDBD01 EXEC CHECK,TABLE=DB01.DBD01
//CHKSCT02 EXEC CHECK,TABLE=DB01.SCT02
//CHKSPT01 EXEC CHECK,TABLE=DB01.SPT01
//CHKLGRNX EXEC CHECK,TABLE=DB01.SYSLGRNX
//CHKUTILX EXEC CHECK,TABLE=DB01.SYSUTILX
//*
//CHKCOPY EXEC CHECK,TABLE=DB06.SYSCOPY
//CHKDBASE EXEC CHECK,TABLE=DB06.SYSDBASE
//CHKDBAUT EXEC CHECK,TABLE=DB06.SYSDBAUT
//CHKDDF EXEC CHECK,TABLE=DB06.SYSDDF
//CHKGPAUT EXEC CHECK,TABLE=DB06.SYSGPAUT
//CHKGROUP EXEC CHECK,TABLE=DB06.SYSGROUP
//CHKPKAGE EXEC CHECK,TABLE=DB06.SYSPKAGE
//CHKPLAN EXEC CHECK,TABLE=DB06.SYSPLAN
//CHKSTATS EXEC CHECK,TABLE=DB06.SYSSTATS
//CHKSTR EXEC CHECK,TABLE=DB06.SYSSTR
//CHKUSER EXEC CHECK,TABLE=DB06.SYSUSER
//CHKVIEWS EXEC CHECK,TABLE=DB06.SYSVIEWS
//*