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 14 : CALL QUENOM(ICHA) 15 : IPO1=1 16 : IPO2=100000 16 : CALL LIRENT(IPO,0,IRETOU) 17 : IF(IRETOU.NE.0) THEN 18 : IPO1=IPO 19 : IPO2=IPO1 19 : CALL LIRENT(IPO,0,IRETOU) 20 : IF(IRETOU.NE.0) THEN 21 : IPO2=IPO 22 : ENDIF 23 : ENDIF 23 : CALL PROCL2(ICHA,CODE) 24 : IF(CODE.EQ.'0 ') THEN 24 : call erreur ( -330) 25 : return 26 : ELSEIF ( CODE . EQ . '9998') then 26 : call erreur ( -331) 27 : ELSE 27 : call erreur ( -332) 28 : endif 29 : C 30 : C LECTURE DE LA PROCEDURE - ECRITURE SUR LE TERMINAL 31 : C 31 : CALL ERREUR (-13) 32 : II=0 32 : 1 CALL PROCLI(BUFFER,CODE) 33 : IF (CODE.NE.'0 ') GOTO 2 34 : II=II+1 35 : IF(II.GE.IPO1)WRITE (IOIMP,100) II,BUFFER 36 : 100 FORMAT (1X,I4,2X,A72) 37 : IF(II.EQ.IPO2) GO TO 2 38 : GOTO 1 39 : 2 RETURN 40 : END 41 : 42 : 43 :
© Cast3M 2003 - All rights reserved.
Disclaimer