*COMDECK ERRMSG 
    COMMON ERRMSG;
      BEGIN 
      ARRAY BAD$ZFILE S(3); 
        BEGIN 
        ITEM ZF1   C(0,0,28)      =[" BAD DEBUG LOG FILE"]; 
        ITEM ZF2   U(2,48,12)     =[0]; 
        END 
  
      ARRAY EMP$ZFILE S(3); 
        BEGIN 
        ITEM ZM1   C(0,0,28)      =[" EMPTY DEBUG LOG FILE"]; 
        ITEM ZM2   U(2,48,12)     =[0]; 
        END 
  
      ARRAY DL$COMP S(3); 
        BEGIN 
        ITEM DLM1  C(0,0,28)      =[" DLFP COMPLETE"];
        ITEM DLM2  U(2,48,12)     =[0]; 
        END 
  
      ARRAY NOT$CLOSED S(3);
        BEGIN 
        ITEM NOT1  C(0,0,28)      =[" LOG FILE NOT CLOSED"];
        ITEM NOT2  U(2,48,12)     =[0]; 
        END 
  
      ARRAY BAD$DNTRY S(3); 
        BEGIN 
        ITEM BD1 C(0,0,28)        =[" BAD DIRECTIVE TABLE ENTRY"];
        ITEM BD2 I(2,48,12)       =[0]; 
        END 
  
      END 
