Tableaux

 

                                  
Dara              s              5    dim(10)       
  *     
  *                                                
  *                                                    
D                 ds                                  
Darb                            25    dim(10)         
Dnom                            10    overlay(arb:1)  
Dprenom                         10    overlay(arb:11) 
Dnumero                          5    overlay(arb:21)  
                                                    
  *                                                    
  /free                                                 
      sorta ara;
      sorta arb;
      sorta nom;
      sorta prenom;
      sorta %subarr(ara:1:7);
  /end-free