TQR - Transient data statistics

    CONTROL BLOCK NAME = DFHTQRDS
    NAME OF MATCHING PLS CONTROL BLOCK = DFHTQRPS
    DESCRIPTIVE NAME = CICS TS Transient Data Queue Statistics
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1995, 2014 
           CICS level at which this module was last updated
    FUNCTION =
           This data area contains TD Queue statistics provided by the
           Transient Data functional area.
           It is provided for use in users monitoring applications
           to map the statistics returned via the APi, the statistics
           exit, or offline formatting products.
           There is a single instance of this data block.
    LIFETIME =
           This data block is created by the Transient Data functional
           area to store statistics to be passed to the user in
           response to a request for statistics. The storage is
           released when the user task is detached.
    STORAGE CLASS =
    LOCATION =
           The user is passed a pointer to the head of the storage
           block.
    INNER CONTROL BLOCKS = none
    NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS = none
       MODULE TYPE = Domain call buffer
   --------------------------------------------------------------------
    EXTERNAL REFERENCES = none
        DATA AREAS = none
        CONTROL BLOCKS = from Transient Data
        GLOBAL VARIABLES (Macro pass) = none
   --------------------------------------------------------------------
    ALTHOUGH PROVIDED IN A GENERAL INTERFACE LIBRARY DFHTQRDS IS
    NOT TO BE USED AS A GENERAL PROGRAMMING INTERFACE. REFER TO
    PRODUCT DOCUMENTATION TO DETERMINE INTENDED USAGE.
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHTQRDS Transient Data Queue statistics
(0) FULLWORD 4 (0) Fullword alignment
(0) HALFWORD 2 TQRLEN Length of data area
(0) ..1. 1.1.   TQRIDE "0042" TD Queue resid statistics id mask
(2) ADDRESS 2 TQRID TD Queue resid statistics id
(2) .... ...1   TQRVERS "X'01'" Stats version number id mask
(4) CHARACTER 1 TQRDVERS Stats version number
(5) CHARACTER 3   Filler
(8) CHARACTER 4 TQRQID TD Queue identifier
(C) BITSTRING 1 TQRQTYPE TD Queue destination type
(D) CHARACTER 3   Reserved
(10) FULLWORD 4 TQRWRITE Total writes to queue
(14) FULLWORD 4 TQRREAD Total reads from queue
(18) FULLWORD 4 TQRDELET Total deletes of queue 
  Intrapartition specific fields.
(1C) HALFWORD 2 TQRTRIGL ATI tranid trigger level
(1E) BITSTRING 1 TQRRTYPE Recovery type
(1F) BITSTRING 1 TQRFTYPE ATI facility type
(20) CHARACTER 4 TQRFNAME ATI facility name
(24) BITSTRING 1 TQRWAIT Indoubt waiting supported
(25) BITSTRING 1 TQRWAITA Indoubt action (reject/queue)
(26) CHARACTER 2   Reserved
(28) CHARACTER 4 TQRATRAN ATI tranid
(2C) FULLWORD 4 TQRTRIGN Number of triglev triggers
(30) FULLWORD 4 TQRCCIUS Current CI's in use by this queue
(34) FULLWORD 4 TQRPCIUS Peak CI's in use by this queue
(38) FULLWORD 4 TQRCNITM Current number of items in queue 
  Remote specific fields.
(3C) CHARACTER 4 TQRRSYS Remote sysid
(40) CHARACTER 4 TQRRQID Remote Queue identifier 
  Indirect specific fields.
(44) CHARACTER 4 TQRIQID Indirect Queue identifier 
  Extrapartition specific fields.
