// Code for "Saving Behavior and Housing Wealth - Evidence from German Micro Data" by S. Gröbel and D. Ihle

// Merging the data 

set more off
cd "D:\SOEP\stata_v29" //Enter preferred path here

/*HPFAD: Befragungsstatus und sample fuer 1992 bis 2012*/
use hpfad, clear
keep hhnr hhnrakt ihnetto jhnetto khnetto lhnetto mhnetto nhnetto ohnetto phnetto qhnetto rhnetto shnetto thnetto uhnetto vhnetto whnetto xhnetto yhnetto zhnetto bahnetto bbhnetto bchnetto isampreg jsampreg ksampreg lsampreg msampreg nsampreg osampreg psampreg qsampreg rsampreg ssampreg tsampreg usampreg vsampreg wsampreg xsampreg ysampreg zsampreg basampreg bbsampreg bcsampreg hsample  

rename ihnetto hnetto1992
rename jhnetto hnetto1993
rename khnetto hnetto1994
rename lhnetto hnetto1995
rename mhnetto hnetto1996
rename nhnetto hnetto1997
rename ohnetto hnetto1998
rename phnetto hnetto1999
rename qhnetto hnetto2000
rename rhnetto hnetto2001
rename shnetto hnetto2002
rename thnetto hnetto2003
rename uhnetto hnetto2004
rename vhnetto hnetto2005
rename whnetto hnetto2006
rename xhnetto hnetto2007
rename yhnetto hnetto2008
rename zhnetto hnetto2009
rename bahnetto hnetto2010
rename bbhnetto hnetto2011
rename bchnetto hnetto2012

rename isampreg sampreg1992
rename jsampreg sampreg1993
rename ksampreg sampreg1994
rename lsampreg sampreg1995
rename msampreg sampreg1996
rename nsampreg sampreg1997
rename osampreg sampreg1998
rename psampreg sampreg1999
rename qsampreg sampreg2000
rename rsampreg sampreg2001
rename ssampreg sampreg2002
rename tsampreg sampreg2003
rename usampreg sampreg2004
rename vsampreg sampreg2005
rename wsampreg sampreg2006
rename xsampreg sampreg2007
rename ysampreg sampreg2008
rename zsampreg sampreg2009
rename basampreg sampreg2010
rename bbsampreg sampreg2011
rename bcsampreg sampreg2012

save "C:\...\hpfad_hw", replace //Enter preferred path here
clear

/*HHRF: Gewichte*/
use hhrf, clear
keep hhnr hhnrakt ihbleib jhbleib khbleib lhbleib mhbleib nhbleib ohbleib phbleib qhbleib rhbleib shbleib thbleib uhbleib vhbleib whbleib xhbleib yhbleib zhbleib bahbleib bbhbleib bchbleib ihhrf jhhrf khhrf lhhrf mhhrf nhhrf ohhrf phhrf qhhrf rhhrf shhrf thhrf uhhrf vhhrf whhrf xhhrf yhhrf zhhrf bahhrf bbhhrf bchhrf
save "C:\...\gewichte_hw", replace  //Enter preferred path here
clear

/*HMASTER-Datensatz*/ 
cd "C:\...\Datensaetze" //Enter preferred path here
use hpfad_hw
merge 1:1 hhnr hhnrakt using gewichte_hw 
drop if _merge==2
drop _merge

erase hpfad_hw.dta
erase gewichte_hw.dta
sort hhnr hhnrakt

rename ihbleib hbleib1992
rename jhbleib hbleib1993
rename khbleib hbleib1994
rename lhbleib hbleib1995
rename mhbleib hbleib1996
rename nhbleib hbleib1997
rename ohbleib hbleib1998
rename phbleib hbleib1999
rename qhbleib hbleib2000
rename rhbleib hbleib2001
rename shbleib hbleib2002
rename thbleib hbleib2003
rename uhbleib hbleib2004
rename vhbleib hbleib2005
rename whbleib hbleib2006
rename xhbleib hbleib2007
rename yhbleib hbleib2008
rename zhbleib hbleib2009
rename bahbleib hbleib2010
rename bbhbleib hbleib2011
rename bchbleib hbleib2012

rename ihhrf hhrf1992
rename jhhrf hhrf1993
rename khhrf hhrf1994
rename lhhrf hhrf1995
rename mhhrf hhrf1996
rename nhhrf hhrf1997
rename ohhrf hhrf1998
rename phhrf hhrf1999
rename qhhrf hhrf2000
rename rhhrf hhrf2001
rename shhrf hhrf2002
rename thhrf hhrf2003
rename uhhrf hhrf2004
rename vhhrf hhrf2005
rename whhrf hhrf2006
rename xhhrf hhrf2007
rename yhhrf hhrf2008
rename zhhrf hhrf2009
rename bahhrf hhrf2010
rename bbhhrf hhrf2011
rename bchhrf hhrf2012

save hmaster_hw, replace


/********** MERGE ***********/


/*mit Variablen aus Hauptdatensatz $H*/

cd "C:\SOEP\stata_v29" //Enter preferred path here

