Database Generation in HE › Database Definition › Edit Generated JCL and DDL

Edit Generated JCL and DDL

When JCL and DDL generation for the selected objects completes, CA Gen automatically displays the JCL in an ISPF Edit session to review and edit.

For example, if the DB2 subsystem in which the generated application executes is not identified when you specify the target environment, the generated JCL does not include the DB2 subsystem ID. The DB2 subsystem ID must be added to the JCL before it is submitted.

The following example shows part of an EDIT session display of the DB2 JCL and DDL generated to create a table space, a table, and a unique index.

EDIT ---- USERID.XXCTEMP1.TIDDLJCL --------------------COLUMNS 001
COMMAND ===>                                         SCROLL ===> PAGE
000049 //*****************************************************************
000050 //*        JCL TO EXECUTE DDL SQL STATEMENTS                *
000051 //*****************************************************************
000052 //*
000053 //STEPSQL EXEC PGM=IKJEFT01,DYNAMNBR=30,COND=(0,NE)
000054 //SYSPRINT DD  SYSOUT=*
000055 //SYSTSPRT DD   SYSOUT=*
000056 //SYSIN  DD  *
000057      CREATE TABLESPACE      "T0041531" IN      "D0041483"
000058         BUFFERPOOL BP0
000059         LOCKSIZE PAGE
000060         CLOSE     NO
000061         USING STOGROUP SYSDEFLT
000062         ;
000063       COMMIT;
000064       CREATE TABLE       "WORK_AREA"
000065         (
000066         "OPTION"                  CHAR(1)
000067          NOT NULL
000068         "ERROR_COUNT"         INTEGER
000069         )
000070        IN  "D0041483".  "T0041531";
000071       COMMIT;
000072        CREATE UNIQUE INDEX    "I0041653"
000073         ON     "WORK_AREA"
000074         ("OPTION"                    ASC
000075         )
000076         SUBPAGES    16
000077         BUFFERPOOL BP0
000078         CLOSE   NO
000079         USING STOGROUP SYSDEFLT
000080         ;
000081        COMMIT;
000082 /*
000083 //SYSTSIN  DD   *
000084  DSN SYSTEM(DB2T)
000085   RUN PROGRAM(TIUUSQLX) PLAN(GENUSQL) +
000086    LIB(AAAC.GEN.LOAD')
000087   END
000088 /*
000089 //
******************************* BOTTOM OF DATA ******************

CA Gen generates the IDCAMS control statements when you do not use storage groups.