*COMDECK DIERR
#     DEFS FOR ERROR CODES                                             #
  
      DEF D$ERR1#1#;         # DIRECTIVE EXPRESSION MORE THAN 10 CHAR  #
      DEF D$ERR2#2#;         # MORE THAN ONE COMMA SEPARATE DIRECTIVE E#
      DEF D$ERR3#3#;         # ILLEGAL DIRECTIVE                       #
      DEF D$BDER#4#;         # ERROR IN BD= DIRECTIVE                  #
      DEF D$BTER#5#;         # ERROR IN BT= DIRECTIVE                  #
      DEF D$CNER#6#;         # ERROR IN CN= DIRECTIVE                  #
      DEF D$DNER#7#;         # ERROR IN DN= DIRECTIVE                  #
      DEF D$EDER#8#;         # ERROR IN ED= DIRECTIVE                  #
      DEF D$ETER#9#;         # ERROR IN ET= DIRECTIVE                  #
      DEF D$LEER#10#;        # ERROR IN LE= DIRECTIVE                  #
      DEF D$NMER#11#;        # ERROR IN NM= DIRECTIVE                  #
      DEF D$PSER#12#;        # ERROR IN PS= DIRECTIVE                  #
      DEF D$PFER#13#;        # ERROR IN PF= DIRECTIVE                  #
      DEF D$SMER#14#;        # ERROR IN SM= DIRECTIVE                  #
      DEF D$SNER#15#;        # ERROR IN SN= DIRECTIVE                  #
      DEF D$BERR#16#;        # ERROR IN B DIRECTIVE                    #
      DEF D$CERR#17#;        # ERROR IN C DIRECTIVE                    #
      DEF D$EERR#18#;        # ERROR IN E DIRECTIVE                    #
      DEF D$FERR#19#;        # ERROR IN F DIRECTIVE                    #
      DEF D$PERR#20#;        # ERROR IN P DIRECTIVE                    #
      DEF D$RERR#21#;        # ERROR IN R DIRECTIVE                    #
      DEF D$TERR#22#;        # ERROR IN T DIRECTIVE                    #
      DEF D$UERR#23#;        # ERROR IN U DIRECTIVE                    #
      DEF D$XERR#24#;        # ERROR IN X DIRECTIVE                    #
      DEF D$ICHER#25#;       # ILLEGAL CHARACTER                       #
      DEF D$NMF#26#;         # NO MESSAGES FOUND                       #
      DEF D$NERR#27#;        # ERROR IN N DIRECTIVE                    #
      DEF D$ERRFIN#D$NERR#;  # END OF DIRECTIVE ERROR MESSAGES         #
  
      COMMON DIERR; 
        BEGIN 
        ARRAY DERRMS [1:D$ERRFIN] S(5); 
          BEGIN 
          ITEM D$EM0    C(0,0,8)  = [D$ERRFIN(" ")];
          ITEM D$EM01   I(0,48,12)= [D$ERRFIN(0)];
          ITEM D$EM1    C(1,0,1)  = [D$ERRFIN(" ")];
          ITEM D$EM2    C(1,6,37) =[
                        "OVER 10 VALID CHARS BETWEEN KEYWD SEP",
                        "MULTIPLE COMMAS BETWEEN DIRECTIVES", 
                        "UNRECOGNIZABLE KEYWORD", 
                        "ERROR IN BD= DIRECTIVE", 
                        "ERROR IN BT= DIRECTIVE", 
                        "ERROR IN CN= DIRECTIVE", 
                        "ERROR IN DN= DIRECTIVE", 
                        "ERROR IN ED= DIRECTIVE", 
                        "ERROR IN ET= DIRECTIVE", 
                        "ERROR IN LE= DIRECTIVE", 
                        "ERROR IN NM= DIRECTIVE", 
                        "ERROR IN PS= DIRECTIVE", 
                        "ERROR IN PF= DIRECTIVE", 
                        "ERROR IN SM= DIRECTIVE", 
                        "ERROR IN SN= DIRECTIVE", 
                        "ERROR IN B DIRECTIVE", 
                        "ERROR IN C DIRECTIVE", 
                        "ERROR IN E DIRECTIVE", 
                        "ERROR IN F DIRECTIVE", 
                        "ERROR IN P DIRECTIVE", 
                        "ERROR IN R DIRECTIVE", 
                        "ERROR IN T DIRECTIVE", 
                        "ERROR IN U DIRECTIVE", 
                        "ERROR IN X DIRECTIVE", 
                        "ILLEGAL CHARACTER",
                        "NO MESSAGES FOUND",
                        "ERROR IN N DIRECTIVE", 
                        ];
          ITEM D$EM3    I(4,48,12)=[D$ERRFIN(0)]; 
          END 
        END 
