Common COMXFCQ

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comxfcq +++|
00002  M00S00002.comxfcq +++|#     COMXFCQ - FILE AND CARTRIDGE TABLE QUEUE.                       #
00003  M00S00003.comxfcq +++|                                               CONTROL NOLIST;
00004  M00S00004.comxfcq +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.comxfcq +++|                                               CONTROL LIST;
00006  M00S00006.comxfcq +++|                                               CONTROL FI;
00007  M00S00007.comxfcq +++|      BEGIN  # COMXFCQ #
00008  M00S00008.comxfcq +++|
00009  M00S00009.comxfcq +++|#
00010  M00S00010.comxfcq +++|***   COMXFCQ - FILE AND CARTRIDGE TABLE QUEUE.
00011  M00S00011.comxfcq +++|*
00012  M00S00012.comxfcq +++|*     THE FILE AND CARTRDIGE TABLE QUEUE (FCTQ) CONTAINS AN *FCT*
00013  M00S00013.comxfcq +++|*     ENTRY WITH A TWO WORD HEADER ATTACHED TO THE FRONT OF IT.
00014  M00S00014.comxfcq +++|*     COMXFCQ CONTAINS THE STRUCTURE OF THE *FCTQ* HEADER.  THE
00015  M00S00015.comxfcq +++|*     *FCTQ* IS USED TO HOLD A COPY OF AN *FCT* ENTRY WHILE IT IS
00016  M00S00016.comxfcq +++|*     BEING REFERENCED (AND MODIFIED) BY ONE OR MORE PROCESSORS.
00017  M00S00017.comxfcq +++|*     THIS ENSURES THAT TWO PROCESSES ARE NOT INDEPENDENTLY MODIFYING
00018  M00S00018.comxfcq +++|*     SEPARATE COPIES OF THE SAME *FCT* ENTRY.
00019  M00S00019.comxfcq +++|#
00020  M00S00020.comxfcq +++|
00021  M00S00021.comxfcq +++|
00022  M00S00022.comxfcq +++|      DEF FCTQHL     #2#;            # LENGTH OF THE *FCTQ* HEADER #
00023  M00S00023.comxfcq +++|
00024  M00S00024.comxfcq +++|      COMMON XFCQCOM;
00025  M00S00025.comxfcq +++|
00026  M00S00026.comxfcq +++|        BEGIN  # XFCQCOM #
00027  M00S00027.comxfcq +++|
00028  M00S00028.comxfcq +++|        BASED
00029  M00S00029.comxfcq +++|        ARRAY FCTQ [0:0] S(FCTQHL);
00030  M00S00030.comxfcq +++|          BEGIN
00031  M00S00031.comxfcq +++|          ITEM FCTQFAMILY C(00,00,07);  # FAMILY NAME #
00032  M00S00032.comxfcq +++|          ITEM FCTQLINK1  U(00,42,18);  # QUEUE LINK #
00033  M00S00033.comxfcq +++|          ITEM FCTQSUBF   U(01,00,06);  # SUBFAMILY ID #
00034  M00S00034.comxfcq +++|          ITEM FCTQSMID   U(01,06,06);  # SM NUMBER #
00035  M00S00035.comxfcq +++|          ITEM FCTQFCTORD U(01,12,12);  # *FCT* ORDINAL #
00036  M00S00036.comxfcq +++|          ITEM FCTQACTCNT U(01,24,06);  # ACTIVE REQUEST COUNT #
00037  M00S00037.comxfcq +++|          END
00038  M00S00038.comxfcq +++|
00039  M00S00039.comxfcq +++|        END  # XFCQCOM #
00040  M00S00040.comxfcq +++|
00041  M00S00041.comxfcq +++|      END  # COMXFCQ #
00042  M00S00042.comxfcq +++|
00043  M00S00043.comxfcq +++|                                               CONTROL LIST;