TCTWA - TCT transaction work area

     DESCRIPTIVE NAME = CICS TS TCT Transaction Work Area
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985, 1994 
     FUNCTION = This DSECT defines the Transaction Work Area for the
                Terminal Control Transaction itself. This transaction
                responds to requests for terminal services.
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHTCTWA TWA address is in TCATWAAD
(0) DBL WORD 8 TCTWA (0) Start of TC TWA
(0) ADDRESS 4 TCSPTA Read terminal entry address
(4) CHARACTER 1 TCPIND Polling indicator
(5) CHARACTER 3 TCERRSA Terminal error code save area
(8) ADDRESS 4 TCTXTPA Terminal pool address
(C) BITSTRING 1 TCTXLPAF (0) Line in pool avail flag byte
(C) 1... ....   TCTXLPAV "X'80'" Line in pool avail (3170L)
(C) ADDRESS 4 TCTXLPA 1st line in pool pointer save
(10) ADDRESS 4 TCTRNTA Translate table address
(14) ADDRESS 4 TCL3PTSV Local 3270 poll terminal save
(18) ADDRESS 4 TCTSPRA Specific poll return address
(1C) ADDRESS 4 TCTWLA Active wait list address
(20) BITSTRING 1 TWASDCF Single drop control flag
(21) BITSTRING 1 (3) Reserved
(24) FULLWORD 4 TWATDRSV TCP dispatcher return save
(28) FULLWORD 4 TWACTIOE 2260 TIOA end save area
(2C) FULLWORD 4 TWACFWD1 Full word work area
(30) FULLWORD 4 TWACFWD2 Full word work area
(34) FULLWORD 4 TWACFWD3 Full word work area
(38) FULLWORD 4 TWACFWD4 Full word work area
(3C) BITSTRING 1 TWATEPF Timer completion
(3C) .1.. ....   TWATEPI "X'40'" Timer posted flag
(3C) ..1. ....   TWALSEI "X'20'" Local line scan indicator
(3D) BITSTRING 1 TWACFLAG Compatibility control flags
(3D) .... ...1   TWACDSCI "X'01'" DAT scan complete indicator
(3D) .... ..1.   TWACWSI "X'02'" Wrapped screen indicator
(3D) .... .1..   TWACSLI "X'04'" Shortline indicator
(3D) .... 1...   TWACSSFI "X'08'" SMI character found indicator
(3D) ...1 ....   TWACWSIT "X'10'" Wrap screen pseudo ind tab
(3E) HALFWORD 2 TWAC2260 Number of chars/line for 2260
(40) HALFWORD 2 TWAC3270 Number of chars/line for 3270
(42) HALFWORD 2 TWAFDLBA First display LN begin address
(44) HALFWORD 2 TWALDLBA Last display line begin address
(46) HALFWORD 2 TWAIBDL Increment between display lines
(48) HALFWORD 2 TWACNBEO Number if bytes for erase
(48) .... 11..   TWACAL "*-TWAC2260" Compatible area length
(4A) HALFWORD 2 TWACBAP Current buffer address position
(4C) HALFWORD 2 TWACLSA Current line start address
(4E) CHARACTER 256 TCTTT Input data length T & T table
(50) DBL WORD 8 RCLOCK Time of day clock
(58) FULLWORD 4 OCLOCK Word to save internal clock
(5C) FULLWORD 4 MSGNTNM (0)
(5C) ADDRESS 1
(5D) ADDRESS 1   GENERATE LENGTH
(5E) BITSTRING 1   OPTION BYTE
(5F) BITSTRING 1   RESERVED
(60) CHARACTER 10
(6A) CHARACTER 8 NETNAME2
(72) CHARACTER 3
(75) CHARACTER 35 JOBNAME2
(75) 1..1 1...   MSGE0001 "*"
(75) 1..1 1...   MSGNTNME "*" 
 ---------------------------------------------------------------------
(150) FULLWORD 4 TWAXRPL (0)
(150) BITSTRING 1   V*1 request byte
(151) BITSTRING 1   V*2 request byte modifier
(152) BITSTRING 1   V*3 MVS System indicator
(153) BITSTRING 1   V*4 response byte
(154) BITSTRING 1   V*5 XRF
(155) BITSTRING 1   V*6 TAKEOVR
(156) CHARACTER 1   V*7 SURVEILLANCE
(157) CHARACTER 1   V*8 signon status
(158) CHARACTER 8 (0) generic applid
(158) CHARACTER 8 (0) 'time' xx ECB posted
(158) CHARACTER 8 (0) program name
(158) CHARACTER 4   - domain id
(15C) CHARACTER 4   - reserved
(160) CHARACTER 8 (0) specific applid
(160) CHARACTER 4   - error id
(164) FULLWORD 4   - global data address
(168) FULLWORD 4 (0) ADI
(168) CHARACTER 4   - MVS id.
(16C) FULLWORD 4 (0) JESDI
(16C) CHARACTER 4   - JES subsystem id.
(170) FULLWORD 4 (0) PDI
(170) FULLWORD 4   Lower clock difference
(174) FULLWORD 4   Upper clock difference
(178) CHARACTER 8   XCF Sysplex name
(180) CHARACTER 8   MVS System name
(188) CHARACTER 4   MVS instance token
(188) 0 TCTWALEN "*-TCTWA" TCP'S TWA Length
(0) FULLWORD 4 TCRAFDA First data record address
(0) .... ..1.   TCRAAREC "X'02'" Re-entered ind. constant