zOs/JCL/DBQCOMP

//A5407691 JOB (KEL25071,0240,,3612),'CATALOG',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG,SYSTEM=S12
//*
//**********************************************************************
//*
//* DB2 OBJECT COMPARISON TOOL
//*
//* STEP T02DB2: EXTRACT DB2 CATALOG OBJECTS FOR TARGET
//*
//******************************************************GOCDB2**********
//        IF (RC GT 7) THEN
//        ELSE
//T02DB2   EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB  DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
//         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(DQ0G)
  RUN PROG(ADB2GEN) PLAN(A72) PARM('/WRTCAT,NOGEN,REBIND,')
  END
//SYSPRINT DD SYSOUT=*
//SQLOUT   DD DUMMY
//CAT      DD DSN=DSN.DBA.WKOO010.TRG.VRS,
//            DISP=(OLD,CATLG,DELETE),
//            DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
//            SPACE=(CYL,(10,10),RLSE),
//            UNIT=DISK
//IN       DD *
  DB2SYS   = 'DBAF',
  DB2ALOC  = 'CHSKA000DQ0G',
  DB2SERV  = 'CHSKA000DQ0G',
  DB2AUTH  = 'A540769',
  DB2REL   = '815',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'Y',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'D',
  GENTRIG  = 'Y',
  GENSG    = 'Y',
  GRANTDB  = 'Y',
  GRANTTS  = 'Y',
  GRANTTAB = 'Y',
  GRANTVW  = 'Y',
  GENUDT   = 'N',
  GENUDF   = 'N',
  GENSTP   = 'N',
  GENSEQ   = 'N',
  GRANTSCH = 'N',
  GRANTUDT = 'N',
  GRANTUDF = 'N',
  GRANTSTP = 'N',
  GRANTSEQ = 'N',
  GRANTSG  = 'Y',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWSCH   = '',
  SPCALLOC = 'DEFINED',
  DESCRIPT = '',
  TGTDB2   = '815';
  DB='DGDB0187', TS='',         OWN='',         TB='';
//    ENDIF
/*
//**********************************************************************
//*
//* DB2 OBJECT COMPARISON TOOL
//*
//* STEP T03COMP: COMPARE
//*
//***********************************************************GOCCMP*****
//        IF (RC GT 7) THEN
//        ELSE
//T03COMP  EXEC PGM=GOC2CMP,PARM=('/;KEEPTGT,REORGM',
//       'RUNID(S100447),DACVE,')
//STEPLIB  DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
//         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
//REPORT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP  DD SYSOUT=*
//SYSOUT   DD DUMMY
//MASKS    DD DISP=SHR,
//          DSN=DSN.DBX.MASK(TWALPROT)
//IGNORES  DD DISP=SHR,
//          DSN=DSN.DBX.MASK(IGNORE)
//SRC      DD DISP=SHR,
//          DSN=DSN.DBX.DBSRCCAT(OO010010)
//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=DSN.DBA.WKOO010.TRG.VRS
//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=&TEMPCHG,
//          DISP=(,PASS),
//          DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
//          SPACE=(CYL,(10,10),RLSE),
//          UNIT=DISK
//IFF      DD DSN=DSN.DBA.WKOO010Q.IFF,
//            DISP=(NEW,CATLG,DELETE),
//            DCB=(LRECL=2048,RECFM=VB,BLKSIZE=27998,DSORG=PO),
//            SPACE=(CYL,(2,2,60),RLSE),
//            UNIT=DISK
//   ENDIF