SPI - Task Local Storage Definition

       DESCRIPTIVE NAME = CICS TS Resource Definition Online
                          Task Local Storage definition.
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1981, 2015 
            D97306 700 150105 HDKGDJH bit for MOVE command
      SPI Task Local Storage definition.
      USE:
       IN CICS:
          AMP, DMP and PUP (PPT programs).
       IN BATCH:
          All modules subordinate to
          and including DFHCUCP.
      ADDRESSABILITY:
       IN CICS:
          BASED on TCADMTLA field in TCA.
       IN BATCH:
          BASED on DMTLA, passed as a parameter to all modules
          subordinate to DFHCUCP.
      SIZE:
          Size is length of structure DFHDMTLS.
      OBTAINED:
      IN CICS:
         by DFHDMP03 adaptor, via:
            DFHDMP router, via:
            DFHAMPFI routine, via:
            DFHAMP router.
      IN BATCH:
         by DFHDMP05 adaptor, via:
            DFHCUCP.
      FREED
      IN CICS:
         by DFHAMPEN routine called by AMP.
      IN BATCH:
         by DFHDMP05 adaptor, via:
            DFHCUCP.
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 312 DFHDMTLS 
         Address of KWA chain. Number of links in KWA chain.
(0) ADDRESS 4 TLPTR1
(4) FULLWORD 4 TLLEN1 
         Primary CSD control record. In-store address. Length of
         In-store primary record structure: Containing duplicate
         record.
(8) ADDRESS 4 TLPTR2
(C) FULLWORD 4 TLLEN2 
         LD table address.
(10) ADDRESS 4 TLPTR3 
         TLSYSID (Batch only): Operating System (MVS or DOS) FCxxxx
         (initialisation only) FCT values to be restored on CSD
         close.
(14) CHARACTER 4 TLSYSID
(14) 1... ....   FCADD remember fct value
(14) .1.. ....   FCUPDATE ditto for update
(14) ..1. ....   FCDELETE and delete 
         Miscellaneous global fields (a) for DFHAMP (CICS) (b) for
         DFHCSDUP (batch)
(18) CHARACTER 20 GLOBMISC
(18) ADDRESS 4 * Was AMARGANC DFHCSDUP misc globals
(18) BIT(8) 1 TLCUBITS Flag bits
(18) 1... ....   TLMSGOFF Suppress msgs.from BEP
(18) .1.. ....   TLRDCICS Processing CICS-supplied resource definition list
(18) ..1. ....   TLRDTMIG Processing migrated RDT
(18) ...1 ....   TLUPGUSG Processing UPGRADE USING
(18) .... 1...   TLIGNOIW Ignore I and W msgs
(18) .... .1..   TLPCURDD Processing CURDD/CURDN
(18) .... ..1.   TLUSRDEF Userdefine command
(18) .... ...1   TLGENGAL Generic group alter
(19) BIT(8) 1 * Reserved
(19) 1... ....   TLALOBKY Allow obsolete keywords
(19) .1.. ....   MOVECMD Command is MOVE D97306A
(19) ..11 1111   * Spare
(1A) HALFWORD 2 TLKEYNUM Current keyword number AMP anchors (Continued)
(1C) ADDRESS 4 AMERRANC Anchor for error msgs
(20) ADDRESS 4 SYSTEMER Internal msg anchor
(24) ADDRESS 4 AMDISANC Display block anchor
(28) ADDRESS 4 TLARG0PT Current argument 0 ptr 
         Task-local variables for DFHTOR (Terminal Object Reso-
         lution). TRCURSTA records the current (summary) state of
         data type TR tr_current_state : <initial, luip, eg1, eg2,
         error>
(2C) HALFWORD 2 TRCURSTA
(2E) HALFWORD 2 * Reserved for alignment TRSTATUS is used by all the modules that implement TR. TRSTATUS is used to indicate exceptional conditions as they
(30) CHARACTER 8 TRSTATUS arise.
(30) FULLWORD 4 TRRESP TR-global response code.
(34) FULLWORD 4 TRREASON TR-global reason code. 
         The following 11 variables are in "tr_state". They
         represent mappings from names to either a) other names
         or b) resource definitions. The data length of each
         (CHAR(20)) is dependent upon the implementation as
         encoded in DFHTOMAC etc.
