C QUENOM    SOURCE    CHAT      06/03/16    21:24:59     5336           
      SUBROUTINE QUENOM(ICHA)                                         
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                          
-INC CCOPTIO
-INC CCASSIS                                                          
      CHARACTER*(*) ICHA                                              
          IF(JPOOB2(IMOTLU).EQ.0) THEN                                
C  PAS DE NOM A LA DERNIERE DONNEE LUE                                
          ICHA='        '                                             
          RETURN                                                      
          ENDIF
          if(nbesc.ne.0) segact ipiloc 
          IP= INOOB1(JPOOB2(IMOTLU))
          IDEBCH=IPCHAR(IP)
          IFINCH= IPCHAR(IP+1)-1                                      
          ICHA=ICHARA(IDEBCH:IFINCH)
          if(nbesc.ne.0) segdes ipiloc                                
      END