Télécharger quetyp.eso

Retour à la liste

Numérotation des lignes :

quetyp
  1. C QUETYP SOURCE CHAT 06/06/01 21:19:56 5450
  2. SUBROUTINE QUETYP(ICHA , ICODE , IRETOU )
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. CHARACTER*(*) ICHA
  8. IF(LEN(ICHA).NE.8) CALL ERREUR (5)
  9. ICHA=' '
  10. ICOD=ICODE
  11. CALL LIRABJ(ICHA ,IRAT,ICOD,IRETOU)
  12. IF(IERR.NE.0) RETURN
  13. IF (IRETOU.EQ.0) RETURN
  14. CALL REFUS
  15. RETURN
  16. END
  17.  
  18.  
  19.  
  20.  
  21.  

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