SMF Type 102 Record
This table shows the record layout for type 102 SMF records
(DATABASE 2 Performance, Audit, and Monitor).
List of other SMF record layouts available.
List of sample SMF reports.
Purpose: DATABASE 2 (DB2) writes record type 102 to record performance information.
It's easy to report on SMF 102 data! (Jump to sample reports) | |
|
Spectrum SMF Writer handles the difficult SMF record parsing for you automatically. You just specify which fields you want to see. Spectrum SMF Writer also converts the arcane date and time fields and reformats them into an attractive report. Plus, Spectrum SMF Writer can export SMF data as comma delimited files to use on your PC.
|
The Spectrum Writer definitions for the SMF type 102 record below are based on the description provided by IBM in its "MVS Systems Management Facilities (SMF)" manual and/or DSECTs mapped by its Assembler macros.
|
File Definition for Type 102 SMF Records DATABASE 2 Performance, Audit, and Monitor
***********************************************************************
* SPECTRUM SMF WRITER -- FILE DEFINITION STATEMENTS *
* SMF TYPE 102 RECORD - "DATABASE 2 PERFORMANCE, AUDIT, AND MONITOR" *
***********************************************************************
OPTION: MISSOFFSET /* TREAT OFFSET ERRORS (99999) LIKE MISSING DATA */
OPTION: STCKADJ(0) /* NO GMT TO LOCAL CONVERSION - DURATIONS*/
**********************************************************************
* SMF 102 DB2 PERFORMANCE/SERVICEABILITY RECORD SECTION MAPPING
*(SEE SYSTEM PLANNING AND ADMINISTRATION GUIDE FOR ADDITIONAL DETAIL)*
**********************************************************************
* *
* ------------- NOTE TO SPECTRUM SMF WRITER CUSTOMERS. ------------- *
* *
* SM102Bnn contains some additional IFCIDs not defined in SMF102nn. *
* Use this "102B" module in place of the regular "102" module *
* to report on the IFCIDs defined here. *
* *
* THIS RECORD LAYOUT DEFINES ALL OF THE HEADERS PLUS THE DATA *
* SECTIONS OF THE MOST COMMONLY USED IFCIDS. THERE ARE HUNDREDS *
* OF OTHER IFCIDS WHICH WE HAVE NOT DEFINED HERE, IN ORDER TO KEEP *
* THE RECORD LAYOUT MANAGEABLE. *
* *
* IF YOU NEED DATA FROM A DIFFERENT IFCID, CONSIDER USING THIS *
* LAYOUT AS A GUIDE AND DEFINING IT YOURSELF. YOU CAN ALSO *
* CONTACT US AND AS OUR SCHEDULE PERMITS, WE WILL TRY TO DEFINE IT. *
* *
**********************************************************************
* DSECT MACRO * DESCRIPTION OF SECTIONS IN RECORD *
* *
* NOTE: FIELDS DEFINED AS CHARACTER MAY CONTAIN HEX DATA *
*--------------------------------------------------------------------*
* SM102 DSNDQWSP * SMF HEADER SECTION *
*--------------------------------------------------------------------*
* * INDIVIDUAL IFCID FOLLOWS
* *
* QWT0 DSNDQWT0 * SELF DEFINING SECTION - NOTE: USE OFFSETS
* * IN QWT0 TO GET TO THE FOLLOWING SECTIONS
* * BECAUSE THEIR EXACT POSITION VARIES
*--------------------------------------------------------------------
* * FOLLOWING SECTIONS BEGIN ON A WORD BOUNDARY
* * PRODUCT SECTION. THIS SECTION NORMALLY
* * APPEARS AT THE END OF RECORD.
* QWHS DSNDQWHS * STANDARD HEADER ALWAYS APPEARS
* QWHC DSNDQWHC * CORRELATION HEADER MAY APPEAR
* QWHT DSNDQWHT * TRACE HEADER MAY APPEAR
* QWHU DSNDQWHU * CPU HEADER MAY APPEAR
* QWHD DSNDQWHD * DISTRIBUTED HEADER MAY APPEAR
* QWHA DSNDQWHA * DATA SHARING HEADER MAY APPEAR
* *
********************************************************************
*
FLD: QWSP LEN(4) TYPE(BIN) DISP(0)
*/*****************************************************************/
*/* SMF COMMON HEADER MAPPING MACRO FOR PERFORMANCE SMF 102 */
*/*****************************************************************/
FLD: SM102LEN LEN(2) DISP(0) /*SM102 TOTAL LENGTH*/
FLD: SM102SGD LEN(2) DISP(2) /*ZZ BYTES*/
FLD: SM102FLG LEN(1) DISP(4) /*SYSTEM INDICATOR*/
FLD: SM102RTY LEN(1) TYPE(BU) DISP(5) /*RECORD TYPE X'66'*/
FLD: SM102TME LEN(4) TYPE(B-SECS) DISP(6) DEC(2)
/*TIME SMF MOVED RECORD*/
FLD: SM102DTE TYPE(P-CYYDDD) DISP(10) /*DATE SMF MOVED RECORD*/
FLD: SM102SID LEN(4) DISP(14) /*SYSTEM ID (SID)*/
FLD: SM102SSI LEN(4) DISP(18) /*SUBSYSTEM ID*/
FLD: SM102STF LEN(1) DISP(22) /*RESERVED*/
FLD: SM102RI LEN(1) DISP(23) /*RESERVED*/
FLD: SM102SEQ LEN(4) DISP(24) /*RESERVED*/
FLD: SM102BUF LEN(4) DISP(24) /*TEMPORARY POINTER TO BUFFER AREA*/
FLD: SM102END LEN(1) DISP(28) /*START OF THE SELF DEFINING SECTION*/
*
***********************************************************************
**** QWT0 DSECT
***********************************************************************
FLD: QWT0 DISP(0) LEN(1) OFFSET(28)
*
* /* TRACE SELF DEFING SECTION MACRO */
*
* /* PRODUCT SECTION FOR DATA BASE STATISTICS CONTAINS THE
* STANDARD HEADER MAPPED BY DSNDQWHS
*
* THE NUMBER OF DATA SECTIONS IS VARIABLE AND INDICATED IN
* THE STANDARD HEADER (QWHSNSDA) */
*
*/**IMPORTANT PARSING INFORMATION*****IMPORTANT PARSING INFORMATION****
* *
* The length field for any (offset,length,number of data sections) *
* triplet can legally be zero with a non-zero offset. This indicates *
* this section is a varying length repeating group. A varying *
* length repeating group is a series of related data blocks with *
* differing lengths. This is typically, if not always, the result of *
* varying length long name fields in the data block. *
* *
* *
FLD: QWT02PSO LEN(4) TYPE(BIN) DISP(0)
/*OFFSET TO THE PRODUCT SECTION*/
FLD: QWT02PSL LEN(2) TYPE(BIN) DISP(4)
/*LENGTH OF THE PRODUCT SECTION*/
FLD: QWT02PSN LEN(2) TYPE(BIN) DISP(6) /*NUMBER OF PRODUCT SECTIONS*/
FLD: QWT02R1O LEN(4) TYPE(BIN) DISP(8) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R1L LEN(2) TYPE(BIN) DISP(12) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R1N LEN(2) TYPE(BIN) DISP(14) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R2O LEN(4) TYPE(BIN) DISP(16) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R2L LEN(2) TYPE(BIN) DISP(20) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R2N LEN(2) TYPE(BIN) DISP(22) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R3O LEN(4) TYPE(BIN) DISP(24) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R3L LEN(2) TYPE(BIN) DISP(28) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R3N LEN(2) TYPE(BIN) DISP(30) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R4O LEN(4) TYPE(BIN) DISP(32) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R4L LEN(2) TYPE(BIN) DISP(36) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R4N LEN(2) TYPE(BIN) DISP(38) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R5O LEN(4) TYPE(BIN) DISP(40) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R5L LEN(2) TYPE(BIN) DISP(44) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R5N LEN(2) TYPE(BIN) DISP(46) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R6O LEN(4) TYPE(BIN) DISP(48) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R6L LEN(2) TYPE(BIN) DISP(52) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R6N LEN(2) TYPE(BIN) DISP(54) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R7O LEN(4) TYPE(BIN) DISP(56) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R7L LEN(2) TYPE(BIN) DISP(60) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R7N LEN(2) TYPE(BIN) DISP(62) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R8O LEN(4) TYPE(BIN) DISP(64) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R8L LEN(2) TYPE(BIN) DISP(68) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R8N LEN(2) TYPE(BIN) DISP(70) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02R9O LEN(4) TYPE(BIN) DISP(72) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02R9L LEN(2) TYPE(BIN) DISP(76) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02R9N LEN(2) TYPE(BIN) DISP(78) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02RAO LEN(4) TYPE(BIN) DISP(80) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02RAL LEN(2) TYPE(BIN) DISP(84) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02RAN LEN(2) TYPE(BIN) DISP(86) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02RBO LEN(4) TYPE(BIN) DISP(88) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02RBL LEN(2) TYPE(BIN) DISP(92) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02RBN LEN(2) TYPE(BIN) DISP(94) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02RCO LEN(4) TYPE(BIN) DISP(96) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02RCL LEN(2) TYPE(BIN) DISP(100) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02RCN LEN(2) TYPE(BIN) DISP(102) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02RDO LEN(4) TYPE(BIN) DISP(104) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02RDL LEN(2) TYPE(BIN) DISP(108) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02RDN LEN(2) TYPE(BIN) DISP(110) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02REO LEN(4) TYPE(BIN) DISP(112) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02REL LEN(2) TYPE(BIN) DISP(116) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02REN LEN(2) TYPE(BIN) DISP(118) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02RFO LEN(4) TYPE(BIN) DISP(120)
/*OFFSET TO THE DATA SECTION TU3100IF*/
FLD: QWT02RFL LEN(2) TYPE(BIN) DISP(124)
/*LENGTH OF THE DATA SECTION TU3100IF*/
FLD: QWT02RFN LEN(2) TYPE(BIN) DISP(126)
/*NUMBER OF DATA SECTIONS TU3100IF*/
FLD: QWT02RGO LEN(4) TYPE(BIN) DISP(128) /*OFFSET TO THE DATA SECTION*/
FLD: QWT02RGL LEN(2) TYPE(BIN) DISP(132) /*LENGTH OF THE DATA SECTION*/
FLD: QWT02RGN LEN(2) TYPE(BIN) DISP(134) /*NUMBER OF DATA SECTIONS*/
FLD: QWT02RHO LEN(4) TYPE(BIN) DISP(136)
/*OFFSET TO THE DATA SECTION PM10989*/
FLD: QWT02RHL LEN(2) TYPE(BIN) DISP(140)
/*LENGTH OF THE DATA SECTION PM10989*/
FLD: QWT02RHN LEN(2) TYPE(BIN) DISP(142)
/*NUMBER OF DATA SECTIONS PM10989*/
FLD: QWT02END LEN(1) DISP(144) /*END OF THE SELF DEFINING SECTION*/
*
***********************************************************************
**** QWHS DSECT
***********************************************************************
COMP: QWHS_OFFSET =
WHEN(SM102RTY=102 AND QWT02PSN > 0) ASSIGN(QWT02PSO)
ELSE ASSIGN(99999)
FLD: QWHS DISP(0) LEN(1) OFFSET(QWHS_OFFSET)
***********************************************************************
*** **
*** INSTRUMENTATION STANDARD HEADER DATA IN PRODUCT SECTION **
*** **
***********************************************************************
FLD: QWHSLEN LEN(2) TYPE(BIN) DISP(0)
/*LENGTH OF THE STANDARD HEADER*/
FLD: QWHSTYP LEN(1) DISP(2) /*HEADER TYPE*/
*
* ** HEADER TYPE CONSTANTS **
COMP: QWHSHS01 = 1 /*..STANDARD HEADER*/
COMP: QWHSHC02 = 2 /*..CORRELATION HEADER*/
COMP: QWHSHT04 = 4 /*..TRACE HEADER*/
COMP: QWHSHU08 = 8 /*..CPU HEADER*/
COMP: QWHSHD16 = 16 /*..DISTRIBUTED HEADER*/
COMP: QWHSHA32 = 32 /*..DATA SHARING HEADER*/
FLD: QWHSRMID LEN(1) DISP(3) /*RESOURCE MANAGER ID*/
FLD: QWHSIID TYPE(HALF) DISP(4) /*IFCID*/
FLD: QWHSRELN LEN(2) DISP(6) /*RELEASE NUMBER AREA*/
FLD: QWHSNSDA LEN(1) TYPE(BIN) DISP(6)
/*NUMBER OF SELF DEFINING AREAS*/
*
FLD: QWHSRN LEN(1) DISP(7) /*RELEASE INDICATOR NUMBER HEX*/
*
FLD: QWHSACE LEN(4) TYPE(BIN) DISP(8)
/*ACE ADDRESS DISPATCH UNIT ADDRESS*/
FLD: QWHSSSID LEN(4) DISP(12) /*SUBSYSTEM NAME*/
FLD: QWHSSTCK TYPE(STCKTIME) DISP(16) /*STORE CLOCK VALUE OF HEADER*/
* For data sharing, this is the sysplex
* timer value.
*
* *********************************************************************
* * NOTE- THE FOLLOWING SEQUENCE NUMBERS ARE UNIQUE WITHIN A SINGLE *
* * SUBSYSTEM INSTANCE AND ARE INITIALIZED TO ZERO ON RESTART. *
* * BECAUSE OF MP CONSIDERATIONS THE NUMBERS MAY NOT ALWAYS BE *
* * IN ASCENDING ORDER. *
* *********************************************************************
*
FLD: QWHSISEQ LEN(4) DISP(24) /*SEQUENCE NUMBER FOR IFCID*/
FLD: QWHSWSEQ LEN(4) DISP(28) /*SEQUENCE NUMBER FOR DESTINATION*/
FLD: QWHSMTN LEN(4) DISP(32) /*ACTIVE TRACE NUMBER MASK*/
FLD: QWHSLOCN LEN(16) DISP(36) /*%U LOCAL LOCATION NAME*/
* Truncated if QWHSLOCN_Offª=0
FLD: QWHSLWID LEN(24) DISP(52) /*LUWID*/
FLD: QWHSNID LEN(8) DISP(52) /*NETWORK ID*/
FLD: QWHSLUNM LEN(8) DISP(60) /*LUNAME*/
FLD: QWHSLUUV LEN(6) DISP(68) /*UNIQUENESS VALUE*/
FLD: QWHSLUCC LEN(2) TYPE(BIN) DISP(74) /*COMMIT COUNT*/
FLD: QWHSFLAG LEN(1) DISP(76) /*Flags*/
COMP: QWHS_UNICODE = X'80' /*%U fields contain Unicode (UTF 8)*/
FLD: QWHSLOCN_OFF TYPE(HALF) DISP(78) /*Offset from QWHS to*/
* LOCAL LOCATION NAME
* If QWHSLOCN truncated
FLD: QWHSSUBV TYPE(HALF) DISP(80)
/*THE SUBVERSION FOR THE BASE RELEASE*/
FLD: QWHSEND LEN(1) DISP(82) /*END OF STANDARD HEADER*/
*
*
***********************************************************************
**** QWHSLOCN_D DSECT Use if QWHSLOCN_Offª=0
***********************************************************************
COMP: QWHSLOCN_D_OFFSET =
WHEN(QWHS_OFFSET <> 99999 AND QWHSLOCN_Off <> 0)
ASSIGN(QWHS_OFFSET + QWHSLOCN_Off)
ELSE ASSIGN(99999)
FLD: QWHSLOCN_D DISP(0) LEN(1) OFFSET(QWHSLOCN_D_OFFSET)
/*Use if QWHSLOCN_Offª 0*/
*
FLD: QWHSLOCN_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHSLOCN_VAR LEN(128) DISP(2)/*%U LOCAL LOCATION NAME*/
COMPUTE: EDIT_QWHSLOCN = #LEFT(QWHSLOCN_VAR,QWHSLOCN_LEN)
*
***THE FOLLOWING VALUES DEFINE THE IFCID IN QWHSIID **
*** RMID: DESCRIPTION: **
COMP: QWHS0000 = 0 /*..DEFAULT NORMAL TRACE RECORDS*/
COMP: QWHS0001 = 1 /*26 ..SYSTEM STATISTICS*/
COMP: QWHS0002 = 2 /*26 ..DATA BASE STATISTICS*/
COMP: QWHS0003 = 3 /*26 ..ACCOUNTING*/
*
***********************************************************************
* SOME OR ALL OF THESE HEADERS MAY NOW FOLLOW THE STD HEADER:
* QWHC DSNDQWHC * CORRELATION HEADER PRESENT ON ACCOUNTING
* QWHT DSNDQWHT * TRACE HEADER MAY APPEAR
* QWHU DSNDQWHU * CPU HEADER MAY APPEAR
* QWHD DSNDQWHD * DISTRIBUTED HEADER PRESENT ON ACCOUNTING
* QWHA DSNDQWHA * DATA SHARING HEADER
***********************************************************************
COMPUTE: PSHDR_MAX_OFFSET = QWT02PSO + QWT02PSL /* -> PAST ALL HDRS*/
*
***********************************************************************
* DEFINE JUST THE LENGTH AND TYPE OF THE 2ND HEADER SECTION PRESENT *
***********************************************************************
COMPUTE: PSHDR_2_TEST_OFFSET = QWT02PSO + QWHSLEN
COMPUTE: PSHDR_2_OFFSET =
WHEN(PSHDR_2_TEST_OFFSET >= PSHDR_MAX_OFFSET) ASSIGN(99999)
ELSE ASSIGN(PSHDR_2_TEST_OFFSET)
FIELD: PSHDR_2_LEN DISP(0) LEN(2) TYPE(BIN) OFFSET(PSHDR_2_OFFSET)
FIELD: PSHDR_2_TYP DISP(2) LEN(1) TYPE(BIN)
*
***********************************************************************
* DEFINE JUST THE LENGTH AND TYPE OF THE 3RD SECTION PRESENT *
***********************************************************************
COMPUTE: PSHDR_3_TEST_OFFSET = PSHDR_2_OFFSET + PSHDR_2_LEN
COMPUTE: PSHDR_3_OFFSET =
WHEN(PSHDR_3_TEST_OFFSET >= PSHDR_MAX_OFFSET) ASSIGN(99999)
ELSE ASSIGN(PSHDR_3_TEST_OFFSET)
*
FIELD: PSHDR_3_LEN DISP(0) LEN(2) TYPE(BIN) OFFSET(PSHDR_3_OFFSET)
FIELD: PSHDR_3_TYP DISP(2) LEN(1) TYPE(BIN)
*
***********************************************************************
* DEFINE JUST THE LENGTH AND TYPE OF THE 4TH SECTION PRESENT *
***********************************************************************
COMPUTE: PSHDR_4_TEST_OFFSET = PSHDR_3_OFFSET + PSHDR_3_LEN
COMPUTE: PSHDR_4_OFFSET =
WHEN(PSHDR_4_TEST_OFFSET >= PSHDR_MAX_OFFSET) ASSIGN(99999)
ELSE ASSIGN(PSHDR_4_TEST_OFFSET)
*
FIELD: PSHDR_4_LEN DISP(0) LEN(2) TYPE(BIN) OFFSET(PSHDR_4_OFFSET)
FIELD: PSHDR_4_TYP DISP(2) LEN(1) TYPE(BIN)
*
*
***********************************************************************
* DEFINE JUST THE LENGTH AND TYPE OF THE 5TH SECTION PRESENT *
***********************************************************************
COMPUTE: PSHDR_5_TEST_OFFSET = PSHDR_4_OFFSET + PSHDR_4_LEN
COMPUTE: PSHDR_5_OFFSET =
WHEN(PSHDR_5_TEST_OFFSET >= PSHDR_MAX_OFFSET) ASSIGN(99999)
ELSE ASSIGN(PSHDR_5_TEST_OFFSET)
*
FIELD: PSHDR_5_LEN DISP(0) LEN(2) TYPE(BIN) OFFSET(PSHDR_5_OFFSET)
FIELD: PSHDR_5_TYP DISP(2) LEN(1) TYPE(BIN)
*
************************************************************************
* DEFINE JUST THE LENGTH AND TYPE OF THE 6TH SECTION PRESENT *
***********************************************************************
COMPUTE: PSHDR_6_TEST_OFFSET = PSHDR_5_OFFSET + PSHDR_5_LEN
COMPUTE: PSHDR_6_OFFSET =
WHEN(PSHDR_6_TEST_OFFSET >= PSHDR_MAX_OFFSET) ASSIGN(99999)
ELSE ASSIGN(PSHDR_6_TEST_OFFSET)
*
FIELD: PSHDR_6_LEN DISP(0) LEN(2) TYPE(BIN) OFFSET(PSHDR_6_OFFSET)
FIELD: PSHDR_6_TYP DISP(2) LEN(1) TYPE(BIN)
*
*
***********************************************************************
**** QWHA DSECT
***********************************************************************
COMP: QWHA_OFFSET =
WHEN(PSHDR_2_TYP = QWHSHA32) ASSIGN(PSHDR_2_OFFSET)
WHEN(PSHDR_3_TYP = QWHSHA32) ASSIGN(PSHDR_3_OFFSET)
WHEN(PSHDR_4_TYP = QWHSHA32) ASSIGN(PSHDR_4_OFFSET)
WHEN(PSHDR_5_TYP = QWHSHA32) ASSIGN(PSHDR_5_OFFSET)
WHEN(PSHDR_6_TYP = QWHSHA32) ASSIGN(PSHDR_6_OFFSET)
ELSE ASSIGN(99999)
FLD: QWHA DISP(0) LEN(1) OFFSET(QWHA_OFFSET)
* /**************************************/
* /*INSTRUMENTATION DATA SHARING HEADER */
* /**************************************/
FLD: QWHALEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF HEADER*/
FLD: QWHATYP LEN(1) DISP(2) /*TYPE OF HEADER DATA SHARING*/
* /* NAME - QWHSHA32 */
FLD: QWHAMEMN LEN(8) DISP(4) /*DB2 MEMBER NAME*/
* /* WITHIN A DB2 DATA SHARING GROUP, EACH */
* /* MEMBER DB2 HAS A NAME. */
FLD: QWHADSGN LEN(8) DISP(12) /*DB2 DATA SHARING GROUP NAME*/
FLD: QWHAEND LEN(1) DISP(20)
***********************************************************************
**** QWHC DSECT
***********************************************************************
COMP: QWHC_OFFSET =
WHEN(PSHDR_2_TYP = QWHSHC02) ASSIGN(PSHDR_2_OFFSET)
WHEN(PSHDR_3_TYP = QWHSHC02) ASSIGN(PSHDR_3_OFFSET)
WHEN(PSHDR_4_TYP = QWHSHC02) ASSIGN(PSHDR_4_OFFSET)
WHEN(PSHDR_5_TYP = QWHSHC02) ASSIGN(PSHDR_5_OFFSET)
WHEN(PSHDR_6_TYP = QWHSHC02) ASSIGN(PSHDR_6_OFFSET)
ELSE ASSIGN(99999)
FLD: QWHC DISP(0) LEN(1) OFFSET(QWHC_OFFSET)
*/*****************************************************************/
*/* */
*/* INSTRUMENTATION CORRELATION DATA */
*/* */
*/*****************************************************************/
FLD: QWHCLEN LEN(2) TYPE(BIN) DISP(0)
/*LENGTH OF THE CORRELATION HEADER*/
FLD: QWHCTYP LEN(1) DISP(2) /*TYPE OF HEADER CORRELATION 2*/
FLD: QWHCAID LEN(8) DISP(4) /*%U AUTHORIZATION ID*/
* /* Truncated if QWHCAID_Offª=0 */
FLD: QWHCCV LEN(12) DISP(12) /*CORRELATION ID VALUE*/
FLD: QWHCCN LEN(8) DISP(24)
/*CONNECTION NAME (NOT VALID ON END OF MEMORY &*/
* REFLECTS THE MVS HOME ASID CONNECTION NAME) */
FLD: QWHCPLAN LEN(8) DISP(32) /*PLAN NAME*/
FLD: QWHCOPID LEN(8) DISP(40) /*%U ORIGINAL OPERATOR ID*/
* /* Truncated if QWHCOPID_Offª=0 */
FLD: QWHCATYP LEN(4) TYPE(BIN) DISP(48) /*CONNECTING SYSTEM TYPE CODE*/
FLD: QWHCTOKN LEN(22) DISP(52) /*ACCOUNTING TOKEN*/
FLD: QWHCRES2 LEN(2) DISP(74) /*RESERVED*/
FLD: QWHCEUID LEN(16) DISP(76) /*THE END USER'S USERID AT THE*/
* /* USER'S WORKSTATION. */
* /* Truncated if QWHCOPID_Offª=0 */
FLD: QWHCEUTX LEN(32) DISP(92) /*THE END USER'S TRANSACTION NAME.*/
FLD: QWHCEUWN LEN(18) DISP(124) /*THE END USER'S WORKSTATION NAME.*/
*
FLD: QWHCAID_OFF TYPE(HALF) DISP(142) /*Offset from QWHC to*/
* /* AUTHORIZATION ID */
* /* If QWHCAID truncated */
FLD: QWHCOPID_OFF TYPE(HALF) DISP(144) /*Offset from QWHC to*/
* /* ORIGINAL OPERATOR ID */
* /* If QWHCOPID truncated */
FLD: QWHCEUID_OFF TYPE(HALF) DISP(146) /*Offset from QWHC to*/
* /* THE END USER'S USERID */
* /* If QWHCEUID truncated */
* /* Trusted context and role data */
* /* will be present if the record */
* /* is written by an agent running */
* /* under a trusted context and */
* /* the trusted context data can */
* /* be accessed. */
FLD: QWHCTCXT_OFF TYPE(HALF) DISP(148) /*Offset from QWHC to*/
* /* Trusted Context name, if */
* /* running in a trusted context */
FLD: QWHCROLE_OFF TYPE(HALF) DISP(150) /*Offset from QWHC to*/
* /* Role name associated with the */
* /* Authorization ID, if running */
* /* in a trusted context */
FLD: QWHCOAUD_OFF TYPE(HALF) DISP(152) /*Offset from QWHC to original*/
* /* application USERID */
FLD: QWHCCTKN_OFF TYPE(HALF) DISP(154) /*Offset from QWHC to*/
* /* the correlation token. */
* /* V9-Present only if QWHSSUBV */
* /* is 1 or higher. */
FLD: QWHCEND LEN(4) TYPE(BIN) DISP(156)
*
*
***********************************************************************
**** QWHCAID_D DSECT /* Use if QWHCAID_Offª=0 */
***********************************************************************
COMP: QWHCAID_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCAID_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCAID_Off)
ELSE ASSIGN(99999)
FLD: QWHCAID_D DISP(0) LEN(1) OFFSET(QWHCAID_D_OFFSET)
/*Use if QWHCAID_Offª 0*/
FLD: QWHCAID_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCAID_VAR LEN(128) DISP(2) /*%U AUTHORIZATION ID*/
COMPUTE: EDIT_QWHCAID = #LEFT(QWHCAID_VAR,QWHCAID_LEN)
*
*
***********************************************************************
**** QWHCOPID_D DSECT /* Use if QWHCOPID_Offª=0 */
***********************************************************************
COMP: QWHCOPID_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCOPID_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCOPID_Off)
ELSE ASSIGN(99999)
FLD: QWHCOPID_D DISP(0) LEN(1) OFFSET(QWHCOPID_D_OFFSET)
/*Use if QWHCOPID_Offª 0*/
FLD: QWHCOPID_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCOPID_VAR LEN(128) DISP(2)/*%U ORIGINAL OPERATOR ID*/
COMPUTE: EDIT_QWHCOPID = #LEFT(QWHCOPID_VAR,QWHCOPID_LEN)
*
*
***********************************************************************
**** QWHCEUID_D DSECT /* Use if QWHCEUID_Offª=0 */
***********************************************************************
COMP: QWHCEUID_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCEUID_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCEUID_Off)
ELSE ASSIGN(99999)
FLD: QWHCEUID_D DISP(0) LEN(1) OFFSET(QWHCEUID_D_OFFSET)
/*Use if QWHCEUID_Offª 0*/
FLD: QWHCEUID_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCEUID_VAR LEN(128) DISP(2)/*END USER'S USERID*/
COMPUTE: EDIT_QWHCEUID = #LEFT(QWHCEUID_VAR,QWHCEUID_LEN)
*
*
***********************************************************************
**** QWHCTCXT_D DSECT /* Use if QWHCTCXT_Offª=0 */
***********************************************************************
COMP: QWHCTCXT_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCTCXT_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCTCXT_Off)
ELSE ASSIGN(99999)
FLD: QWHCTCXT_D DISP(0) LEN(1) OFFSET(QWHCTCXT_D_OFFSET)
/*Use if QWHCTCXT_Offª 0*/
FLD: QWHCTCXT_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCTCXT_VAR LEN(128) DISP(2)/*%U Trusted Context name*/
COMPUTE: EDIT_QWHCTCXT = #LEFT(QWHCTCXT_VAR,QWHCTCXT_LEN)
*
*
***********************************************************************
**** QWHCROLE_D DSECT /* Use if QWHCROLE_Offª=0 */
***********************************************************************
COMP: QWHCROLE_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCROLE_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCROLE_Off)
ELSE ASSIGN(99999)
FLD: QWHCROLE_D DISP(0) LEN(1) OFFSET(QWHCROLE_D_OFFSET)
/*Use if QWHCROLE_Offª 0*/
FLD: QWHCROLE_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCROLE_VAR LEN(128) DISP(2)/*%U Role name associated with*/
COMPUTE: EDIT_QWHCROLE = #LEFT(QWHCROLE_VAR,QWHCROLE_LEN)
* /* authid */
*
*
***********************************************************************
**** QWHCOAUD_D DSECT /* Use if QWHCOAUD_Offª=0 */
***********************************************************************
COMP: QWHCOAUD_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCOAUD_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCOAUD_Off)
ELSE ASSIGN(99999)
FLD: QWHCOAUD_D DISP(0) LEN(1) OFFSET(QWHCOAUD_D_OFFSET)
/*Use if QWHCOAUD_Offª 0*/
FLD: QWHCOAUD_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCOAUD_VAR LEN(128) DISP(2)/*%U Original application USERID*/
COMPUTE: EDIT_QWHCOAUD = #LEFT(QWHCOAUD_VAR,QWHCOAUD_LEN)
*
*
***********************************************************************
**** QWHCCTKN_D DSECT /* Use if QWHCCTKN_Offª=0 */
***********************************************************************
COMP: QWHCCTKN_D_OFFSET =
WHEN(QWHC_OFFSET <> 99999 AND QWHCCTKN_Off <> 0)
ASSIGN(QWHC_OFFSET + QWHCCTKN_Off)
ELSE ASSIGN(99999)
FLD: QWHCCTKN_D DISP(0) LEN(1) OFFSET(QWHCCTKN_D_OFFSET)
/*Use if QWHCCTKN_Offª 0*/
FLD: QWHCCTKN_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHCCTKN_VAR LEN(128) DISP(2)/*%U Correlation token.*/
COMPUTE: EDIT_QWHCCTKN = #LEFT(QWHCCTKN_VAR,QWHCCTKN_LEN)
*
*
*/*****************************************************************/
*/* CONNECTION SYSTEM TYPE CONSTANTS */
*/*****************************************************************/
*
COMP: QWHCTSO = X'1' /*TSO FOREGROUND AND BACKGROUND*/
COMP: QWHCDB2C = X'2' /*DB2 CALL ATTACH*/
COMP: QWHCDLIB = X'3' /*DL/I BATCH*/
COMP: QWHCCICS = X'4' /*CICS ATTACH*/
COMP: QWHCIMSB = X'5' /*IMS ATTACH BMP*/
COMP: QWHCIMSM = X'6' /*IMS ATTACH MPP*/
COMP: QWHCDUW = X'7' /*DB2 PRIVATE PROTOCOL*/
COMP: QWHCRUW = X'8' /*DRDA PROTOCOL*/
COMP: QWHCICTL = X'9' /*IMS CONTROL REGION*/
COMP: QWHCTBMP = X'A' /*IMS TRANSACTION BMP*/
COMP: QWHCUTIL = X'B' /*DB2 UTILITIES*/
COMP: QWHCTRRS = X'C' /*RRSAF ATTACH*/
***********************************************************************
**** QWHT DSECT
***********************************************************************
COMP: QWHT_OFFSET =
WHEN(PSHDR_2_TYP = QWHSHT04) ASSIGN(PSHDR_2_OFFSET)
WHEN(PSHDR_3_TYP = QWHSHT04) ASSIGN(PSHDR_3_OFFSET)
WHEN(PSHDR_4_TYP = QWHSHT04) ASSIGN(PSHDR_4_OFFSET)
WHEN(PSHDR_5_TYP = QWHSHT04) ASSIGN(PSHDR_5_OFFSET)
WHEN(PSHDR_6_TYP = QWHSHT04) ASSIGN(PSHDR_6_OFFSET)
ELSE ASSIGN(99999)
FLD: QWHT DISP(0) LEN(1) OFFSET(QWHT_OFFSET)
* /*INSTRUMENTATION TRACE HEADER DATA */
FLD: QWHTLEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF HEADER*/
FLD: QWHTTYP LEN(1) DISP(2) /*TYPE OF HEADER TRACE*/
FLD: QWHTFLG0 LEN(1) DISP(3) /*FLAGS*/
COMP: QWHTALFG = X'20' /*ON DATA USES ALET TOKEN*/
FLD: QWHTTID TYPE(HALF) DISP(4) /*ID SPECIFIED DSNWTRC MACRO*/
FLD: QWHTTAG LEN(1) DISP(6) /*TAG SPECIFIED DSNWTRC MACRO*/
FLD: QWHTFUNC LEN(1) DISP(7) /*FUNC SPECIFIED DSNWTRC MACRO*/
FLD: QWHTEB LEN(4) TYPE(BIN) DISP(8) /*EB ADDRESS*/
FLD: QWHTPASI TYPE(HALF) DISP(12) /*PASID EPAR*/
* /*FOLLOWING FIELDS BELONG TO CALLERS MODULE WHICH INVOKED TRACE*/
FLD: QWHTR14A TYPE(HALF) DISP(14) /*REGISTER 14 ASID*/
FLD: QWHTR14 LEN(4) TYPE(BIN) DISP(16) /*REGISTER 14*/
FLD: QWHTR15 LEN(4) TYPE(BIN) DISP(20) /*REGISTER 15*/
FLD: QWHTR0 LEN(4) TYPE(BIN) DISP(24) /*REGISTER 0*/
FLD: QWHTR1 LEN(4) TYPE(BIN) DISP(28) /*REGISTER 1*/
FLD: QWHTEXU LEN(4) TYPE(BIN) DISP(32)
/*ADDRESS OF MVS EXECUTION UNIT*/
FLD: QWHTDIM TYPE(HALF) DISP(36) /*NUMBER OF DATA ITEMS*/
FLD: QWHTHASI TYPE(HALF) DISP(38) /*HOME ASID*/
* /*THE FOLLOWING FIELDS REPEAT FOR EACH DATA ITEM */
FLD: QWHTDATA LEN(4) TYPE(BIN) DISP(40) /*ADDRESS OF THE DATA*/
FLD: QWHTFLAG TYPE(HALF) DISP(44) /*FLAGS IN THE TRACE LIST*/
FLD: QWHTDATL TYPE(HALF) DISP(46) /*LENGTH OF THE DATA*/
FLD: QWHTEND LEN(4) TYPE(BIN) DISP(48)
FLD: QWHTALET LEN(4) TYPE(BIN) DISP(48) /*ALET TOKEN FOR DATA FIELD*/
***********************************************************************
**** QWHU DSECT
***********************************************************************
COMP: QWHU_OFFSET =
WHEN(PSHDR_2_TYP = QWHSHU08) ASSIGN(PSHDR_2_OFFSET)
WHEN(PSHDR_3_TYP = QWHSHU08) ASSIGN(PSHDR_3_OFFSET)
WHEN(PSHDR_4_TYP = QWHSHU08) ASSIGN(PSHDR_4_OFFSET)
WHEN(PSHDR_5_TYP = QWHSHU08) ASSIGN(PSHDR_5_OFFSET)
WHEN(PSHDR_6_TYP = QWHSHU08) ASSIGN(PSHDR_6_OFFSET)
ELSE ASSIGN(99999)
FLD: QWHU DISP(0) LEN(1) OFFSET(QWHU_OFFSET)
*/********************************************************************/
*/* INSTRUMENTATION CPU HEADER DATA */
*/********************************************************************/
FLD: QWHULEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF HEADER*/
FLD: QWHUTYP LEN(1) DISP(2) /*TYPE OF HEADER CPU MAPPED QWHSHU08*/
FLD: QWHUCPU TYPE(STCKTIME) DISP(4)
/*CPU time of the currently dispatched*/
* /* execution unit (TCB or SRB). This */
* /* time includes CPU consumed on an IBM */
* /* specialty engine. */
* /* Note: A given ACE token may */
* /* run under one or more MVS dispatchable*/
* /* execution units. Thus the CPU time for*/
* /* a given ACE may decrease between */
* /* events. Binary zero indicates */
* /* CPU time was not available. */
FLD: QWHUCNT LEN(2) DISP(12) /*(S) COUNT FIELD RESERVED*/
FLD: QWHUEND LEN(1) DISP(14)
***********************************************************************
**** QWHD DSECT
***********************************************************************
COMP: QWHD_OFFSET =
WHEN(PSHDR_2_TYP = QWHSHD16) ASSIGN(PSHDR_2_OFFSET)
WHEN(PSHDR_3_TYP = QWHSHD16) ASSIGN(PSHDR_3_OFFSET)
WHEN(PSHDR_4_TYP = QWHSHD16) ASSIGN(PSHDR_4_OFFSET)
WHEN(PSHDR_5_TYP = QWHSHD16) ASSIGN(PSHDR_5_OFFSET)
WHEN(PSHDR_6_TYP = QWHSHD16) ASSIGN(PSHDR_6_OFFSET)
ELSE ASSIGN(99999)
FLD: QWHD DISP(0) LEN(1) OFFSET(QWHD_OFFSET)
*/********************************************************************/
*/* INSTRUMENTATION DISTRIBUTED DATA */
*/********************************************************************/
FLD: QWHDLEN LEN(2) TYPE(BIN) DISP(0)
/*LENGTH OF THE DISTRIBUTED HEADER*/
FLD: QWHDTYP LEN(1) DISP(2) /*TYPE OF HEADER DISTRIBUTED 16*/
FLD: QWHDRQNM LEN(16) DISP(4)
/*%U REQUESTER LOCATION NAME BLANK IF HEADER*/
* IS WRITTEN AT APPLICATION REQUESTER SITE
* THE NAME BY WHICH DB2 KNOWS THE APPLI-
* REQUESTER
* Truncated if QWHDRQNM_Offª=0
FLD: QWHDTSTP LEN(8) DISP(20) /*TIMESTAMP FOR DBAT TRACE RECORDS*/
FLD: QWHDSVNM LEN(16) DISP(28)
/*%U SRVNAM PARAMETER OF DRDA EXCSAT COMMAND*/
* WHAT A DRDA REQUESTER CALLS ITSELF.
* FOR PRIVATE PROTOCOLS SAME AS QWHDRQNM.
* ZEROES IF HEADER IS WRITTEN AT
* APPLICATION REQUESTER SITE.
* Truncated if QWHDSVNM_Offª=0
FLD: QWHDPRID LEN(8) DISP(44)
/*PRDID PARAMETER OF DRDA ACCRDB COMMAND*/
* PRODUCT ID OF APPLICATION REQUESTER.
* FOR PRIVATE PROTOCOLS THIS FIELD WILL
* BE SET TO AN APPROPRIATE PRODUCT ID VALUE
* ZEROES IF HEADER IS WRITTEN AT APPLICA-
* TION REQUESTER SITE.
FLD: QWHDRQNM_OFF TYPE(HALF) DISP(52) /*Offset from QWHD to*/
* REQUESTER LOCATION NAME
* If QWHDRQNM truncated
FLD: QWHDSVNM_OFF TYPE(HALF) DISP(54) /*Offset from QWHD*/
* SRVNAM PARAMETER OF DRDA EXCSAT COMMAND
* If QWHDSVNM truncated
FLD: QWHDEND LEN(4) TYPE(BIN) DISP(56)
*
*
*
***********************************************************************
**** QWHDRQNM_D DSECT Use if QWHDRQNM_Offª=0
***********************************************************************
COMP: QWHDRQNM_D_OFFSET =
WHEN(QWHD_OFFSET <> 99999 AND QWHDRQNM_Off <> 0)
ASSIGN(QWHD_OFFSET + QWHDRQNM_Off)
ELSE ASSIGN(99999)
FLD: QWHDRQNM_D DISP(0) LEN(1) OFFSET(QWHDRQNM_D_OFFSET)
/*Use if QWHDRQNM_Offª 0*/
FLD: QWHDRQNM_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHDRQNM_VAR LEN(128) DISP(2)/*%U REQUESTER LOCATION NAME*/
COMPUTE: EDIT_QWHDRQNM = #LEFT(QWHDRQNM_VAR,QWHDRQNM_LEN)
*
*
*
***********************************************************************
**** QWHDSVNM_D DSECT Use if QWHDSVNM_Offª=0
***********************************************************************
COMP: QWHDSVNM_D_OFFSET =
WHEN(QWHD_OFFSET <> 99999 AND QWHDSVNM_Off <> 0)
ASSIGN(QWHD_OFFSET + QWHDSVNM_Off)
ELSE ASSIGN(99999)
FLD: QWHDSVNM_D DISP(0) LEN(1) OFFSET(QWHDSVNM_D_OFFSET)
/*Use if QWHDSVNM_Offª 0*/
FLD: QWHDSVNM_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QWHDSVNM_VAR LEN(128) DISP(2)
/*%U SRVNAM PARAMETER OF DRDA EXCSAT COMMAND*/
COMPUTE: EDIT_QWHDSVNM = #LEFT(QWHDSVNM_VAR,QWHDSVNM_LEN)
*********************************************************************
* NOTE - MANY IFC RECORDS HAVE FIELDS IDENTIFIED BY DATA BASE *
* ID (DBID) AND PAGESET OBID. SOMETIMES RECORD OBID AND AN INDEX *
* OBID ARE ALSO PRESENT (RMID 14 PRODUCED RECORDS). *
* IFC ID 0105 AND 0107 IDENTIFY DBID AND PAGESET OBID TO DATA BASE *
* AND PAGESET NAME. A PAGESET MAY BE A TABLESPACE OR INDEXSPACE *
* *
* IF ONE DESIRES TO FIND THE PAGESET NAME IN THE DB2 SYSTEM CATALOG*
* PLACE THE VALUES OF THE DATA BASE ID (DBID) *
* AND THE PAGESET OBID INTO A SQL WHERE CLAUSE USING *
* THE COLUMNS SPECIFIED BELOW FOR RELEASE 2. *
* 1.FOR A TABLESPACE THE COLUMNS DBID AND PSID IN *
* SYSIBM.SYSTABLESPACE ARE USED. *
* 2.FOR AN INDEX THE COLUMNS DBID AND ISOBID IN *
* SYSIBM.SYSINDEXES ARE USED. *
* *
* IF ONE DESIRES TO FIND THE TABLE NAME ASSOCIATED WITH A RECORD *
* OBID THEN PLACE THE VALUES OF THE DATA BASE ID (DBID) *
* AND THE RECORD OBID INTO A SQL WHERE CLAUSE USING *
* THE COLUMNS SPECIFIED BELOW FOR RELEASE 2. *
* 1.USE THE COLUMNS DBID AND OBID IN *
* SYSIBM.SYSTABLES. *
* *
* IF ONE DESIRES TO FIND THE INDEX NAME ASSOCIATED WITH AN INDEX *
* OBID THEN PLACE THE VALUES OF THE DATA BASE ID (DBID) *
* AND THE INDEX OBID INTO A SQL WHERE CLAUSE USING *
* THE COLUMNS SPECIFIED BELOW FOR RELEASE 2. *
* 1.USE THE COLUMNS DBID AND OBID IN *
* SYSIBM.SYSINDEXES *
* *
* *
* - - - - - - - NOTE TO SPECTRUM SMF WRITER USERS - - - - - - - - - *
* YOU CAN PERFORM THE DATABASE NAME LOOKUPS DESCRIBED ABOVE *
* IF YOU HAVE PURCHASED THE DB2 OPTION FOR SPECTRUM SMF WRITER. *
* CALL US FOR A FREE 30-DAY TRIAL OF THE DB2 OPTION. *
* *
*********************************************************************
*
* NOTE: FIELDS DEFINED AS CHARACTER MAY CONTAIN HEX DATA
*
*********************************************************************
***********************************************************************
* HEADER FOR IFC ID 0172 FOR RMID 20 RECORDS
***********************************************************************
***********************************************************************
**** QW0172HE DSECT
***********************************************************************
COMP: QW0172HE_OFFSET =
WHEN(SM102RTY<>102 OR QWHSIID<>172 OR QWT02R1N = 0) ASSIGN(99999)
ELSE ASSIGN(QWT02R1O)
FLD: QW0172HE DISP(0) LEN(1) OFFSET(QW0172HE_OFFSET)
FLD: QW0172IT LEN(4) TYPE(BIN) DISP(0) /*DEADLOCK INTERVAL COUNTER*/
FLD: QW0172NR LEN(4) TYPE(BIN) DISP(4)
/*NUMBER OF RESOURCES INVOLVED IN*/
* DEADLOCK
FLD: QW0172TD TYPE(STCKTIME) DISP(8)
/*TIME (STCK) DEADLOCK WAS DETECTED*/
*
***********************************************************************
* IFC ID 0172 FOR RMID 20 RECORDS
* DETAILS ALL OF THE UNITS OF WORK INVOLVED IN THE DEADLOCK, THE
* RESOURCE THEY WERE CONTENDING FOR, AND THE ATTRIBUTES OF THEIR
* REQUESTS. 1 per RNA in the deadlock
***********************************************************************
***********************************************************************
**** QW0172 DSECT
***********************************************************************
***********************************************************************
* TO REPORT ON ALL OCCURRENCES OF QW0172, USE:
* INPUT: SM102B11
* NORMWHEN(QW0172HE_OFFSET <> 99999 AND QW0172NR <> 0)
* NORMALIZE(QW0172, QW0172NR)
***********************************************************************
COMP: QW0172_OFFSET =
WHEN(QW0172HE_OFFSET = 99999 OR QW0172NR= 0) ASSIGN(99999)
ELSE ASSIGN(QWT02R1O + 16)
FLD: QW0172 DISP(0) LEN(496) OFFSET(QW0172_OFFSET)
FLD: QW0172RH LEN(4) DISP(0) /*RESOURCE NAME HASH VALUE*/
FLD: QW0172RN LEN(32) DISP(4) /*RESOURCE NAME COMPOSED OF:*/
FLD: QW0172RL LEN(1) TYPE(BIN) DISP(4) /*()LENGTH OF THE LOCK NAME*/
FLD: QW0172FR LEN(1) DISP(7) /*()FLAGS FOR THE LOCKED RESOURCE TYPE*/
*
* **..............QW0172FR CONSTANTS...............................**
*QW0172R0 EQU X'00' DATA PAGE LOCKING
*QW0172R1 EQU X'01' DATA BASE LOCKING
*QW0172R2 EQU X'02' PAGESET LOCKING
*QW0172R3 EQU X'03' PARTITIONED TABLESPACE LOCKING
*QW0172R4 EQU X'04' SKELETON CURSOR TABLE LOCKING
*QW0172R5 EQU X'05' INDEX PAGE LOCKING
*QW0172R6 EQU X'06' PARTITION LOCKING
*QW0172R7 EQU X'07' PAGESET OR DATA SET OPEN LOCK
*QW0172R8 EQU X'08' (S)
*QW0172R9 EQU X'09' (S)
*QW0172RA EQU X'0A' START/STOP LOCK ON DBA TABLE
*QW0172RB EQU X'0B' (S)
*QW0172RC EQU X'0C' (S)
*QW0172RD EQU X'0D' SYSLGRNG RECORDING LOCK
*QW0172RE EQU X'0E' UTILITY SERIALIZATION LOCK
*QW0172RF EQU X'0F' MASS DELETE LOCK
*QW0172RG EQU X'10' TABLE LOCKING
*QW0172RI EQU X'11' HASH ANCHOR LOCK
*QW0172RJ EQU X'12' SKELETON PACKAGE TABLE LOCK
*QW0172RK EQU X'13' COLLECTION LOCK
*QW0172RO EQU X'14' CS-READ DRAIN LOCK
*QW0172RW EQU X'15' RR-READ DRAIN LOCK
*QW0172RQ EQU X'16' WRITE DRAIN LOCK
*QW0172RM EQU X'17' AUTOBIND/REMOTE BIND LOCK
*QW0172RR EQU X'1A' ALTER BUFFERPOOL LOCK
*QW0172RT EQU X'1B' GROUP BUFFERPOOL START/STOP LOCK
*QW0172MR EQU X'18' ROW LOCK
*QW0172MI EQU X'19' INDEX END-OF-FILE LOCK
*QW0172M2 EQU X'24' CATMAINT convert directory lock
*QW0172M3 EQU X'25' CATMAINT convert catalog lock
*QW0172M4 EQU X'26' CATMAINT migration lock
*QW0172M5 EQU X'27' DB exception LPL/GRECP lock
*QW0172M6 EQU X'28' Utility UID lock
*QW0172M7 EQU X'29' Utility exclusive execution lock
*QW0172M8 EQU X'2A' SCA access for restart/redo info
*QW0172M9 EQU X'2B' Group database exception update
*QW0172MC EQU X'2C' REPAIR DBD TEST/DIAGNOSE
*QW0172MB EQU X'2D' Database command serialization
*QW0172MX EQU X'2F' (S)
*QW0172MO EQU X'30' LOB lock
*QW0172MM EQU X'32' LPL recovery lock
*QW0172MN EQU X'33' hdr page hash bucket lock
*QW0172MD EQU X'35' XML lock
*QW0172DL EQU X'39' DBD Load lock
*QW0172AC EQU X'3A' Accel services commands
*QW0172IK EQU X'3D' Index key lock
*QW0172FS EQU X'FF' (S)
*
FLD: QW0172PN LEN(28) DISP(8) /*LOCKED RESOURCE NAME*/
FLD: QW0172KD LEN(2) DISP(8) /*() DATABASE ID *SEE 5. BELOW*/
FLD: QW0172KB LEN(2) DISP(10) /*() TABLE RECORD OBID *SEE 5. BELOW*/
FLD: QW0172KP LEN(2) DISP(10) /*() PAGESET OBID OR TABLE RECORD OBID*/
FLD: QW0172KR LEN(4) DISP(12) /*ID OF SMALL RESOURCE WHEN QW0172RL 12*/
FLD: QW0172K1 LEN(3) DISP(12) /*1. For pageset or data base locks,*/
FLD: QW0172K2 LEN(1) DISP(15) /*QW0172K1 and QW0172K2 are zero*/
FLD: QW0172KY LEN(5) DISP(12) /*ID of small resource when QW0172RL 13*/
FLD: QW0172K4 LEN(4) DISP(12)
/*page number (within large table space)*/
FLD: QW0172K5 LEN(1) DISP(16) /*record id within page*/
FLD: QW0172KZ LEN(4) DISP(12) /*ID of sm res when QW0172KT '33'X*/
FLD: QW0172K8 LEN(2) DISP(12) /*partition number*/
FLD: QW0172K9 LEN(1) DISP(14) /*hash bucket number*/
FLD: QW0172KC LEN(9) DISP(12) /*ID of resource for XML locks*/
FLD: QW0172KX LEN(19) DISP(12) /*ID of resource for LOB locks*/
FLD: QW0172K6 LEN(17) DISP(12) /*Row ID*/
FLD: QW0172K7 LEN(2) DISP(29) /*Version number*/
FLD: QW0172HP LEN(8) DISP(36) /*Blockers PLAN NAME*/
FLD: QW0172HR LEN(12) DISP(44) /*Blockers CORRELATION ID*/
FLD: QW0172HN LEN(8) DISP(56) /*Blockers CONNECTION ID*/
FLD: QW0172HH LEN(30) DISP(64) /*Blockers LUW ID & token*/
FLD: QW0172HL LEN(24) DISP(64) /*Blocker LUWID*/
FLD: QW0172HT LEN(4) TYPE(BIN) DISP(88) /*Blocker thread token*/
FLD: QW0172HO LEN(8) DISP(96) /*Blockers OWNING WORK UNIT*/
FLD: QW0172HI LEN(8) DISP(104) /*Blockers DB2 MEMBER NAME*/
FLD: QW0172HS LEN(1) DISP(112) /*Blockers STATE*/
*
* **..............QW0172HS CONSTANTS...............................**
*QW017200 EQU X'00'
*QW017201 EQU X'01' UNPROTECTED SHARE
*QW017202 EQU X'02' INTENTED SHARE
*QW017203 EQU X'03' INTENTED EXCLUSIVE
*QW017204 EQU X'04' SHARED
*QW017205 EQU X'05' UPDATE
*QW017206 EQU X'06' SHARED INTENT EXCLUSIVE
*QW017207 EQU X'07' NON-SHARED UPDATE
*QW017208 EQU X'08' EXCLUSIVE
*
FLD: QW0172HD LEN(1) DISP(113) /*Blockers DURATION*/
*
* **..............QW0172HD CONSTANTS...............................**
*QW017220 EQU X'20' MANUAL
*QW017221 EQU X'21' MANUAL+1
*QW017240 EQU X'40' COMMIT
*QW017241 EQU X'41' COMMIT+1
*QW017260 EQU X'60' ALLOCATION
*QW017280 EQU X'80' PLAN
*QW017281 EQU X'81' UTIL @65
*QW0172FF EQU X'FF' DURATION TO FREE ALL LOCKS
*
FLD: QW0172HF LEN(1) DISP(114) /*(S)*/
*
* **..............QW0172HF CONSTANTS...............................**
*QW0172H2 EQU X'20' on = blocker is waiting for the resource
* off = blocker holds the resource
*QW0172H3 EQU X'10' (S)
*QW0172H4 EQU X'08' (S)
*QW0172H5 EQU X'04' (S)
*QW0172H6 EQU X'02' (S)
FLD: QW0172WP LEN(8) DISP(116) /*WAITERS PLAN NAME*/
FLD: QW0172WR LEN(12) DISP(124) /*WAITERS CORRELATION ID*/
FLD: QW0172WN LEN(8) DISP(136) /*WAITERS CONNECTION ID*/
FLD: QW0172WX LEN(30) DISP(144) /*WAITERS LUW ID & token*/
FLD: QW0172WL LEN(24) DISP(144) /*WAITERS LUWID*/
FLD: QW0172WT LEN(4) TYPE(BIN) DISP(168) /*WAITERS THREAD TOKEN*/
FLD: QW0172WW LEN(8) DISP(176) /*WAITERS REQUESTING WORK UNIT*/
FLD: QW0172WO LEN(8) DISP(184) /*WAITERS OWNING WORK UNIT*/
FLD: QW0172WF LEN(1) DISP(192) /*WAITERS REQUESTED FUNCTION*/
*
* **..............QW0172WF CONSTANTS...............................**
*QW0172LO EQU X'02' LOCK FUNCTION
*QW0172UN EQU X'03' UNLOCK FUNCTION
*QW0172CH EQU X'04' CHANGE FUNCTION
*
FLD: QW0172WS LEN(1) DISP(193) /*WAITERS REQUESTED STATE*/
*
* **..............QW0172WS CONSTANTS...............................**
*QW0172W1 EQU X'01' RESERVED
*QW0172W2 EQU X'02' INTENTED SHARE
*QW0172W3 EQU X'03' INTENTED EXCLUSIVE
*QW0172W4 EQU X'04' SHARED
*QW0172W5 EQU X'05' UPDATE
*QW0172W6 EQU X'06' SHARED INTENT EXCLUSIVE
*QW0172W7 EQU X'07' NON-SHARED UPDATE
*QW0172W8 EQU X'08' EXCLUSIVE
*
FLD: QW0172WD LEN(1) DISP(194) /*WAITERS REQUESTED DURATION*/
*
* **..............QW0172WD CONSTANTS...............................**
*QW0172MA EQU X'20' MANUAL
*QW0172M1 EQU X'21' MANUAL+1
*QW0172CO EQU X'40' COMMIT
*QW0172C1 EQU X'41' COMMIT+1
*QW0172AL EQU X'60' ALLOCATION
*QW0172PL EQU X'80' PLAN
*QW0172UT EQU X'81' UTIL @65
*QW0172DU EQU X'FF' DURATION TO FREE ALL LOCKS
*
FLD: QW0172WG LEN(1) DISP(195) /*(S)*/
*
* **..............QW0172WG CONSTANTS...............................**
*QW0172CU EQU X'80' (S)
*QW0172AR EQU X'40' (S)
*QW0172NU EQU X'20' (S)
*QW0172CR EQU X'10' (S)
*QW0172PR EQU X'08' (S)
*QW0172RS EQU X'04' (S)
*QW0172ML EQU X'02' (S)
*QW0172FO EQU X'01' (S)
*
FLD: QW0172WA LEN(1) DISP(196) /*WAITERS DB2 ASSIGNED WORTH VALUE*/
FLD: QW0172WI LEN(8) DISP(200) /*WAITERS DB2 MEMBER NAME*/
FLD: QW0172HB LEN(8) DISP(208) /*%U Holders authorization ID.*/
FLD: QW0172HC LEN(16) DISP(216) /*Holders end user userid.*/
FLD: QW0172HJ LEN(32) DISP(232) /*Holders transaction name.*/
FLD: QW0172HK LEN(18) DISP(264) /*Holders workstation name.*/
FLD: QW0172HQ LEN(50) DISP(286) /*Holders package/DBRM name*/
FLD: QW0172Q1 LEN(8) DISP(286) /*%U Program name*/
FLD: QW0172Q2 LEN(18) DISP(294) /*%U Package collection ID*/
FLD: QW0172Q3 LEN(16) DISP(312) /*%U Location name*/
FLD: QW0172Q4 LEN(8) DISP(328) /*Consistency token 64 bit*/
* unsigned binary integer
FLD: QW0172WZ LEN(8) DISP(336) /*Statement id*/
FLD: QW0172WY LEN(2) DISP(344) /*Statement type*/
FLD: QW0172WB LEN(8) DISP(352) /*%U Waiters authorization ID.*/
FLD: QW0172WC LEN(16) DISP(360) /*Waiters end user userid.*/
FLD: QW0172WJ LEN(32) DISP(376) /*Waiters transaction name.*/
FLD: QW0172WK LEN(18) DISP(408) /*Waiters workstation name.*/
FLD: QW0172WQ LEN(50) DISP(430) /*Waiters package/DBRM name*/
FLD: QW0172Q5 LEN(8) DISP(430) /*%U Program name*/
FLD: QW0172Q6 LEN(18) DISP(438) /*%U Package collection ID*/
FLD: QW0172Q7 LEN(16) DISP(456) /*%U Location name*/
FLD: QW0172Q8 LEN(8) DISP(472) /*Consistency token 64 bit*/
* unsigned binary integer
FLD: QW0172HZ LEN(8) DISP(480) /*Statement id*/
FLD: QW0172HY LEN(2) DISP(488) /*Statement type*/
*QW0172DY EQU X'8000' Statement is dynamic
*QW0172SC EQU X'4000' Statement is static
FLD: QW0172A LEN(28) DISP(8) /** Locked resource name **/
FLD: QW0172A0 LEN(1) DISP(8) /** Data Manager RMID **/
FLD: QW0172A1 LEN(5) DISP(9) /** Constant 'GDBET' **/
FLD: QW0172A6 LEN(2) DISP(14) /** Database exception hash class **/
* * number (1-64) *
***********************************************************************
* *
* IFCID 0191 For RMID 29 Records - First Failure Data Capture *
* Records in support of DDIS detected errors and non DDIS detected *
* Errors which require the command/reply data stream as supporting *
* evidence. *
* *
*************************** DB2 AR *********************************
* *
* The DB2 AR (through DDIS) generates 0191 records for diagnosis of *
* DRDA exception conditions. The 0191 record consists of a header *
* and other sections as follows: *
* *
* NOTE: All offsets within the 0191 sections are relative to the *
* QW0191HD field, i.e. a single frame of reference. *
* *
* (1) QW0191HD: The header identifies the DDM command, the total *
* number of RPYDSSs received in response to this command and *
* the total number of OBJDSSs received in response to this com- *
* mand. The DDIS DSNLZRPA parse trace (last 5 states and events) *
* is also included here. The DB2 parse state (QW0191PA) is P1. *
* *
* *
* (2) QW0191CR: For each reply message parsed (success or failure), *
* or reply data object parsed (success or failure), one *
* QW0191CR section is included. This section contains the reply *
* message code point or reply data object code point, relative *
* RPYDSS or OBJDSS number within the total number of DSSs re- *
* ceived, and the disposition of the reply message/data parse. *
* The data stream is recorded and the offset to the beginning *
* of the RPYDSS (if reply message) or the OBJDSS (if reply data) *
* is given in QW0191OF. If the object parse state indicates fail *
* ('DRDAFAIL') then the offset into the (RPY/OBJ) DSS, found in *
* QW0191FO, is the point at which the parse failed. Both the *
* type of error and source of error are recorded in this section. *
* Refer to the Diagnosis Reference Guide for a discussion of *
* error diagnosis. *
* *
* *
* (3) QW0191FD: If the reply data object defined in the QW0191CR *
* section is a QRYDSC (X'241A') or an SQLDTARD (X'2413'), then *
* the reply data object contains an FD:OCA Late Descriptor. The *
* QW0191CR field QW0191D1 contains the offset relative to the *
* start of the 0191 record of the QW0191FD section. This section *
* records FD:OCA parameters established during the descriptor *
* parse and are required to validate the geometry of the desc- *
* riptor. Refer to the Diagnosis Guide for an interpretation of *
* this section. *
* *
* *
* (4) QW0191RT: If the reply data object defined in the QW0191CR *
* section is described by an FD:OCA Late Descriptor, then QW0191D2*
* contains the offset within the 0191 record of the DB2 (DDIS) *
* RDTA data structure which represents the relationship between *
* the SQL data types and DRDA FD:OCA types sent in the Late *
* Descriptor. Refer to the Diagnosis Guide for a description *
* of this data structure and how to map the RDTA to a DB2 SQLDA. *
* *
* (5) QW0191LT: If the reply data object defined in the QW0191CR *
* section is described by an FD:OCA Early or Late Descriptor, *
* then QW0191D3 contains the offset within the 0191 record of *
* the DB2 (DDIS) FD_LIDLST data structure which represents the *
* FD:OCA descriptor used to interpret the data within the OBJDSS. *
* Refer to the Diagnosis Guide for a description of this data *
* structure and how to map the FD_LIDLST to the data stream. *
* *
* (6) QW01916B: The QW01916B section contains the level 6b RPYDSS *
* or OBJDSS data stream. *
* *
* Examples: *
* *
* Reply Message only: *
* *
* QW0191HD---QW0191CR---QW01916B (data stream) *
* *
* Reply Message followed by Reply Data (Descriptor): *
* *
* QW0191HD---QW0191CR---QW0191FD---QW01916B (data stream) *
* *
* Reply Data described by Early Descriptor: *
* *
* QW0191HD---QW0191CR---QW0191LT---QW01916B (data stream) *
* *
* Reply Data described by Late Descriptor: *
* *
* QW0191HD---QW0191CR---QW0191RT---QW0191LT---QW01916B *
* (data stream) *
* *
*************************** DB2 AS *********************************
* *
* The DB2 AS (through DDIS) generates 0191 records to diagnose *
* DRDA exception conditions. The 0191 record consists of a header *
* and other sections as follows: *
* *
* NOTE: All offsets within the 0191 sections are relative to the *
* field QW0191HD. i.e. a single frame of reference. *
* *
* (1) QW0191HD: The header identifies the DDM command received and *
* the total number of OBJDSSs chained to the DDM command. The *
* DDIS DSNLZSPA parse trace (last 5 states and events) is also *
* included here. If the command parse failed, then QW0191CS is *
* 'DRDACMFA' and QW0191OF is the relative offset within the 0191 *
* record of the level 6b RQSDSS containing the DDM command. *
* The parse state (QW0191PA) is P2. *
* *
* (2) QW0191CR: For each command data object parsed (success or *
* failure), one QW0191CR section is included. This section *
* contains the command data code point, relative OBJDSS number *
* and the state of the command data parse ('DRDASUCC'/'DRDAFAIL').*
* The offset to the beginning of the level 6b OBJDSS (data stream)*
* is contained in QW0191OF. If the object parse failed (QW0191PA *
* is 'DRDAFAIL'), then the offset into the OBJDSS, defining the *
* point at which the parse failed, is contained in QW0191FO. Both *
* the type and source of error are recorded in this section. *
* Refer to the Diagnosis Reference Guide for a discussion of *
* error diagnosis. *
* *
* *
* (3) QW0191FD: If the command data object defined in the QW0191CR *
* section is an SQLDTA (X'2412'), then the command data object *
* contains an FD:OCA Late Descriptor and the QW0191D1 field *
* within QW0191CR contains the offset within the 0191 record *
* of the QW0191FD section. This section records FD:OCA *
* parameters established during the descriptor parse and are *
* required to validate the geometry of the descriptor. Refer to *
* the Diagnosis Guide for an interpretation of this section. *
* *
* (4) QW0191RT: If the reply data object defined in the QW0191CR *
* section is described by an FD:OCA Late Descriptor, then QW0191D2*
* contains the offset within the 0191 record of the DB2 (DDIS) *
* RDTA data structure which represents the relationship between *
* the SQL data types and DRDA FD:OCA types sent in the Late *
* Descriptor. Refer to the Diagnosis Guide for a description *
* of this data structure and how to map the RDTA to a DB2 SQLDA. *
* At server, QW0191RT section will not be trace any more. *
* *
* (5) QW0191LT: If the command data object defined in the QW0191CR *
* section is described by an FD:OCA Early or Late Descriptor, *
* then QW0191D3 contains the offset within the 0191 record of *
* the DB2 (DDIS) FD_LIDLST data structure which represents the *
* FD:OCA descriptor used to interpret the data within the OBJDSS. *
* Refer to the Diagnosis Guide for a description of this data *
* structure and how to map the FD_LIDLST to the data stream. *
* At server, QW0191LT still is used to trace lidlst other than *
* LIDLST for input SQLDTA object. *
* *
* (6) QW01916B: The QW01916B section contains the level 6b RPYDSS *
* or OBJDSS data stream. *
* *
* (7) QW0191EA: If the command data object defined in the QW0191CR *
* section is described by an FD:OCA Late Descriptor, then QW0191D4*
* contains the offset within the 0191 record of the DB2 (DDIS) *
* ZEDA data structure which represents the SQL data types and its *
* data position and parsing information from the Late Descriptor *
* Refer to the Diagnosis Guide for a description of this data *
* structure and how to map the ZEDA to a DB2 SQLDA. *
*
* Examples: *
* *
* Command Only *
* *
* QW0191HD---QW01916B (data stream) *
* *
* Command data (Descriptor): *
* *
* QW0191HD---QW0191CR---QW0191FD---QW01916B (data stream) *
* *
* Command Data described by Early Descriptor: *
* *
* QW0191HD---QW0191CR---QW0191LT---QW01916B (data stream) *
* *
* Command Data described by Late Descriptor: *
* *
* QW0191HD---QW0191CR---QW0191EA---QW01916B *
* (data stream) *
* *
**********************************************************************/
*
* **IFCID 0191 for RMID 29 - DDM LEVEL 6B OBJECTS**
*
***********************************************************************
**** QW0191 DSECT IFCID(QWHS0191)
***********************************************************************
***********************************************************************
* TO REPORT ON ALL OCCURRENCES OF QW0191, USE:
* INPUT: SM102B11
* IOEXIT('GENNORM','A 102 --- 036 2I N | 028 004 2 00191')
***********************************************************************
COMP: QW0191_OFFSET =
WHEN(SM102RTY<>102 OR QWHSIID<>191 OR QWT02R1N = 0) ASSIGN(99999)
ELSE ASSIGN(QWT02R1O)
FLD: QW0191 DISP(0) LEN(1) OFFSET(QW0191_OFFSET) /*IFCID(QWHS0191)*/
* The following two byte field may repeat several times within IFCID
* 191. This is because the maximum length of any one 191 record is
* slightly less than 32K, but the maximum length of any one data block
* is 5000 decimal bytes. An IFCID 191 record may be composed of
* multiple data blocks within the single data section pointed to by
* self-defining section pointer QWT02R1O. All such blocks are
* preceded by a length field. The two byte length fields are added to
* the record by the Instrumentation Facility Component, and they appear
* in the 191 record in predicatable places, but they may appear in
* between any fields of the 191 record. A logical 191 record is a 191
* record with all 2 byte length fields removed. If all 2 byte
* length fields other than QW0191LL are removed, then the QW0191 record
* may be mapped just like any other record. Otherwise, there are
* some considerations that a formatting routine must take into account.
*
* Whether or not the two byte length fields are removed, it is
* important to note that IFCID 191 offsets are from field QW0191HD,
* not QW0191LL. Also, if the two byte length fields are not removed,
* the offsets will be off depending on the number of data blocks that
* were required to write the 191 record, because a two byte length
* field will preceed each such block.
*
* All data blocks will be of the length specified in QW0191LL,
* except the last which will be some number less than or equal to
* QW0191LL depending upon the number of bytes left to be traced.
* The length of the entire data section, as specified in QWT02R1L.
* will be accurate as is.
*
* Especially affected are fields QW0191FO, QW0191OF, QW0191D1,
* QW0191D2, and QW0101D3. In the following examples, DQ0191OF
* is used, the but the same applies to the other four fields.
* IF QW0191OF > QW0191LL THEN a 2 byte length field will appear
* at OFFSET(QW0191LL) + QW0191LL.
* Therefore, in order to obtain a correct offset value for QW0191OF
* add 2 to the value of QW0191OF. It may be necessary to repeat
* this procedure. For example,
* IF QW0191OF = 'A000'X AND QW0191LL = '200'X AND QW0191LL is at
* offset '00'x THEN
* the two byte length field will repeat at offset
* '00'X + '200'X = '200'X
* it will repeat again at '200'X + '200'X = '400'X
* it will repeat again at '400'X + '200'X = '600'X
* it will repeat again at '600'X + '200'X = '800'X
* it will repeat again at '800'X + '200'X = 'A00'X
* Thus, five 2 byte length fields appear in the trace record that
* are not accounted for in the offset field QW0191OF. The correct
* offset to QW01916B, which is the intent of QW0191OF is:
* QW0191OF + (5*LENGTH(QW0191LL)) + OFFSET(QW0191HD) =
* 'A000'X + '0A'X + '02' = 'A00C'X
*
FLD: QW0191LL TYPE(HALF) DISP(0) /*TRACE BLOCK LENGTH*/
FLD: QW0191HD TYPE(HALF) DISP(2) /*HEADER*/
FLD: QW0191HE LEN(8) DISP(2) /*Eye Catcher "DRDA0191"*/
FLD: QW0191LN LEN(18) DISP(10) /*%U Remote Location Name*/
* Truncated if QW0191LN_Off¬=0
FLD: QW0191VS LEN(2) DISP(28) /*Version Number for all Sections*/
* This version = 1
FLD: QW0191NO TYPE(HALF) DISP(30) /*This 0191 record is n of*/
FLD: QW0191TO TYPE(HALF) DISP(32) /*total number of 0191 records*/
FLD: QW0191FO LEN(4) TYPE(BIN) DISP(34) /*Offset relative to QW0191HD*/
* at which parse failed
FLD: QW0191FL LEN(4) DISP(38) /*FAILURE OBJECT LENGTH*/
FLD: QW0191ID TYPE(HALF) DISP(42) /*Identifier*/
FLD: QW0191RS LEN(4) DISP(42) /*Reason code*/
FLD: QW0191MN LEN(8) DISP(46) /*Module Name*/
FLD: QW0191MI TYPE(HALF) DISP(54) /*Source ID in Module*/
FLD: QW0191TK LEN(12) DISP(56) /*Unique Error Token*/
FLD: QW0191C1 LEN(2) DISP(68) /*DDM command code point*/
FLD: QW0191PA LEN(2) DISP(70) /*DB2 Parse State (P1, P2)*/
FLD: QW0191RN LEN(4) TYPE(BIN) DISP(74) /*Number of RMs received*/
FLD: QW0191ON LEN(4) TYPE(BIN) DISP(78) /*Number of OBJDSSs received*/
FLD: QW0191DN LEN(4) TYPE(BIN) DISP(82) /*Total Number of DSSs*/
FLD: QW0191ER LEN(8) DISP(86) /*Type of Error*/
FLD: QW0191ET LEN(1) DISP(86) /*0 : SQLSTATE in SQLCA gener*/
* ated. 1: Reply Message sent
FLD: QW0191SS LEN(5) DISP(87) /*SQLSTATE returned*/
FLD: QW0191C2 LEN(2) DISP(87) /*Reply Message Code Point*/
FLD: QW0191TN TYPE(HALF) DISP(94) /*Dimension of QW0191PT*/
FLD: QW0191PT LEN(10) DISP(96) /*Top Level Parse Trace*/
* last five (state,events)
* Repeating Group - maximum of 5
* entries
FLD: QW0191ST LEN(1) DISP(96) /*LZRPA/LZSPA State*/
FLD: QW0191EV LEN(1) DISP(97) /*LZRPA/LZSPA Event*/
FLD: QW0191LN_OFF TYPE(HALF) DISP(120) /*Offset from QW0191 to*/
* Remote Location Name
* If QW0191LN truncated
**QW0191DT DS 0C Next section begins here
*
* *..................QW0191PA Constants..........................*
*QW0191P1 EQU C'P1' AR Parse
*QW0191P2 EQU C'P2' AS Parse
*QW0191HC EQU C'HC' HOP AS Parse
*QW0191HP EQU C'HP' HOP AR Parse
***QW0191Z1 EQU C'DRDA0191' 0191 Eyecatcher
**********************************************************************
* DDM Command and/or Reply Data Section *
**********************************************************************
**QW0191CR DSECT
FLD: QW0191RE LEN(8) DISP(122) /*Eye Catcher 'DRDACMND' or*/
* 'DRDARPLY'
FLD: QW0191PS LEN(8) DISP(130) /*'DRDASUCC' if parse successful*/
* 'DRDAFAIL' if parse unsuccessful
FLD: QW0191C3 LEN(2) DISP(138) /*Code Point*/
FLD: QW0191NM TYPE(HALF) DISP(140)/*Relative Number of DSS Carrier*/
FLD: QW0191OF LEN(4) TYPE(BIN) DISP(142)
/*Offset to start of RPY/RQS/OBJ*/
* DSS within 0191 record relative to
* QW0191HD
FLD: QW0191D1 LEN(4) TYPE(BIN) DISP(146)
/*Offset relative to QW0191HD*/
* to QW0191FD section
FLD: QW0191D2 LEN(4) TYPE(BIN) DISP(150)
/*Offset relative to QW0191HD*/
* to QW0191RT section
FLD: QW0191D3 LEN(4) TYPE(BIN) DISP(154)
/*Offset relative to QW0191HD*/
* to QW0191LT section
FLD: QW0191D4 LEN(4) TYPE(BIN) DISP(158)
/*Offset relative to QW0191HD*/
* to QW0191EA section
***********************************************************************
**** QW0191LN_D DSECT Use if QW0191LN_Off¬=0
***********************************************************************
COMP: QW0191LN_D_OFFSET =
WHEN(QW0191_OFFSET = 99999 OR QW0191LN_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0191_OFFSET + QW0191LN_OFF)
FLD: QW0191LN_D DISP(0) LEN(1) OFFSET(QW0191LN_D_OFFSET)
/*Use if QW0191LN_Off¬ 0*/
FLD: QW0191LN_LEN TYPE(HALF) DISP(0) /*Length of the following field*/
FLD: QW0191LN_VAR LEN(128) DISP(2)/*%U Remote Location Name*/
COMPUTE: EDIT_QW0191LN = #LEFT(QW0191LN_VAR,QW0191LN_LEN)
*
* **..................Constant Eyecatchers........................**
*
***QW0191Z4 EQU C'DRDACMND' Command Data
***QW0191Z5 EQU C'DRDARPLY' Rely Data
***QW0191H1 EQU C'DRDAHCMD' Hopping Command Data
***QW0191H2 EQU C'DRDAHRPY' Hopping Reply Data
***QW0191U1 EQU C'DRDARDTA' User data in reply object
***QW0191U2 EQU C'DRDACDTA' User data in command object
***QW0191Z6 EQU C'DRDASUCC' Object Parse success
***QW0191Z7 EQU C'DRDAFAIL' Object Parse failed
**********************************************************************
* Section pointed to by QW0191D1 if Command/Reply Data is Late *
* Descriptor.... *
**********************************************************************
***********************************************************************
**** QW0191FD DSECT
***********************************************************************
COMP: QW0191FD_OFFSET =
WHEN(QW0191_OFFSET = 99999 OR QW0191D1 = 0) ASSIGN(99999)
ELSE ASSIGN(QW0191_OFFSET + 2 + QW0191D1)
FLD: QW0191FD DISP(0) LEN(1) OFFSET(QW0191FD_OFFSET)
FLD: QW0191FE LEN(8) DISP(0) /*Eye Catcher 'DRDALATE'*/
FLD: QW0191LD LEN(4) TYPE(BIN) DISP(8)
/*Number of Late Environmental Des*/
* criptors processed
FLD: QW0191GN LEN(4) TYPE(BIN) DISP(12)
/*Number of SQLDTAGRP triplets*/
FLD: QW0191L1 LEN(1) DISP(16) /*SQLDTAGRP LID extracted*/
FLD: QW0191L2 LEN(1) DISP(17) /*SQLCADTA LID extracted*/
FLD: QW0191L3 LEN(1) DISP(18) /*SQLDTA LID extracted*/
FLD: QW0191L4 LEN(1) DISP(19) /*SQLDTARD LID extracted*/
FLD: QW0191GO LEN(2) DISP(20) /*FD:OCA geometry status*/
COMP: QW0191F0 = X'8000' /*SQLDTAGRP is ok*/
COMP: QW0191F1 = X'4000' /*SQLCADTA is ok*/
COMP: QW0191F2 = X'2000' /*SQLDTA is ok*/
COMP: QW0191F3 = X'1000' /*SQLDTARD is ok*/
COMP: QW0191F4 = X'0080' /*FDOCA GEOMETRY is ok*/
***********************************************************************
**** QW0191RT DSECT This is the DB2 RDTA data
***********************************************************************
COMP: QW0191RT_OFFSET =
WHEN(QW0191_OFFSET = 99999 OR QW0191D2 = 0) ASSIGN(99999)
ELSE ASSIGN(QW0191_OFFSET + 2 + QW0191D2)
FLD: QW0191RT DISP(0) LEN(1) OFFSET(QW0191RT_OFFSET)
/*This is the DB2 RDTA data*/
* structure -- See Diagnosis
* Guide for details
FLD: QW0191E1 LEN(8) DISP(0) /*Eye Catcher 'DRDARDTA'*/
FLD: QW0191R1 LEN(1) DISP(8) /*RDTA structure starts here*/
**********************************************************************
* Section Pointed to by QW0191D3 if Command/Reply data is desc- *
* ribed by either an Early or Late Descriptor... *
**********************************************************************
***********************************************************************
**** QW0191LT DSECT This is the DB2 FD_LIDLST
***********************************************************************
COMP: QW0191LT_OFFSET =
WHEN(QW0191_OFFSET = 99999 OR QW0191D3 = 0) ASSIGN(99999)
ELSE ASSIGN(QW0191_OFFSET + 2 + QW0191D3)
FLD: QW0191LT DISP(0) LEN(1) OFFSET(QW0191LT_OFFSET)
/*This is the DB2 FD_LIDLST*/
* structure -- See Diagnosis
* Guide for details
FLD: QW0191E2 LEN(8) DISP(0) /*Eye Catcher 'DRDALIDL'*/
FLD: QW0191LS LEN(1) DISP(8) /*FD_LIDLST structure starts here*/
**********************************************************************
* Section Pointed to by QW0191D4 if Command/Reply data is desc- *
* ribed by either an Early or Late Descriptor... *
**********************************************************************
***********************************************************************
**** QW0191EA DSECT This is the DB2 ZEDA
***********************************************************************
COMP: QW0191EA_OFFSET =
WHEN(QW0191_OFFSET = 99999 OR QW0191D4 = 0) ASSIGN(99999)
ELSE ASSIGN(QW0191_OFFSET + 2 + QW0191D4)
FLD: QW0191EA DISP(0) LEN(1) OFFSET(QW0191EA_OFFSET)
/*This is the DB2 ZEDA*/
* structure -- See Diagnosis
* Guide for details
FLD: QW0191Z3 LEN(8) DISP(0) /*Eye Catcher 'DRDAZEDA'*/
FLD: QW0191ZS LEN(1) DISP(8) /*ZEDA structure starts here*/
*****..................Constant Eyecatchers......................****
*
***QW0191Z8 EQU C'DRDALATE' Late Descriptor
***QW0191Z9 EQU C'DRDARDTA' DB2 RDTA structure
***QW0191ZA EQU C'DRDALIDL' DB2 LIDLST structure
***QW0191ZE EQU C'DRDAZEDA' DB2 LIDLST structure
**********************************************************************
* Section Pointed to by QW0191OF -- this is an RQS/OBJ/RPY DSS *
* level 6b object..... .. *
**********************************************************************
***********************************************************************
**** QW01916B DSECT This is the level 6b DSS
***********************************************************************
COMP: QW01916B_OFFSET =
WHEN(QW0191_OFFSET=99999 OR QW0191OF=0) ASSIGN(99999)
ELSE ASSIGN(QW0191_OFFSET+2 + #INT(QW0191OF/QW0191LL)*2)
FLD: QW01916B DISP(0) LEN(1) OFFSET(QW01916B_OFFSET)
/*This is the level 6b DSS*/
FLD: QW0191E3 LEN(8) DISP(0) /*Eye Catcher 'DRDARQS ' or*/
* 'DRDARPY ' or
* 'DRDAOBJ '
FLD: QW0191L6 LEN(1) DISP(8) /*6 byte DB2 internal DSS header*/
FLD: QW01916L LEN(4) TYPE(BIN) DISP(8) /*4 byte length*/
FLD: QW01916T LEN(2) DISP(12) /*2 byte type*/
* **..................Constant Eyecatchers........................**
***QW0191ZB EQU C'DRDARQS ' RQSDSS level 6b
***QW0191ZC EQU C'DRDARPY ' RPYDSS level 6b
***QW0191ZD EQU C'DRDAOBJ ' OBJDSS level 6b
***********************************************************************
* IFCID 0314 FOR RMID 22 TO RECORD ACCESS CONTROL AUTHORIZATION EXIT
* PARAMETERS.
***********************************************************************
***********************************************************************
**** QW0314 DSECT
***********************************************************************
***********************************************************************
* TO REPORT ON ALL OCCURRENCES OF QW0314, USE:
* INPUT: SM102B11
* IOEXIT('GENNORM','A 102 --- 036 2I N | 028 004 2 00314')
***********************************************************************
COMP: QW0314_OFFSET =
WHEN(SM102RTY<>102 OR QWHSIID<>314 OR QWT02R1N = 0) ASSIGN(99999)
ELSE ASSIGN(QWT02R1O)
FLD: QW0314 DISP(0) LEN(1) OFFSET(QW0314_OFFSET)
FLD: QW0314EL LEN(4) TYPE(BIN) DISP(0) /*ADDRESS OF EXPL*/
FLD: QW0314WA LEN(4) TYPE(BIN) DISP(4) /*ADDRESS OF WORK AREA*/
FLD: QW0314WL LEN(4) TYPE(BIN) DISP(8) /*LENGTH OF WORK AREA*/
FLD: QW0314RC TYPE(HALF) DISP(12) /*RETURN CODE FROM EXIT*/
*
COMP: QW0314C0 = 0 /*ACCESS ALLOWED*/
COMP: QW0314C4 = 4 /*PERFORM DB2 AUTHORIZATION CHECKING*/
COMP: QW0314C8 = 8 /*ACCESS DENIED*/
COMP: QW0314CC = 12 /*UNABLE TO DETERMINE AUTHORIZATION;*/
FLD: QW0314RS LEN(4) TYPE(BIN) DISP(16) /*REASON CODE FROM EXIT*/
* DEFINED BY USER
*
FLD: QW0314BC TYPE(STCKTIME) DISP(20) /*STORE CLOCK BEFORE EXIT CALL*/
FLD: QW0314AC TYPE(STCKTIME) DISP(28) /*STORE CLOCK AFTER EXIT CALL*/
FLD: QW0314PL LEN(256) DISP(36) /*THE PARAMETER LIST (DSNDXAPL).*/
* UPDATE IF XAPLLEN CHANGES.
FLD: QW0314DO TYPE(HALF) DISP(292)
/*OFFSET FROM QW0314 TO DATABASE INFORMATION*/
* ARRAY (QW0314DX)
* ONLY USE IF QW0314DS > 0
FLD: QW0314UO TYPE(HALF) DISP(294)
/*OFFSET FROM QW0314 TO AUTH ID DB2*/
* PERFORMS CHECK ON (QW0314U)
FLD: QW0314BO TYPE(HALF) DISP(296)
/*OFFSET FROM QW0314 TO UNQUALIFIED OBJECT*/
* NAME (QW0314B)
FLD: QW0314OO TYPE(HALF) DISP(298)
/*OFFSET FROM QW0314 TO OBJECT OWNER OR*/
* OBJECT QUALIFIER (QW0314O)
FLD: QW03141O TYPE(HALF) DISP(300)
/*OFFSET FROM QW0314 TO OTHER RELATED*/
* INFORMATION - 1 (QW0314R1)
FLD: QW03142O TYPE(HALF) DISP(302)
/*OFFSET FROM QW0314 TO OTHER RELATED*/
* INFORMATION - 2 (QW0314R2)
FLD: QW0314NO TYPE(HALF) DISP(304)
/*OFFSET FROM QW0314 TO OBJECT OWNER*/
* (QW0314N)
FLD: QW0314LO TYPE(HALF) DISP(306)/*OFFSET FROM QW0314 TO ROLE*/
* (QW0314L)
FLD: QW0314MO TYPE(HALF) DISP(308)
/*OFFSET FROM QW0314 TO OTHER OBJECT NAME*/
* (QW0314M)
FLD: QW0314RO TYPE(HALF) DISP(310)
/*OFFSET FROM QW0314 TO OTHER OBJECT OWNER*/
* OR VIEWS BASE TABLE OWNER
* (QW0314R)
FLD: QW0314SO TYPE(HALF) DISP(312)
/*OFFSET FROM QW0314 TO VIEWS BASE TABLE*/
* QUALIFIER (QW0314S)
FLD: QW0314AO TYPE(HALF) DISP(314)
/*OFFSET FROM QW0314 TO VIEWS BASE TABLE*/
* NAME (QW0314A)
FLD: QW0314CO TYPE(HALF) DISP(316)
/*OFFSET FROM QW0314 TO VIEWS BASE TABLE*/
* COLUMN (QW0314C)
FLD: QW0314UT LEN(80) DISP(324) /*UTOKEN IF IT IS ACCESSIBLE*/
* If not accessible 1st word
* 0 - Not able to get UTOKEN
* -1 - Abend on accessing ACEE
FLD: QW0314DS LEN(4) TYPE(BIN) DISP(404)
/*NUMBER OF DATABASES FOR WHICH DETAIL*/
* IS PROVIDED IN THE QW0314DX ARRAY
FLD: QW0314EN LEN(1) DISP(408) /*END OF IFCID(QWHS0314)*/
*
***********************************************************************
**** QW0314U DSECT
***********************************************************************
COMP: QW0314U_OFFSET =
WHEN(QW0314UO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314UO)
FLD: QW0314U DISP(0) LEN(1) OFFSET(QW0314U_OFFSET)
FLD: QW0314UL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314UN LEN(128) DISP(2) /*%U AUTH ID DB2 PERFORMS CHECK ON*/
FLD: EDIT_QW0314UN DISP(QW0314UN) LEN(QW0314UL) MAXLEN(128)
***********************************************************************
**** QW0314B DSECT
***********************************************************************
COMP: QW0314B_OFFSET =
WHEN(QW0314BO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314BO)
FLD: QW0314B DISP(0) LEN(1) OFFSET(QW0314B_OFFSET)
FLD: QW0314BL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314BN LEN(128) DISP(2) /*%U UNQUALIFIED OBJECT NAME*/
FLD: EDIT_QW0314BN DISP(QW0314BN) LEN(QW0314BL) MAXLEN(128)
***********************************************************************
**** QW0314O DSECT
***********************************************************************
COMP: QW0314O_OFFSET =
WHEN(QW0314OO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314OO)
FLD: QW0314O DISP(0) LEN(1) OFFSET(QW0314O_OFFSET)
FLD: QW0314OL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314ON LEN(128) DISP(2) /*%U OBJECT OWNER OR OBJECT QUALIFIER*/
FLD: EDIT_QW0314ON DISP(QW0314ON) LEN(QW0314OL) MAXLEN(128)
***********************************************************************
**** QW0314R1 DSECT
***********************************************************************
COMP: QW0314R1_OFFSET =
WHEN(QW03141O = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW03141O)
FLD: QW0314R1 DISP(0) LEN(1) OFFSET(QW0314R1_OFFSET)
FLD: QW03141L TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW03141N LEN(128) DISP(2) /*%U OTHER RELATED INFORMATION 1*/
FLD: EDIT_QW03141N DISP(QW03141N) LEN(QW03141L) MAXLEN(128)
***********************************************************************
**** QW0314R2 DSECT
***********************************************************************
COMP: QW0314R2_OFFSET =
WHEN(QW03142O = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW03142O)
FLD: QW0314R2 DISP(0) LEN(1) OFFSET(QW0314R2_OFFSET)
FLD: QW03142L TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW03142N LEN(128) DISP(2) /*%U OTHER RELATED INFORMATION 2*/
FLD: EDIT_QW03142N DISP(QW03142N) LEN(QW03142L) MAXLEN(128)
***********************************************************************
**** QW0314N DSECT
***********************************************************************
COMP: QW0314N_OFFSET =
WHEN(QW0314NO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314NO)
FLD: QW0314N DISP(0) LEN(1) OFFSET(QW0314N_OFFSET)
FLD: QW0314NL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314NN LEN(128) DISP(2) /*%U OBJECT OWNER*/
FLD: EDIT_QW0314NN DISP(QW0314NN) LEN(QW0314NL) MAXLEN(128)
***********************************************************************
**** QW0314L DSECT
***********************************************************************
COMP: QW0314L_OFFSET =
WHEN(QW0314LO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314LO)
FLD: QW0314L DISP(0) LEN(1) OFFSET(QW0314L_OFFSET)
FLD: QW0314LL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314LN LEN(128) DISP(2) /*%U ROLE*/
FLD: EDIT_QW0314LN DISP(QW0314LN) LEN(QW0314LL) MAXLEN(128)
***********************************************************************
**** QW0314M DSECT
***********************************************************************
COMP: QW0314M_OFFSET =
WHEN(QW0314MO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314MO)
FLD: QW0314M DISP(0) LEN(1) OFFSET(QW0314M_OFFSET)
FLD: QW0314ML TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314MN LEN(128) DISP(2) /*%U OTHER OBJECT NAME*/
FLD: EDIT_QW0314MN DISP(QW0314MN) LEN(QW0314ML) MAXLEN(128)
***********************************************************************
**** QW0314R DSECT
***********************************************************************
COMP: QW0314R_OFFSET =
WHEN(QW0314RO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314RO)
FLD: QW0314R DISP(0) LEN(1) OFFSET(QW0314R_OFFSET)
FLD: QW0314RL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314RN LEN(128) DISP(2) /*%U OTHER OBJECT OWNER*/
FLD: EDIT_QW0314RN DISP(QW0314RN) LEN(QW0314RL) MAXLEN(128)
***********************************************************************
**** QW0314S DSECT
***********************************************************************
COMP: QW0314S_OFFSET =
WHEN(QW0314SO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314SO)
FLD: QW0314S DISP(0) LEN(1) OFFSET(QW0314S_OFFSET)
FLD: QW0314SL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314SN LEN(128) DISP(2) /*%U VIEWS BASE TABLE SCHEMA*/
FLD: EDIT_QW0314SN DISP(QW0314SN) LEN(QW0314SL) MAXLEN(128)
***********************************************************************
**** QW0314A DSECT
***********************************************************************
COMP: QW0314A_OFFSET =
WHEN(QW0314AO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314AO)
FLD: QW0314A DISP(0) LEN(1) OFFSET(QW0314A_OFFSET)
FLD: QW0314AL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314AN LEN(128) DISP(2) /*%U VIEWS BASE TABLE NAME*/
FLD: EDIT_QW0314AN DISP(QW0314AN) LEN(QW0314AL) MAXLEN(128)
***********************************************************************
**** QW0314C DSECT
***********************************************************************
COMP: QW0314C_OFFSET =
WHEN(QW0314CO = 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314CO)
FLD: QW0314C DISP(0) LEN(1) OFFSET(QW0314C_OFFSET)
FLD: QW0314CL TYPE(HALF) DISP(0) /*LENGTH OF NEXT FIELD*/
FLD: QW0314CN LEN(128) DISP(2) /*%U VIEWS BASE TABLE COLUMN NAME*/
FLD: EDIT_QW0314CN DISP(QW0314CN) LEN(QW0314CL) MAXLEN(128)
***********************************************************************
**** QW0314DX DSECT QW0314 DATABASE EXTENSION
***********************************************************************
***********************************************************************
* TO REPORT ON ALL OCCURRENCES OF QW0314DX, USE:
* INPUT: SMF102B11
* IOEXIT('GENNORM','A 102 --- 036 2I N | 028 004 2 00376')
* NORMWHEN(QW0314DS <> 0)
* NORM(QW0314DX, QW0314DS)
***********************************************************************
COMP: QW0314DX_OFFSET =
WHEN(QW0314DS <> 0) ASSIGN(99999)
ELSE ASSIGN(QW0314_OFFSET + QW0314DO)
FLD: QW0314DX DISP(0) LEN(16) OFFSET(QW0314DX_OFFSET)
/*QW0314 DATABASE EXTENSION*/
* AN ARRAY CONTAINING DATABASE INFORMATION
FLD: QW0314DP LEN(4) TYPE(BIN) DISP(0)
/*ADDRESS TO INFORMATION OF NEXT DATABASE*/
FLD: QW0314DN LEN(8) DISP(4) /*DATABASE NAME*/
FLD: QW0314DA LEN(1) DISP(12) /*RESULTS OF DBADM CHECK*/
FLD: QW0314IM LEN(1) DISP(13) /*WHETHER DATABASE IS IMPLICIT*/
***********************************************************************
** IFCID 0376 is a serviceability trace. It can be used to identify *
** SQL statements with potential incompatible changes when switching *
** to the new application behavior (e.g V11R1). This trace record is *
** written once for each unique dynamic cached statement and static *
** statement if it was bound on V10 NFM or later. For static *
** statements that are bound before V10 NFM, this trace record will *
** be externalized once per unique combination of: plan, package ID, *
** statement number. *
** Note that it is not practical to maintain history of every SQL *
** that has been processed, and therefore, it is possible that *
** more than one trace record will be written for the same statement.*
** This should be a rare occurence. *
** This trace record is similar to IFCID 0366 trace record except *
** the IFCID 0366 trace could be written much more frequently, since *
** it does not perform uniqness checking. For instance, when the *
** same dynamic SQL statement is executed by several threads *
** (or repeatedly by the same thread) multiple IFICD 0366 records *
** would be written, but only one IFCID 0376 record would be written.*
** See IFCID 0366 description for additional information. *
***********************************************************************
***********************************************************************
**** QW0376 DSECT
***********************************************************************
***********************************************************************
* TO REPORT ON ALL OCCURRENCES OF QW0376, USE:
* INPUT: SM102B11
* IOEXIT('GENNORM','A 102 --- 036 2I N | 028 004 2 00376')
***********************************************************************
COMP: QW0376_OFFSET =
WHEN(SM102RTY<>102 OR QWHSIID<>376 OR QWT02R1N = 0) ASSIGN(99999)
ELSE ASSIGN(QWT02R1O)
FLD: QW0376 DISP(0) LEN(1) OFFSET(QW0376_OFFSET)
FLD: QW0376FN LEN(4) TYPE(BIN) DISP(0)
/*See QW0366FN for the description*/
FLD: QW0376SN LEN(4) TYPE(BIN) DISP(4)
/*Statement number of the query*/
FLD: QW0376PL LEN(8) DISP(8) /*Plan name for this query*/
FLD: QW0376TS LEN(8) DISP(16) /*Timestamp for this query*/
FLD: QW0376SI LEN(8) DISP(24) /*Statement Identifier*/
FLD: QW0376TY LEN(2) DISP(32) /*Statement information (see QW0366TY)*/
FLD: QW0376SE TYPE(HALF) DISP(34) /*Section number*/
FLD: QW0376PC_OFF TYPE(HALF) DISP(36)
/*Offset from QW0376 to Package CollectionID*/
FLD: QW0376PN_OFF TYPE(HALF) DISP(38)
/*Offset from QW0376 to Program name*/
FLD: QW0376VL TYPE(HALF) DISP(40) /*Version length*/
FLD: QW0376VN LEN(64) DISP(42) /*Version*/
FLD: QW0376SC_OFF TYPE(HALF) DISP(106) /*Offset from QW0376 to*/
* schema name
FLD: QW0376PR_OFF TYPE(HALF) DISP(108) /*Offset from QW0376 to*/
* specific name
FLD: QW0376INC_OFF TYPE(HALF) DISP(110)
/*Offset from QW0376 to incompat parms*/
FLD: QW0376SQL_OFF TYPE(HALF) DISP(112)
/*Offset from QW0376 to SQL text*/
*
***********************************************************************
**** QW0376PC_D DSECT
***********************************************************************
COMP: QW0376PC_D_OFFSET =
WHEN(QW0376_OFFSET = 99999 OR QW0376PC_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0376_OFFSET + QW0376PC_OFF)
FLD: QW0376PC_D DISP(0) LEN(1) OFFSET(QW0376PC_D_OFFSET)
FLD: QW0376PC_LEN TYPE(HALF) DISP(0)
/*Length of Package Collection ID*/
FLD: QW0376PC_VAR LEN(128) DISP(2)/*%U Package Collection ID*/
COMPUTE: EDIT_QW0376PC_VAR = #LEFT(QW0376PC_VAR,QW0376PC_LEN)
*
***********************************************************************
**** QW0376PN_D DSECT
***********************************************************************
COMP: QW0376PN_D_OFFSET =
WHEN(QW0376_OFFSET = 99999 OR QW0376PN_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0376_OFFSET + QW0376PN_OFF)
FLD: QW0376PN_D DISP(0) LEN(1) OFFSET(QW0376PN_D_OFFSET)
FLD: QW0376PN_LEN TYPE(HALF) DISP(0) /*Length of Program Name*/
FLD: QW0376PN_VAR LEN(128) DISP(2)/*%U Program Name*/
COMPUTE: EDIT_QW0376PN_VAR = #LEFT(QW0376PN_VAR,QW0376PN_LEN)
*
***********************************************************************
**** QW0376PR_D DSECT
***********************************************************************
COMP: QW0376PR_D_OFFSET =
WHEN(QW0376_OFFSET = 99999 OR QW0376PR_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0376_OFFSET + QW0376PR_OFF)
FLD: QW0376PR_D DISP(0) LEN(1) OFFSET(QW0376PR_D_OFFSET)
FLD: QW0376PR_LEN TYPE(HALF) DISP(0) /*Length of specific name*/
FLD: QW0376PR_VAR LEN(128) DISP(2)/*%U specific name*/
COMPUTE: EDIT_QW0376PR_VAR = #LEFT(QW0376PR_VAR,QW0376PR_LEN)
*
***********************************************************************
**** QW0376SC_D DSECT
***********************************************************************
COMP: QW0376SC_D_OFFSET =
WHEN(QW0376_OFFSET = 99999 OR QW0376SC_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0376_OFFSET + QW0376SC_OFF)
FLD: QW0376SC_D DISP(0) LEN(1) OFFSET(QW0376SC_D_OFFSET)
FLD: QW0376SC_LEN TYPE(HALF) DISP(0) /*Length of schema name*/
FLD: QW0376SC_VAR LEN(128) DISP(2)/*%U schema name*/
COMPUTE: EDIT_QW0376SC_VAR = #LEFT(QW0376SC_VAR,QW0376SC_LEN)
*
***********************************************************************
**** QW0376INC_D DSECT
***********************************************************************
COMP: QW0376INC_D_OFFSET =
WHEN(QW0376_OFFSET = 99999 OR QW0376INC_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0376_OFFSET + QW0376INC_OFF)
FLD: QW0376INC_D DISP(0) LEN(1) OFFSET(QW0376INC_D_OFFSET)
FLD: QW0376INC_LEN TYPE(HALF) DISP(0)
/*Length of incompatible parameters:*/
FLD: QW0376INC_VAR LEN(256) DISP(2)
/*the ordinal number of output parm*/
* (if fn8) or input parm (if fn7),
* source datatype, target datatype
COMPUTE: EDIT_QW0376INC_VAR = #LEFT(QW0376INC_VAR,QW0376INC_LEN)
*
***********************************************************************
**** QW0376SQL_D DSECT
***********************************************************************
COMP: QW0376SQL_D_OFFSET =
WHEN(QW0376_OFFSET = 99999 OR QW0376SQL_OFF = 0) ASSIGN(99999)
ELSE ASSIGN(QW0376_OFFSET + QW0376SQL_OFF)
FLD: QW0376SQL_D DISP(0) LEN(1) OFFSET(QW0376SQL_D_OFFSET)
FLD: QW0376SQL_LEN TYPE(HALF) DISP(0) /*Length of SQL text*/
FLD: QW0376SQL_VAR LEN(4000) DISP(2) /*%U SQL text*/
COMPUTE: EDIT_QW0376SQL_VAR = #LEFT(QW0376SQL_VAR,QW0376SQL_LEN)
FLD: SMF102_END LEN(1) OFFSET(0) |
In this report, the primary input file is the SMF file. We select just the type 102 "DB2 Audit" records with IFCID 144 ("ATTEMPTED ACCESS (READ) OF AN AUDITED OBJECT"). (See SMF 102 record layout.) We normalize the 144 data section, in order to report on all occurances of that segment within each SMF record.
We select the records for the timeframe and the tables we are interested in. (Alternately, we could have selected on Operator ID, to see all tables accessed by a given user.)
This example also illustrates Spectrum SMF Writer's DB2 Option. The SMF record itself does not contain the text name of the tables being accessed. It just contains halfword codes for: Database ID, Page Space ID and Object ID. However, we were able to use those codes to "select" rows from two DB2 system tables and expand those codes into full names. Thus we were able to show the actual table names in our report.
All of this with just a few lines of code!
Sample Report from SMF 102, IFCID 144 Records
DB2 Audit Report -- Users Accessing Selected Tables
The sample SMF report below was created with Spectrum SMF Writer,
the low-cost 4GL SMF report writer.
Why not install a Spectrum SMF Writer trial right now and start making your own SMF reports!
These Spectrum SMF Writer Statements:
OPTION: DB2SUBSYS('DB2T') NOGRANDTOTALS
*
* THE MAIN INPUT FILE IS THE SMF FILE. WE NORMALIZE TO GET ALL SEGMENTS
INPUT: SMF102V9 LIST(YES)
IOEXIT('GENNORM','A 102 --- 036 2I N | 028 004 2 00144')
*
* LOOK UP SPACE NAME IN IBM SYSTEM DB2 TABLE
READ: SPACE SHOWFLDS(YES)
DB2NAME('SYSIBM.SYSTABLESPACE')
WHERE(DBID = QW0144DB AND PSID = QW0144PS)
*
* LOOK UP TABLE NAME IN IBM SYSTEM DB2 TABLE
READ: TABLE SHOWFLDS(YES)
DB2NAME('SYSIBM.SYSTABLES')
WHERE(TABLE.DBID = QW0144DB AND TABLE.OBID = QW0144OB)
*
* SELECT THE RECORDS WE WANT FOR THE REPORT
INCLUDEIF: SM102RTY = 102
AND QWHSIID = 144
AND SM102DTE = 4/11/10
AND SM102TME >= 18:00:00 AND < 19:00:00
AND SPACE.NAME : 'FLOAT'
*** AND QWHCOPID = 'TTP011A'
*
* SELECT THE DATA FIELDS TO PRINT IN THE REPORT
COLUMNS:
SM102RTY(3 'SMF|REC|TYP')
QWHSIID(4 'IFC|ID')
SM102DTE('SMF|LOG DATE')
SM102TME('SMF|LOG TIME')
QWHCCN('CONNECT|NAME')
QWHCPLAN('PLAN|NAME')
QWHCOPID('OPERATOR/ID')
QW0144DB(4 'DBID')
SPACE.NAME(16 'DBID|NAME')
QW0144PS(4 'PSID')
QW0144OB(4 'OBID')
TABLE.NAME(16 'OBID|NAME')
*
* SPECIFY REPORT TITLES
TITLE: 'DB2 AUDIT REPORT FROM SMF 102 RECORDS'
TITLE: 'ACCESS TO TABLES BEGINNING WITH "FLOAT"'
Produce This SMF Report:
DB2 AUDIT REPORT FROM SMF 102 RECORDS
ACCESS TO TABLES BEGINNING WITH "FLOAT"
SMF
REC IFC SMF SMF CONNECT PLAN DBID OBID
TYP ID LOG DATE LOG TIME NAME NAME OPERATOR/ID DBID NAME PSID OBID NAME
___ ____ ________ ___________ ________ ________ ___________ ____ ________________ ____ ____ ________________
102 144 04/11/10 18:37:40.13 TSO ADB TTP011A 291 FLOATACC1 2 3 FLOATAAC1
102 144 04/11/10 18:37:54.06 TSO ADB TTP011A 291 FLOATACC1 2 3 FLOATAAC1
102 144 04/11/10 18:38:09.56 TSO ADB TTP011A 291 FLOATACC1 2 3 FLOATAAC1
102 144 04/11/10 18:38:19.11 TSO ADB TTP011A 292 FLOATTEMP 2 3 FLOATTEMP
102 144 04/11/10 18:38:31.80 TSO ADB TTP011A 292 FLOATTEMP 2 3 FLOATTEMP
102 144 04/11/10 18:48:35.58 DB2CALL SPECT303 TTP011A 292 FLOATTEMP 2 3 FLOATTEMP
102 144 04/11/10 18:49:29.27 DB2CALL SPECT303 TTP011A 291 FLOATACC1 2 3 FLOATAAC1
