TRAP - trace parameter list

      CONTROL BLOCK NAME = DFHTRADS
      DESCRIPTIVE NAME = CICS TS Parameter List to DFHTRAP
             Licensed Materials - Property of IBM
              Restricted Materials of IBM 
             5655-Y04
             (C) Copyright IBM Corp. 1984, 1991 
      FUNCTION =
           Defines the parameter list passed from DFHTRPT
           to the F.E. Global Trap/Trace Exit Program DFHTRAP.
      LIFETIME =
           The parameter list is created by DFHTRPT immediately
           prior to invoking DFHTRAP. Its contents are valid for
           the duration of the call to DFHTRAP.
      STORAGE CLASS =
           The parameter list to DFHTRAP is in storage MVS GETMAIN'd
           above the 16M line by DFHTRSR.
      LOCATION =
           The parameter list is in the Global Trap Work Area
           whose format is described by DFHTRGTW. This work area
           is addressed from TRA_TRAP_WA_PTR in the TR domain anchor
           block.
      INNER CONTROL BLOCKS =
           None
      NOTES :
         DEPENDENCIES = S/370
         RESTRICTIONS = None
         MODULE TYPE = Control block definition
      EXTERNAL REFERENCES =
          DATA AREAS =
            This control block references no operating system data
            areas.
          CONTROL BLOCKS =
            This control block references no other control blocks.
          GLOBAL VARIABLES (Macro pass) =
            This control block definition references no global
            variables.
                                        PERSONNEL
                                        adding a PL/AS version
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 120 DFHTRADS DUMMY SECTION - PLIST TO TRAP 
     TRAFLGSA - Address of return actions flag word
     Return actions flag settings are in the byte addressed from
     field TRAFLGSA in the parameter list to DFHTRAP.
     The individual flag settings are as follows :
     TRAPFTRE EQU X'80' .. Make further trace entry on
                                 behalf of trap exit using data
                                 below the bar
     TRAPDUMP EQU X'40' .. Take a system dump
     TRAPTR64 EQU X'20' .. Make further trace entry on behalf
                                 of trap exit using 64-bit data
     TRAPCABD EQU X'10' .. Abend CICS (with a dump)
     TRAPDISA EQU X'08' .. Disable trap so that it cannot
                                 be used until reactivated
     TRAPDMPL EQU X'04' .. Take a system dump holding the
                                 trace lock
     Any combination of these flags may be set and wherever possible
     all requested actions will be honoured upon return to the trace
     domain.
     Note also that the trap will be disabled when requests to abend
     CICS are returned.
(0) ADDRESS 8 TRAFLGSA A(Return actions flag word) *
(8) ADDRESS 8 * Reserved 
     TRACURTA - Address of current entry in internal trace table
     This field points to the trace entry constructed by DFHTRPT
     on the same invocation for which it is calling DFHTRAP. This
     entry should not be modified by DFHTRAP. Its structure is
     mapped by the DSECT DFHTREN.
(10) ADDRESS 8 TRACURTA A(Current entry) 
     TRAWORKA - Address of 80-byte work area for DFHTRAP.
     This work area is acquired when DFHTRAP is activated and is
     not changed by CICS until DFHTRAP is de-activated, so it may
     be used for saving information between invocations of DFHTRAP
(18) ADDRESS 8 TRAWORKA A(80-byte work area) 
     TRAD1A/L, TRAD2A/L and TRAD3A/L
     These six fields are used in conjunction with the setting of
     TRAPFTRE in the return actions flag byte. This flag indicates
     that DFHTRPT should make a further trace entry. TRADnA/L are
     address and length pairs for the data fields to be included in
     this entry. If TRAPFTRE is set, DFHTRPT examines the length
     fields in turn. All fields up to the first with a zero length
     will be included in the extra trace entry. A matching set of
     address/length pairs TRADnA_64/L_64 are provided to allow the
     trap to pass data above the bar.
(20) CHARACTER 72 TRATRDAT Total length of data fields
(20) ADDRESS 4 TRAD1A Address of DATA1 information
(24) UNSIGNED 4 TRAD1L Length of DATA1 information
(28) ADDRESS 4 TRAD2A Address of DATA2 information
(2C) UNSIGNED 4 TRAD2L Length of DATA2 information
(30) ADDRESS 4 TRAD3A Address of DATA3 information
(34) UNSIGNED 4 TRAD3L Length of DATA3 information
(38) ADDRESS 8 TRAD1A_64 64-bit address for DATA1
(40) UNSIGNED 8 TRAD1L_64 64-bit length for DATA1
(48) ADDRESS 8 TRAD2A_64 64-bit address for DATA2
(50) UNSIGNED 8 TRAD2L_64 64-bit length for DATA2
(58) ADDRESS 8 TRAD3A_64 64-bit address for DATA3
(60) UNSIGNED 8 TRAD3L_64 64-bit length for DATA3 
     TRACSAAD - CSA address
     The address of the CSA or zero. This will only be zero for
     invocations of DFHTRAP early in initialisation (before the CSA
     has been set up).
(68) ADDRESS 4 TRACSAAD CSA address 
     TRATCAAD - TCA address
     The address of the current TCA or zero. This will be zero when
     running under other than the quasi-reentrant TCB, or when
     running under a non-transaction manager type task.
(6C) ADDRESS 4 TRATCAAD TCA address 
     TRARSAAD - Register save area address
     The address of the register save area that R13 will point to
     during the invocation of DFHTRAP.
(70) ADDRESS 8 TRARSAAD RSA address
(78) CHARACTER 0 TRAEND Ending address