COMKCBD 
COMMON
          CTEXT  COMKCBD - COMMUNICATION BLOCK DEFINITIONS. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 CBD      SPACE  4,10 
***       CBD - COMMUNICATION BLOCK DEFINITIONS.
*         G. W. PROPP.  80/04/25. 
 CBD      SPACE  4,75 
***       *COMKCBD* GIVES THE DEFINITIONS FOR *TAF* COMMUNICATION 
*         BLOCKS.  COMMUNICATION BLOCKS ARE USED TO PASS DATA 
*         FROM *TAF* TO TASKS.  THIS DECK REQUIRES *COMKFLD*. 
* 
*         COMMUNICATION BLOCK SYSTEM HEADER.
* 
*         THE COMMUNICATION BLOCK SYSTEM HEADER IS USED BY
*         *TAF* TO CONTROL PROCESSING RELATED TO A TRANSACTION. 
* 
*T  W1    12/  CP,1/I,1/R,1/M,1/A,1/,1/L,24/  CBTS,18/ CBNC 
*T, W2    18/     CBTO,3/RS,3/US,18/     CBTA,18/     CBFW
*T, W3    12/    1T,12/    2T,12/    3T,12/    4T,12/    5T 
*T, W4    1/A,1/B,1/C,9/CBMC,18/LWA,12/ ,18/FWA 
*T, W5    42/       QD,3/  ,3/OT,12/    QI
*T, CBCR  6/N,6/P,1/A,1/R,1/I,15/F,8/RFLG,4/U,18/E
*T, W7    6/NSUBCP,18/NEXT,6/TYPE,6/SUBCP,6/SHIFT,18/EVENT
*T, W8    6/ ,36/TIME,18/RETURN 
*T, W9    1/C,1/S,40/  ,19/ CBTO
*T, W10   18/REC,6/ ,18/FUN,18/ CBFW
* 
*         WORD 1. 
*            CP    - CPU PRIORITY.
*            I     - 1, IF INITIAL LOAD REQUESTED.
*            R     - 1, IF RECOVERY FOR *CDCS* AFTER TERMINAL FAILURE.
*            M     - 1, IF MESSAGE SENT TO TERMINAL.
*            A     - 1, IF TRANSACTION CHAIN ABORTED. 
*            L     - 1, IF TERMINAL TO REMAIND LOCK AFTER CEASE.
*            CBTS  - TRANSACTION SEQUENCE NUMBER. 
*            CBNC  - FWA OF NEXT COMMUNICATION BLOCK. 
* 
* 
*         WORD 2. 
*            CBTO - TERMINAL ORDINAL. 
*            RS   - TERMINAL *TAF* DATA MANAGER READ SECURITY.
*            WS   - TERMINAL *TAF* DATA MANAGER UPDATE SECURITY.
*            CBTA - FWA OF TERMINAL IN TERMINAL STATUS TABLE. 
*            CBFW - COMMUNICATION BLOCK FWA.
* 
*         WORD 3. 
*            1T   - NEXT TASK SCHEDULE. 
*            2T   - SECOND TASK IN CHAIN TO SCHEDULE. 
*            3T   - THIRD TASK IN CHAIN TO SCHEDULE.
*            4T   - FOURTH TASK IN CHAIN TO SCHEDULE. 
*            5T   - FIFTH TASK IN CHAIN TO SCHEDULE.
* 
*         WORD 4. 
*            A    - 1, IF VALID *DSDUMP* REQUEST. 
*            B    - 1, IF DUMP EXCHANGE PACKAGE.
*            C    - 1, IF DUMP DATA BASE BUFFERS. 
*            CBMC - NUMBER OF COMMUNICATION BLOCK FOR TRANSACTION.
*            LWA  - LAST WORD ADDRESS OF TASK DUMP. 
*            FWA  - FIRST WORD ADDRESS OF TASK DUMP.
* 
*         WORD 5. 
*            QD   - QUEUE DESIGNATOR (SEE *K.DSDUMP*).
*            OT   - ORIGIN TYPE VALUE OF QUEUE DESTINATION. 
*            QI   - QUEUE DESTINATION INDICATOR.
* 
*         WORD 6 (CBCR).
*            N    - NEST LEVEL OF CURRENT TASK IF CALLED BY *CALLRTN*.
*            P    - SUBCONTROL POINT NUMBER OF LAST *CALLRTN* TASK. 
*            A    - 1, IF *CALLRTN* TASK ABORTED. 
*            R    - 1, IF *CALLRTN* TASK. 
*            I    - 1, IF INITIAL TRANSFER TO C.B.
*            F    - RESERVED. 
*            RFLG - 1/L,1/O,1/S,1/C,1/D,1/M,1/T,1/B.
*            L    - 1, IF LOAD COMPLETE ON SCHEDULING TRANSACTION.
*            O    - 1, IF SYSTEM ORIGIN TRANSACTION.
*            S    - 1, IF TRANSACTION RESTARTED.
*            C    - 1, IF RECOVERABLE INPUT LOGGED. 
*            D    - 1, IF *CDCS2* ALLOWED.
*            M    - 1, IF *CRM* ALLOWED.
*            T    - 1, IF RECOVERABLE TRANSACTION.
*            B    - 1, IF *BTRAN* TRANSACTION.
*            U    - USAGE BY DATA MANAGER.
*                2 - *TOTAL* DATA MANAGER REQUESTS ALLOWED. 
*                4 - *AAM* FILE MANAGER REQUESTS ALLOWED. 
*                8 - *CDCS* CONNECTION INDICATOR. 
*            E    - ENTRY ADDRESS IN ROLLOUT TABLE. 
* 
*         WORD 7 - WORD 10. 
*         SEE TAF QUEUEING DESCRIPTIONS.
*                (ONLY USED FOR QUEUEING DURING INPUT LOGGING)
  
