ATD - Attach table

      CONTROL BLOCK NAME = DFHXTSPS
      DESCRIPTIVE NAME = CICS TS (TERMSHR) TRANSFORMER
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1986, 2010 
      FUNCTION =
           DSECT for PLAS callers of DFHXTP
      LIFETIME =
           Same as lifetime of caller's stack storage
      STORAGE CLASS =
           STACK
      LOCATION =
           In stack-storage of XTP's caller
      INNER CONTROL BLOCKS =
      NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS =
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
      EXTERNAL REFERENCES =
        DATA AREAS =
        CONTROL BLOCKS =
        GLOBAL VARIABLES (Macro pass) =
     ------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 156 DFHXTSPS
(0) CHARACTER 0 XTSTART
(0) CHARACTER 0 XTSBEGIN
(0) ADDRESS 4 XTSATTEL ADDR OF TCTTE TO BE USED FOR THIS CONVERSATION
(4) ADDRESS 4 XTSATIOA ADDR OF TIOA FOR REQUEST TO BE SHIPPED ACROSS LINK
(8) ADDRESS 4 XTSATTES ADDR OF SURROGATE TCTTE
(8) ADDRESS 4 XTSATTEU ADDR OF USERS TCTTE
(C) ADDRESS 4 XTSMCRA ADDRESS OF MCR
(10) ADDRESS 4 XTSLUCPL Address of LUC parameter list
(14) CHARACTER 6 *
(14) ADDRESS 4 XTSINBPS -> ZC BPS FOR INSTALL
(14) CHARACTER 6 XTSPAGDS PAGE DATA
(14) ADDRESS 4 XTSPAGDA ADDRESS OF PAGE DATA
(18) CHARACTER 2 XTSPLDCM LDC mnemonic for BMS page
(1A) CHARACTER 2 *
(1C) CHARACTER 2 XTSLDCM LDC mnemonic for non BMS
(1E) CHARACTER 1 XTSFORMN TRANSFORMATION REQUIRED
(1F) BIT(8) 1 XTSRQFRM REQUEST FORMAT
(20) CHARACTER 31 XTSRTEDS ROUTE DATA
(20) ADDRESS 4 XTSTTLA ADDRESS OF TITLE
(24) ADDRESS 4 XTSRTELA ADDRESS OF ROUTE LIST
(28) CHARACTER 2 XTSREQID BMS REQUEST ID
(2A) CHARACTER 12 XTSFQERT FULLY QUALIFIED TERMINAL ID OF BMS ERROR TERMINAL ( IE NETNAME.TERMID )
(36) CHARACTER 2 XTSETLDC BMS ERRTERM LDC
(38) CHARACTER 2 XTSMCFL MESSAGE CONTOL FLAGS
(38) BIT(8) 1 XTSMCFL1 MESSAGE CONTROL FLAGS 1
(38) 1... ....   XTSRELSE CTRL=RELEASE, OVERLAYS TITLE
(38) .1.. ....   XTSWBCUR WRBRK=CURRENT, EQU MCRWBCUR.
(38) ..1. ....   XTSWBALL WRBRK=ALL, EQU MCRWBALL.
(38) ...1 ....   XTSEODOP EODPURG=OPER, EQU MCREODOP.
(38) .... 1...   XTSPAGE CTRL=PAGING, EQU MCRPAGE.
(38) .... .1..   XTSAUTOP CTRL=AUTOPAGE, EQU MCRAUTOP.
(38) .... ..1.   *
(38) .... ...1   XTSRTAIN CTRL=RETAIN, EQU MCRRTAIN.
(39) BIT(8) 1 XTSMCFL2 MESSAGE CONTROL FLAGS 2
(39) 1... ....   *
(39) .1.. ....   *
(39) ..1. ....   *
(39) ...1 ....   *
(39) .... 1...   XTSSCSZ ALTERNATE SCREEN SIZE USED, EQU MCRSCSZ.
(39) .... .1..   *
(39) .... ..1.   XTSBMSSM BMS SYSTEM MESSAGE, EQU MCRBMSSM.
(39) .... ...1   *
(3A) BIT(8) 1 XTSMCTRL FLAGS FOR TCAMSTR6
(3B) BIT(8) 1 XTSMISC Miscellaneous indicators
(3B) 1... ....   XTSTMERR Terminal IO error
(3B) .111 1111   * Reserved
(3C) CHARACTER 3 XTSOCL OPERATOR CLASS
(3F) CHARACTER 4 XTSSYSID
(43) CHARACTER 6 XTSTPOS1 COPY OF TCATPOS1 etc.
(49) CHARACTER 2 XTSTPCON COPY OF TCATPCON & TCATPOC3 *
(49) CHARACTER 1 *
(4A) CHARACTER 1 XTSTPOC3 COPY OF TCATPOC3
(4B) CHARACTER 1 XTSRPOS2 REQUEST SHIPPED
(4C) BIT(8) 1 XTSTCOPC TC OPERATION CODE
(4C) 1... ....   *
(4C) .1.. ....   *
(4C) ..1. ....   *
(4C) ...1 ....   XTSTCRD TC READ
(4C) .... 1...   *
(4C) .... .1..   *
(4C) .... ..1.   XTSTCCNV TC CONVERSE
(4C) .... ...1   XTSTCWRT TC WRITE
(4D) BIT(8) 1 XTSSTAT TRANSFORM STATUS
(4D) 1... ....   XTSSTATR REQUEST TRANSFORM
(4D) .1.. ....   XTSSTATA ATTACH TRANSFORM
(4D) ..1. ....   XTSSTATD DETACH TRANSFORM
(4D) ...1 ....   XTSSTATF FLUSH TRANSFORM
(4D) .... 1...   *
(4D) .... .1..   XTSSTATO Origin Data supported
(4D) .... ..1.   XTSSTATT Time-out supported
(4D) .... ...1   XTSSTATC Terminal-owner is cold
(4E) CHARACTER 4 XTSTRNID REMOTE TRANSACTION ID
(52) BIT(8) 1 XTSZIRSP ZC RESPONSE
(53) CHARACTER 8 XTSTPPNM Prog. name for ISSUE LOAD
(5B) CHARACTER 1 *
(5C) CHARACTER 10 *
(5C) CHARACTER 8 XTSLUNAM LU name of target system
(64) UNSIGNED 2 XTSDATAL Length of logon data
(66) CHARACTER 1 XTSLOGEX LOGMODE EXISTENCE
(67) CHARACTER 8 XTSLOGMD LOGMODE FOR NEW SESS
(6F) CHARACTER 1 *
(70) FULLWORD 4 XTSDATAA Address of logon data
(74) CHARACTER 8 XTSTNNAM Terminal netname
(7C) UNSIGNED 1 XTSPAPR TC response
(7D) CHARACTER 4 XTSABEND TC abend
(81) UNSIGNED 4 XTSSENSE TC sense
(85) CHARACTER 3 *
(88) UNSIGNED 4 XTSCHANT Channel token
(8C) CHARACTER 16 XTSTBYTE Total channel bytes

