zOs/JCL/GENDBDDL

$#@
$>.fEdit()
$<dsn
$@=[
//A540769L JOB (CP00,KE50),'DBA TOOL',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S13
//*
//*********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//*********************************************************************
//*
//***********************************************************ADB2GEN2**
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//*********************************************************************
$]
$@for li $@=[
$=db=-word($li, 1)
//******************** db $db
//$db      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
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBTF)
  RUN PROG(ADB2GEN) PLAN(ADB)
  END
/*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=OLD,
//           DSN=A540769.TMP.SQL($db)
//IN       DD *
  DB2SYS   = 'DBTF',
  DB2ALOC  = '',
  DB2SERV  = 'CHSKA000DBTF',
  DB2AUTH  = 'S100447',
  DB2REL   = '1012',
  RUNSQLID = 'S100447',
  GENSG    = 'N',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'Y',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'Y',
  GENTRIG  = 'Y',
  ACTVCNTL = '',
  GRANTDB  = 'N',
  GRANTTS  = 'N',
  GRANTTAB = 'N',
  GRANTVW  = 'N',
  GRANTSG  = 'N',
  IMPLDB   = '',
  IMPLTS   = '',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWGRANTOR = '',
  SPCALLOC = 'DEFINED',
  COMMITFR = 'A',
  DEFAULTS = 'K',
  ROLEWARN = 'Y',
  TGTDB2   = '';
  DB='$db',  TS='';
$]
$#out                                              20120308 16:55:38
$#out                                              20120308 16:54:13
//A540769L JOB (CP00,KE50),'DBA TOOL',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S13
//*
//*********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//*********************************************************************
//*
//***********************************************************ADB2GEN2**
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//*********************************************************************
//******************** db MF01A1T
//MF01A1T      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
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBTF)
  RUN PROG(ADB2GEN) PLAN(ADB)
  END
/*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=OLD,
//           DSN=A540769.TMP.SQL(MF01A1T)
//IN       DD *
  DB2SYS   = 'DBTF',
  DB2ALOC  = '',
  DB2SERV  = 'CHSKA000DBTF',
  DB2AUTH  = 'S100447',
  DB2REL   = '1012',
  RUNSQLID = 'S100447',
  GENSG    = 'N',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'Y',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'Y',
  GENTRIG  = 'Y',
  ACTVCNTL = '',
  GRANTDB  = 'N',
  GRANTTS  = 'N',
  GRANTTAB = 'N',
  GRANTVW  = 'N',
  GRANTSG  = 'N',
  IMPLDB   = '',
  IMPLTS   = '',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWGRANTOR = '',
  SPCALLOC = 'DEFINED',
  COMMITFR = 'A',
  DEFAULTS = 'K',
  ROLEWARN = 'Y',
  TGTDB2   = '';
  DB='MF01A1T',  TS='';
//******************** db MF02A1T
//MF02A1T      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
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBTF)
  RUN PROG(ADB2GEN) PLAN(ADB)
  END
/*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=OLD,
//           DSN=A540769.TMP.SQL(MF02A1T)
//IN       DD *
  DB2SYS   = 'DBTF',
  DB2ALOC  = '',
  DB2SERV  = 'CHSKA000DBTF',
  DB2AUTH  = 'S100447',
  DB2REL   = '1012',
  RUNSQLID = 'S100447',
  GENSG    = 'N',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'Y',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'Y',
  GENTRIG  = 'Y',
  ACTVCNTL = '',
  GRANTDB  = 'N',
  GRANTTS  = 'N',
  GRANTTAB = 'N',
  GRANTVW  = 'N',
  GRANTSG  = 'N',
  IMPLDB   = '',
  IMPLTS   = '',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWGRANTOR = '',
  SPCALLOC = 'DEFINED',
  COMMITFR = 'A',
  DEFAULTS = 'K',
  ROLEWARN = 'Y',
  TGTDB2   = '';
  DB='MF02A1T',  TS='';
//******************** db MF03A1T
//MF03A1T      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
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBTF)
  RUN PROG(ADB2GEN) PLAN(ADB)
  END
/*
//SYSPRINT DD SYSOUT=*
//SQL      DD DISP=OLD,
//           DSN=A540769.TMP.SQL(MF03A1T)
//IN       DD *
  DB2SYS   = 'DBTF',
  DB2ALOC  = '',
  DB2SERV  = 'CHSKA000DBTF',
  DB2AUTH  = 'S100447',
  DB2REL   = '1012',
  RUNSQLID = 'S100447',
  GENSG    = 'N',
  GENDB    = 'Y',
  GENTS    = 'Y',
  GENTABLE = 'Y',
  GENVIEW  = 'Y',
  GENINDEX = 'Y',
  GENSYN   = 'Y',
  GENALIAS = 'Y',
  GENLABEL = 'Y',
  GENCOMM  = 'Y',
  GENRELS  = 'Y',
  GENTRIG  = 'Y',
  ACTVCNTL = '',
  GRANTDB  = 'N',
  GRANTTS  = 'N',
  GRANTTAB = 'N',
  GRANTVW  = 'N',
  GRANTSG  = 'N',
  IMPLDB   = '',
  IMPLTS   = '',
  NEWDB    = '',
  NEWTSSG  = '',
  NEWIXSG  = '',
  NEWSQLID = '',
  NEWGRANTOR = '',
  SPCALLOC = 'DEFINED',
  COMMITFR = 'A',
  DEFAULTS = 'K',
  ROLEWARN = 'Y',
  TGTDB2   = '';
  DB='MF03A1T',  TS='';
$#out