zOs/JCL/DBXCSM

//YDE05001 JOB (CP00,KE50),
//       'DB2',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//* Funktion  version Auftrag DE05001C
//*** DB2 Catalog Objekte extrahieren für DBSRC ************************
//EXTDBSRC 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(DBAF)
  RUN PROG(ADB2GEN) PLAN(A72) PARM('/WRTCAT')
  END
//ADBPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=SHR,DSN=A540769.DBX.DBSRCDDL(DE050010)
//CAT      DD DISP=SHR,DSN=A540769.DBX.DBSRCCAT(DE050010)
//IN       DD *
  DB2SYS   = 'DBAF',
  DB2ALOC  = 'CHSKA000DBAF',
  DB2SERV  = 'CHSKA000DBAF',
  DB2AUTH  = 'S100447',
  DB2REL   = '815',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'D',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'D',
  GENTRIG  = 'D',
  GENSG    = 'N',
  GRANTDB  = 'N',
  GRANTTS  = 'N',
  GRANTTAB = 'N',
  GRANTVW  = 'N',
  GENUDT   = 'N',
  GENUDF   = 'N',
  GENSTP   = 'N',
  GENSEQ   = 'N',
  GRANTSCH = 'N',
  GRANTUDT = 'N',
  GRANTUDF = 'N',
  GRANTSTP = 'N',
  GRANTSEQ = 'N',
  GRANTSG  = 'N',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWSCH   = '',
  SPCALLOC = 'DEFINED',
  DESCRIPT = 'DBSRC DE05001C 0',
  TGTDB2   = '815';
  TYPE = 'DB', NAME = 'DGDB0260';