*COMDECK COMQCAF                   30MAR81
  
# 
      COMQCAF - ATTRIBUTE VARIABLE DEFINITIONS
# 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
***   COMQCAF - ATTRIBUTE VARIABLE DEFINITIONS
# 
  
      DEF MAXDCV     #33#;         # NUMBER OF *DC* VALUES #
      DEF MAXECV     #15#;         # NUMBER OF *EC* VALUES #
      DEF MAXICV     #06#;         # NUMBER OF *IC* VALUES #
      DEF MAXODV     #12#;         # NUMBER OF RFT DC VALUES #
      DEF OD$CP      #"CP"#;       # PUNCH #
      DEF OD$IN      #"IN"#;       # INPUT #
      DEF OD$IX      #"IX"#;       # SPECIAL INPUT #
      DEF OD$PB      #"PB"#;       # PUNCH BINARY # 
      DEF OD$PR      #"LP"#;       # PRINT #
      DEF OD$P8      #"P8"#;       # PUNCH 80 COL BINARY #
      DEF OD$SP      #"SP"#;       # SPECIAL FILES #
      DEF FSFMAXDD   #5#; 
  
      COMMON COMQCAF; 
  
      BEGIN  # COMMON BLOCK COMQCAF # 
  
      ARRAY [0:MAXDCV]  S(1);      # DISPOSITION CODE VALUES #
        BEGIN 
        ITEM DC$DC      C(00,00,02);
  
      CONTROL IFEQ OS$NOS;
        ITEM DC$DSPDC   C(00,12,02);
      CONTROL ENDIF;
  
      CONTROL IFEQ OS$NOSBE;
        ITEM DC$DSPDC   C(00,24,02);
      CONTROL ENDIF;
  
        ITEM DC$TYPE    C(00,36,01);
        ITEM DC$DEFEC   C(00,42,01);
        ITEM DC$NBEDC   C(00,48,02);
        ITEM $DC        C(00,00,10) = [ 
                  "CPPUPUC0  "
                 ,"FL  FLS022"
                 ,"FR  FRS020"
                 ,"HL  HLS026"
                 ,"HR  HRS024"
                 ,"INININI004"
                 ,"INININI005"
                 ,"INININI006"
                 ,"IXININI0  "
                 ,"LPLPPRP0  "
                 ,"LQLQP2P042"
                 ,"LRLRLRP043"
                 ,"LSLSLSP044"
                 ,"LTLTLTP045"
                 ,"LXLXPRP0  "
                 ,"LYLYPRP0  "
                 ,"NONOINI0  "
                 ,"PBPBPUC1  "
                 ,"PEPRPRP6  "
                 ,"PHPHPUC0  "
                 ,"PLPLPTS0  "
                 ,"PRPRPRP040"
                 ,"PTPLPTS0  "
                 ,"PUPUPUC010"
                 ,"P1PRP1P041"
                 ,"P2LQP2P0  "
                 ,"P8P8PUC2  "
                 ,"SBSBPUC1  "
                 ,"SCSCSCP0  "
                 ,"SPPLPTS030"
                 ,"TOTOINI0  "
                 ,"TTTTPRP0  "
                 ,"WTWTPRP0  "
                 ,"  PRPRP040" ]; 
        END 
  
      ARRAY [0:MAXECV]  S(1);      # EXTERNAL CHARACTERISTICS VALUES #
        BEGIN 
        ITEM EC$EC      C(00,00,07);
  
      CONTROL IFEQ OS$NOS;
        ITEM EC$DSPEC   C(00,42,01);
      CONTROL ENDIF;
  
      CONTROL IFEQ OS$NOSBE;
        ITEM EC$DSPEC   C(00,48,01);
      CONTROL ENDIF;
  
        ITEM EC$TYPE    C(00,54,01);
        ITEM $EC        C(00,00,10) = [ 
                  "       00C"
                 ,"ASCII  66C"
                 ,"A4     22P"
                 ,"A6     55P"
                 ,"A9     66P"
                 ,"B4     33P"
                 ,"B6     44P"
                 ,"O26    44C"
                 ,"O29    55C"
                 ,"SB     11C"
                 ,"T6     11S"
                 ,"T8     22S"
                 ,"026    44C"
                 ,"029    55C"
                 ,"80COL  22C"
                 ,"          " ]; 
        END 
  
      ARRAY [0:MAXICV]  S(1);      # INTERNAL CHARACTERISTICS VALUES #
        BEGIN 
        ITEM IC$IC      C(00,00,07);
  
      CONTROL IFEQ OS$NOS;
        ITEM IC$DSPIC   C(00,42,01);
      CONTROL ENDIF;
  
      CONTROL IFEQ OS$NOSBE;
        ITEM IC$DSPIC   C(00,48,01);
      CONTROL ENDIF;
  
        ITEM $IC        C(00,00,10) = [ 
                  "ASCII  11 "
                 ,"BIN    22 "
                 ,"BINARY 22 "
                 ,"DIS    00 "
                 ,"DISPLAY00 "
                 ,"TRANS  23 "
                 ,"          " ]; 
        END 
  
      ARRAY [0:MAXODV]  S(1);      # RFT DISP CODE (ATTR 17) VALUES # 
        BEGIN 
        ITEM OD$OD      C(00,00,02);
        ITEM OD$TYPE    C(00,36,01);
        ITEM OD$DEFEC   C(00,42,01);
        ITEM $OD        C(00,00,10) = [ 
                  "CP    C0  "
                 ,"CP    C3  "
                 ,"CP    C4  "
                 ,"CP    C5  "
                 ,"CP    C6  "
                 ,"CP    C7  "
                 ,"IN    I   "
                 ,"IX    I   "
                 ,"LP    P   "
                 ,"PB    C1  "
                 ,"P8    C2  "
                 ,"SP    S   "
                 ,"          " ]; 
        END 
  
      ARRAY [0:FSFMAXDD] S(1);
        BEGIN 
        ITEM FSF$DD     C(00,00,AT$DDL) = 
                 ["XX", DD$UU, DD$US, DD$C8, DD$C6,  "  "]; 
        ITEM FSF$CF     U(00,42,18) = 
                 [ 640,   480,   480,   320,   640,   640]; 
        END 
  
  
      END  # COMMON BLOCK COMQCAF # 
  
      # END OF COMDECK COMQCAF #
                                                CONTROL LIST; 
