Télécharger la plaquette Cast3M


fr en

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