Procedures | Cast3M

   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 :