Télécharger chatit.eso

Retour à la liste

Numérotation des lignes :

  1. C CHATIT SOURCE PV 09/03/12 21:17:00 6325
  2. SUBROUTINE CHATIT(IPOI1,CHAR,IPOI2)
  3. *
  4. * APPELE PAR PRCHAN,CHANGE LE TITRE D'UN MCHAML
  5. *******************************************************************
  6. * ENTREES :
  7. * IPOI1 = POINTEUR DU MCHAML POUR LEQUEL ON VEUT CHANAGER LE TITRE
  8. * CHAR = CHAINE DE CARACTERES REPRESENTANT LE TITRE
  9. *
  10. * SORITIES :
  11. *
  12. * IPOI2 = POINTEUR DU MCHAML AVEC LE NOUVELLE TITRE
  13. *
  14. ************************************************************************
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17. -INC SMCHAML
  18. -INC CCOPTIO
  19. CHARACTER*(*) CHAR
  20. *
  21. CALL COPIE8(IPOI1,IPOI2)
  22. L1=LEN(CHAR)
  23. MCHELM = IPOI2
  24. SEGACT MCHELM
  25. N3 = INFCHE(/2)
  26. N1 = IMACHE(/1)
  27. SEGADJ MCHELM
  28. TITCHE=CHAR(1:L1)
  29. SEGDES MCHELM
  30. *
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  

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