Télécharger quetyp.eso

Retour à la liste

Numérotation des lignes :

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

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