COMXFCQ 
COMMON
  
#     COMXFCQ - FILE AND CARTRIDGE TABLE QUEUE.                       # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXFCQ #
  
# 
***   COMXFCQ - FILE AND CARTRIDGE TABLE QUEUE. 
* 
*     THE FILE AND CARTRDIGE TABLE QUEUE (FCTQ) CONTAINS AN *FCT* 
*     ENTRY WITH A TWO WORD HEADER ATTACHED TO THE FRONT OF IT. 
*     COMXFCQ CONTAINS THE STRUCTURE OF THE *FCTQ* HEADER.  THE 
*     *FCTQ* IS USED TO HOLD A COPY OF AN *FCT* ENTRY WHILE IT IS 
*     BEING REFERENCED (AND MODIFIED) BY ONE OR MORE PROCESSORS.
*     THIS ENSURES THAT TWO PROCESSES ARE NOT INDEPENDENTLY MODIFYING 
*     SEPARATE COPIES OF THE SAME *FCT* ENTRY.
# 
  
  
      DEF FCTQHL     #2#;            # LENGTH OF THE *FCTQ* HEADER #
  
      COMMON XFCQCOM; 
  
        BEGIN  # XFCQCOM #
  
        BASED 
        ARRAY FCTQ [0:0] S(FCTQHL); 
          BEGIN 
          ITEM FCTQFAMILY C(00,00,07);  # FAMILY NAME # 
          ITEM FCTQLINK1  U(00,42,18);  # QUEUE LINK #
          ITEM FCTQSUBF   U(01,00,06);  # SUBFAMILY ID #
          ITEM FCTQSMID   U(01,06,06);  # SM NUMBER # 
          ITEM FCTQFCTORD U(01,12,12);  # *FCT* ORDINAL # 
          ITEM FCTQACTCNT U(01,24,06);  # ACTIVE REQUEST COUNT #
          END 
  
        END  # XFCQCOM #
  
      END  # COMXFCQ #
  
                                               CONTROL LIST;
