clear all                  

/* 
 
*we use dataset to collect all the existing ccyy in lis... put in fifi 
          
use $myincl/datasets.dta           
levelsof dname, local(fifi)           
di `fifi'            
foreach ccyy in local   `fifi'  {           
di "`ccyy'"            
}           
      
di  "`fifi' "           
 
*we build one extract by ccyy in fifi (if exist) 
          
local i=0               
foreach toto in `fifi' {               
local i=`i'+1                
capt {                 
local perso "$`toto'p"                     
local house "$`toto'h"                     
qui use hid ppopwgt age sex relation educlev using `perso'  , clear                     
qui joinby hid using `house'                      
keep hid ppopwgt  dname age sex educlev year relation iso2 hpopwgt  dhi hifactor hxitsc hitransfer  nhhmem region_c hcexp                        
gen nnn=`i'          
gen titi = "`toto'"          
gen ccyy = "`toto'"          
save   "t`toto'" , replace                      
}          
}          
 
*append them in a single dataset           
 
clear           
foreach toto in `fifi' {               
capt  {                 
append  using "t`toto'"           
}          
}          
          
     
save    $mydata/prosoc/tmpabg , replace                 
su *     
qui ta ccyy     
ret li