*COMDECK 3270TYPB 
  
_ 
               * *  3 2 7 0 T I P  * *
  
                COUNTERS AND TYPE OF ERROR-COUNTING TO BE USED IN 
                THE TCB AND THE CCB FOR THE 3270 TIP. 
? 
  
  T3ERCTS = PACKED RECORD 
            CASE T3INTG : INTEGER OF
              1: (T3INT    : INTEGER);      _FOR REF TO WHOLE WORD? 
              2: (T3ERCNT  : B05BITS;       _CURRENT-ERROR COUNTER? 
                  T3ERTYPE : B03BITS;       _CURR TYPE ERROR COUNTING?
                  T3TERCNT : B08BITS);      _TOTAL NR ERRORS MIX-TYPE?
              3: (T3ERCLR  : INTEGER);      _FOR CLEARING ERROR-CNTRS?
            END;
  
_ 
                TRANSLATE-TABLE AND POINTER TO A TRANSLATE-TABLE
? 
  
  T3XLTBLE  = PACKED ARRAY [0..255] OF CHAR;
  T3XLTPTR  = 'T3XLTBLE;
  
_ 
                THE CLUSTER CONTROL BLOCK (CCB) DEFINES THE CLUSTER 
                DEPENDENT INFORMATION FOR THE 3270 CLUSTER. THE CCB 
                USES A 16-WORD BUFFER AND IS ONLY THERE WHEN TCB(S) 
                ARE CONFIGURED FOR A PARTICULAR CLUSTER.
? 
  
  BXCCBLK = PACKED RECORD 
  
            BXPOLSEL   : ARRAY [1..9] 
                          OF INTEGER;       _POLL/SELECT MESSAGES?
            BXCURTCBP  : B0BUFPTR;          _PTR CURRENT ACTIVE TCB?
            BXRET1ADDR : INTEGER;           _SUBROUTINE SAVE ADDRESS? 
            BXTIMER    : INTEGER;           _SLOW/ERROR POLL TIMER? 
            BXDWNLAST  : B04BITS;           _LAST DOWN REASON CLUSTER?
            BXSTATE    : B04BITS;           _CLUSTER STATE? 
            BXPSTYPE   : B02BITS;           _TYPE POLL/SELECT BUILD?
            BXRCVACK1  : BOOLEAN;           _RECEIVE ACK0/ACK1? 
            BXSNDACK1  : BOOLEAN;           _SEND ACK0/ACK1?
            BXGENPTIME : BOOLEAN;           _DO OR JUST DID GEN-POLL? 
            BXEXPCUDA  : BOOLEAN;           _FIRST ETB/ETX-MSG EXPECTED?
            BXFOUNDTCB : BOOLEAN;           _FOUND THE TCB FOR GENPOLL? 
            BXSPARE    : B01BIT;            _SPARE                     ?
            BXCOUNT    : T3ERCTS;           _CLUSTER (ERROR)COUNTERS? 
            BXCCBPTR   : B0BUFPTR;          _PTR NEXT CCB IN LCB-CCB? 
            BXTCBPTR   : B0BUFPTR;          _PTR FIRST TCB IN CCB-TCB?
  
          END;
  
  