Constants

Table 2.
Len Type Value Name Description 
    Values of XTSFORMN
1 HEX 00 XTSTRAN1 Transformation 1
1 HEX 02 XTSTRAN2 Transformation 2
1 HEX 04 XTSTRAN3 Transformation 3
1 HEX 06 XTSTRAN4 Transformation 4 
    Values of XTSRQFRM
1 HEX 00 XTSRQRLY Relay 
    TCTTE address for user terminal/surrogate is passed in XTSATTEU.
    Data is sent over the link with a X'438000' FMH.
1 HEX 01 XTSRQTIQ Inquire terminal 
    The terminal entry associated with this conversation is
    INQUIRED.
1 HEX 02 XTSRQTIN Install terminal 
    Address of Builder Parameter Set is passed in XTSINBPS.
    The BPS is sent over the link with a X'438002' FMH. This is
    not supported as the FMH 43 following a Task Attach.
1 HEX 03 XTSRQTDE Delete terminal 
    The REMOTE entries named in the list (if any) attached to the
    system entry for the link TCTTE are to be deleted. This is
    only supported with a Task Attach.
1 HEX 04 XTSRQZIR ZC install response message 
    ZC RESPONSE is passed in XTSCODE1, address of message-set
    or 0 is passed in XTSATTEU.
1 HEX 05 XTSXLONG Extract long fields