(38) CHARACTER 20 MMNDX autodefine models tt_ndx : MAP OF (ttid, ttdef)
(4C) CHARACTER 20 TTNDX TYPTERM names, defns. tm_ndx : MAP OF (tmid, tmdef)
(60) CHARACTER 20 TMNDX CICS tmids tm_use : MAP OF (tmid, ttid)
(74) CHARACTER 20 TMUSE TYPETERM references. pt_ndx : MAP OF (tmid, ptdef)
(88) CHARACTER 20 PTNDX pooled TERMINALs pt_use : MAP OF(tmid, ttid )
(9C) CHARACTER 20 PTUSE TYPETERM references cn_ndx : MAP OF(cnid, cndefr )
(B0) CHARACTER 20 CNNDX CONNECTIONs se_ndx : MAP OF(seid, sedefr )
(C4) CHARACTER 20 SENDX SESSIONS se_use : MAP OF(seid, cnid)
(D8) CHARACTER 20 SEUSE SESSIONS regferences 
         End of DFHTOR-specific variables.

    AMP EXPAND|DISPLAY BROWSE SPECIFIC KEYWORDS
(EC) CHARACTER 32 * BROWSE work area
(EC) BIT(8) 1 * Status flags
(EC) 1... ....   * Reserved
(EC) .1.. ....   EXPANDAC EXPAND active
(EC) ..1. ....   EXPANDNX SET TO 1 WHEN 1ST NEXT IS OK *
(EC) ...1 ....   DISPLYAC DISPLAY active
(EC) .... 1...   RMREGTRD Have registered with RM
(EC) .... .1..   CREATCOM Create command
(EC) .... ..1.   POOLINPR Terminal pool in progress
(EC) .... ...1   CONNINPR Connection in progress
(ED) BIT(8) 1 * More flags
(ED) 1... ....   INSTACOM Install command
(ED) .1.. ....   TLS_COUNTED CSZCSDCT incremented
(ED) ..1. ....   TLS_USRID_X Userid specified on SPI
(ED) ...1 1111   * Reserved
(EE) BIT(8) 1 * Reserved
(EF) BIT(8) 1 * Reserved
(F0) FULLWORD 4 EXPANDTY EXPAND type (list or group) *
(F4) ADDRESS 4 EXPKWA EXPAND KWA pointer
(F8) CHARACTER 8 EXPNAME Name of group or list EXPANDed
(100) FULLWORD 4 DISPLYTY DISPLAY type (list or group) *
(104) ADDRESS 4 DISPKWA DISPLAY KWA pointer
(108) UNSIGNED 2 BROWSID Last Reqid used
(10A) HALFWORD 2 * Reserved for alignment 
    RESPONSE and REASON codes returned via API
(10C) FULLWORD 4 APIRESP API Response code
(110) FULLWORD 4 APIREAS API Reason code
(110) UNSIGNED 2 APIREAS_HIGH High halfword of Reason
(112) UNSIGNED 2 APIREAS_LOW Low halfword of Reason 
     %GOTO TLSCICS2 @P7A
    Information from the Parameter List passed to DFHCSDUP from a
    user program.
(114) CHARACTER 8 CSD_NAME DD NAME OF ALTERNATIVE CSD 
    Name of the current terminal pool or connection being installed
(11C) CHARACTER 8 TLS_POOL_NAME Terminal pool in progress
(11C) CHARACTER 4 TLS_CONN_NAME Connection in progress 
    Catalog token to disconnect in case of abend
(124) CHARACTER 4 TLS_CCTOKEN Catalog token 
  --------------------------------------------------------------------
   Fields required for the EXEC CICS CSD API
  --------------------------------------------------------------------
(128) ADDRESS 4 TLS_SETPTR SET buffer address
(12C) FULLWORD 4 TLS_SETLEN SET buffer length
(130) ADDRESS 4 AMARGANC AMP anchor for arg lists
(134) BIT(8) 1 * Flags
(134) 1... ....   TLS_CSDAPI Command from CSD API
(134) .1.. ....   TLS_INQUIRERSRCE Inquirersrce command from CSD API
(134) ..11 1111   * Spare 
    Flags required for bundle defined resources
(135) BIT(8) 1 * Flags
(135) 1... ....   TLS_BUNDLE_RES Command from bundle install
(135) .1.. ....   TLS_LOG_BUNDLE_CRT Log bundle creates?
(135) ..11 1111   * Spare
(136) CHARACTER 2 * Spare 
  --------------------------------------------------------------------
(138) CHARACTER 0 * End of storage