/*================================================
 Program: renaming.do
 Author:  Steven Leung
 Created: Feb 2008
 Purpose: Renames relevant vars for ~data\ch2000_counties.dta,
          Generates sex ratio variables by agebucket
=================================================*/

#delimit;
clear;
set mem 150m;

global datapath ~/data/china/china2000/gis2000;

use $datapath/datafiles/ch2000_counties.dta;

rename A2000001 pop;
rename A2000010 urbpop;
rename A2000011 rurpop;
rename A2000007 sharemin;
rename A2000020 m0to1;
rename A2000021 f0to1;
rename A2000022 m1to4;
rename A2000023 f1to4;
rename A2000024 m5to9;
rename A2000025 f5to9;
rename A2000026 m10to14;
rename A2000027 f10to14;
rename A2000028 m15to19;
rename A2000029 f15to19;
rename A2000030 m20to24;
rename A2000031 f20to24;
rename A2000066 birthrate;
rename A2000067 deathrate;
rename A2000069 tfr;
rename A2000093 yrseduc;
rename L102004 empmale;
rename L102005 empfmale;
rename L102011 manumale;
rename L102012 manufmale;
rename L102016 constrmale;
rename L102017 constrfmale;
rename L101007 srpop;
rename L107004 sexratio;
rename L107008 sr1;
rename L107012 sr2;
rename L107016 sr3;
rename L107020 sr4;
rename L107024 sr5;
rename L107009 secondbirth;
rename L107013 thirdbirth;
rename L107017 fourthbirth;
rename L107021 fifthbirth;

rename L2000201 singlemen;
rename L2000202 singlewomen;

rename L2000220 tapwater;
rename L2000221 notapwater;

gen totmanu=L2000180;
gen totconstr=L2000182;
gen totemp=L2000161;

gen sr0to1=(m0to1/f0to1*100);
gen sr1to4=(m1to4/f1to4*100);
gen sr5to9=(m5to9/f5to9*100);
gen sr10to14=(m10to14/f10to14*100);
gen sr15to19=(m15to19/f15to19*100);
gen sr0to9=((m0to1+m1to4+m5to9)/(f0to1+f1to4+f5to9)*100);
gen sr10to19=((m10to14+m15to19)/(f10to14+f15to19)*100);
gen sr20to24=(m20to24/f20to24*100);
gen sr15to24=((m15to19+m20to24)/(f15to19+f20to24)*100);

gen shareurb=urbpop/pop;
gen sharemanu=(totmanu/totemp);
gen shareconstr=(totconstr/totemp);
gen srdiff=((sr0to9-sr10to19)/sr0to9);
gen sharetapwater=tapwater/(tapwater+notapwater);
gen sharenotapwater=1-sharetapwater;

label var sharemanu "share manufacturing employment";
label var shareurb "share urban manu";

******************************************;
* Recode the 2000 county data for merging ;
******************************************;

do $datapath/dofiles/cntygb_gbcode.do;

tostring gbcode, gen(countycode);
capture drop _merge;

drop L* A*;
sort countycode;

save $datapath/datafiles/ch2000_counties_clean, replace;
bysort CNTYGB: keep if _n==1;
save $datapath/datafiles/ch2000_counties_unique, replace;

gen prefecture=substr(countycode,1,4);

collapse (mean) deathrate (mean) shareman,by(prefecture);
save $datapath/datafiles/ch2000_prefectures, replace;