C ECPROC    SOURCE    CHAT      05/01/12    23:27:05     5004           
      SUBROUTINE ECPROC                                                         
C---------------------------------------------------------------------          
C               LISTE D'UN OBJET DE TYPE PROCEDURE                              
C---------------------------------------------------------------------          
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CHARACTER*72 BUFFER                                                       
      CHARACTER*(8) ICHA                                                        
      CHARACTER*(4) CODE                                                        
                                                                                
C                                                                               
C  RECHERCHE DE LA POSITION SUR LE FICHIER                                      
C                                                                               
      CALL QUENOM(ICHA)                                                         
      IPO1=1                                                                    
      IPO2=100000                                                               
      CALL LIRENT(IPO,0,IRETOU)                                                 
      IF(IRETOU.NE.0) THEN                                                      
         IPO1=IPO                                                               
         IPO2=IPO1                                                              
         CALL LIRENT(IPO,0,IRETOU)                                              
         IF(IRETOU.NE.0) THEN                                                   
            IPO2=IPO                                                            
         ENDIF                                                                  
      ENDIF                                                                     
      CALL PROCL2(ICHA,CODE)                                                    
      IF(CODE.EQ.'0   ') THEN
       call erreur ( -330)
       return
       ELSEIF ( CODE . EQ . '9998') then
       call erreur ( -331)
       ELSE 
       call erreur ( -332)
       endif                                       
C                                                                               
C   LECTURE DE LA PROCEDURE - ECRITURE SUR LE TERMINAL                          
C                                                                               
      CALL  ERREUR (-13)                                                        
      II=0                                                                      
   1  CALL PROCLI(BUFFER,CODE)                                                  
      IF (CODE.NE.'0   ') GOTO 2                                                
      II=II+1                                                                   
      IF(II.GE.IPO1)WRITE (IOIMP,100) II,BUFFER                                 
 100  FORMAT (1X,I4,2X,A72)                                                     
      IF(II.EQ.IPO2) GO TO 2                                                    
      GOTO 1                                                                    
   2  RETURN                                                                    
      END