(48) BITSTRING 1 TQRIOTYP I/O Type (input/output/readback)
(49) CHARACTER 3   Reserved
(4C) CHARACTER 8 TQRDDNM DD name of Extrapartition queue
(54) CHARACTER 44 TQRDSNNM Dataset name of Extrapartition Queue
(80) CHARACTER 8 TQRPDSMN PDS member name
(88) CHARACTER 8 TQR_DEFINE_SOURCE Group installed from
(90) BITSTRING 8 TQR_CHANGE_TIME Change/create time
(98) CHARACTER 8 TQR_CHANGE_USERID Change userid
(A0) BITSTRING 2 TQR_CHANGE_AGENT Change agent
(A2) BITSTRING 2 TQR_INSTALL_AGENT Install agent
(A4) BITSTRING 8 TQR_INSTALL_TIME Install/Create time
(AC) CHARACTER 8 TQR_INSTALL_USERID Install userid
(B4) CHARACTER 8   Reserved 
  Intrapartition peak number of items in queue
(BC) FULLWORD 4 TQRPNITM Peak no. of items in queue
(BC) 11.. ....   TQREND "*"
(BC) 11.. ....   TQRCLEN "*-TQRLEN" Length of dsect 
  Equates to test TD Queue type (TQRQTYPE).
(BC) .... ...1   TQRQTEXT "1" Extrapartition Queue
(BC) .... ..1.   TQRQTINT "2" Intrapartition Queue
(BC) .... ..11   TQRQTIND "3" Indirect Queue
(BC) .... .1..   TQRQTREM "4" Remote Queue 
  Equates to test TD Facilty type for ATI (TQRFTYPE).
(BC) .... ....   TQRFTNA "0" Not Applicable
(BC) .... ...1   TQRFTTRM "1" Terminal
(BC) .... ..1.   TQRFTSYS "2" System
(BC) .... ..11   TQRFTNTE "3" No terminal 
  Equates to test Extrapartition I/O type (TQRIOTYP).
(BC) .... ....   TQRIONA "0" Not Applicable
(BC) .... ...1   TQRIOIN "1" Input
(BC) .... ..1.   TQRIOOUT "2" Output
(BC) .... ..11   TQRIORDB "3" Readback 
  Equates to test Recovery type of queue (TQRRTYPE).
(BC) .... ....   TQRRTNA "0" Not Applicable
(BC) .... ...1   TQRRTPH "1" Physical recoverable
(BC) .... ..1.   TQRRTLG "2" Logical recoverable
(BC) .... ..11   TQRRTNR "3" Non-recoverable 
  Equates to test indoubt wait option for queue (TQRWAIT).
(BC) .... ....   TQRWTNA "0" Not Applicable
(BC) .... ...1   TQRWTYES "1" Queue supports indoubt waiting
(BC) .... ..1.   TQRWTNO "2" Does not support indoubt waiting 
  Equates to test indoubt wait action for queue (TQRWAITA).
(BC) .... ....   TQRWANA "0" Not Applicable
(BC) .... ...1   TQRWAREJ "1" Further requests will be rejected
(BC) .... ..1.   TQRWAQUE "2" Further requests will be queued 
  Equates to test change agent for queue (TQR_CHANGE_AGENT).
(BC) .... ...1   TQR_CSDAPI_CHANGE "0001" CSD API
(BC) .... ..1.   TQR_CSDBATCH_CHANGE "0002" DFHCSDUP
(BC) .... ..11   TQR_DREPAPI_CHANGE "0003" DREP API
(BC) .... .1..   TQR_CREATE_CHANGE "0004" EXEC CREATE SPI
(BC) .... .111   TQR_SYSTEM_CHANGE "0007" SYSTEM 
  Equates to test install agent for queue (TQR_INSTALL_AGENT).
(BC) .... ...1   TQR_CSDAPI_INSTALL "0001" CSD API
(BC) .... .1..   TQR_CREATE_INSTALL "0004" EXEC CREATE SPI
(BC) .... .1.1   TQR_GRPLIST_INSTALL "0005" GRPLIST
(BC) .... .111   TQR_SYSTEM_INSTALL "0007" SYSTEM