Télécharger @stbl.procedur

Retour à la liste

Numérotation des lignes :

  1. * @STBL PROCEDUR CHAT 96/01/03 21:31:48 1971
  2. **********************************************************************
  3. *-----------------------------------------------------------------------
  4. *
  5. * PROCEDURE @STBL ALF/CERN FEVRIER 1989
  6. *
  7. * CHAMBRETTE PIERRE (NOUVELLE VERSION DE CASTEM 2000)
  8. *
  9. * FUSION DES OBJETS CONTENUS DANS UNE TABLE
  10. * AU MOYEN DE L'OPERATEUR 'ET'
  11. *
  12. *-----------------------------------------------------------------------
  13. *
  14. * ENTREE
  15. *
  16. *
  17. * CHOZ Objet de type Table
  18. *
  19. *-----------------------------------------------------------------------
  20. *
  21. * SORTIE
  22. *
  23. * SORTZ Resultat de la fusion
  24. *
  25. *-----------------------------------------------------------------------
  26. 'DEBPROC' @STBL CHOZ*'TABLE' ;
  27. I = 1 ;
  28. SORTZ = CHOZ.1 ;
  29. 'REPETE' SOMZ ;
  30. I = I+1 ;
  31. 'SI' ('EXISTE' CHOZ I) ;
  32. SORTZ = SORTZ 'ET' CHOZ.I ;
  33. 'SINON' 'QUITTE' SOMZ ;
  34. 'FINSI' ;
  35. 'FIN' SOMZ ;
  36. 'FINPROC' SORTZ ;
  37.  

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