CPALGDDL - Define DB2 table for System Logger extract

This JCL contains DDL to define a DB2® table for the System Logger extract data.
Figure 1. Sample JCL CPALGDDL - Define DB2 table for System Logger extract
//CPALGDDL JOB ,NOTIFY=&SYSUID
//CICSPA   EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB  DD DISP=SHR,DSN=<dsn.sdsnload>
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 DSN SYSTEM(<SSID>)
 RUN PROGRAM(DSNTIAD) PLAN(<DSNTIA>) LIB(<'DSN.RUNLIB.LOAD'>)
/*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *

   CREATE STOGROUP <CPALOGRG> VOLUMES(<VOLSER>) VCAT <HLQ>;

   CREATE DATABASE <CPALOGR>;

   COMMIT;

   CREATE TABLESPACE LOGLIST
          IN         <CPALOGR>
          LOCKSIZE   ANY
          BUFFERPOOL BP0
          CLOSE      NO
          SEGSIZE    32
          USING      STOGROUP <CPALOGRG>
          PRIQTY     360
          SECQTY     180
          ERASE      NO ;
   
CREATE TABLE <CPALOGR>.LOGLIST (
        RECTYPE             CHAR(8),
        INTERVAL_DATE       DATE,
        INTERVAL_TIME       TIME,
        LOGSTREAM_NAME      CHAR(26),
        STRUCT_NAME         CHAR(16),
        SYSID               CHAR(4),
        MVS_LEVEL           CHAR(8),
        GROUP               CHAR(8),
        STAGING_FLAG        CHAR(10),
        IXGWRITE_COUNT      FLOAT,
        IXGW_BLOCKLEN_MIN   FLOAT,
        IXGW_BLOCKLEN_MAX   FLOAT,
        IXG2_BYTES_REQUEST  FLOAT,
        IXG2_BYTES_WRITTEN  FLOAT,
        DASD_WRITES         FLOAT,
        DASD_WRITE_WAITS    FLOAT,
        DASD_SHIFTS         FLOAT,
        STRUCT_REBUILD_INI  FLOAT,
        STRUCT_REBUILD_COM  FLOAT,
        FTRUCT_FULL         FLOAT,
        STAGING_THRESHOLD   FLOAT,
        STAGING_FULL        FLOAT,
        OFFLOADS            FLOAT,
        ENTRY_FULL          FLOAT,
        DEMAND_OFFLOADS     FLOAT,
        STAGING_A_BUF_FULL  FLOAT,
        WRITTEN_BYTES       FLOAT,
        INSTEAD_BYTES       FLOAT,
        AFTER_BYTES         FLOAT,
        INSTEAD_COUNT       FLOAT,
        AFTER_COUNT         FLOAT,
        TYPE_1_COMPLETIONS  FLOAT,
        TYPE_2_COMPLETIONS  FLOAT,
        TYPE_3_COMPLETIONS  FLOAT
      ) IN <CPALOGR>.LOGLIST;

      CREATE TYPE 2 UNIQUE INDEX <CPALOGR>.LOGLIST_I
           ON <CPALOGR>.LOGLIST
           (
              RECTYPE,
              INTERVAL_DATE,
              INTERVAL_TIME,
              LOGSTREAM_NAME,
              STRUCT_NAME
            )
      USING  STOGROUP   <CPALOGRG>
             PRIQTY     10
             SECQTY     10
             ERASE      NO
             CLUSTER
             BUFFERPOOL BP0
             CLOSE      NO
   ;
   /*