zOs/SKELS/DBXAUTEX

//*** 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 DISP=(OLD,DELETE),DSN=&&CVOBOUT
//IN       DD DISP=SHR,DSN=${libPre}.$auto($mbrNac)