log using pop7099s,text replace

/* 
The US Census publishes estimates of population by state, age and sex
for inter-censal years.

This program combines the Census files from Steve Pischke and adds a 
new "state2" variable with a uniform 2 letter abbreviation. There is 
probably a recode statement in stata that could do this more easily, 
however the plain "recode" command is numeric only.

  DRF

http://www.nber.org/data/census-intercensal-population

*/
set memory 100m
use pop70s
append using pop80s
append using pop90s
label data "US Intercensal Est of Res Pop by State 1970-2000. P-25 #998,1106,+99-10,99-19"

gen     state2 = "AL" if fips ==  1 
replace state2 = "AK" if fips ==  2 
replace state2 = "AZ" if fips ==  4 
replace state2 = "AR" if fips ==  5 
replace state2 = "CA" if fips ==  6
replace state2 = "CO" if fips ==  8 
replace state2 = "CT" if fips ==  9 
replace state2 = "DE" if fips == 10 
replace state2 = "DC" if fips == 11 
replace state2 = "FL" if fips == 12
replace state2 = "GA" if fips == 13 
replace state2 = "HI" if fips == 15 
replace state2 = "ID" if fips == 16 
replace state2 = "IL" if fips == 17 
replace state2 = "IN" if fips == 18
replace state2 = "IA" if fips == 19 
replace state2 = "KS" if fips == 20 
replace state2 = "KY" if fips == 21 
replace state2 = "LA" if fips == 22 
replace state2 = "ME" if fips == 23
replace state2 = "MD" if fips == 24 
replace state2 = "MA" if fips == 25 
replace state2 = "MI" if fips == 26 
replace state2 = "MN" if fips == 27 
replace state2 = "MS" if fips == 28
replace state2 = "MO" if fips == 29 
replace state2 = "MT" if fips == 30 
replace state2 = "NE" if fips == 31 
replace state2 = "NV" if fips == 32 
replace state2 = "NH" if fips == 33
replace state2 = "NJ" if fips == 34 
replace state2 = "NM" if fips == 35 
replace state2 = "NY" if fips == 36 
replace state2 = "NC" if fips == 37 
replace state2 = "ND" if fips == 38
replace state2 = "OH" if fips == 39 
replace state2 = "OK" if fips == 40 
replace state2 = "OR" if fips == 41 
replace state2 = "PA" if fips == 42 
replace state2 = "RI" if fips == 44
replace state2 = "SC" if fips == 45 
replace state2 = "SD" if fips == 46 
replace state2 = "TN" if fips == 47 
replace state2 = "TX" if fips == 48 
replace state2 = "UT" if fips == 49
replace state2 = "VT" if fips == 50 
replace state2 = "VA" if fips == 51 
replace state2 = "WA" if fips == 53 
replace state2 = "WV" if fips == 54 
replace state2 = "WI" if fips == 55
replace state2 = "WY" if fips == 56, 

summarize
tab agegr 
tab state2

sort year state
table year, c(sum pop) format(%12.0f)

saveold pop7099s,replace