*COMDECK,COMQSEL
#     COMQSEL - SELECTION CLASS VARIABLES # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
**    COMQSEL - SELECTION CLASS VARIABLES.
# 
      BEGIN  # COMMON DECK COMQSEL #
  
      DEF MNFSI      #1#;          # SMALLEST FILE SIZE INDEX # 
      DEF MXFSI      #7#;          # LARGEST FILE SIZE INDEX #
      DEF MXSEL      #12#;         # MAXIMUM NUMBER OF CLASSES #
      DEF FSIUNIT    #O"100"#;     # NOS/BE FILE SIZE UNIT (PRUS) # 
  
      COMMON COMQSEL; 
  
      BEGIN  # COMMON BLOCK COMQSEL # 
  
      ARRAY SEL [0:MXSEL] P(2);    # SELECTION CLASS TABLE #
        BEGIN 
        ITEM SEL$WD0    U(00,00,60) = [MXSEL(0),0]; 
        ITEM SEL$IGNORE B(00,00,02);                   # IGNORABLE #
        ITEM SEL$NOTDEF B(00,00,01) = [FALSE,MXSEL(TRUE)]; # NOT DEFD # 
        ITEM SEL$DISABL B(00,01,01) = [MXSEL(FALSE),TRUE]; # DISABLED # 
#                        (00,02,04)                      UNUSED # 
        ITEM SEL$LFSI   U(00,06,03) = [MXSEL(MNFSI),MNFSI]; # LOW FSI # 
        ITEM SEL$UFSI   U(00,09,03) = [MXSEL(MXFSI),MXFSI]; # UPP FSI # 
        ITEM SEL$INUCNT U(00,12,12) = [MXSEL(0),0];    # IN-USE COUNT # 
        ITEM SEL$MAXCNT U(00,24,12) = [MXSEL(0),0];    # MAXIMUM #
        ITEM SEL$RSVCNT U(00,36,12) = [MXSEL(0),0];    # RESERVED # 
#                        (00,48,06)                      UNUSED # 
        ITEM SEL$NAME   C(00,54,01) = 
                 ["A","B","C","D","E","F","G","H","I","J","K","L"," "]; 
        ITEM SEL$COVERS U(01,00,60);  # SET OF CLASSES COVERED BY THIS #
        END 
  
    CONTROL IFEQ OS$NOSBE;
      ARRAY [MNFSI:MXFSI] S(1);    # FILE SIZE RANGES (PRUS/100B) # 
        BEGIN 
        ITEM FSIL       U(00,24,18) = [MXFSI(1)]; 
        ITEM FSIU       U(00,42,18) = [1,2,4,8,16,32,O"7777"];
        END 
  
    CONTROL ENDIF;
  
      END  # COMMON BLOCK COMQSEL # 
  
      END  # COMMON DECK COMQSEL #
                                               CONTROL LIST;
