Common COMKCBD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comkcbd +++|          CTEXT  COMKCBD - COMMUNICATION BLOCK DEFINITIONS.
00002  M00S00002.comkcbd +++|          SPACE  4,10
00003  M00S00003.comkcbd +++|          BASE   DECIMAL
Line S00004 Modification History
M01 (Removed by) 281l803 
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1980.
Line S00001 Modification History
M01 (Added by) 281l803 
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M00S00005.comkcbd +++| CBD      SPACE  4,10
00007  M00S00006.comkcbd +++|***       CBD - COMMUNICATION BLOCK DEFINITIONS.
00008  M00S00007.comkcbd +++|*         G. W. PROPP.  80/04/25.
00009  M00S00008.comkcbd +++| CBD      SPACE  4,75
00010  M00S00009.comkcbd +++|***       *COMKCBD* GIVES THE DEFINITIONS FOR *TAF* COMMUNICATION
00011  M00S00010.comkcbd +++|*         BLOCKS.  COMMUNICATION BLOCKS ARE USED TO PASS DATA
00012  M00S00011.comkcbd +++|*         FROM *TAF* TO TASKS.  THIS DECK REQUIRES *COMKFLD*.
00013  M00S00012.comkcbd +++|*
00014  M00S00013.comkcbd +++|*         COMMUNICATION BLOCK SYSTEM HEADER.
00015  M00S00014.comkcbd +++|*
00016  M00S00015.comkcbd +++|*         THE COMMUNICATION BLOCK SYSTEM HEADER IS USED BY
00017  M00S00016.comkcbd +++|*         *TAF* TO CONTROL PROCESSING RELATED TO A TRANSACTION.
00018  M00S00017.comkcbd +++|*
Line S00018 Modification History
M01 (Removed by) ns2211 
Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00018.ns2211  ---|*T  W1    12/  CP,1/I,1/R,1/M,1/A,1/C,1/L,24/  CBTS,18/ CBNC
Figure W1

0171829 CBNC CBTS30414243444546474859 CBTSLCAMRI CP




	

		 Line S00001 Modification History  
	

	

		 M01  (Added by)   ns2211      
	




Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00001.ns2211  +++|*T  W1    12/  CP,1/I,1/R,1/M,1/A,1/,1/L,24/  CBTS,18/ CBNC



 Figure W1




0171829 CBNC  CBTS30414243444546474859  CBTSLAMRI  CP






00021  M00S00019.comkcbd +++|*T, W2    18/     CBTO,3/RS,3/US,18/     CBTA,18/     CBFW



 Figure W2




0171829     CBFW     CBTA3035363839414259     CBTAUSRS     CBTO






00022  M00S00020.comkcbd +++|*T, W3    12/    1T,12/    2T,12/    3T,12/    4T,12/    5T



 Figure W3




01112232429    5T    4T    3T303536474859    3T    2T    1T






00023  M00S00021.comkcbd +++|*T, W4    1/A,1/B,1/C,9/CBMC,18/LWA,12/ ,18/FWA



 Figure W4




0171829FWA 30474856575859LWACBMCCBA






00024  M00S00022.comkcbd +++|*T, W5    42/       QD,3/  ,3/OT,12/    QI



 Figure W5




011121415171829    QIOT         QD3059       QD






00025  M00S00023.comkcbd +++|*T, CBCR  6/N,6/P,1/A,1/R,1/I,15/F,8/RFLG,4/U,18/E



 Figure CBCR




01718212229EURFLG304445464748535459FIRAPN






00026  M00S00024.comkcbd +++|*T, W7    6/NSUBCP,18/NEXT,6/TYPE,6/SUBCP,6/SHIFT,18/EVENT



 Figure W7




01718232429EVENTSHIFTSUBCP303536535459TYPENEXTNSUBCP






00027  M00S00025.comkcbd +++|*T, W8    6/ ,36/TIME,18/RETURN



 Figure W8




0171829RETURNTIME30535459TIME 






00028  M00S00026.comkcbd +++|*T, W9    1/C,1/S,40/  ,19/ CBTO



 Figure W9




0181929 CBTO  305859  S






00029  M00S00027.comkcbd +++|*T, W10   18/REC,6/ ,18/FUN,18/ CBFW



 Figure W10




0171829 CBFWFUN303536414259FUN REC






