Télécharger @rempgro.procedur

Retour à la liste

Numérotation des lignes :

  1. * @REMPGRO PROCEDUR MO 97/11/28 21:16:41 2950
  2. * @REMPGRO PROCEDURE 96/11/12 09:00:00
  3. * ----------------------------------------------------------------------
  4. ****** PROCEDURE @REMPGRO ******
  5. * ----------------------------------------------------------------------
  6. *
  7. * CETTE PROCEDURE PERMET DE REMPLIR LA TABLE POUR FORMATION DES
  8. * GROUPES
  9. *
  10. * ----------------------------------------------------------------------
  11. *
  12. * LES DONNEES SONT :
  13. * ----> la table a remplir
  14. * ----> la liste des etats qui forment le groupe
  15. *
  16. * ----------------------------------------------------------------------
  17. * PAR Joseph MANNINO
  18. * ----------------------------------------------------------------------
  19. 'DEBPROC' @REMPGRO TABGROU*TABLE ETATS*LISTENTI ;
  20. IND = 1 ;
  21. SI ( ( DIME TABGROU ) NEG 0 ) ;
  22. TABIND = INDEX ( TABGROU ) ;
  23. NIND = DIME TABIND ;
  24. J = 0 ;
  25. REPETER BOUCLE ( NIND ) ;
  26. I = &BOUCLE ;
  27. SI ( TABIND.I EGA IND ) ;
  28. J = 1 ;
  29. QUITTER BOUCLE ;
  30. FINSI ;
  31. FIN BOUCLE ;
  32. SI ( J EGA 0 ) ;
  33. TABGROU.IND = TABLE ;
  34. FINSI ;
  35. SINON ;
  36. TABGROU.IND = TABLE ;
  37. FINSI ;
  38. N = DIME TABGROU.IND ;
  39. N = N + 1 ;
  40. TABGROU.IND.N = ETATS ;
  41. FINPROC ;
  42.  
  43.  

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