COMKTST 
COMMON
          CTEXT  COMKTST - TERMINAL STATUS TABLE DEFINITIONS. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TST      SPACE  4,10 
***       TST - TERMINAL STATUS TABLE.
*         R. G. PARKHOUSE.  80/04/15. 
 TST      SPACE  4,10 
***      *COMKTST* PROVIDES DEFINITIONS OF TABLES USED TO CONTROL 
*         USERS/TERMINALS OF *TAF*.  THIS DECK REQUIRES *COMKFLD*.
* 
*         TWO TABLES ARE USED TO CONTROL USERS/TERMINALS.  THE
*         TERMINAL FILE TABLE, *TTFT*, INDICATES THE
*         NETWORK FILE CONTAINING THE USER/TERMINAL NAME. 
*         THE TERMINAL STATUS TABLE, *TST*, CONTAINS STATUS 
*         INFORMATION FOR EACH USER/TERMINAL.  THERE ARE AS MANY
*         ENTRIES IN THE *TST* AS TRANSACTION TERMINAL DEFINITIONS
*         IN ALL THE NETWORK FILES USED BY *TAF*. 
* 
*         THE TERMINAL STATUS TABLE MAY BE LOGICALL DIVIDED INTO
*         SUBSECTIONS EACH REFLECTING THE RESPECTIVE NETWORK FILE.
*         THE TERMINAL FILE TABLE DEFINES THE LENGTH OF 
*         EACH SUBSECTION.
* 
*         *TTFT* - TERMINAL FILE TABLE. 
* 
*T  W1    12/ TFHO,30/ ,18/ TFTP
*T, W2    36/ ,3/TFID,21/TFTS 
* 
*         WORD 1. 
*                TFHO - HIGHEST *TST* ORDINAL FOR NETWORK FILE(N).
*                TFTP - FWA OF *TAF* RECOVERY FILE TABLE. 
*                       0, IF *IPTAR* EQUALS ZERO.
*         WORD 2. 
*                TFID - IDENTIFIER FOR NETWORK FILE.
*                TFTS - CURRENT TRANSACTION FTSUENCE NUMBER.
* 
*         IF THERE ARE LESS THAN 8 NETWORK FILES IN USE THE HEADER IS 
*         ZERO FILLED.  THE HEADER HAS NO USE FOR *TAFTS*.
  
*         *TTFT* - TERMINAL FILE TABLE DEFINITIONS. 
  
 TFHO     FIELD  0,59,48     HIGHEST *TST* ORDINAL FOR NETWORK FILE 
 TFTP     FIELD  0,17,0      POINTER TO *TTRF* TABLE FOR NETWORK FILE 
 TFID     FIELD  1,23,21     NETWORK FILE IDENTIFIER
 TFTS     FIELD  1,20,0      CURRENT TRANSACTION SEQUENCE NUMBER
  
 TTFTE    EQU    TFTSW+1     *TTFT* ENTRY LENGTH
 TTFTL    EQU    TTFTE*8     *TTFT* TABLE LENGTH
  
*         *TST* - TERMINAL STATUS TABLE.
* 
*T  W1    1/A,1/L,1/D,1/C,1/R,1/N,12/ACN,3/RS,3/US,12/DB,24/UA
*T, W2    42/  TN,1/M,1/I,1/F,1/P,1/C,1/ ,12/ NT
* 
*         WORD 1. 
*                A    - 1, IF USER ACTIVE.
*                L    - 1, IF TERMINAL LOGGED IN. 
*                D    - 1, IF TERMINAL DOWN.
*                O    - 1, IF TERMINAL ON/OFF.
*                C    - 1, IF CON/REQ SUPERVISORY MESSAGE RECEIVED. 
*                R    - 1, IF AUTOMATIC RECOVERY REQUIRED.
*                N    - 0, IF NON RECOVERABLE TRANSACTION RUN.
*                RS   - DATA BASE READ SECURITY LEVEL (UNUSED). 
*                US   - DATA BASE UPDATE SECURITY LEVEL (UNUSED). 
*                DB   - DATA BASE NAME. 
*                UA   - USER AREA.
*                ACN  - APPLICATION CONNECTION NUMBER.
* 
*         WORD 2. 
*                TN   - USER/TERMINAL NAME. 
*                M    - 1, IF MULTIPLE BLOCK INPUT. 
*                I    - 1, IF INPUT WANTED. 
*                F    - 1, IF LAST MESSAGE BLOCK SENT.
*                P    - 1, IF CONNECTION IS TO BE POSTPONED.
*                C    - 1, IF CDCS ABORT. 
*                NT   - NUMBER OF TRANSACTIONS. 
  
*         *TST* - TERMINAL STATUS TABLE DEFINITIONS.
  
 TSAU     FIELD  0,59,59     1, IF ACTIVE USER
 TSLI     FIELD  0,58,58     1, IF TERMINAL LOGGED IN 
 TSTD     FIELD  0,57,57     1, IF TERMINAL DOWN
 TSTO     FIELD  0,56,56     1, IF TERMINAL OFF 
 TSCR     FIELD  0,56,56     1, IF CON/REQ MESSAGE RECEIVED.
 TSAR     FIELD  0,55,55     1, IF AUTOMATIC RECOVERY REQUIRED
 TSNR     FIELD  0,54,54     0, IF NON RECOVERABLE TRANSACTION RUN
 TSCN     FIELD  0,53,42     APPLICATION CONNECTION NUMBER
 TSRS     FIELD  0,41,39     DATA BASE READ SECURITY LEVEL
 TSUS     FIELD  0,38,36     DATA BASE UPDATE SECURITY LEVEL
 TSDB     FIELD  0,35,24     DATA BASE NAME 
 TSUA     FIELD  0,23,0      USER AREA
 TSRB     FIELD  0,0,0       1, IF USER RECOVERY BIT
  
 TSTN     FIELD  1,59,18     TERMINAL NAME
 TSMB     FIELD  1,17,17     1, IF MULTIPLE BLOCK INPUT 
 TSIW     FIELD  1,16,16     1, IF INPUT WANTED 
 TSMS     FIELD  1,15,15     1, IF LAST MESSAGE BLOCK SENT
 TSCP     FIELD  1,14,14     1, IF CONNECTION IS TO BE POSTPONED
 TSCD     FIELD  1,13,13     1, IF CDCS ABORT 
 TSTC     FIELD  1,11,0      TRANSACTION COUNT
  
 TSTLLE   EQU    TSTCW+1     *TST* ENTRY LENGTH 
  
          BASE   *
          ENDX