00030  M00S00028.comkcbd +++|*
00031  M00S00029.comkcbd +++|*         WORD 1.
00032  M00S00030.comkcbd +++|*            CP    - CPU PRIORITY.
00033  M00S00031.comkcbd +++|*            I     - 1, IF INITIAL LOAD REQUESTED.



	

		 Line S00032 Modification History  
	

	

		 M01  (Removed by)   ns2145      
	




Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00032.ns2145  ---|*            R     - UNUSED.



	

		 Line S00001 Modification History  
	

	

		 M01  (Added by)   ns2145      
	




Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.ns2145  +++|*            R     - 1, IF RECOVERY FOR *CDCS* AFTER TERMINAL FAILURE.
00036  M00S00033.comkcbd +++|*            M     - 1, IF MESSAGE SENT TO TERMINAL.
00037  M00S00034.comkcbd +++|*            A     - 1, IF TRANSACTION CHAIN ABORTED.



	

		 Line S00035 Modification History  
	

	

		 M01  (Removed by)   ns2211      
	




Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00035.ns2211  ---|*            C     - 1, IF TASK STARTED BY A *CALLRTN*.
00039  M00S00036.comkcbd +++|*            L     - 1, IF TERMINAL TO REMAIND LOCK AFTER CEASE.
00040  M00S00037.comkcbd +++|*            CBTS  - TRANSACTION SEQUENCE NUMBER.
00041  M00S00038.comkcbd +++|*            CBNC  - FWA OF NEXT COMMUNICATION BLOCK.
00042  M00S00039.comkcbd +++|*
00043  M00S00040.comkcbd +++|*
00044  M00S00041.comkcbd +++|*         WORD 2.
00045  M00S00042.comkcbd +++|*            CBTO - TERMINAL ORDINAL.
00046  M00S00043.comkcbd +++|*            RS   - TERMINAL *TAF* DATA MANAGER READ SECURITY.
00047  M00S00044.comkcbd +++|*            WS   - TERMINAL *TAF* DATA MANAGER UPDATE SECURITY.
00048  M00S00045.comkcbd +++|*            CBTA - FWA OF TERMINAL IN TERMINAL STATUS TABLE.
00049  M00S00046.comkcbd +++|*            CBFW - COMMUNICATION BLOCK FWA.
00050  M00S00047.comkcbd +++|*
00051  M00S00048.comkcbd +++|*         WORD 3.
00052  M00S00049.comkcbd +++|*            1T   - NEXT TASK SCHEDULE.
00053  M00S00050.comkcbd +++|*            2T   - SECOND TASK IN CHAIN TO SCHEDULE.
00054  M00S00051.comkcbd +++|*            3T   - THIRD TASK IN CHAIN TO SCHEDULE.
00055  M00S00052.comkcbd +++|*            4T   - FOURTH TASK IN CHAIN TO SCHEDULE.
00056  M00S00053.comkcbd +++|*            5T   - FIFTH TASK IN CHAIN TO SCHEDULE.
00057  M00S00054.comkcbd +++|*
00058  M00S00055.comkcbd +++|*         WORD 4.
00059  M00S00056.comkcbd +++|*            A    - 1, IF VALID *DSDUMP* REQUEST.
00060  M00S00057.comkcbd +++|*            B    - 1, IF DUMP EXCHANGE PACKAGE.
00061  M00S00058.comkcbd +++|*            C    - 1, IF DUMP DATA BASE BUFFERS.
00062  M00S00059.comkcbd +++|*            CBMC - NUMBER OF COMMUNICATION BLOCK FOR TRANSACTION.
00063  M00S00060.comkcbd +++|*            LWA  - LAST WORD ADDRESS OF TASK DUMP.
00064  M00S00061.comkcbd +++|*            FWA  - FIRST WORD ADDRESS OF TASK DUMP.
00065  M00S00062.comkcbd +++|*
00066  M00S00063.comkcbd +++|*         WORD 5.
00067  M00S00064.comkcbd +++|*            QD   - QUEUE DESIGNATOR (SEE *K.DSDUMP*).
00068  M00S00065.comkcbd +++|*            OT   - ORIGIN TYPE VALUE OF QUEUE DESTINATION.
00069  M00S00066.comkcbd +++|*            QI   - QUEUE DESTINATION INDICATOR.
00070  M00S00067.comkcbd +++|*
00071  M00S00068.comkcbd +++|*         WORD 6 (CBCR).
00072  M00S00069.comkcbd +++|*            N    - NEST LEVEL OF CURRENT TASK IF CALLED BY *CALLRTN*.
00073  M00S00070.comkcbd +++|*            P    - SUBCONTROL POINT NUMBER OF LAST *CALLRTN* TASK.
00074  M00S00071.comkcbd +++|*            A    - 1, IF *CALLRTN* TASK ABORTED.
00075  M00S00072.comkcbd +++|*            R    - 1, IF *CALLRTN* TASK.
00076  M00S00073.comkcbd +++|*            I    - 1, IF INITIAL TRANSFER TO C.B.
00077  M00S00074.comkcbd +++|*            F    - RESERVED.
00078  M00S00075.comkcbd +++|*            RFLG - 1/L,1/O,1/S,1/C,1/D,1/M,1/T,1/B.
00079  M00S00076.comkcbd +++|*            L    - 1, IF LOAD COMPLETE ON SCHEDULING TRANSACTION.
00080  M00S00077.comkcbd +++|*            O    - 1, IF SYSTEM ORIGIN TRANSACTION.
00081  M00S00078.comkcbd +++|*            S    - 1, IF TRANSACTION RESTARTED.
00082  M00S00079.comkcbd +++|*            C    - 1, IF RECOVERABLE INPUT LOGGED.
00083  M00S00080.comkcbd +++|*            D    - 1, IF *CDCS2* ALLOWED.
00084  M00S00081.comkcbd +++|*            M    - 1, IF *CRM* ALLOWED.
00085  M00S00082.comkcbd +++|*            T    - 1, IF RECOVERABLE TRANSACTION.
00086  M00S00083.comkcbd +++|*            B    - 1, IF *BTRAN* TRANSACTION.
00087  M00S00084.comkcbd +++|*            U    - USAGE BY DATA MANAGER.
00088  M00S00085.comkcbd +++|*                2 - *TOTAL* DATA MANAGER REQUESTS ALLOWED.
00089  M00S00086.comkcbd +++|*                4 - *AAM* FILE MANAGER REQUESTS ALLOWED.
00090  M00S00087.comkcbd +++|*                8 - *CDCS* CONNECTION INDICATOR.
00091  M00S00088.comkcbd +++|*            E    - ENTRY ADDRESS IN ROLLOUT TABLE.
00092  M00S00089.comkcbd +++|*
00093  M00S00090.comkcbd +++|*         WORD 7 - WORD 10.
00094  M00S00091.comkcbd +++|*         SEE TAF QUEUEING DESCRIPTIONS.
00095  M00S00092.comkcbd +++|*                (ONLY USED FOR QUEUEING DURING INPUT LOGGING)
00096  M00S00093.comkcbd +++|
00097  M00S00094.comkcbd +++|*         DEFINITION OF BITS IN WORD *CBCR* INDICATING
00098  M00S00095.comkcbd +++|*         DATA MANAGER USAGE.
00099  M00S00096.comkcbd +++|
00100  M00S00097.comkcbd +++| TOTDM    EQU    19          *TOTAL* DATA MANAGER
00101  M00S00098.comkcbd +++| AAMDM    EQU    20          *AAM* FILE MANAGER
00102  M00S00099.comkcbd +++| CDDM     EQU    21          *CDCS* CONNECTION INDICATOR
00103  M00S00100.comkcbd +++|
00104  M00S00101.comkcbd +++|
00105  M00S00102.comkcbd +++|*         COMMUNICATION BLOCK SYSTEM HEADER FIELD DEFINITIONS.
00106  M00S00103.comkcbd +++|



	

		 Line S00002 Modification History  
	

	

		 M01  (Added by)   ns2145      
	




Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00002.ns2145  +++| CBRC     FIELD  0,46,46     1, IF RECOVERY FOR *CDCS* AFTER FAILURE
00108  M00S00104.comkcbd +++| CBSD     FIELD  0,45,45     1, IF TRANSACTION SEND
00109  M00S00105.comkcbd +++| CBAB     FIELD  0,44,44     1, IF TRANSACTION ABORT
00110  M00S00106.comkcbd +++| CBLK     FIELD  0,42,42     1, IF TERMINAL REMAIND LOCK
00111  M00S00107.comkcbd +++| CBTS     FIELD  0,41,18     TRANSACTION SEQUENCE NUMBER
00112  M00S00108.comkcbd +++| CBIN     FIELD  0,47,47     1, IF INITIAL LOAD
00113  M00S00109.comkcbd +++| CBNC     FIELD  0,17,0      NEXT COMMUNICATION BLOCK
00114  M00S00110.comkcbd +++| CBTO     FIELD  1,59,42     TERMINAL ORDINAL
00115  M00S00111.comkcbd +++| CBRS     FIELD  1,41,39     DATA MANAGER READ SECURITY
00116  M00S00112.comkcbd +++| CBUS     FIELD  1,38,36     DATA MANAGER UPDATE SECURITY
00117  M00S00113.comkcbd +++| CBTA     FIELD  1,35,18     TERMINAL ADDRESS
00118  M00S00114.comkcbd +++| CBFW     FIELD  1,17,0      COMMUNICATION BLOCK FWA
00119  M00S00115.comkcbd +++| CBTL     FIELD  2,59,0      TASK LIST
00120  M00S00116.comkcbd +++| CBMC     FIELD  3,56,48     NUMBER OF COMMUNICATION BLOCKS
00121  M00S00117.comkcbd +++| CBNL     FIELD  5,59,54     NEST LEVEL OF *CALLRTN* TASK
00122  M00S00118.comkcbd +++| CBCP     FIELD  5,53,48     SUBCP NUMBER OF LAST *CALLRTN* TASK
00123  M00S00119.comkcbd +++| CBRA     FIELD  5,47,47     1, IF *CALLRTN* TASK ABORTED
00124  M00S00120.comkcbd +++| CBRF     FIELD  5,46,46     1, IF *CALLRTN* TASK
00125  M00S00121.comkcbd +++| CBIT     FIELD  5,45,45     1, IF INITIAL TRANSFER TO C.B.
00126  M00S00122.comkcbd +++| CBSC     FIELD  5,29,29     1, IF SCHEDULING COMPLETE
00127  M00S00123.comkcbd +++| CBSO     FIELD  5,28,28     1, IF SYSTEM ORIGIN TRANSACTION
00128  M00S00124.comkcbd +++| CBTR     FIELD  5,27,27     1, IF TRANSACTION RESTARTED
00129  M00S00125.comkcbd +++| CBLC     FIELD  5,26,26     1, IF RECOVERABLE INPUT LOGGED
00130  M00S00126.comkcbd +++| CBCS     FIELD  5,25,25     1, IF *CDCS2* ALLOWED
00131  M00S00127.comkcbd +++| CBRM     FIELD  5,24,24     1, IF *CRM* ALLOWED
00132  M00S00128.comkcbd +++| CBRT     FIELD  5,23,23     1, IF RECOVERABLE TRANSACTION
00133  M00S00129.comkcbd +++| CBSB     FIELD  5,22,22     1, IF *BTRAN* TRANSACTION
00134  M00S00130.comkcbd +++| CBQ1     FIELD  6,59,0      QUEUE ENTRY WORD 1
00135  M00S00131.comkcbd +++| CBQ2     FIELD  7,59,0      QUEUE ENTRY WORD 2
00136  M00S00132.comkcbd +++| CBQ3     FIELD  8,59,0      RECOVERY PARAMETERS
00137  M00S00133.comkcbd +++| CBQ4     FIELD  9,59,0      RECOVERY PARAMETERS
00138  M00S00134.comkcbd +++|
00139  M00S00135.comkcbd +++|*         USER HEADER IS LOGICAL EXTENSION OF SYSTEM HEADER.
00140  M00S00136.comkcbd +++|
00141  M00S00137.comkcbd +++| CBWC     FIELD  11,11,0     WORD COUNT OF INPUT DATA
00142  M00S00138.comkcbd +++|
00143  M00S00139.comkcbd +++|**        COMMUNICATIONS BLOCK USER HEADER.
00144  M00S00140.comkcbd +++|*
00145  M00S00141.comkcbd +++|*T  W1    12/      DB,24/        UA,24/        SEQ



 Figure W1




