Télécharger la plaquette Cast3M


fr en

Télécharger @rempgro.procedur

Retour à la liste

Numérotation des lignes : 

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

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