C QUETYP    SOURCE    CHAT      06/06/01    21:19:56     5450           
      SUBROUTINE QUETYP(ICHA , ICODE , IRETOU )                                 
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CHARACTER*(*) ICHA                                                        
      IF(LEN(ICHA).NE.8) CALL ERREUR (5)                                        
      ICHA=' '                                                                  
      ICOD=ICODE                                                                                                                    
      CALL LIRABJ(ICHA ,IRAT,ICOD,IRETOU)                                       
      IF(IERR.NE.0) RETURN 
      IF (IRETOU.EQ.0) RETURN                            
      CALL REFUS                                                                
      RETURN                                                                    
      END