C OUBLIE    SOURCE    CHAT      05/01/13    02:08:18     5004           
C    EFFACE UN NOM DES TABLES                                                   
C                                                                               
      SUBROUTINE OUBLIE                                                         
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CHARACTER*(8) CHAR,TYPIND
      CHAR='        '
  
      CALL LIROBJ('TABLE',ITAB,0,IRETO)
      IF (IRETO.EQ.1) THEN
         CALL QUETYP (TYPIND,0,IRETO1)
         IF (IRETO1.EQ.1) THEN                                          
            CALL LIROBJ (TYPIND,INDICE,1,IRETOU)                                   
            IF (IERR .NE. 0) RETURN                                          
            CALL OUBLIE1 (ITAB,INDICE,TYPIND)                                                                                                                    
            RETURN                          
         ELSE
            CALL QUENOM(CHAR)                                                         
            CALL NOMOBJ('ANNULE  ',CHAR,IPROUT)                                       
            RETURN                                      
         ENDIF
      ELSE
         CALL LIROBJ(CHAR,IPROUT,1,IRETO)                                         
         IF (IERR.NE.0) RETURN                                                     
         CALL QUENOM(CHAR)                                                         
         CALL NOMOBJ('ANNULE  ',CHAR,IPROUT)                                       
         RETURN    
      ENDIF   
      END