COMTERR 
COMMON
  
#     COMTERR - STATUS LIST FOR *SSLABEL* ERROR CODES.                # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTERR #
  
# 
***   COMTERR - STATUS LIST OF *SSLABEL* ERROR CODES. 
* 
*     COMTERR CONTAINS STATUS LIST *ERRLIST* WHICH IS USED TO DESIGNATE 
*     THE TYPE OF ERROR WHEN CALLING THE ERROR PROCESSING ROUTINE.
# 
  
      DEF CODEMAX     #53#;          # MAXIMUM ERROR CODES #
  
      STATUS ERRLIST                 # ERROR STATUS LIST #
        PF$PROB,                     # PERMANENT FILE PROBLEM # 
        SYNTX$DIR,                   # SYNTAX ERROR IN DIRECTIVE #
        SYNTX$ABRT,                  # SYNTAX ERROR - *SSLABEL* ABORT # 
        CSN$NOTFND,                  # CSN NOT FOUND IN SMMAP # 
        NO$EMPCBFP,                  # NO EMPTY CUBE IN FAMILY/POOL # 
        NO$CR$PL,                    # NO CART. AVAILABLE IN POOL # 
        NO$EMP$CR,                   # NO EMPTY CART. IN THE FAMILY # 
        UNKNWN$LAB,                  # NO MANUFACT. OR SCRATCH LABEL #
        UNXP$CYZFS,                  # UNEXPECTED SM, Y, Z, FAMILY, OR
                                       SUBFAMILY #
        GOOD$LAB,                    # CANNOT FIX CSN FOR GOOD LABEL #
        UNRECV$RD,                   # UNRECOVERABLE READ ERROR # 
        UNRECV$WRT,                  # UNRECOVERABLE WRITE ERROR #
        EXCES$PAR,                   # EXCESSIVE PARITY ERRORS #
        DUPL$CSN,                    # CSN ALREADY IN SMMAP # 
        CELL$FULL,                   # CARTRIDGE ALREADY IN CUBE #
        LAB$ERR,                     # CARTRIDGE LABEL ERROR #
        CAR$IN$USE,                  # CARTRIDGE IN USE # 
        SM$OFF,                      # STORAGE MODULE IS OFF #
        CR$NOTFND,                   # CARTRIDGE NOT FOUND #
        CR$NTEMPT,                   # CARTRIDGE NOT EMPTY #
        M86$HARDWR,                  # M860 HARDWARE PROBLEM #
        CAT$MAP$LK,                  # CATALOG/MAP INTERLOCKED #
        NO$CAT$MAP,                  # NO SUCH SMMAP OR CATALOG # 
        NOT$OPEN,                    # CATALOG/MAP NOT OPEN # 
        LOST$NSET,                   # CATALOG LOST BIT NOT SET # 
        LOST$SET,                    # CARTRIDGE PRESENT-LOST BIT SET # 
        SM$DEFND,                    # SM AREADY DEFINED #
        CB$ASGN$SB,                  # CUBE ASSIGNED TO SUB-FAMILY #
        INSUF$CB,                    # INSUFFICIENT CUBES # 
        CB$ASGN,                     # CUBE NOT UNASSIGNED #
        NO$EMPCB,                    # NO EMPTY CUBES # 
        CB$NOT$EMP,                  # SELECTED CUBE NOT EMPTY #
        UNX$CB$ASN,                  # CUBE NOT ASSIGNED AS EXPECTED #
        UNX$CR$ASN,                  # UNEXPECTED CART. ASSIGNMENT #
        UNREC$LAB,                   # UNRECOGNIZABLE LABEL # 
        NO$FAMLAB,                   # NO MATCHING FAMILY LABEL # 
        ILLEG$C,                     # ILLEGAL CSN #
        NUM$CUBE,                    # TOO MANY CUBE LOCATIONS
                                       SPECIFIED #
        ILL$N,                       # ILLEGAL N #
        CSN$VIOL,                    # CSN OPTION VIOLATED #
        PK$PT$VIOL,                  # PK,PT OPTION VIOLATED #
        LT$VIOL,                     # LT OPTION INCORRECT #
        ILL$SM,                      # ILLEGAL SM NUMBER #
        YZ$VIOL,                     # Y,Z OPTION VIOLATED #
        ILL$SB,                      # ILLEGAL SUBFAMILY #
        ON$OF$VIOL,                  # ON,OFF SPECIFIED INCORRECTLY # 
        ILL$DIRCTV,                  # ILLEGAL DIRECTIVE #
        GR$INCORR,                   # GROUP SPECIFIED INCORRECTLY #
        GR$RANGE,                    # GROUP OUT OF RANGE # 
        B$INCORR,                    # *B* USED INCORRECTLY # 
        B$RANGE,                     # *B* OUT OF RANGE # 
        GR$FULL,                     # SPECIFIED GROUP IS FULL #
        ERRLST;                      # END OF ERRLIST # 
  
      ITEM ERRCODE    S:ERRLIST;     # *SSLABEL* ERROR CODE # 
  
      END  # COMTERR #
  
                                               CONTROL LIST;
