Télécharger ecproc.eso

Retour à la liste

Numérotation des lignes :

  1. C ECPROC SOURCE CHAT 05/01/12 23:27:05 5004
  2. SUBROUTINE ECPROC
  3. C---------------------------------------------------------------------
  4. C LISTE D'UN OBJET DE TYPE PROCEDURE
  5. C---------------------------------------------------------------------
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCOPTIO
  8. CHARACTER*72 BUFFER
  9. CHARACTER*(8) ICHA
  10. CHARACTER*(4) CODE
  11.  
  12. C
  13. C RECHERCHE DE LA POSITION SUR LE FICHIER
  14. C
  15. CALL QUENOM(ICHA)
  16. IPO1=1
  17. IPO2=100000
  18. CALL LIRENT(IPO,0,IRETOU)
  19. IF(IRETOU.NE.0) THEN
  20. IPO1=IPO
  21. IPO2=IPO1
  22. CALL LIRENT(IPO,0,IRETOU)
  23. IF(IRETOU.NE.0) THEN
  24. IPO2=IPO
  25. ENDIF
  26. ENDIF
  27. CALL PROCL2(ICHA,CODE)
  28. IF(CODE.EQ.'0 ') THEN
  29. call erreur ( -330)
  30. return
  31. ELSEIF ( CODE . EQ . '9998') then
  32. call erreur ( -331)
  33. ELSE
  34. call erreur ( -332)
  35. endif
  36. C
  37. C LECTURE DE LA PROCEDURE - ECRITURE SUR LE TERMINAL
  38. C
  39. CALL ERREUR (-13)
  40. II=0
  41. 1 CALL PROCLI(BUFFER,CODE)
  42. IF (CODE.NE.'0 ') GOTO 2
  43. II=II+1
  44. IF(II.GE.IPO1)WRITE (IOIMP,100) II,BUFFER
  45. 100 FORMAT (1X,I4,2X,A72)
  46. IF(II.EQ.IPO2) GO TO 2
  47. GOTO 1
  48. 2 RETURN
  49. END
  50.  
  51.  
  52.  
  53.  

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