zOs/SKELS/DBXANA
//EXDLTA EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADBCVEX) PLAN(ADB)
//SYSPRINT DD SYSOUT=*
//REPORT DD SYSOUT=*
//VEROUT DD DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(20,20,0)),LRECL=16384,RECFM=VB,BLKSIZE=27998
//PARMIN DD *
VQUAL='F540769',
VNAME='$DELTAVERS';
//*
//**********************************************************************
//*
//* STEP EXOBJS1: EXTRACT DB2 CATALOG OBJECTS FROM VERSION FILE
//*
//******************************************************ADBCVOB*********
//EXOBJS1 EXEC PGM=ADBCVOB
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=*.EXDLTA.VEROUT
//REPORT DD SYSOUT=*
//OUTDD DD DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(10,10,0)),LRECL=80,RECFM=FBA
//***********************************************************ADB2GEN***
//* STEP GNSQL2: GENERATE SQL FROM DB2 CATALOG
//**********************************************************************
//GNSQL2 EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADB2GEN) PLAN(ADB) -
PARMS('/WRTCAT,NOGEN,REBIND')
END
//SYSPRINT DD SYSOUT=*
//SQL DD DSN=&&SQLTEMP,
// DCB=(LRECL=80,RECFM=FB,DSORG=PS),
// SPACE=(TRK,(5,5),RLSE),
// UNIT=DISK,
// DISP=(NEW,PASS)
//SQLOUT DD DUMMY
//CAT DD DSN=&&CATOUT,
// DCB=(LRECL=16800,RECFM=VB,DSORG=PS),
// SPACE=(TRK,(15,15),RLSE),
// UNIT=DISK,
// DISP=(NEW,PASS)
//IN DD DISP=SHR,
// DSN=*.EXOBJS1.OUTDD
//**********************************************************************
//*
//* STEP MERGE3: MERGE
//*
//******************************************************ADBCCME*********
//MERGE3 EXEC PGM=ADBCCME,PARM=('/CHGBASE')
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//BASEIN DD DISP=SHR,DSN=*.GNSQL2.CAT
//DELTAIN DD DISP=SHR,DSN=*.EXDLTA.VEROUT
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTDOUT DD DSN=&SRTDOUT,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTCIN DD DSN=&SRTCIN,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTCOUT DD DISP=(NEW,PASS,DELETE),DSN=&SRTCOUT,
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),UNIT=DISK
//SRTNIN DD DSN=&SRTNIN,DISP=(,DELETE),SPACE=(CYL,(10,10)),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),UNIT=DISK
//SRTNOUT DD DISP=(NEW,PASS,DELETE),DSN=&SRTNOUT,
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),UNIT=DISK
// ENDIF
//**********************************************************************
//*
//* DB2 OBJECT COMPARISON TOOL
//*
//* STEP COMP4: COMPARE
//*
//***********************************************************GOCCMP*****
//COMP4 EXEC PGM=GOC2CMP,PARM=('/;REORGM,RUNID(S100447)',
// 'ANALYZE,')
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//MASKS DD DUMMY
//IGNORES DD DUMMY
//SRC DD DISP=SHR,
// DSN=*.MERGE3.SRTNOUT
//SRCSIN DD DSN=&SRCSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//SRCSOUT DD DSN=&SRCSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT DD DISP=SHR,
// DSN=*.MERGE3.SRTCOUT
//TGT2IN DD DISP=(SHR,PASS),
// DSN=*.TGT,VOL=REF=*.TGT
//TGTSIN DD DSN=&TGTSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGTSOUT DD DSN=&TGTSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT2OUT DD DSN=*.TGTSOUT,VOL=REF=*.TGTSOUT,DISP=(SHR,DELETE)
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),
// SPACE=(CYL,(10,20),RLSE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// UNIT=DISK
//CHANGES DD DSN=DSN.DBX.DBAF.C$chgId7.AN124953.CHANGES,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=DISK
//IFF DD DSN=DSN.DBX.DBAF.C$chgId7.AN124953.IFF,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=2048,RECFM=VB,BLKSIZE=27998,DSORG=PO),
// SPACE=(CYL,(2,2,60),RLSE),
// UNIT=DISK
// ENDIF
//**********************************************************************
//*
//* DB2 OBJECT COMPARE
//*
//* STEP GAPY5: GENERATE APPLY CHANGES JOBS
//*
//**********************************************************************
// IF (RC GT 7) THEN
// ELSE
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//GAPY5 EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%GOCGAJOB )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//GOCSVARS DD DISP=SHR,DSN=DSN.DBX.DBAF.C$chgId7.AN124953.SHRVARS
//CHANGES DD DISP=SHR,DSN=DSN.DBX.DBAF.C$chgId7.AN124953.CHANGES
// ENDIF
/*
//**********************************************************************
//*
//* DB2 OBJECT COMPARE
//*
//* STEP GRWL6: GENERATE RUN WORK STATEMENT LIST
//*
//**********************************************************************
// IF (RC>7) THEN
// ELSE
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//GRWL6 EXEC PGM=IKJEFT01,
// PARM='ISPSTART CMD(%ADBGLUE )',
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//VARLST DD *
ADB2CPS=;
ADBTEST=YES;
ADBTSTPN=ADB;
ADBONEJB=Y;
ADBJ1=//F5407691 JOB (KEL25071,0240,,3612),'CATALOG',;
ADBJ2=// MSGCLASS=T,TIME=1440;
ADBJ3=//*MAIN CLASS=LOG;
ADBJ4=;
ADBJ5=;
ADBJPM1=;
ADBJPM2=;
ADBJPM3=;
ADBJPM4=;
DB2AJSYS=;
ADBJCGN=N;
ADBJCLS=;
DB2AJCLS=A;
ADBUNIT=DISK;
ADBJCL='DSN.DBX.DBAF.ANA.JCL';
ADBJOBPF=AN;
ADBJOBEM=Y;
AHPULLIB=;
DB2ALOAD= ${dsnload} ;
AAPFLIBR=;
ADBLLIB= 'DSN.ADB72.${rz}.P0.SGOCLLIB' 'DSN.ADB72.${rz}.P0.SADBLLIB' ;
ADBPLIB= 'DSN.ADB72.${rz}.P0.SGOCPLIB' 'DSN.ADB72.${rz}.P0.SADBPLIB' ;
ADBMLIB= 'DSN.ADB72.${rz}.P0.SGOCMLIB' 'DSN.ADB72.${rz}.P0.SADBMLIB' ;
ADBSLIB= 'DSN.ADB72.${rz}.P0.SGOCSLIB' 'DSN.ADB72.${rz}.P0.SADBSLIB' ;
ADBTLIB= 'DSN.ADB72.${rz}.P0.SGOCTLIB' 'DSN.ADB72.${rz}.P0.SADBTLIB' ;
ADBELIB= 'DSN.ADB72.${rz}.P0.SGOCEXEC' 'DSN.ADB72.${rz}.P0.SADBEXEC' ;
ADBCLIB= 'DSN.ADB72.${rz}.P0.SGOCCLST' 'DSN.ADB72.${rz}.P0.SADBCLST' ;
USEHPU=N;
DB2SYS=DBAF;
$NBAS=YES;
NBVFSOWN=F540769;
NBVFSNAM=WK209.TRG;
NBVFVOWN=F540769;
NBVFVNAM=WK209.AFTER;
CHANGEID=843;
ADBCHAG=ANALYZE;
PARAM=ADB2CEX1 ANALYZE 'DSN.DBX.DBAF.RUN.JCL(E$chgId7)' YES 'DSN.DBX.DBAF.ANA.W
SL(C$chgId7)' ;
/*
// ENDIF
/*
// IF (RC>7) THEN
// ELSE
//**********************************************************************
//*
//* STEP UPD7: UPDATE STATUS OF A CHANGE
//*
//***********************************************************ADBCUPD****
//UPD7 EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.ADB72.${rz}.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.ADB72.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROG(ADBCUPD) PLAN(ADB) -
PARMS('/CHGID=843, NEWSTAT=''ANALYZED'', OLDSTAT=''DEFINED'', -
ERRPRT=''Y''; ')
END
/*
//SYSPRINT DD SYSOUT=*
// ENDIF
//*
//* CREATED ON 07/06/29 AT 12:49 BY F540769 AT S12
//*
//************************************************************ADB2ENDJ**