merge 1:1 hhnrakt using ih, keepusing(ih07 ih08 ih10 ih11a ih11b ih49 ih5001 ih5002 ih02a ih36 ih4201 ih3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using jh, keepusing(jh07 jh08 jh10 jh11a jh11b jh49 jh5001 jh5002 jh02a jh36 jh4201 jh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using kh, keepusing(kh07 kh08 kh10 kh11a kh11b kh49 kh5001 kh5002 kh02a kh36 kh4201 kh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using lh, keepusing(lh07 lh08 lh10 lh11a lh11b lh50 lh5101 lh5102 lh02a lh36 lh4201 lh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using mh, keepusing(mh08 mh09 mh01 mh11a mh11b mh50 mh5101 mh5102 mh03a mh36 mh4201 mh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using nh, keepusing(nh08 nh09 nh01 nh11a nh11b nh50 nh5101 nh5102 nh5201 nh5202 nh03a nh36 nh4201 nh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using oh, keepusing(oh08 oh09 oh01 oh11a oh11b oh50 oh5101 oh5102 oh5201 oh5202 oh03a oh36 oh4201 oh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ph, keepusing(ph12 ph08 ph13 ph16 ph17 ph50 ph5101 ph5102 ph5201 ph5202 ph20 ph34 ph4201 ph33) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using qh, keepusing(qh12 qh08 qh13 qh15 qh16 qh54 qh5501 qh5502 qh5601 qh5602 qh19 qh33 qh4201 qh32) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using rh, keepusing(rh12 rh08 rh13 rh15 rh16 rh49 rh5001 rh5002 rh5101 rh5102 rh19 rh33 rh4201 rh32) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using sh, keepusing(sh05 sh06 sh08 sh11 sh12 sh4901 sh5001 sh5002 sh5101 sh5102 sh18 sh33 sh4201 sh32) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using th, keepusing(th05 th06 th09 th12 th13 th4801 th4901 th4902 th5001 th5002 th17 th31 th4001 th30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using uh, keepusing(uh05 uh06 uh09 uh12 uh13 uh4801 uh4901 uh4902 uh5001 uh5002 uh17 uh31 uh4001 uh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using vh, keepusing(vh05 vh06 vh08 vh10 vh11 vh5101 vh5201 vh5202 vh41 vh42 vh43 vh16 vh30 vh3901 vh29)  
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using wh, keepusing(wh05 wh06 wh08 wh10 wh11 wh5101 wh5201 wh5202 wh41 wh42 wh43 wh16 wh30 wh3901 wh29) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using xh, keepusing(xh05 xh06 xh0801 xh10 xh11 xh5101 xh5201 xh5202 xh41 xh42 xh43 xh16 xh30 xh3901 xh29) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using yh, keepusing(yh05 yh06 yh0801 yh10 yh11 yh5201 yh5301 yh5302 yh42 yh43 yh44 yh16 yh31 yh4001 yh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using zh, keepusing(zh05 zh06 zh0801 zh10 zh11 zh5201  zh5301 zh5302 zh42 zh43 zh44 zh16 zh31 zh4001 zh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bah, keepusing(bah05 bah06 bah0801 bah10 bah11 bah5201 bah5401 bah5402 bah42 bah43 bah44 bah16 bah1702 bah31 bah4001 bah30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bbh, keepusing(bbh05 bbh06 bbh0801 bbh10 bbh11 bbh5101 bbh5201 bbh5202 bbh42 bbh43 bbh44 bbh16 bbh1702 bbh31 bbh4001 bbh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bch, keepusing(bch05 bch06 bch0801 bch10 bch11 bch5101 bch5201 bch5202 bch42 bch43 bch44 bch16 bch1702 bch31 bch4001 bch30) 
drop if _merge==2
drop _merge 

rename ih3301 zinsexp1992
rename jh3301 zinsexp1993
rename kh3301 zinsexp1994
rename lh3301 zinsexp1995
rename mh3301 zinsexp1996
rename nh3301 zinsexp1997
rename oh3301 zinsexp1998
rename ph33 zinsexp1999
rename qh32 zinsexp2000
rename rh32 zinsexp2001
rename sh32 zinsexp2002
rename th30 zinsexp2003
rename uh30 zinsexp2004
rename vh29 zinsexp2005
rename wh29 zinsexp2006
rename xh29 zinsexp2007
rename yh30 zinsexp2008
rename zh30 zinsexp2009
rename bah30 zinsexp2010
rename bbh30 zinsexp2011
rename bch30 zinsexp2012

rename ih4201 operexp1992
rename jh4201 operexp1993
rename kh4201 operexp1994
rename lh4201 operexp1995
rename mh4201 operexp1996
rename nh4201 operexp1997
rename oh4201 operexp1998
rename ph4201 operexp1999
rename qh4201 operexp2000
rename rh4201 operexp2001
rename sh4201 operexp2002
rename th4001 operexp2003
rename uh4001 operexp2004
rename vh3901 operexp2005
rename wh3901 operexp2006
rename xh3901 operexp2007
rename yh4001 operexp2008
rename zh4001 operexp2009
rename bah4001 operexp2010
rename bbh4001 operexp2011
rename bch4001 operexp2012

rename ih36 maintexp1992
rename jh36 maintexp1993
rename kh36 maintexp1994
rename lh36 maintexp1995
rename mh36 maintexp1996
rename nh36 maintexp1997
rename oh36 maintexp1998
rename ph34 maintexp1999
rename qh33 maintexp2000
rename rh33 maintexp2001
rename sh33 maintexp2002
rename th31 maintexp2003
rename uh31 maintexp2004
rename vh30 maintexp2005
rename wh30 maintexp2006
rename xh30 maintexp2007
rename yh31 maintexp2008
rename zh31 maintexp2009
rename bah31 maintexp2010
rename bbh31 maintexp2011
rename bch31 maintexp2012

rename bah1702 modexp2010
rename bbh1702 modexp2011
rename bch1702 modexp2012

rename ih02a modpayer1992
rename jh02a modpayer1993
rename kh02a modpayer1994
rename lh02a modpayer1995
rename mh03a modpayer1996
rename nh03a modpayer1997
rename oh03a modpayer1998
rename ph20 modpayer1999
rename qh19 modpayer2000
rename rh19 modpayer2001
rename sh18 modpayer2002
rename th17 modpayer2003
rename uh17 modpayer2004
rename vh16 modpayer2005
rename wh16 modpayer2006
rename xh16 modpayer2007
rename yh16 modpayer2008
rename zh16 modpayer2009
rename bah16 modpayer2010
rename bbh16 modpayer2011
rename bch16 modpayer2012

rename ih07 wohngegend1992
rename jh07 wohngegend1993
rename kh07 wohngegend1994
rename lh07 wohngegend1995
rename mh08 wohngegend1996
rename nh08 wohngegend1997
rename oh08 wohngegend1998
rename ph12 wohngegend1999
rename qh12 wohngegend2000
rename rh12 wohngegend2001
rename sh05 wohngegend2002
rename th05 wohngegend2003
rename uh05 wohngegend2004
rename vh05 wohngegend2005
rename wh05 wohngegend2006
rename xh05 wohngegend2007
rename yh05 wohngegend2008
rename zh05 wohngegend2009
rename bah05 wohngegend2010
rename bbh05 wohngegend2011
rename bch05 wohngegend2012

rename ih08 hhtyp1992
rename jh08 hhtyp1993
rename kh08 hhtyp1994
rename lh08 hhtyp1995
rename mh09 hhtyp1996
rename nh09 hhtyp1997
rename oh09 hhtyp1998
rename ph08 hhtyp1999
rename qh08 hhtyp2000
rename rh08 hhtyp2001
rename sh06 hhtyp2002
rename th06 hhtyp2003
rename uh06 hhtyp2004
rename vh06 hhtyp2005
rename wh06 hhtyp2006
rename xh06 hhtyp2007
rename yh06 hhtyp2008
rename zh06 hhtyp2009
rename bah06 hhtyp2010
rename bbh06 hhtyp2011
rename bch06 hhtyp2012

rename ih10 wbaujahr1992
rename jh10 wbaujahr1993
rename kh10 wbaujahr1994
rename lh10 wbaujahr1995
rename mh01 wbaujahr1996
rename nh01 wbaujahr1997
rename oh01 wbaujahr1998
rename ph13 wbaujahr1999
rename qh13 wbaujahr2000
rename rh13 wbaujahr2001
rename sh08 wbaujahr2002
rename th09 wbaujahr2003
rename uh09 wbaujahr2004
rename vh08 wbaujahr2005
rename wh08 wbaujahr2006
rename xh0801 wbaujahr2007
rename yh0801 wbaujahr2008
rename zh0801 wbaujahr2009
rename bah0801 wbaujahr2010
rename bbh0801 wbaujahr2011
rename bch0801 wbaujahr2012

rename ih11a wqm1992
rename jh11a wqm1993
rename kh11a wqm1994
rename lh11a wqm1995
rename mh11a wqm1996
rename nh11a wqm1997
rename oh11a wqm1998
rename ph16 wqm1999
rename qh15 wqm2000
rename rh15 wqm2001
rename sh11 wqm2002
rename th12 wqm2003
rename uh12 wqm2004
rename vh10 wqm2005
rename wh10 wqm2006
rename xh10 wqm2007
rename yh10 wqm2008
rename zh10 wqm2009
rename bah10 wqm2010
rename bbh10 wqm2011
rename bch10 wqm2012

rename ih11b wrooms1992
rename jh11b wrooms1993
rename kh11b wrooms1994
rename lh11b wrooms1995
rename mh11b wrooms1996
rename nh11b wrooms1997
rename oh11b wrooms1998
rename ph17 wrooms1999
rename qh16 wrooms2000
rename rh16 wrooms2001
rename sh12 wrooms2002
rename th13 wrooms2003
rename uh13 wrooms2004
rename vh11 wrooms2005
rename wh11 wrooms2006
rename xh11 wrooms2007
rename yh11 wrooms2008
rename zh11 wrooms2009
rename bah11 wrooms2010
rename bbh11 wrooms2011
rename bch11 wrooms2012

rename ih49 netinc1992
rename jh49 netinc1993
rename kh49 netinc1994
rename lh50 netinc1995
rename mh50 netinc1996
rename nh50 netinc1997
rename oh50 netinc1998
rename ph50 netinc1999
rename qh54 netinc2000
rename rh49 netinc2001
rename sh4901 netinc2002
rename th4801 netinc2003
rename uh4801 netinc2004
rename vh5101 netinc2005
rename wh5101 netinc2006
rename xh5101 netinc2007
rename yh5201 netinc2008
rename zh5201 netinc2009
rename bah5201 netinc2010
rename bbh5101 netinc2011
rename bch5101 netinc2012

rename ih5001 sav1992
rename jh5001 sav1993
rename kh5001 sav1994
rename lh5101 sav1995
rename mh5101 sav1996
rename nh5101 sav1997
rename oh5101 sav1998
rename ph5201 sav1999
rename qh5601 sav2000
rename rh5101 sav2001
rename sh5101 sav2002
rename th5001 sav2003
rename uh5001 sav2004
rename vh5201 sav2005
rename wh5201 sav2006
rename xh5201 sav2007
rename yh5301 sav2008
rename zh5301 sav2009
rename bah5401 sav2010
rename bbh5201 sav2011
rename bch5201 sav2012

rename ih5002 savings1992
rename jh5002 savings1993
rename kh5002 savings1994
rename lh5102 savings1995
rename mh5102 savings1996
rename nh5102 savings1997
rename oh5102 savings1998
rename ph5202 savings1999
rename qh5602 savings2000
rename rh5102 savings2001
rename sh5102 savings2002
rename th5002 savings2003
rename uh5002 savings2004
rename vh5202 savings2005
rename wh5202 savings2006
rename xh5202 savings2007
rename yh5302 savings2008
rename zh5302 savings2009
rename bah5402 savings2010
rename bbh5202 savings2011
rename bch5202 savings2012

rename nh5201 kred1997
rename oh5201 kred1998
rename ph5101 kred1999
rename qh5501 kred2000
rename rh5001 kred2001
rename sh5001 kred2002
rename th4901 kred2003
rename uh4901 kred2004
rename vh41 kred2005
rename wh41 kred2006
rename xh41 kred2007
rename yh42 kred2008
rename zh42 kred2009
rename bah42 kred2010
rename bbh42 kred2011
rename bch42 kred2012

rename nh5202 kredit1997
rename oh5202 kredit1998
rename ph5102 kredit1999
rename qh5502 kredit2000
rename rh5002 kredit2001
rename sh5002 kredit2002
rename th4902 kredit2003
rename uh4902 kredit2004
rename vh42 kredit2005
rename wh42 kredit2006
rename xh42 kredit2007
rename yh43 kredit2008
rename zh43 kredit2009
rename bah43 kredit2010
rename bbh43 kredit2011
rename bch43 kredit2012

rename vh43 belastung_kr2005
rename wh43 belastung_kr2006
rename xh43 belastung_kr2007
rename yh44 belastung_kr2008
rename zh44 belastung_kr2009
rename bah44 belastung_kr2010
rename bbh44 belastung_kr2011
rename bch44 belastung_kr2012

cd "C:\...\Datensaetze" //Enter preferred path here
save hmaster_hw, replace


/* Regionaldaten (Raumordnungsregionen): ROR.DTA */
*ab 1996 einheitliche ROR-Definition
cd "C:\...\Datensaetze" //Enter preferred path here
use hmaster_hw, clear

cd "C:\...\geocodes" //Enter preferred path here
merge 1:1 hhnrakt using ror.dta, keepusing(ror96_1996 ror96_1997 ror96_1998 ror96_1999 ror96_2000 ror96_2001 ror96_2002 ror96_2003 ror96_2004 ror96_2005 ror96_2006 ror96_2007 ror96_2008 ror96_2009 ror96_2010 ror96_2011 ror96_2012)
drop if _merge==2
drop _merge 

rename ror96_1996 ror1996
rename ror96_1997 ror1997
rename ror96_1998 ror1998
rename ror96_1999 ror1999
rename ror96_2000 ror2000
rename ror96_2001 ror2001
rename ror96_2002 ror2002
rename ror96_2003 ror2003
rename ror96_2004 ror2004
rename ror96_2005 ror2005
rename ror96_2006 ror2006
rename ror96_2007 ror2007
rename ror96_2008 ror2008
rename ror96_2009 ror2009
rename ror96_2010 ror2010
rename ror96_2011 ror2011
rename ror96_2012 ror2012

cd "C:\...\Datensaetze" //Enter preferred path here
save hmaster_hw, replace


/* mit Vermoegensinformationen aus HWEALTH */
cd "C:\...\stata" //Enter preferred path here

*** 2002
use hwealth, clear
drop if svyyear==2007 | svyyear==2012
sort hhnrakt
drop svyyear hhnr
drop e000h1 e000h2 e000h3 e000h4 e000h5 e002h6 e002h7 b000h1 b000h2
*Imputation flags and filter droppen + private insurances and blc droppen, da Variablen "leer"
drop p100h0 p200h0 p020h0 p002h0 p022h0 e100h0 e200h0 e020h0 e002h0 e022h0 f100h0 f200h0 f020h0 i100h0 i200h0 i020h0 b100h0 b200h0 b020h0 t100h0 t200h0 t020h0 c100h0 c200h0 c020h0 w020h0 w002h0 w022h0 l010ha l010hb l010hc l010hd l010he l020h0 l100h0 l200h0 h010ha h010hb h010hc h010hd h010he h020h0 h100h0 h200h0
*Mittelwerte aus Imputationen a-e bilden und nur MW als Variablen behalten, Implicates droppen
gen prop=(p010ha+p010hb+p010hc+p010hd+p010he)/5
drop p010ha p010hb p010hc p010hd p010he
gen prop_debts=(p001ha+p001hb+p001hc+p001hd+p001he)/5
drop p001ha p001hb p001hc p001hd p001he
gen netprop=(p011ha+p011hb+p011hc+p011hd+p011he)/5
drop p011ha p011hb p011hc p011hd p011he
gen otherprop=(e010ha+e010hb+e010hc+e010hd+e010he)/5
drop e010ha e010hb e010hc e010hd e010he
gen otherprop_debts=(e001ha+e001hb+e001hc+e001hd+e001he)/5
drop e001ha e001hb e001hc e001hd e001he
gen netotherprop=(e011ha+e011hb+e011hc+e011hd+e011he)/5
drop e011ha e011hb e011hc e011hd e011he
gen financial=(f010ha+f010hb+f010hc+f010hd+f010he)/5
drop f010ha f010hb f010hc f010hd f010he
gen pi_blc=(i010ha+i010hb+i010hc+i010hd+i010he)/5
drop i010ha i010hb i010hc i010hd i010he
gen business=(b010ha+b010hb+b010hc+b010hd+b010he)/5
drop b010ha b010hb b010hc b010hd b010he
gen tangible=(t010ha+t010hb+t010hc+t010hd+t010he)/5
drop t010ha t010hb t010hc t010hd t010he
gen consumerdebts=(c010ha+c010hb+c010hc+c010hd+c010he)/5
drop c010ha c010hb c010hc c010hd c010he
gen wealth=(w010ha+w010hb+w010hc+w010hd+w010he)/5
drop w010ha w010hb w010hc w010hd w010he
gen wealth_debts=(w001ha+w001hb+w001hc+w001hd+w001he)/5
drop w001ha w001hb w001hc w001hd w001he
gen netwealth=(w011ha+w011hb+w011hc+w011hd+w011he)/5
drop w011ha w011hb w011hc w011hd w011he
*Variablen umbenennen
rename (prop prop_debts netprop otherprop otherprop_debts netotherprop financial pi_blc business tangible consumerdebts wealth wealth_debts netwealth) =2002 
save "C:\...\hwealth02", replace //Enter preferred path here
clear

*** 2007
use hwealth, clear
drop if svyyear==2002 | svyyear==2012
sort hhnrakt
drop svyyear hhnr
drop e000h1 e000h2 e000h3 e000h4 e000h5 e002h6 e002h7 b000h1 b000h2
*Imputation flags and filter droppen (private insurances and blc drinlassen, da Variablen ab 2007 "gefuellt")
drop p100h0 p200h0 p020h0 p002h0 p022h0 e100h0 e200h0 e020h0 e002h0 e022h0 f100h0 f200h0 f020h0 i100h0 i200h0 i020h0 b100h0 b200h0 b020h0 t100h0 t200h0 t020h0 c100h0 c200h0 c020h0 w020h0 w002h0 w022h0 l020h0 l100h0 l200h0 h020h0 h100h0 h200h0
*Mittelwerte aus Imputationen a-e bilden und nur MW als Variablen behalten, Implicates droppen
gen prop=(p010ha+p010hb+p010hc+p010hd+p010he)/5
drop p010ha p010hb p010hc p010hd p010he
gen prop_debts=(p001ha+p001hb+p001hc+p001hd+p001he)/5
drop p001ha p001hb p001hc p001hd p001he
gen netprop=(p011ha+p011hb+p011hc+p011hd+p011he)/5
drop p011ha p011hb p011hc p011hd p011he
gen otherprop=(e010ha+e010hb+e010hc+e010hd+e010he)/5
drop e010ha e010hb e010hc e010hd e010he
gen otherprop_debts=(e001ha+e001hb+e001hc+e001hd+e001he)/5
drop e001ha e001hb e001hc e001hd e001he
gen netotherprop=(e011ha+e011hb+e011hc+e011hd+e011he)/5
drop e011ha e011hb e011hc e011hd e011he
gen financial=(f010ha+f010hb+f010hc+f010hd+f010he)/5
drop f010ha f010hb f010hc f010hd f010he
gen pi_blc=(i010ha+i010hb+i010hc+i010hd+i010he)/5
drop i010ha i010hb i010hc i010hd i010he
gen business=(b010ha+b010hb+b010hc+b010hd+b010he)/5
drop b010ha b010hb b010hc b010hd b010he
gen tangible=(t010ha+t010hb+t010hc+t010hd+t010he)/5
drop t010ha t010hb t010hc t010hd t010he
gen consumerdebts=(c010ha+c010hb+c010hc+c010hd+c010he)/5
drop c010ha c010hb c010hc c010hd c010he
gen wealth=(w010ha+w010hb+w010hc+w010hd+w010he)/5
drop w010ha w010hb w010hc w010hd w010he
gen wealth_debts=(w001ha+w001hb+w001hc+w001hd+w001he)/5
drop w001ha w001hb w001hc w001hd w001he
gen netwealth=(w011ha+w011hb+w011hc+w011hd+w011he)/5
drop w011ha w011hb w011hc w011hd w011he
gen blc=(l010ha+l010hb+l010hc+l010hd+l010he)/5
drop l010ha l010hb l010hc l010hd l010he
gen pi=(h010ha+h010hb+h010hc+h010hd+h010he)/5
drop h010ha h010hb h010hc h010hd h010he
*Variablen umbenennen
rename (prop prop_debts netprop otherprop otherprop_debts netotherprop financial pi_blc business tangible consumerdebts wealth wealth_debts netwealth blc pi) =2007
save "C:\...\hwealth07", replace //Enter preferred path here
clear

*** 2012
use hwealth, clear
drop if svyyear==2002 | svyyear==2007
sort hhnrakt
drop svyyear hhnr
drop e000h1 e000h2 e000h3 e000h4 e000h5 e002h6 e002h7 b000h1 b000h2
*Imputation flags and filter droppen (private insurances and blc drinlassen, da Variablen fuer 2007 und 2012 "gefuellt")
drop p100h0 p200h0 p020h0 p002h0 p022h0 e100h0 e200h0 e020h0 e002h0 e022h0 f100h0 f200h0 f020h0 i100h0 i200h0 i020h0 b100h0 b200h0 b020h0 t100h0 t200h0 t020h0 c100h0 c200h0 c020h0 w020h0 w002h0 w022h0 l020h0 l100h0 l200h0 h020h0 h100h0 h200h0
*Mittelwerte aus Imputationen a-e bilden und nur MW als Variablen behalten, Implicates droppen
gen prop=(p010ha+p010hb+p010hc+p010hd+p010he)/5
drop p010ha p010hb p010hc p010hd p010he
gen prop_debts=(p001ha+p001hb+p001hc+p001hd+p001he)/5
drop p001ha p001hb p001hc p001hd p001he
gen netprop=(p011ha+p011hb+p011hc+p011hd+p011he)/5
drop p011ha p011hb p011hc p011hd p011he
gen otherprop=(e010ha+e010hb+e010hc+e010hd+e010he)/5
drop e010ha e010hb e010hc e010hd e010he
gen otherprop_debts=(e001ha+e001hb+e001hc+e001hd+e001he)/5
drop e001ha e001hb e001hc e001hd e001he
gen netotherprop=(e011ha+e011hb+e011hc+e011hd+e011he)/5
drop e011ha e011hb e011hc e011hd e011he
gen financial=(f010ha+f010hb+f010hc+f010hd+f010he)/5
drop f010ha f010hb f010hc f010hd f010he
gen pi_blc=(i010ha+i010hb+i010hc+i010hd+i010he)/5
drop i010ha i010hb i010hc i010hd i010he
gen business=(b010ha+b010hb+b010hc+b010hd+b010he)/5
drop b010ha b010hb b010hc b010hd b010he
gen tangible=(t010ha+t010hb+t010hc+t010hd+t010he)/5
drop t010ha t010hb t010hc t010hd t010he
gen consumerdebts=(c010ha+c010hb+c010hc+c010hd+c010he)/5
drop c010ha c010hb c010hc c010hd c010he
gen wealth=(w010ha+w010hb+w010hc+w010hd+w010he)/5
drop w010ha w010hb w010hc w010hd w010he
gen wealth_debts=(w001ha+w001hb+w001hc+w001hd+w001he)/5
drop w001ha w001hb w001hc w001hd w001he
gen netwealth=(w011ha+w011hb+w011hc+w011hd+w011he)/5
drop w011ha w011hb w011hc w011hd w011he
gen blc=(l010ha+l010hb+l010hc+l010hd+l010he)/5
drop l010ha l010hb l010hc l010hd l010he
gen pi=(h010ha+h010hb+h010hc+h010hd+h010he)/5
drop h010ha h010hb h010hc h010hd h010he
*Variablen umbenennen
rename (prop prop_debts netprop otherprop otherprop_debts netotherprop financial pi_blc business tangible consumerdebts wealth wealth_debts netwealth blc pi) =2012
save "H:\Dissertationsprojekte\housing wealth hypothesis\STATA\Datensaetze\hwealth12", replace
clear

cd "C:\...\Datensaetze" //Enter preferred path here
use hmaster_hw, clear
sort hhnrakt
merge 1:1 hhnrakt using hwealth02
drop if _merge==2
drop _merge
sort hhnrakt
merge 1:1 hhnrakt using hwealth07
drop if _merge==2
drop _merge
sort hhnrakt
merge 1:1 hhnrakt using hwealth12
drop if _merge==2
drop _merge

erase hwealth02.dta
erase hwealth07.dta
erase hwealth12.dta
sort hhnr hhnrakt
save hmaster_hw, replace


/* mit Variablen aus generiertem Datensatz $HGEN */
use hmaster_hw, clear

cd "D:\SOEP\stata_v29" //Enter preferred path here
merge 1:1 hhnrakt using ihgen, keepusing(cnstyr92 size92 room92 owner92 typ1hh92 hinc92) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using jhgen, keepusing(cnstyr93 size93 room93 owner93 typ1hh93 hinc93) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using khgen, keepusing(cnstyr94 size94 room94 owner94 typ1hh94 hinc94) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using lhgen, keepusing(cnstyr95 size95 room95 owner95 typ1hh95 hinc95) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using mhgen, keepusing(cnstyr96 size96 room96 owner96 typ1hh96 hinc96) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using nhgen, keepusing(cnstyr97 size97 room97 owner97 typ1hh97 hinc97) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ohgen, keepusing(cnstyr98 size98 room98 owner98 typ1hh98 hinc98) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using phgen, keepusing(cnstyr99 size99 room99 owner99 typ1hh99 hinc99) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using qhgen, keepusing(cnstyr00 size00 room00 owner00 typ1hh00 hinc00) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using rhgen, keepusing(cnstyr01 size01 room01 owner01 typ1hh01 hinc01) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using shgen, keepusing(cnstyr02 size02 room02 owner02 typ1hh02 hinc02) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using thgen, keepusing(cnstyr03 size03 room03 owner03 typ1hh03 hinc03) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using uhgen, keepusing(cnstyr04 size04 room04 owner04 typ1hh04 hinc04) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using vhgen, keepusing(cnstyr05 size05 room05 owner05 typ1hh05 hinc05) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using whgen, keepusing(cnstyr06 size06 room06 owner06 typ1hh06 hinc06) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using xhgen, keepusing(cnstyr07 size07 room07 owner07 typ1hh07 hinc07) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using yhgen, keepusing(cnstyr08 size08 room08 owner08 typ1hh08 hinc08) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using zhgen, keepusing(cnstyr09 size09 room09 owner09 typ1hh09 hinc09) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bahgen, keepusing(cnstyr10 size10 room10 owner10 typ1hh10 hinc10) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bbhgen, keepusing(cnstyr11 size11 room11 owner11 typ1hh11 hinc11) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bchgen, keepusing(cnstyr12 size12 room12 owner12 typ1hh12 hinc12) 
drop if _merge==2
drop _merge 

rename room92 rooms1992
rename room93 rooms1993
rename room94 rooms1994
rename room95 rooms1995
rename room96 rooms1996
rename room97 rooms1997
rename room98 rooms1998
rename room99 rooms1999
rename room00 rooms2000
rename room01 rooms2001
rename room02 rooms2002
rename room03 rooms2003
rename room04 rooms2004
rename room05 rooms2005
rename room06 rooms2006
rename room07 rooms2007
rename room08 rooms2008
rename room09 rooms2009
rename room10 rooms2010
rename room11 rooms2011
rename room12 rooms2012

rename size92 qm1992
rename size93 qm1993
rename size94 qm1994
rename size95 qm1995
rename size96 qm1996
rename size97 qm1997
rename size98 qm1998
rename size99 qm1999
rename size00 qm2000
rename size01 qm2001
rename size02 qm2002
rename size03 qm2003
rename size04 qm2004
rename size05 qm2005
rename size06 qm2006
rename size07 qm2007
rename size08 qm2008
rename size09 qm2009
rename size10 qm2010
rename size11 qm2011
rename size12 qm2012

rename cnstyr92 baujahr1992
rename cnstyr93 baujahr1993
rename cnstyr94 baujahr1994
rename cnstyr95 baujahr1995
rename cnstyr96 baujahr1996
rename cnstyr97 baujahr1997
rename cnstyr98 baujahr1998
rename cnstyr99 baujahr1999
rename cnstyr00 baujahr2000
rename cnstyr01 baujahr2001
rename cnstyr02 baujahr2002
rename cnstyr03 baujahr2003
rename cnstyr04 baujahr2004
rename cnstyr05 baujahr2005
rename cnstyr06 baujahr2006
rename cnstyr07 baujahr2007
rename cnstyr08 baujahr2008
rename cnstyr09 baujahr2009
rename cnstyr10 baujahr2010
rename cnstyr11 baujahr2011
rename cnstyr12 baujahr2012

rename owner92 owner1992
rename owner93 owner1993
rename owner94 owner1994
rename owner95 owner1995
rename owner96 owner1996
rename owner97 owner1997
rename owner98 owner1998
rename owner99 owner1999
rename owner00 owner2000
rename owner01 owner2001
rename owner02 owner2002
rename owner03 owner2003
rename owner04 owner2004
rename owner05 owner2005
rename owner06 owner2006
rename owner07 owner2007
rename owner08 owner2008
rename owner09 owner2009
rename owner10 owner2010
rename owner11 owner2011
rename owner12 owner2012

rename typ1hh92 genhhtyp1992
rename typ1hh93 genhhtyp1993
rename typ1hh94 genhhtyp1994
rename typ1hh95 genhhtyp1995
rename typ1hh96 genhhtyp1996
rename typ1hh97 genhhtyp1997
rename typ1hh98 genhhtyp1998
rename typ1hh99 genhhtyp1999
rename typ1hh00 genhhtyp2000
rename typ1hh01 genhhtyp2001
rename typ1hh02 genhhtyp2002
rename typ1hh03 genhhtyp2003
rename typ1hh04 genhhtyp2004
rename typ1hh05 genhhtyp2005
rename typ1hh06 genhhtyp2006
rename typ1hh07 genhhtyp2007
rename typ1hh08 genhhtyp2008
rename typ1hh09 genhhtyp2009
rename typ1hh10 genhhtyp2010
rename typ1hh11 genhhtyp2011
rename typ1hh12 genhhtyp2012

rename hinc92 netinceuro1992
rename hinc93 netinceuro1993
rename hinc94 netinceuro1994
rename hinc95 netinceuro1995
rename hinc96 netinceuro1996
rename hinc97 netinceuro1997
rename hinc98 netinceuro1998
rename hinc99 netinceuro1999
rename hinc00 netinceuro2000
rename hinc01 netinceuro2001
rename hinc02 netinceuro2002
rename hinc03 netinceuro2003
rename hinc04 netinceuro2004
rename hinc05 netinceuro2005
rename hinc06 netinceuro2006
rename hinc07 netinceuro2007
rename hinc08 netinceuro2008
rename hinc09 netinceuro2009
rename hinc10 netinceuro2010
rename hinc11 netinceuro2011
rename hinc12 netinceuro2012

cd "C:\...\Datensaetze" //Enter preferred path here
save hmaster_hw, replace


/* mit Variablen aus $PEQUIV */
cd "D:\SOEP\stata_v29" //Enter preferred path here

*Datensaetze anpassen: alle droppen, die kein HH head sind, damit hhnrakt single identifier
use ipequiv, clear
drop if d1110592!=1 
sort hhnrakt
save "C:\...\ipequiv_hw", replace //Enter preferred path here
use jpequiv, clear
drop if d1110593!=1
sort hhnrakt
save "C:\...\jpequiv_hw", replace //Enter preferred path here
use kpequiv, clear
drop if d1110594!=1
sort hhnrakt
save "C:\...\kpequiv_hw", replace //Enter preferred path here
use lpequiv, clear
drop if d1110595!=1
sort hhnrakt
save "C:\...\lpequiv_hw", replace //Enter preferred path here
use mpequiv, clear
drop if d1110596!=1
sort hhnrakt
save "C:\...\mpequiv_hw", replace //Enter preferred path here
use npequiv, clear
drop if d1110597!=1
sort hhnrakt
save "C:\...\npequiv_hw", replace //Enter preferred path here
use opequiv, clear
drop if d1110598!=1
sort hhnrakt
save "C:\...\opequiv_hw", replace //Enter preferred path here
use ppequiv, clear
drop if d1110599!=1
sort hhnrakt
save "C:\...\ppequiv_hw", replace //Enter preferred path here
use qpequiv, clear
drop if d1110500!=1
sort hhnrakt
save "C:\...\qpequiv_hw", replace //Enter preferred path here
use rpequiv, clear
drop if d1110501!=1
sort hhnrakt
save "C:\...\rpequiv_hw", replace //Enter preferred path here
use spequiv, clear
drop if d1110502!=1
sort hhnrakt
save "C:\...\spequiv_hw", replace //Enter preferred path here
use tpequiv, clear
drop if d1110503!=1
sort hhnrakt
save "C:\...\tpequiv_hw", replace //Enter preferred path here
use upequiv, clear
drop if d1110504!=1
sort hhnrakt
save "C:\...\upequiv_hw", replace //Enter preferred path here
use vpequiv, clear
drop if d1110505!=1
sort hhnrakt
save "C:\...\vpequiv_hw", replace //Enter preferred path here
use wpequiv, clear
drop if d1110506!=1
sort hhnrakt
save "C:\...\wpequiv_hw", replace //Enter preferred path here
use xpequiv, clear
drop if d1110507!=1
sort hhnrakt
save "C:\...\xpequiv_hw", replace //Enter preferred path here
use ypequiv, clear
drop if d1110508!=1
sort hhnrakt
save "C:\...\ypequiv_hw", replace //Enter preferred path here
use zpequiv, clear
drop if d1110509!=1
sort hhnrakt
save "C:\...\zpequiv_hw", replace //Enter preferred path here
use bapequiv, clear
drop if d1110510!=1
sort hhnrakt
save "C:\...\bapequiv_hw", replace //Enter preferred path here
use bbpequiv, clear
drop if d1110511!=1
sort hhnrakt
save "C:\...\bbpequiv_hw", replace //Enter preferred path here
use bcpequiv, clear
drop if d1110512!=1
sort hhnrakt
save "C:\...\bcpequiv_hw", replace //Enter preferred path here

*"reduzierte" Datensaetze mit Master-Datensatz mergen
cd "C:\...\Datensaetze" //Enter preferred path here
use hmaster_hw
sort hhnr hhnrakt
merge 1:1 hhnrakt using ipequiv_hw, keepusing(d1110192 d1110492 d1110892 e1110292 d1110792 d1110392 y1110192 l1110192 i1110192 i1110292 d11102ll) 
drop if _merge==2
drop _merge
merge 1:1 hhnrakt using jpequiv_hw, keepusing(d1110193 d1110493 d1110893 e1110293 d1110793 d1110393 y1110193 l1110193 i1110193 i1110293 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using kpequiv_hw, keepusing(d1110194 d1110494 d1110894 e1110294 d1110794 d1110394 y1110194 l1110194 i1110194 i1110294 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using lpequiv_hw, keepusing(d1110195 d1110495 d1110895 e1110295 d1110795 d1110395 y1110195 l1110195 i1110195 i1110295 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using mpequiv_hw, keepusing(d1110196 d1110496 d1110896 e1110296 d1110796 d1110396 y1110196 l1110196 i1110196 i1110296 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using npequiv_hw, keepusing(d1110197 d1110497 d1110897 e1110297 d1110797 d1110397 y1110197 l1110197 i1110197 i1110297 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using opequiv_hw, keepusing(d1110198 d1110498 d1110898 e1110298 d1110798 d1110398 y1110198 l1110198 i1110198 i1110298 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ppequiv_hw, keepusing(d1110199 d1110499 d1110899 e1110299 d1110799 d1110399 y1110199 l1110199 i1110199 i1110299 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using qpequiv_hw, keepusing(d1110100 d1110400 d1110800 e1110200 d1110700 d1110300 y1110100 l1110100 i1110100 i1110200 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using rpequiv_hw, keepusing(d1110101 d1110401 d1110801 e1110201 d1110701 d1110301 y1110101 l1110101 i1110101 i1110201 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using spequiv_hw, keepusing(d1110102 d1110402 d1110802 e1110202 d1110702 d1110302 y1110102 l1110102 i1110102 i1110202 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using tpequiv_hw, keepusing(d1110103 d1110403 d1110803 e1110203 d1110703 d1110303 y1110103 l1110103 i1110103 i1110203 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using upequiv_hw, keepusing(d1110104 d1110404 d1110804 e1110204 d1110704 d1110304 y1110104 l1110104 i1110104 i1110204 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using vpequiv_hw, keepusing(d1110105 d1110405 d1110805 e1110205 d1110705 d1110305 y1110105 l1110105 i1110105 i1110205 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using wpequiv_hw, keepusing(d1110106 d1110406 d1110806 e1110206 d1110706 d1110306 y1110106 l1110106 i1110106 i1110206 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using xpequiv_hw, keepusing(d1110107 d1110407 d1110807 e1110207 d1110707 d1110307 y1110107 l1110107 i1110107 i1110207 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ypequiv_hw, keepusing(d1110108 d1110408 d1110808 e1110208 d1110708 d1110308 y1110108 l1110108 i1110108 i1110208 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using zpequiv_hw, keepusing(d1110109 d1110409 d1110809 e1110209 d1110709 d1110309 y1110109 l1110109 i1110109 i1110209 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bapequiv_hw, keepusing(d1110110 d1110410 d1110810 e1110210 d1110710 d1110310 y1110110 l1110110 i1110110 i1110210 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bbpequiv_hw, keepusing(d1110111 d1110411 d1110811 e1110211 d1110711 d1110311 y1110111 l1110111 i1110111 i1110211 d11102ll) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bcpequiv_hw, keepusing(d1110112 d1110412 d1110812 e1110212 d1110712 d1110312 y1110112 l1110112 i1110112 i1110212 d11102ll) 
drop if _merge==2
drop _merge 

erase ipequiv_hw.dta
erase jpequiv_hw.dta
erase kpequiv_hw.dta
erase lpequiv_hw.dta
erase mpequiv_hw.dta
erase npequiv_hw.dta
erase opequiv_hw.dta
erase ppequiv_hw.dta
erase qpequiv_hw.dta
erase rpequiv_hw.dta
erase spequiv_hw.dta
erase tpequiv_hw.dta
erase upequiv_hw.dta
erase vpequiv_hw.dta
erase wpequiv_hw.dta
erase xpequiv_hw.dta
erase ypequiv_hw.dta
erase zpequiv_hw.dta
erase bapequiv_hw.dta
erase bbpequiv_hw.dta
erase bcpequiv_hw.dta
sort hhnrakt

rename d11102ll gender

rename d1110192 age1992
rename d1110193 age1993
rename d1110194 age1994
rename d1110195 age1995
rename d1110196 age1996
rename d1110197 age1997
rename d1110198 age1998
rename d1110199 age1999
rename d1110100 age2000
rename d1110101 age2001
rename d1110102 age2002
rename d1110103 age2003
rename d1110104 age2004
rename d1110105 age2005
rename d1110106 age2006
rename d1110107 age2007
rename d1110108 age2008
rename d1110109 age2009
rename d1110110 age2010
rename d1110111 age2011
rename d1110112 age2012

rename d1110492 marital1992
rename d1110493 marital1993
rename d1110494 marital1994
rename d1110495 marital1995
rename d1110496 marital1996
rename d1110497 marital1997
rename d1110498 marital1998
rename d1110499 marital1999
rename d1110400 marital2000
rename d1110401 marital2001
rename d1110402 marital2002
rename d1110403 marital2003
rename d1110404 marital2004
rename d1110405 marital2005
rename d1110406 marital2006
rename d1110407 marital2007
rename d1110408 marital2008
rename d1110409 marital2009
rename d1110410 marital2010
rename d1110411 marital2011
rename d1110412 marital2012

rename d1110892 educ1992
rename d1110893 educ1993
rename d1110894 educ1994
rename d1110895 educ1995
rename d1110896 educ1996
rename d1110897 educ1997
rename d1110898 educ1998
rename d1110899 educ1999
rename d1110800 educ2000
rename d1110801 educ2001
rename d1110802 educ2002
rename d1110803 educ2003
rename d1110804 educ2004
rename d1110805 educ2005
rename d1110806 educ2006
rename d1110807 educ2007
rename d1110808 educ2008
rename d1110809 educ2009
rename d1110810 educ2010
rename d1110811 educ2011
rename d1110812 educ2012

rename e1110292 employ1992
rename e1110293 employ1993
rename e1110294 employ1994
rename e1110295 employ1995
rename e1110296 employ1996
rename e1110297 employ1997
rename e1110298 employ1998
rename e1110299 employ1999
rename e1110200 employ2000
rename e1110201 employ2001
rename e1110202 employ2002
rename e1110203 employ2003
rename e1110204 employ2004
rename e1110205 employ2005
rename e1110206 employ2006
rename e1110207 employ2007
rename e1110208 employ2008
rename e1110209 employ2009
rename e1110210 employ2010
rename e1110211 employ2011
rename e1110212 employ2012

rename d1110792 numberkids1992
rename d1110793 numberkids1993
rename d1110794 numberkids1994
rename d1110795 numberkids1995
rename d1110796 numberkids1996
rename d1110797 numberkids1997
rename d1110798 numberkids1998
rename d1110799 numberkids1999
rename d1110700 numberkids2000
rename d1110701 numberkids2001
rename d1110702 numberkids2002
rename d1110703 numberkids2003
rename d1110704 numberkids2004
rename d1110705 numberkids2005
rename d1110706 numberkids2006
rename d1110707 numberkids2007
rename d1110708 numberkids2008
rename d1110709 numberkids2009
rename d1110710 numberkids2010
rename d1110711 numberkids2011
rename d1110712 numberkids2012

rename d1110392 race1992
rename d1110393 race1993
rename d1110394 race1994
rename d1110395 race1995
rename d1110396 race1996
rename d1110397 race1997
rename d1110398 race1998
rename d1110399 race1999
rename d1110300 race2000
rename d1110301 race2001
rename d1110302 race2002
rename d1110303 race2003
rename d1110304 race2004
rename d1110305 race2005
rename d1110306 race2006
rename d1110307 race2007
rename d1110308 race2008
rename d1110309 race2009
rename d1110310 race2010
rename d1110311 race2011
rename d1110312 race2012

rename y1110192 cpi1992
rename y1110193 cpi1993
rename y1110194 cpi1994
rename y1110195 cpi1995
rename y1110196 cpi1996
rename y1110197 cpi1997
rename y1110198 cpi1998
rename y1110199 cpi1999
rename y1110100 cpi2000
rename y1110101 cpi2001
rename y1110102 cpi2002
rename y1110103 cpi2003
rename y1110104 cpi2004
rename y1110105 cpi2005
rename y1110106 cpi2006
rename y1110107 cpi2007
rename y1110108 cpi2008
rename y1110109 cpi2009
rename y1110110 cpi2010
rename y1110111 cpi2011
rename y1110112 cpi2012

rename l1110192 bula1992
rename l1110193 bula1993
rename l1110194 bula1994
rename l1110195 bula1995
rename l1110196 bula1996
rename l1110197 bula1997
rename l1110198 bula1998
rename l1110199 bula1999
rename l1110100 bula2000
rename l1110101 bula2001
rename l1110102 bula2002
rename l1110103 bula2003
rename l1110104 bula2004
rename l1110105 bula2005
rename l1110106 bula2006
rename l1110107 bula2007
rename l1110108 bula2008
rename l1110109 bula2009
rename l1110110 bula2010
rename l1110111 bula2011
rename l1110112 bula2012

rename i1110192 preinc1992
rename i1110193 preinc1993
rename i1110194 preinc1994
rename i1110195 preinc1995
rename i1110196 preinc1996
rename i1110197 preinc1997
rename i1110198 preinc1998
rename i1110199 preinc1999
rename i1110100 preinc2000
rename i1110101 preinc2001
rename i1110102 preinc2002
rename i1110103 preinc2003
rename i1110104 preinc2004
rename i1110105 preinc2005
rename i1110106 preinc2006
rename i1110107 preinc2007
rename i1110108 preinc2008
rename i1110109 preinc2009
rename i1110110 preinc2010
rename i1110111 preinc2011
rename i1110112 preinc2012

rename i1110292 postinc1992
rename i1110293 postinc1993
rename i1110294 postinc1994
rename i1110295 postinc1995
rename i1110296 postinc1996
rename i1110297 postinc1997
rename i1110298 postinc1998
rename i1110299 postinc1999
rename i1110200 postinc2000
rename i1110201 postinc2001
rename i1110202 postinc2002
rename i1110203 postinc2003
rename i1110204 postinc2004
rename i1110205 postinc2005
rename i1110206 postinc2006
rename i1110207 postinc2007
rename i1110208 postinc2008
rename i1110209 postinc2009
rename i1110210 postinc2010
rename i1110211 postinc2011
rename i1110212 postinc2012

save hmaster_hw, replace

/* Paneldatensatz bilden */
reshape long hnetto sampreg hbleib hhrf wohngegend hhtyp wbaujahr wqm wrooms netinc sav savings kred kredit belastung_kr baujahr qm rooms owner genhhtyp netinceuro race numberkids employ marital educ age preinc postinc cpi bula prop prop_debts netprop otherprop otherprop_debts netotherprop financial pi_blc business tangible consumerdebts wealth wealth_debts netwealth blc pi zinsexp operexp maintexp modexp modpayer ror, i(hhnrakt) j(jahr)
sort hhnrakt jahr
save hmaster_hw_panel, replace

/* als Paneldatensatz deklarieren */
xtset hhnrakt jahr, yearly
save hmaster_hw_panel, replace

/* mit ROR-Hauspreis-DS mergen */
cd "C:\...\Datensaetze"  //Enter preferred path here
use hmaster_hw_panel, clear
merge m:1 jahr ror using hp_ror.dta 
drop if _merge==2
drop _merge 

save hmaster_hw_panel, replace