Esope source files

   1 : C OUBLIE    SOURCE    CHAT      05/01/13    02:08:18     5004           
   2 : C    EFFACE UN NOM DES TABLES                                                   
   3 : C                                                                               
   4 :       SUBROUTINE OUBLIE                                                         
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO                                                                    
   7 :       CHARACTER*(8) CHAR,TYPIND
   8 :       CHAR='        '
   9 :   
   9 :       CALL LIROBJ('TABLE',ITAB,0,IRETO)
  10 :       IF (IRETO.EQ.1) THEN
  10 :          CALL QUETYP (TYPIND,0,IRETO1)
  11 :          IF (IRETO1.EQ.1) THEN                                          
  11 :             CALL LIROBJ (TYPIND,INDICE,1,IRETOU)                                   
  12 :             IF (IERR .NE. 0) RETURN                                          
  12 :             CALL OUBLIE1 (ITAB,INDICE,TYPIND)                                                                                                                    
  13 :             RETURN                          
  14 :          ELSE
  14 :             CALL QUENOM(CHAR)                                                         
  14 :             CALL NOMOBJ('ANNULE  ',CHAR,IPROUT)                                       
  15 :             RETURN                                      
  16 :          ENDIF
  17 :       ELSE
  17 :          CALL LIROBJ(CHAR,IPROUT,1,IRETO)                                         
  18 :          IF (IERR.NE.0) RETURN                                                     
  18 :          CALL QUENOM(CHAR)                                                         
  18 :          CALL NOMOBJ('ANNULE  ',CHAR,IPROUT)                                       
  19 :          RETURN    
  20 :       ENDIF   
  21 :       END          
  22 :                                                                                                                  
  23 :