Télécharger annule.eso

Retour à la liste

Numérotation des lignes :

annule
  1. C ANNULE SOURCE CB215821 24/07/17 21:15:03 11961
  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.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC CCNOYAU
  11. -INC SMTABLE
  12. -INC SMBLOC
  13. CHARACTER*(8) CHAR,TYPIND
  14. CALL LIROBJ ('OBJET ',MTABLE,0,IRETOU)
  15. IF(IRETOU.EQ.0) THEN
  16. IF(MOBJCO.NE.0) THEN
  17. MTABLE=MOBJCO
  18. ELSE
  19. MOTERR(1:8)='OBJET '
  20. CALL ERREUR(37)
  21. ENDIF
  22. ENDIF
  23. TYPIND=' '
  24. CALL LIRABJ(TYPIND,INDICE,1,IRETO1)
  25. IF(IERR.NE.0) RETURN
  26. ITAB=-MTABLE
  27. CALL OUBLIE1 ( ITAB,INDICE,TYPIND)
  28. RETURN
  29. END
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  

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