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
;
/*