Déèsse Qualifiée

Ftest010d  cf   e             workstn                                                      
 *
 *                                                    
Ddscouple         ds                  qualified inz    
D habitant                            likeds(dshabitant)
D                                     dim(2)           
D nom                           15                     
 *                                                     
 *                                                     
Ddshabitant       ds                  qualified        
D                                     based(dummy)     
D personne                            likeds(dspersonne)
D adresse                             likeds(dsadresse)
D electeur                        n                    
 *                                                     
Ddspersonne       ds                  based(dummy)     
D code                          10                     
D nom                           20                     
D prenom                        20                   
D taille                         3  0                
 *                                                   
Ddsadresse        ds                  based(dummy)   
D numero                         5  0                
D rue                           25                   
D codepostal                    25                   
D ville                         25                   
 *
 *                                                   
Ddsecran02        ds                  likerec(ecran02:*output)                                                    
 *                                                   
 *                                                   
 /free                                               
                                                     
     dscouple.habitant(1).personne.nom='Dupont';     
     dscouple.habitant(1).personne.prenom='François';
     dscouple.habitant(1).adresse.ville='Paris';     
     dscouple.habitant(2).personne.nom='Durand';     
     dscouple.habitant(2).personne.prenom='Alexia';  
     dscouple.habitant(2).adresse.ville='La Rochelle';
     dscouple.nom='Les DuDu';