WTR - XRF trace interface

      CONTROL BLOCK NAME = DFHWTRPS
      DESCRIPTIVE NAME = CICS TS (XRF) XRF Trace Interface
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985 
      FUNCTION =
           XRF Trace parameter block description used by a caller
           of trace as a template to build a parameter block to
           pass to trace (DFHWTRP).
      LIFETIME =
           Duration of this particular use of storage is a single
           call to trace.
      STORAGE CLASS =
           User's discretion subject to lifetime constraint.
      LOCATION =
           Address is passed to DFHWTRP in Register 1.
      INNER CONTROL BLOCKS =
           WTRENTRY This defines the structure of the entries in
                    the XRF trace area and includes DFHWTRPS itself.
           WTRXxx Several definitions of the contents of the user
                    parts of trace entries for the various primary
                    entry types. DFHWTRPS also contains declarations
                    of the values for the primary types and subtypes
                    of the trace table entries.
      NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS =
             None
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
      EXTERNAL REFERENCES =
        DATA AREAS =
            None
        CONTROL BLOCKS =
            None
        GLOBAL VARIABLES (Macro pass) =
            None
     ------------------------------------------------------------------
       Interface to trace and user data part of trace entry
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 28 DFHWTRPS
(0) CHARACTER 2 WTRTYPE Entry type
(0) UNSIGNED 1 WTRPRITP Primary type code
(1) UNSIGNED 1 WTRSUBTP Subtype code
(2) HALFWORD 2 WTRXPBNO Process id. (set by trace routine not caller)
(4) CHARACTER 24 WTRUSFLD User fields 
       Trace Entry format
Table 2.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 32 WTRENTRY
(0) CHARACTER 28 WTRUDATA User data part
(1C) UNSIGNED 4 WTRCLOCK Bits 15-46 of STCK value relative to last midnight
(20) CHARACTER 0 WTREND 
       Linkage
Table 3.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 12 WTRX01 Call
(0) CHARACTER 8 WTRX01NM Module name
(8) ADDRESS 4 WTRX01LA LIFO allocation address 
       Dispatcher
         Usage is: WTRSTATT - WTRX021 = WDSIEPA (ATTACH argument)
                                   22 = WDSIIDA
                                   23 = WDSESPIE
                                   24 = WDSESTAE
                                   25 = Addr of attached process XPB
                                   26 = Process id. of attached proc.
                   WTRSTDET - No data
                   WTRSTDSP - WTRX021 = WXBEECBA
                                   22 = WXBIECBA
                                   23 = WXBWEVM
                                   24 = WXBPEVM
                                   25 = Addr of process XPB
                                   26 = WXBHLKM
                   WTRSTXWE - WTRX021 = WDSEECBA (WAIT arguments)
                                   22 = WDSIECBA
                                   23 = WDSWEVM
                                   24 = WDSPEVM
                                   25 = WDSREVM
                   WTRSTXWL - WTRX021 = WDSFLKM (WAIT arguments)
                                   22 = WDSGLKM
                                   25 = WDGGLKSM
                                   26 = WXBHLKM
                   WTRSTEND - No data
                   WTRSTOSW - WTRX025 = Addr of MVS WAIT list
                                   26 = Number of events in list
                   WTRSTOSR - No data
Table 4.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 24 WTRX02 Dispatcher
(0) ADDRESS 4 WTRX021 Field 1
(4) ADDRESS 4 WTRX022 Field 2
(8) ADDRESS 4 WTRX023 Field 3
(C) ADDRESS 4 WTRX024 Field 4
(10) ADDRESS 4 WTRX025 Field 5
(14) ADDRESS 4 WTRX026 Field 6 
       Message Manager I/O
Table 5.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 12 WTRX03 Call
(0) ADDRESS 4 WTRX03RP RPL address
(4) ADDRESS 4 WTRX03RB RBA of CI
(8) CHARACTER 1 * Reserved
(9) CHARACTER 3 WTRX03FB VSAM Feedback 
       Message Manager Requests
         Usage is: WTRSTENQ - WTRX042 = Queue name
                                   43 = Message sequence number
                                   44 = Address of message block
                   WTRSTWRT - WTRX042 = QUEUE name
                                   43 = Message sequence number
                                   44 = Message cycle number
                                   45 = RBA of message
                                   46 = Response to request
                   WTRSTRQO - WTRX041 = Instance number
                                   42 = Version number
                                   43 = Message sequence number
                                   44 = Channel number
                                   45 = Channel status
                                   46 = Response to request
                   WTRSTRPO, WTRSTRQI, WTRSTRPI same as WTRSTRQO
Table 6.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 24 WTRX04 Message manager requests
(0) CHARACTER 8 WTRX04IV Instance/Version
(0) ADDRESS 4 WTRX041 Field 1
(4) ADDRESS 4 WTRX042 Field 2
(8) ADDRESS 4 WTRX043 Field 3
(C) ADDRESS 4 WTRX044 Field 4
(10) ADDRESS 4 WTRX045 Field 5
(14) ADDRESS 4 WTRX046 Field 6
(14) CHARACTER 2 * Filler
(16) CHARACTER 2 WTRX046R Field 6R 
       Clock step
Table 7.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 20 WTRXFE Clock step
(0) CHARACTER 8 WTRXFECK Actual STCK value
(8) UNSIGNED 4 WTRXFEOM Old midnight value
(C) UNSIGNED 4 WTRXFENM New midnight value
(10) ADDRESS 4 WTRXFEPE Previous clock step entry 
       Reserved
Table 8.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WTRXFF Reserved
(0) CHARACTER 0 * Reserved

Constants

Table 9.
Len Type Value Name Description 
     Trace types codes - Values for WTRPRITP and WTRSUBTP.
1 DECIMAL 1 WTRPTLNK Link
1 DECIMAL 1 WTRSTCAL Link - Call
1 DECIMAL 2 WTRSTRTN Link - Return
1 DECIMAL 2 WTRPTDSP Dispatcher
1 DECIMAL 1 WTRSTATT Disp - Process Attach
1 DECIMAL 2 WTRSTDET Disp - Process Detach
1 DECIMAL 3 WTRSTDSP Disp - Process Dispatch
1 DECIMAL 4 WTRSTXWE Disp - XRF Wait (events)
1 DECIMAL 5 WTRSTXWL Disp - XRF Wait (locks)
1 DECIMAL 6 WTRSTEND Disp - No process
1 DECIMAL 7 WTRSTOSW Disp - OS WAIT
1 DECIMAL 8 WTRSTOSR Disp - OS dispatch
1 DECIMAL 3 WTRPTMMV Message Manager I/O
1 DECIMAL 1 WTRSTVGT MMV - VSAM GET Request
1 DECIMAL 2 WTRSTVPT MMV - VSAM PUT Request
1 DECIMAL 3 WTRSTVRP MMV - VSAM Response
1 DECIMAL 4 WTRPTMMR Message Manager Requests
1 DECIMAL 1 WTRSTENQ MMR - GET Message ENQ
1 DECIMAL 2 WTRSTWRT MMR - PUT Message out
1 DECIMAL 3 WTRSTRQO MMR - RQR Request Out
1 DECIMAL 4 WTRSTRPO MMR - RQR Response Out
1 DECIMAL 5 WTRSTRQI MMR - RQR Request In
1 DECIMAL 6 WTRSTRPI MMR - RQR Response In
1 DECIMAL 254 WTRPTCLK Clock step
1 DECIMAL 255 WTRPTRSV Reserved