Télécharger annule.eso

Retour à la liste

Numérotation des lignes :

  1. C ANNULE SOURCE CHAT 06/03/17 13:33:49 5338
  2. C EFFACE UNe methode d'un objet
  3. C
  4. SUBROUTINE ANNULE
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. -INC CCOPTIO
  8. -INC CCNOYAU
  9. -INC SMTABLE
  10. -INC SMBLOC
  11. CHARACTER*(8) CHAR,TYPIND
  12. CALL LIROBJ ('OBJET ',MTABLE,0,IRETOU)
  13. IF(IRETOU.EQ.0) THEN
  14. IF(MOBJCO.NE.0) THEN
  15. MTABLE=MOBJCO
  16. ELSE
  17. MOTERR(1:8)='OBJET '
  18. CALL ERREUR(37)
  19. ENDIF
  20. ENDIF
  21. TYPIND=' '
  22. CALL LIRABJ(TYPIND,INDICE,1,IRETO1)
  23. IF(IERR.NE.0) RETURN
  24. ITAB=-MTABLE
  25. CALL OUBLIE1 ( ITAB,INDICE,TYPIND)
  26. RETURN
  27. END
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  

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