Télécharger oublie.eso

Retour à la liste

Numérotation des lignes :

  1. C OUBLIE SOURCE PV 14/03/25 21:15:27 8007
  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.  
  10. CALL LIROBJ('TABLE',ITAB,0,IRETO)
  11. IF (IRETO.EQ.1) THEN
  12. CALL QUETYP (TYPIND,0,IRETO1)
  13. IF (IRETO1.EQ.1) THEN
  14. CALL LIROBJ (TYPIND,INDICE,1,IRETOU)
  15. IF (IERR .NE. 0) RETURN
  16. CALL OUBLIE1 (ITAB,INDICE,TYPIND)
  17. RETURN
  18. ELSE
  19. CALL QUENOM(CHAR)
  20. CALL NOMOBJ('ANNULE ',CHAR,ITAB)
  21. RETURN
  22. ENDIF
  23. ELSE
  24. CALL LIROBJ(CHAR,IPROUT,1,IRETO)
  25. IF (IERR.NE.0) RETURN
  26. CALL QUENOM(CHAR)
  27. CALL NOMOBJ('ANNULE ',CHAR,IPROUT)
  28. RETURN
  29. ENDIF
  30. END
  31.  
  32.  
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales