WTG - XRF trace control area

      CONTROL BLOCK NAME = DFHWTGPS
      DESCRIPTIVE NAME = CICS TS (XRF) Trace Control area
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985, 1987 
      FUNCTION =
           Contains description of the XRF Trace area. There is
           a single instance.
      LIFETIME =
           Created on first call to XRF Trace (normally the result
           of the call to GET LIFO (DFHWLGET) made by XRF ATTACH
           (DFHWDATT) when called from INITIAL ATTACH (DFHWDINA)
           during the XRF SIGNON process.
           Destroyed during XRF SIGNOFF.
      STORAGE CLASS =
           Non-CICS storage. Usually above 16M line.
      LOCATION =
           Addressed by WCGTRA in XRF Global area DFHWCGPS.
      INNER CONTROL BLOCKS =
           WTGAREA When DFHWTRP allocates the Trace control area
                    it also allocates the trace area itself.
                    WTGAREA describes the header of the trace area.
      NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS =
             None
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
      EXTERNAL REFERENCES =
        DATA AREAS =
            None
        CONTROL BLOCKS =
            WCGTRA Base for trace control area.
     ------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 64 DFHWTGPS Addressed from WS Global
(0) CHARACTER 16 WTGAHDNG Heading text - text is defined in WTGATEXT
(10) ADDRESS 4 WTGSTART Start of trace table
(14) ADDRESS 4 WTGEND End of trace table
(18) ADDRESS 4 WTGNEXT Next trace table entry
(1C) BIT(16) 2 WTGFLAGS
(1C) 1... ....   WTGFWRAP Table has wrapped
(1C) BIT(15) POS(2) 2 * Reserved
(1E) HALFWORD 2 * Reserved
(20) CHARACTER 8 WTGCLOCK Target for STCK instrn issued by DFHWTRP.
(28) ADDRESS 4 * Reserved
(2C) UNSIGNED 4 * Reserved
(30) CHARACTER 8 WTGCOPY Shifted copy of STCK
(30) UNSIGNED 4 WTG1647 STCK bits 16-47
(38) ADDRESS 4 WTGCSTEP Address of latest clock step entry.
(3C) ADDRESS 4 WTGENTRY Work space for trace

Constants

Table 2.
Len Type Value Name Description
     Size of trace area to be allocated
4 DECIMAL 65536 WTGASIZE Allocate 64K
     Heading text
16 CHARACTER *** XRF TRACE ** WTGATEXT