BLOCK DATA
    
      INTEGER     EPROC (20)
      INTEGER     ECOUNT (20)   
      INTEGER     ELIMIT (20)   
      INTEGER     EMSG (200)
      INTEGER     EMSG1(10),EMSG2(10),EMSG3(10),EMSG4(10)   
      INTEGER     EMSG5(10),EMSG6(10),EMSG7(10),EMSG8(10)   
      INTEGER     EMSG9(10),EMSG10(10),EMSG11(10),EMSG12(10)
      INTEGER     EMSG13(10),EMSG14(10),EMSG15(10),EMSG16(10)   
      INTEGER     EMSG17(10),EMSG18(10),EMSG19(10),EMSG20(20)   
      INTEGER     EMAX,ICLP06   
      COMMON      /ERRDFN/ EPROC
      COMMON      /ERRDFN/ ECOUNT   
      COMMON      /ERRDFN/ ELIMIT   
      COMMON      /ERRDFN/ EMSG 
      COMMON      /ERRDFN/ EMAX 
      COMMON      /ERRDFN/ ICLP06   
      EQUIVALENCE (EMSG1,EMSG(1)),   (EMSG2,EMSG(11))   
      EQUIVALENCE (EMSG3,EMSG(21)),  (EMSG4,EMSG(31))   
      EQUIVALENCE (EMSG5,EMSG(41)),  (EMSG6,EMSG(51))   
      EQUIVALENCE (EMSG7,EMSG(61)),  (EMSG8,EMSG(71))   
      EQUIVALENCE (EMSG9,EMSG(81)),  (EMSG10,EMSG(91))  
      EQUIVALENCE (EMSG11,EMSG(101)),(EMSG12,EMSG(111)) 
      EQUIVALENCE (EMSG13,EMSG(121)),(EMSG14,EMSG(131)) 
      EQUIVALENCE (EMSG15,EMSG(141)),(EMSG16,EMSG(151)) 
      EQUIVALENCE (EMSG17,EMSG(161)),(EMSG18,EMSG(171)) 
      EQUIVALENCE (EMSG19,EMSG(181)),(EMSG20,EMSG(191)) 
    
      DATA     EMAX     /17/
      DATA     EPROC(1)/1/,  ECOUNT(1)/0/,  ELIMIT(1)/0/
      DATA     EMSG1  /'IN','VA','LI','D ','ER','RO','R ','CO','DE','  '
     1/ 
      DATA     EPROC(2)/2/,  ECOUNT(2)/0/,  ELIMIT(2)/0/
      DATA     EMSG2   /'ER','RO','R ','CO','UN','T ','EX','CE','ED','ED
     1'/
      DATA     EPROC(3)/3/,  ECOUNT(3)/0/,  ELIMIT(3)/2/
      DATA     EMSG3   /'IO',' E','RR','OR',', ','FO','RT',' C','OD','E 
     1'/
      DATA     EPROC(4)/4/,  ECOUNT(4)/0/,  ELIMIT(4)/1/
      DATA     EMSG4   /'IN','VA','LI','D ','RB',' R','EC','OR','D ','  
     1'/
      DATA     EPROC(5)/5/,  ECOUNT(5)/0/,  ELIMIT(5)/10/   
      DATA     EMSG5   /'NA','ME',' L','IS','T ','OV','ER','FL','OW',' :
     1'/
      DATA     EPROC(6)/6/,  ECOUNT(6)/0/,  ELIMIT(6)/10/   
      DATA     EMSG6   /'NA','ME',' T','EX','T ','OV','ER','FL','OW',' :
     1'/
      DATA     EPROC(7)/7/,  ECOUNT(7)/0/,  ELIMIT(7)/2/
      DATA     EMSG7   /'FA','IL','UR','E ','IN',' R','B ','FI','LE','  
     1'/
      DATA     EPROC(8)/8/,  ECOUNT(8)/0/,  ELIMIT(8)/0/
      DATA     EMSG8   /'LI','NK','ER',' S','OF','TW','AR','E ','ER','R 
     1'/
      DATA     EPROC(9)/9/,  ECOUNT(9)/0/,  ELIMIT(9)/3/
      DATA     EMSG9   /'CH','EC','KS','UM',' I','N ','RB',' F','IL','E 
     1'/
      DATA     EPROC(10)/10/, ECOUNT(10)/0/, ELIMIT(10)/0/  
      DATA     EMSG10  /'MI','SS','IN','G ','DI','CT',' I','D ','  ','  
     1'/
      DATA     EPROC(11)/11/, ECOUNT(11)/0/, ELIMIT(11)/100/
      DATA     EMSG11   /'OV','ER','WR','IT','E ','ER','RO','R ','AT',' 
     1 '/   
      DATA     EPROC(12)/12/, ECOUNT(12)/0/, ELIMIT(12)/0/  
      DATA     EMSG12   /'DI','CT','IO','NA','RY',' O','VE','RF','LO','W
     1 '/   
      DATA     EPROC(13)/13/, ECOUNT(13)/0/, ELIMIT(13)/0/  
      DATA     EMSG13   /'MU','LT','IP','LE',' D','IC','T ','ID','  ',' 
     1 '/   
      DATA     EPROC(14)/14/, ECOUNT(14)/0/, ELIMIT(14)/20/ 
      DATA     EMSG14   /'RB',' F','IL','E ','NA','ME',' E','RR','OR',' 
     1 '/   
      DATA     EPROC(15)/15/, ECOUNT(15)/0/, ELIMIT(15)/50/ 
      DATA     EMSG15   /'MU','LT','IP','LE',' S','TA','RT',' A','DD','R
     1 '/   
      DATA     EPROC(16)/16/, ECOUNT(16)/0/, ELIMIT(16)/50/ 
      DATA     EMSG16   /'CO','MM','ON',' S','IZ','E ','ER','RO','R ',' 
     1 '/   
      DATA     EPROC(17)/17/, ECOUNT(16)/0/, ELIMIT(17)/32767/  
      DATA     EMSG17   /'RA','M ','IN','IT','IA','LI','ZA','TI','ON',' 
     1 '/   
      END