zOs/SKELS/DBXEXVE

//*** DB2 Catalog Objekte extrahieren für $what ************************
//EXT$what EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB  DD DISP=SHR,DSN=${toolPreC}.SADBLLIB
//         DD DISP=SHR,DSN=${toolPreP}.SGOCLLIB
//         DD DISP=SHR,DSN=${toolPreP}.SADBLLIB
//         DD DISP=SHR,DSN=${dsnload}
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM($subsys)
  RUN PROG(ADB2GEN) PLAN(ADB) PARM('/WRTCAT')
  END
//ADBPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=SHR,DSN=${libPre}.${what}DDL($mbrNac)
//CAT      DD DISP=SHR,DSN=${libPre}.${what}CAT($mbrNac)
//IN       DD *
  DB2SYS   = '$subsys',
  DB2ALOC  = '$location',
  DB2SERV  = '$location',
  DB2AUTH  = 'S100447',
  DB2REL   = '$db2rel',
  RUNSQLID = 'S100447',
  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   = 'Y',
  GENUDF   = 'Y',
  GENSTP   = 'Y',
  GENSEQ   = 'Y',
  GRANTSCH = 'N',
  GRANTUDT = 'N',
  GRANTUDF = 'N',
  GRANTSTP = 'N',
  GRANTSEQ = 'N',
  GRANTSG  = 'N',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWSCH   = '',
  SPCALLOC = 'DEFINED',
  DESCRIPT = '$what $AUFTRAG $NACHTRAG',
  TGTDB2   = '$db2rel';
  $@scope