*         DEFINITION OF BITS IN WORD *CBCR* INDICATING
*         DATA MANAGER USAGE. 
  
 TOTDM    EQU    19          *TOTAL* DATA MANAGER 
 AAMDM    EQU    20          *AAM* FILE MANAGER 
 CDDM     EQU    21          *CDCS* CONNECTION INDICATOR
  
  
*         COMMUNICATION BLOCK SYSTEM HEADER FIELD DEFINITIONS.
  
 CBRC     FIELD  0,46,46     1, IF RECOVERY FOR *CDCS* AFTER FAILURE
 CBSD     FIELD  0,45,45     1, IF TRANSACTION SEND 
 CBAB     FIELD  0,44,44     1, IF TRANSACTION ABORT
 CBLK     FIELD  0,42,42     1, IF TERMINAL REMAIND LOCK
 CBTS     FIELD  0,41,18     TRANSACTION SEQUENCE NUMBER
 CBIN     FIELD  0,47,47     1, IF INITIAL LOAD 
 CBNC     FIELD  0,17,0      NEXT COMMUNICATION BLOCK 
 CBTO     FIELD  1,59,42     TERMINAL ORDINAL 
 CBRS     FIELD  1,41,39     DATA MANAGER READ SECURITY 
 CBUS     FIELD  1,38,36     DATA MANAGER UPDATE SECURITY 
 CBTA     FIELD  1,35,18     TERMINAL ADDRESS 
 CBFW     FIELD  1,17,0      COMMUNICATION BLOCK FWA
 CBTL     FIELD  2,59,0      TASK LIST
 CBMC     FIELD  3,56,48     NUMBER OF COMMUNICATION BLOCKS 
 CBNL     FIELD  5,59,54     NEST LEVEL OF *CALLRTN* TASK 
 CBCP     FIELD  5,53,48     SUBCP NUMBER OF LAST *CALLRTN* TASK
 CBRA     FIELD  5,47,47     1, IF *CALLRTN* TASK ABORTED 
 CBRF     FIELD  5,46,46     1, IF *CALLRTN* TASK 
 CBIT     FIELD  5,45,45     1, IF INITIAL TRANSFER TO C.B. 
 CBSC     FIELD  5,29,29     1, IF SCHEDULING COMPLETE
 CBSO     FIELD  5,28,28     1, IF SYSTEM ORIGIN TRANSACTION
 CBTR     FIELD  5,27,27     1, IF TRANSACTION RESTARTED
 CBLC     FIELD  5,26,26     1, IF RECOVERABLE INPUT LOGGED 
 CBCS     FIELD  5,25,25     1, IF *CDCS2* ALLOWED
 CBRM     FIELD  5,24,24     1, IF *CRM* ALLOWED
 CBRT     FIELD  5,23,23     1, IF RECOVERABLE TRANSACTION
 CBSB     FIELD  5,22,22     1, IF *BTRAN* TRANSACTION
 CBQ1     FIELD  6,59,0      QUEUE ENTRY WORD 1 
 CBQ2     FIELD  7,59,0      QUEUE ENTRY WORD 2 
 CBQ3     FIELD  8,59,0      RECOVERY PARAMETERS
 CBQ4     FIELD  9,59,0      RECOVERY PARAMETERS
  
