clear				
set mem 500m
set matsize 800
set more off				
capture log close				
set logtype text
set trace on

*log using "/home/brass/hdir0/ebenstei/nta/cex/cextax.log", replace			

#delimit;

/*=======================================	
 Program: cexmerge.do
 Author:  Avi Ebenstein
 Created: September 2004
 Purpose: Merge CEX family and member
          files, and append each year
          into a single data set.
========================================*/

forvalues i=1995/1995{;
  
  if `i'<=1999{; local j=`i'-1900;};
  if `i'==2000{; local j="00";};
  if `i'==2001{; local j="01";};
  if `i'==2002{; local j="02";};
  if `i'==2003{; local j="03";};
                      
use ~/nta/cex/`j'1/fam`j'1;
gen qtr=1;
append using ~/nta/cex/`j'2/fam`j'2;
replace qtr=2 if qtr==.;
if `j'~=85 & `j'~=95 & `j'~=03{;
append using ~/nta/cex/`j'3/fam`j'3;
replace qtr=3 if qtr==.;
append using ~/nta/cex/`j'4/fam`j'4;
replace qtr=4 if qtr==.;
                   };
sort newid;
save ~/nta/cex/cexdata/fam`j', replace;

use ~/nta/cex/`j'1/memb`j'1;
gen qtr=1;
append using ~/nta/cex/`j'2/memb`j'2;
replace qtr=2 if qtr==.;
if `j'~=85 & `j'~=95 & `j'~=03{;
append using ~/nta/cex/`j'3/memb`j'3;
replace qtr=3 if qtr==.;
append using ~/nta/cex/`j'4/memb`j'4;
replace qtr=4 if qtr==.;
                  };
gen myid=_n;
sort newid;
save ~/nta/cex/cexdata/memb`j', replace;

use ~/nta/cex/cexdata/fam`j';
merge newid using ~/nta/cex/cexdata/memb`j';
do ~/nta/cex/CBO_1980_2000/labelcex.do;
drop _merge;
sort newid;

egen famid=group(newid qtr);                      
bysort famid: egen maxwage=max(wage);
gsort famid -maxwage -age;
by famid: gen pernum=_n;
gen hh=pernum==1;
                      
*******************;

save ~/nta/cex/cexdata/cex`i', replace;

*******************;
};