TSUE - Temporary Storage EXEC Parameter List

      CONTROL BLOCK NAME = DFHTSUEC
      DESCRIPTIVE NAME = CICS TS EXEC parameter list for Temporary
                                  Storage user exits.
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1992, 1998 
         Although provided in a general library, DFHTSUED is not
         to be used as a general programming interface. Refer to
         product documentation to determine intended usage.
         The following fields are part of the Product-sensitive
         Programming Interface.
                     TS_ADDR0
                     TS_ADDR1
                     TS_ADDR2
                     TS_ADDR3
                     TS_ADDR4
                     TS_ADDR5
                     TS_ADDR7
                     TS_GROUP
                     TS_FUNCT
                     TS_BITS1
                     TS_EIDOPT5
                     TS_EIDOPT6
                     TS_EIDOPT7
                     TS_EIDOPT8
                     TS_QUEUE
                     TS_WRITEQ_QUEUE
                     TS_READQ_QUEUE
                     TS_DELETEQ_QUEUE
                     TS_QNAME
                     TS_WRITEQ_QNAME
                     TS_READQ_QNAME
                     TS_DELETEQ_QNAME
                     TS_READQ_SET
                     TS_READQ_INTO
                     TS_WRITEQ_FROM
                     TS_LENGTH
                     TS_WRITEQ_LENGTH
                     TS_READQ_LENGTH
                     TS_READQ_NUMITEMS
                     TS_WRITEQ_NUMITEMS
                     TS_ITEM
                     TS_WRITEQ_ITEM
                     TS_READQ_ITEM
                     TS_SYSID
                     TS_WRITEQ_SYSID
                     TS_READQ_SYSID
                     TS_DELETEQ_SYSID
         All equates for values of EIBRCODE, EIBRESP and EIBRESP2
         form part of the General-purpose Programming Interface.
         All remaining fields used in defining the Exec Parameter
         List are product sensitive and may vary between CICS
         releases.
      FUNCTION =
           To define the EXEC parameter list for Temporary Storage
           requests, for use by global user exit programs at exit
           points XTSEREQ and XTSEREQC.
           On entry to the XTSEREQ and XTSEREQC User Exits, the EXEC
           parameter list is pointed to by UEPCLPS.
           The EXEC parameter list for Temporary Storage consists of
           eight addresses.
           The eight addresses are defined by TS_ADDR0 to TS_ADDR7.
           This DSECT defines these addresses and the areas that
           they point to.
           On entry to the XTSEREQ and XTSEREQC User Exits, the copy
           of EIBRCODE is pointed to by UEPRCODE, the copy of EIBRESP
           is pointed to by UEPRESP and the copy of EIBRESP2 is
           pointed to by UEPRESP2.
           This DSECT also contains equates for values of EIBRCODE,
           EIBRESP and EIBRESP2 used by Temporary Storage.
      LIFETIME = Lifetime of the TS command request
      STORAGE CLASS = As the storage being mapped is the translated
                   source in the user's application program, the
                   storage may be either above or below the line.
      LOCATION = (1) EXEC Parameter List is addressed by UEPCLPS.
                   (2) Fields copied from the EIB are addressed by
                       UEPRCODE, UEPRESP and UEPRESP2.
                   (3) The token for use in communicating between
                       XTSEREQ and XTSEREQC is addressed by UEPTQTOK.
      INNER CONTROL BLOCKS =
           TS_ADDR_LIST declares the EXEC addresses.
           TS_EID defines the EID pointed to by TS_ADDR0.
      NOTES :
       DEPENDENCIES = S/370 ESA
       RESTRICTIONS = None
       MODULE TYPE = Control block definition
     -----------------------------------------------------------------
      EXTERNAL REFERENCES = None
        DATA AREAS = None
        CONTROL BLOCKS = None
        GLOBAL VARIABLES (Macro pass) = None
     -----------------------------------------------------------------
      The command parameter list is a list of addresses
      which reference the argument values for this this EXEC CICS
      command. The addresses are only valid if the argument is
      applicable to this command.
       For example, address 1 is of the TS QUEUE (if used) for all TS
       commands, whereas the address 2 is of the FROM data area on
       WRITEQ commands, the SET address or INTO data area for READQ
       commands, and is not valid for DELETEQ commands.
      The existance bits in the EID component (TS_BITS1) specify
      those addresses that are valid, and the flagword bits
      (TS_EIDOPT5 - TS_EIDOPT8) specify the keywords that were given
      in the EXEC CICS TS command.
      Therefore, you can deduce the usage of each address by testing
      these bits in conjunction with the command function(TS_FUNCT).

                                         INTO data area (READQ)
                                         SET address (READQ)

                                         NUMITEMS value (WRITEQ)

      TS_EID (addressed by TS_ADDR0) gives the command function, and
      contains the existence and flagword bits.
      Note: Equates for TS_GROUP, TS_FUNCT, EIBRCODE, EIBRESP and
      EIBRESP2 values are defined at the end of this data structure.

                                         '04'X for READQ
                                         '06'X for DELETEQ
   -----------------------------------------------------------------
    The existence bits (TS_BITS1) specify the parameters that are
    valid for this command.
    For example, TS_EXIST7 set on indicates that TS_ADDR7 is valid,
    meaning that it addresses a SYSID value.
    TS_ADDR0 is always valid and has no existence bit.
    A user exit program at XTSEREQ can set the TS_EXIST7 bit on or
    off for all TS commands. All other changes will be ignored.
   -----------------------------------------------------------------

   -----------------------------------------------------------------
    The next 4 bytes (TS_EIDOPT5 - TS_EIDOPT8) are the flagword
    bits. Some bits have more than one meaning, depending on the
    command function, and these are named accordingly.
    A user exit program at XTSEREQ can set the TS_WRITEQ_MAIN_X
    and TS_WRITEQ_NOSUSPEND_X bits on or off for all WRITEQ
    commands. All other changes will be ignored.
   -----------------------------------------------------------------

      The following definitions are for the rest of the arguments in
      the EXEC parameter list, addressed by TS_ADDR1 - TS_ADDR7 in
      TS_ADDR_LIST.

    Equate for TS_GROUP.
    All Temporary Storage requests have group code '0A'

    Equates for TS_FUNCT values.

       Start of General Use Programming Interface.
       Equates for EIBRCODE values used by Temporary Storage.

       Equates for EIBRESP values used by Temporary Storage.

       Equates for EIBRESP2 values used by Temporary Storage.