C ERREU1    SOURCE    CHAT      06/03/16    21:17:33     5336           
C                                                                        
C   RECHERCHE DES MESSAGES D'ERREURS (SUITE)                             
C                                                                        
      SUBROUTINE ERREU1(ITYP,CHLU,NIVEAU,NBL)                            
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                             
-INC CCOPTIO                                                             
      CHARACTER*80 CHLU(2)                                               
      CHARACTER*4  CHTYP                                                 
      CHARACTER*87 CHTAMP
* RECHERCHE DE LA LANGUE
      DO 156 IK=1,LANGUA(/2)
       IF( LANGUE.EQ.LANGUA(IK)) THEN
           ILAN=IK
           GO TO 157
        ENDIF
  156 CONTINUE
      ILAN=1
*      WRITE (IOIMP,158)                                                 
* 158  FORMAT (' ERREUR DE LANGUE DU MESSAGE D''ERREUR') 
*      NBL=0                                                             
*      NIVEAU=2 
*      RETURN        
 157  CONTINUE                                                           
*  RECHERCHE DE L'ERREUR                                                 
      DO 10 I=1,IPMESS(/1)                                               
       IF (NUMERR(I).EQ.ITYP) GOTO 20                                    
  10  CONTINUE                                                           
      WRITE (IOIMP,12)                                                   
  12  FORMAT (' ERREUR DANS LA RECHERCHE DU MESSAGE D''ERREUR')          
      NBL=0                                                              
      NIVEAU=2                                                           
      RETURN                                                             
  20  CONTINUE                                                           
      NIVEAU=NIVERR(I)                                                   
      MCHERR=IPMESS(I,ILAN)                                              
*      SEGACT MCHERR
      CHLU(1)=CHERR1                                                     
      IF (CHERR2(/1).EQ.0) THEN                                          
        NBL=1                                                            
        CHLU(2)=' '                                                      
      ELSE                                                               
        NBL=2                                                            
        CHLU(2)=CHERR2                                                   
      ENDIF                                                              
*      SEGDES MCHERR
      END