*         USER HEADER IS LOGICAL EXTENSION OF SYSTEM HEADER.
  
 CBWC     FIELD  11,11,0     WORD COUNT OF INPUT DATA 
  
**        COMMUNICATIONS BLOCK USER HEADER. 
* 
*T  W1    12/      DB,24/        UA,24/        SEQ
*T, W2    42/ TN,1/S,1/P,1/B,1/C,1/I,1/M,12/WC
* 
*         WORD 1. 
*            DB   - DATA BASE TERMINAL IS VALIDATED TO USE. 
*            UA   - USER AREA.
*            SEQ  - TRANSACTION SEQUENCE NUMBER.
* 
*         WORD 2. 
*            TN   - TERMINAL NAME.
*            S    - 1, IF SYSTEM ORIGIN TRANSACTION.
*            P    - 1, IF PARITY ERROR OCCURED ON TERMINAL INPUT. 
*            B    - 1, IF BATCH INPUT.
*            C    - 1, IF CDCS ABORTED. 
*            I    - 1, IF IDLE DOWN.
*            M    - 1, IF MULTIPLE INPUT. 
*            WC   - WORD COUNT OF INPUT DATA. 
  
*         DEFINITIONS OF COMMUNICATION BLOCK LENGTHS. 
  
 CMBHL    EQU    10          SYSTEM HEADER LENGTH 
 CBCR     EQU    5           WORD SIX OF SYSTEM HEADER
 CMBRL    EQU    2           USER HEADER LENGTH 
 CBDL     EQU    57          DATA INPUT LENGTH
 CBUL     EQU    9           USER AREA LENGTH 
          ERRNG  CBUL-4      IF *CBUL* NOT LARGE ENOUGH FOR RECOVERY
 CBTL     EQU    1           TIME/DATE LENGTH 
 CMBL     EQU    CMBHL+CMBRL+CBDL+CBUL+CBTL  TOTAL LENGTH 
 CBDCB    EQU    CBDL*60     LENGTH OF DATA INPUT IN BITS 
 MAXINB   EQU    CBDCB*NCBC  MAXIMUM INPUT FOR TERMINAL IN BITS 
 CBCH     EQU    CBDL-12-3   PARAMETER BLOCK HEADER (FOR *CDCS* ONLY) 
  
*         DEFINITIONS FOR TASK COMMUNICATION BLOCK. 
  
          LOC    111B 
 SUAC     BSS    0           FWA OF USER AREA 
 TRSQ     BSS    1           SEQUENCE NUMBER
 TNAM     BSS    1           TERMINAL/USER NAME 
 TMSW     BSS    CBDL        DATA INPUT MESSAGE 
 TDUA     BSS    CBUL        USER DEFINED AREA
 TIMD     BSS    CBTL        PACKED TIME/DATE 
          LOC    *O 
  
  
*         COMMUNICATION BLOCK USER HEADER DEFINITIONS.
  
 CBSY     FIELD  TNAM,17,17  1, IF SYSTEM ORIGIN TRANSACTION
 CBPR     FIELD  TNAM,16,16  1, IF PARITY ERROR 
 CBBT     FIELD  TNAM,15,15  1, IF BATCH TRANSACTION
 CBCD     FIELD  TNAM,14,14  1, IF CDSC ABORT 
 CBID     FIELD  TNAM,13,13  1, IF IDLE DOWN
  
          BASE   *
          ENDX
