*COMDECK ER1CNDL
      DEF ERR1   #   1 #; 
      DEF ERR2   #   2 #; 
      DEF ERR3   #   3 #; 
      DEF ERR4   #   4 #; 
      DEF ERR5   #   5 #; 
      DEF ERR6   #   6 #; 
      DEF ERR7   #   7 #; 
      DEF ERR8   #   8 #; 
      DEF ERR9   #   9 #; 
      DEF ERR10  #  10 #; 
      DEF ERR11  #  11 #; 
      DEF ERR12  #  12 #; 
      DEF ERR13  #  13 #; 
      DEF ERR14  #  14 #; 
      DEF ERR15  #  15 #; 
      DEF ERR16  #  16 #; 
      DEF ERR17  #  17 #; 
      DEF ERR18  #  18 #; 
      DEF ERR19  #  19 #; 
      DEF ERR20  #  20 #; 
      DEF ERR21  #  21 #; 
      DEF ERR22  #  22 #; 
      DEF ERR23  #  23 #; 
      DEF ERR24  #  24 #; 
      DEF ERR25  #  25 #; 
      DEF ERR26  #  26 #; 
      DEF ERR27  #  27 #; 
      DEF ERR28  #  28 #; 
      DEF ERR29  #  29 #; 
      DEF ERR30  #  30 #; 
      DEF ERR31  #  31 #; 
      DEF ERR32  #  32 #; 
      DEF ERR33  #  33 #; 
      DEF ERR34  #  34 #; 
      DEF ERR35  #  35 #; 
      DEF ERR36  #  36 #; 
      DEF ERR37  #  37 #; 
      DEF ERR38  #  38 #; 
      DEF ERR39  #  39 #; 
      DEF ERR40  #  40 #; 
      DEF ERR41  # 41 #;
      DEF ERR42  # 42 #;
      DEF ERR43  # 43 #;
      DEF ERR44  # 44 #;
      DEF ERR45  # 45 #;
      DEF ERR46  # 46 #;
      COMMON ERROR1C; 
      BEGIN 
      ARRAY EMT [1:46] S(5);
        BEGIN 
        ITEM EMTTYPE C(0,0,1);         # ERROR TYPE --  W IF WARNING  # 
        ITEM EMTMSG C(0,18,47);        # ERROR MESSAGE                # 
        ITEM EMTWORD C(0,0,50) = [
         #   1 #   "E  DUPLICATE LABEL/ELEMENT-NAME.                  ",
         #   2 #   "E  INVALID STATEMENT NAME.                        ",
         #   3 #   "E  INVALID STATEMENT DECLARATION.                 ",
         #   4 #   "E  MISSING COLON AFTER ELEMENT NAME.              ",
         #   5 #   "E  LABEL-NAME FOR PID STMT MUST BE 3 CHARACTERS.  ",
         #   6 #   "E  UNKNOWN KEYWORD OR DELIMITER.                  ",
         #   7 #   "E  EQUAL NOT ASSOCIATED WITH KEYWORD.             ",
         #   8 #   "E  PUNCTUATION ERROR.                             ",
         #   9 #   "E  INVALID KEYWORD.                               ",
         #  10 #   "E  INVALID VALUE.                                 ",
         #  11 #   "E  NO PERIOD FOUND BEFORE ASTERISK.               ",
         #  12 #   "E  NESTED DEFINE.                                 ",
         #  13 #    # ***** AVAILABLE ***** #                          ,
         #  14 #   "E  STATEMENT OUT OF SEQUENCE.                     ",
         #  15 #   "E  REQUIRED LABEL MISSING.                        ",
         #  16 #   "E  DEFINE-NAME CAN NOT BE A RESERVED WORD.        ",
         #  17 #   "W  LABEL NOT REQUIRED FOR THIS STMT -- IGNORED.   ",
         #  18 #   "E  ELEMENT-NAME IS TOO LONG.                      ",
         #  19 #   "E  NO KEYWORD ASSOCIATED WITH VALUE.              ",
         #  20 #   "E  CONSECUTIVE COMMAS NOT ALLOWED.                ",
         #  21 #   "E  MISSING -END- STATEMENT.                       ",
         #  22 #   "E  FIRST CHARACTER AFTER PERIOD NOT ASTERISK.     ",
         #  23 #   "E  ELEMENT-NAME MUST BEGIN WITH A LETTER.         ",
         #  24 #   "E  NESTED REPEAT.                                 ",
         #  25 #   "E  MISSING NFILE/LFILE STMT -- MUST BE 1ST IN DIV.",
         #  26 #    # ***** AVAILABLE ***** #                          ,
         #  27 #   "E  NAME GENERATION SUPPRESSED, -NCIR- TOO LARGE.  ",
         #  28 #   "E  GROUP NOT ALLOWED FOR X25 LINES.               ",
         #  29 #   "E  KEYWORD NOT ALLOWED ON THIS STATEMENT.         ",
         #  30 #   "E  MISSING VALUE.                                 ",
         #  31 #   "E  NAME GENERATION SUPPRESSED, ROOT-NAME TOO LONG.",
         #  32 #   "E  NAME GENERATION SUPPRESSED, NO PORT FOR GROUP. ",
         #  33 #   "W  PREVIOUSLY DEFINED TITLE OVER-WRITTEN.         ",
         #  34 #   "W  STORED ONLY FIRST 45 CHAR -- IGNORED REST.     ",
         #  35 #   "W  SUPERFLUOUS DATA AFTER END STMT, IGNORED.      ",
         #  36 #   "E  STATEMENT CANNOT BE REPEATED.                  ",
         #  37 #   "E  NAME GENERATION SUPPRESSED, -NI- TO LARGE.     ",
         #  38 #   "E  NAME GENERATION SUPPRESSED, -PORT- TOO LARGE.  ",
         #  39 #   "W  DUPLICATE DECLARATION, OVERRIDES PREVIOUS ONE. ",
         #  40 #   "W  POSSIBLE MISSING STMT(S) PRECEDING THIS ONE.   ",
         #  41 #   "W  CONSOLE EXPECTED HERE TO OWN PASSIVE DEVICES.  ",
         #  42 #   "W  INVALID VALUE.                                 ",
         #  43 #   "W  MISSING VALUE.                                 ",
         #  44 #   "E  PAD ENTRIES MUST BE MULTIPLES OF 4 HEX DIGITS. ",
         #  45 #   "E  UDATA FORMAT ERROR, ODD NUMBER OF DOUBLE QUOTES",
         #  46 #   "E  UDATA LENGTH TOO LONG, AFTER ASCII CONVERSION. " 
                                 ]; 
        END 
      END # PASS1 ERROR COMMON #