0232429        SEQ        UA30474859        UA      DB






00146  M00S00142.comkcbd +++|*T, W2    42/ TN,1/S,1/P,1/B,1/C,1/I,1/M,12/WC



 Figure W2




0111213141516171829WCMICBPS TN3059 TN






00147  M00S00143.comkcbd +++|*
00148  M00S00144.comkcbd +++|*         WORD 1.
00149  M00S00145.comkcbd +++|*            DB   - DATA BASE TERMINAL IS VALIDATED TO USE.
00150  M00S00146.comkcbd +++|*            UA   - USER AREA.
00151  M00S00147.comkcbd +++|*            SEQ  - TRANSACTION SEQUENCE NUMBER.
00152  M00S00148.comkcbd +++|*
00153  M00S00149.comkcbd +++|*         WORD 2.
00154  M00S00150.comkcbd +++|*            TN   - TERMINAL NAME.
00155  M00S00151.comkcbd +++|*            S    - 1, IF SYSTEM ORIGIN TRANSACTION.
00156  M00S00152.comkcbd +++|*            P    - 1, IF PARITY ERROR OCCURED ON TERMINAL INPUT.
00157  M00S00153.comkcbd +++|*            B    - 1, IF BATCH INPUT.
00158  M00S00154.comkcbd +++|*            C    - 1, IF CDCS ABORTED.
00159  M00S00155.comkcbd +++|*            I    - 1, IF IDLE DOWN.
00160  M00S00156.comkcbd +++|*            M    - 1, IF MULTIPLE INPUT.
00161  M00S00157.comkcbd +++|*            WC   - WORD COUNT OF INPUT DATA.
00162  M00S00158.comkcbd +++|
00163  M00S00159.comkcbd +++|*         DEFINITIONS OF COMMUNICATION BLOCK LENGTHS.
00164  M00S00160.comkcbd +++|
00165  M00S00161.comkcbd +++| CMBHL    EQU    10          SYSTEM HEADER LENGTH
00166  M00S00162.comkcbd +++| CBCR     EQU    5           WORD SIX OF SYSTEM HEADER
00167  M00S00163.comkcbd +++| CMBRL    EQU    2           USER HEADER LENGTH
00168  M00S00164.comkcbd +++| CBDL     EQU    57          DATA INPUT LENGTH
00169  M00S00165.comkcbd +++| CBUL     EQU    9           USER AREA LENGTH
00170  M00S00166.comkcbd +++|          ERRNG  CBUL-4      IF *CBUL* NOT LARGE ENOUGH FOR RECOVERY
00171  M00S00167.comkcbd +++| CBTL     EQU    1           TIME/DATE LENGTH
00172  M00S00168.comkcbd +++| CMBL     EQU    CMBHL+CMBRL+CBDL+CBUL+CBTL  TOTAL LENGTH
00173  M00S00169.comkcbd +++| CBDCB    EQU    CBDL*60     LENGTH OF DATA INPUT IN BITS
00174  M00S00170.comkcbd +++| MAXINB   EQU    CBDCB*NCBC  MAXIMUM INPUT FOR TERMINAL IN BITS
00175  M00S00171.comkcbd +++| CBCH     EQU    CBDL-12-3   PARAMETER BLOCK HEADER (FOR *CDCS* ONLY)
00176  M00S00172.comkcbd +++|
00177  M00S00173.comkcbd +++|*         DEFINITIONS FOR TASK COMMUNICATION BLOCK.
00178  M00S00174.comkcbd +++|
00179  M00S00175.comkcbd +++|          LOC    111B
00180  M00S00176.comkcbd +++| SUAC     BSS    0           FWA OF USER AREA
00181  M00S00177.comkcbd +++| TRSQ     BSS    1           SEQUENCE NUMBER
00182  M00S00178.comkcbd +++| TNAM     BSS    1           TERMINAL/USER NAME
00183  M00S00179.comkcbd +++| TMSW     BSS    CBDL        DATA INPUT MESSAGE
00184  M00S00180.comkcbd +++| TDUA     BSS    CBUL        USER DEFINED AREA
00185  M00S00181.comkcbd +++| TIMD     BSS    CBTL        PACKED TIME/DATE
00186  M00S00182.comkcbd +++|          LOC    *O
00187  M00S00183.comkcbd +++|
00188  M00S00184.comkcbd +++|
00189  M00S00185.comkcbd +++|*         COMMUNICATION BLOCK USER HEADER DEFINITIONS.
00190  M00S00186.comkcbd +++|
00191  M00S00187.comkcbd +++| CBSY     FIELD  TNAM,17,17  1, IF SYSTEM ORIGIN TRANSACTION
00192  M00S00188.comkcbd +++| CBPR     FIELD  TNAM,16,16  1, IF PARITY ERROR
00193  M00S00189.comkcbd +++| CBBT     FIELD  TNAM,15,15  1, IF BATCH TRANSACTION
00194  M00S00190.comkcbd +++| CBCD     FIELD  TNAM,14,14  1, IF CDSC ABORT
00195  M00S00191.comkcbd +++| CBID     FIELD  TNAM,13,13  1, IF IDLE DOWN
00196  M00S00192.comkcbd +++|
00197  M00S00193.comkcbd +++|          BASE   *
00198  M00S00194.comkcbd +++|          ENDX