Télécharger erreu1.eso

Retour à la liste

Numérotation des lignes :

  1. C ERREU1 SOURCE CB215821 15/02/12 21:15:04 8396
  2. C
  3. C RECHERCHE DES MESSAGES D'ERREURS (SUITE)
  4. C
  5. SUBROUTINE ERREU1(ITYP,CHLU,NIVEAU,NBL)
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCNOYAU
  8. -INC CCOPTIO
  9. CHARACTER*80 CHLU(2)
  10. C CHARACTER*4 CHTYP
  11. C CHARACTER*87 CHTAMP
  12. C RECHERCHE DE LA LANGUE
  13. DO 156 IK=1,LANGUA(/2)
  14. IF( LANGUE.EQ.LANGUA(IK)) THEN
  15. ILAN=IK
  16. GO TO 157
  17. ENDIF
  18. 156 CONTINUE
  19. ILAN=1
  20. C WRITE (IOIMP,158)
  21. C 158 FORMAT (' ERREUR DE LANGUE DU MESSAGE D''ERREUR')
  22. C NBL=0
  23. C NIVEAU=2
  24. C RETURN
  25. 157 CONTINUE
  26. C RECHERCHE DE L'ERREUR
  27. DO 10 I=1,IPMESS(/1)
  28. IF (NUMERR(I).EQ.ITYP) GOTO 20
  29. 10 CONTINUE
  30. WRITE (IOIMP,12)
  31. 12 FORMAT (' ERREUR DANS LA RECHERCHE DU MESSAGE D''ERREUR')
  32. NBL=0
  33. NIVEAU=2
  34. RETURN
  35. 20 CONTINUE
  36. NIVEAU=NIVERR(I)
  37. MCHERR=IPMESS(I,ILAN)
  38. C SEGACT MCHERR
  39. CHLU(1)=CHERR1
  40. IF (CHERR2(/1).EQ.0) THEN
  41. NBL=1
  42. CHLU(2)=' '
  43. ELSE
  44. NBL=2
  45. CHLU(2)=CHERR2
  46. ENDIF
  47. C SEGDES MCHERR
  48. END
  49.  
  50.  
  51.  

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