set more 1

/*
File: 	17th_pums_master.do
Date:	Feb 12, 2004
Desc:	Creates a consistent set of selected variables from the 1980, 1990 
	     and 2000 Decennial Census PUMS 1%
*/

/* set memory */

clear
set mem 2000m

/* set directories */

	/* linux */
global do "/data/PUMS/Do"
global d1980 "/data/PUMS/1980/RawData"
global d1990 "/data/PUMS/1990/RawData"
global d2000 "/data/PUMS/2000/RawData"
global work "/data/PUMS/Work"
global final "/data/PUMS/Final"

/* retrieve raw data */

	/* 1980 */

* do "$do/17th_pums_proc_1980.do"
/* calls 17th_pums_h_1980.dct, 17th_pums_p_1980.dct, 17th_pums_h_label_1980.do, 
   17th_pums_p_label_1980.do  */

	/* 1990 */

* do "$do/17th_pums_proc_1990.do"
/* calls h_1990.dct, p_1990.dct, h_label_1990.do, p_label_1990.do  */

	/* 2000 */

* do "$do/17th_pums_proc_2000.do"
/* calls h_2000.dct, p_2000.dct, h_label_2000.do, p_label_2000.do  */

/* process raw data to create consistent versions of PUMS */

capture program drop pumsall
program define pumsall
version 7.0
while "`1'"~="" {
*
use "$work/pums_`1'_pre_all.dta", clear
gen int year=`1'
lab var year "Year"
*
notes: Age 16 and older only
*
do "$do/17th_pums_household.do" `1' /* pass data year to do file */
do "$do/17th_pums_person.do" `1' /* pass data year to do file */
do "$do/17th_pums_mixed.do" `1' /* pass data year to file */
*
keep year division region state puma1990 puma2000 msa msac /*
*/ persons gq instl tenure ownhouse ownclear pv1980 pv1990 pv2000 pv1 /*
*/ piti pitiplus mrtg_29 mrtg3049 mrtg50_ rentgr rent_29 rent3049 rent50_ /*
*/ hamo numveh reltohh subfamn mcf hhtype zmf2 perlt18 pergt64 /*
*/ nonnuc nonrel hhinc faminc hhwgt age female wbho wbhom ed ed2 marstat /*
*/ empldis othlang english forborn mexico elsalv domrep othlat othfor /*
*/ pob1980 pob1990 pob2000 /*
*/ arrived citizen natized lfs cow cow1 ind1980 ind1990 ind2000 /*
*/ manuf servs retail agric forces occ1980 occ1990 occ2000 manager /*
*/ wage weeksly hoursly /*
*/ incwork incself incinv incsocl incwelf incpens incoth /*
*/ inctot poverty pov1 poor /*
*/ samehous travtime pubtrans bike walk workhome /*
*/ perwgt serialno 
*
order year division region state puma1990 puma2000 msa msac /*
*/ persons gq instl tenure ownhouse ownclear pv1980 pv1990 pv2000 pv1 /*
*/ piti pitiplus mrtg_29 mrtg3049 mrtg50_ rentgr rent_29 rent3049 rent50_ /*
*/ hamo numveh reltohh subfamn mcf hhtype zmf2 perlt18 pergt64 /*
*/ nonnuc nonrel hhinc faminc hhwgt age female wbho wbhom ed ed2 marstat /*
*/ empldis othlang english forborn mexico elsalv domrep othlat othfor /*
*/ pob1980 pob1990 pob2000 /*
*/ arrived citizen natized lfs cow cow1 ind1980 ind1990 ind2000 /*
*/ manuf servs retail agric forces occ1980 occ1990 occ2000 manager /*
*/ wage weeksly hoursly /*
*/ incwork incself incinv incsocl incwelf incpens incoth /*
*/ inctot poverty pov1 poor /*
*/ samehous travtime pubtrans bike walk workhome /*
*/ perwgt serialno 
*
compress
sort state serialno
lab data "CEPR PUMS Extract, Version 0.97, `1', July 4, 2005"
save "$final/17th_pums_`1'.dta", replace
saveold "$final/17th_pums_`1'_ver7.dta", replace
mac shift
}
end

/* program switches */

pumsall 1980 /* 1990 2000 */

/* Release notes

0.97 July 4, 2005
	Beta release
	Corrected retail variable for 1980.
0.96	Feb 11, 2005
	Beta release
0.95 Jan 17, 2005
	Beta release
0.91	Dec 3, 2004
	Beta release
0.9	Feb TK, 2004
	Beta release
*/

/* 
Copyright 2004, 2005 Sarah Gammage and John Schmitt

This program and all programs referenced in it are free software. You
can redistribute the program or modify it under the terms of the GNU
General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
USA.
*/