*Erstellt am 17.08.2016
*Zuletzt geändert: 19.08.2016 
*Haushaltsdatensatz erstellen "hmaster_mig.dta"

set more off
cd "D:\SOEP\stata_v29"

/*HPFAD: Befragungsstatus und aktuelle HH-Nummer für 1995 bis 2012*/
use hpfad, clear
keep hhnr hhnrakt lhnetto mhnetto nhnetto ohnetto phnetto qhnetto rhnetto shnetto thnetto uhnetto vhnetto whnetto xhnetto yhnetto zhnetto bahnetto bbhnetto bchnetto lsampreg msampreg nsampreg osampreg psampreg qsampreg rsampreg ssampreg tsampreg usampreg vsampreg wsampreg xsampreg ysampreg zsampreg basampreg bbsampreg bcsampreg hsample  

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 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 "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\hpfad_mig", replace 
clear

/*HHRF: Gewichte*/
use hhrf, clear
keep hhnr hhnrakt lhbleib mhbleib nhbleib ohbleib phbleib qhbleib rhbleib shbleib thbleib uhbleib vhbleib whbleib xhbleib yhbleib zhbleib bahbleib bbhbleib bchbleib lhhrf mhhrf nhhrf ohhrf phhrf qhhrf rhhrf shhrf thhrf uhhrf vhhrf whhrf xhhrf yhhrf zhhrf bahhrf bbhhrf bchhrf
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\weights_mig", replace   
clear

/*HMASTER-Datensatz*/ 
cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
use hpfad_mig.dta
merge 1:1 hhnr hhnrakt using weights_mig.dta
drop if _merge==2
drop _merge

erase hpfad_mig.dta
erase weights_mig.dta
sort hhnr hhnrakt

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 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_mig, replace


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

/* Regionaldaten (Raumordnungsregionen): ROR.DTA */
*ab 1996 einheitliche ROR-Definition
cd "C:\Users\17doih\AppData\Local\Temp\geocodes"
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 "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
save hmaster_mig, replace

/*Mit Variablen aus brutto DS $HBRUTTO: Siedlungsstruktureller Regionsgrundtyp des BBSR*/
cd "D:\SOEP\stata_v29"
merge 1:1 hhnrakt using lhbrutto, keepusing(lregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using mhbrutto, keepusing(mregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using nhbrutto, keepusing(nregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using ohbrutto, keepusing(oregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using phbrutto, keepusing(pregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using qhbrutto, keepusing(qregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using rhbrutto, keepusing(rregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using shbrutto, keepusing(sregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using thbrutto, keepusing(tregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using uhbrutto, keepusing(uregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using vhbrutto, keepusing(vregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using whbrutto, keepusing(wregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using xhbrutto, keepusing(xregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using yhbrutto, keepusing(yregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using zhbrutto, keepusing(zregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using bahbrutto, keepusing(baregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using bbhbrutto, keepusing(bbregtyp)
drop if _merge==2
drop_merge
merge 1:1 hhnrakt using bchbrutto, keepusing(bcregtyp)
drop if _merge==2
drop_merge

rename lregtyp regtyp1995
rename mregtyp regtyp1996
rename nregtyp regtyp1997
rename oregtyp regtyp1998
rename pregtyp regtyp1999
rename qregtyp regtyp2000
rename rregtyp regtyp2001
rename sregtyp regtyp2002
rename tregtyp regtyp2003
rename uregtyp regtyp2004
rename vregtyp regtyp2005
rename wregtyp regtyp2006
rename xregtyp regtyp2007
rename yregtyp regtyp2008
rename zregtyp regtyp2009
rename baregtyp regtyp2010
rename bbregtyp regtyp2011
rename bcregtyp regtyp2012

cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
save hmaster_mig, replace

/* mit Variablen aus generiertem DS $HGEN: Baujahr, Wohnfläche in qm, Anzahl Zimmer, 
Eigentümer, HH-Typologie, HH-Einkommen (monthly household netto income in EURO), Renovierungsbedürftigkeit, Subjektive Beurteilung Wohnungsgröße*/
cd "D:\SOEP\stata_v29"
merge 1:1 hhnrakt using lhgen, keepusing(cnstyr95 size95 room95 owner95 typ1hh95 hinc95 condit95 seval95) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using mhgen, keepusing(cnstyr96 size96 room96 owner96 typ1hh96 hinc96 condit96 seval96) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using nhgen, keepusing(cnstyr97 size97 room97 owner97 typ1hh97 hinc97 condit97 seval97)
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ohgen, keepusing(cnstyr98 size98 room98 owner98 typ1hh98 hinc98 condit98 seval98) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using phgen, keepusing(cnstyr99 size99 room99 owner99 typ1hh99 hinc99 condit99 seval99) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using qhgen, keepusing(cnstyr00 size00 room00 owner00 typ1hh00 hinc00 condit00 seval00) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using rhgen, keepusing(cnstyr01 size01 room01 owner01 typ1hh01 hinc01 condit01 seval01) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using shgen, keepusing(cnstyr02 size02 room02 owner02 typ1hh02 hinc02 condit02 seval02) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using thgen, keepusing(cnstyr03 size03 room03 owner03 typ1hh03 hinc03 condit03 seval03) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using uhgen, keepusing(cnstyr04 size04 room04 owner04 typ1hh04 hinc04 condit04 seval04) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using vhgen, keepusing(cnstyr05 size05 room05 owner05 typ1hh05 hinc05 condit05 seval05) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using whgen, keepusing(cnstyr06 size06 room06 owner06 typ1hh06 hinc06 condit06 seval06)  
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using xhgen, keepusing(cnstyr07 size07 room07 owner07 typ1hh07 hinc07 condit07 seval07) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using yhgen, keepusing(cnstyr08 size08 room08 owner08 typ1hh08 hinc08 condit08 seval08) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using zhgen, keepusing(cnstyr09 size09 room09 owner09 typ1hh09 hinc09 condit09 seval09) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bahgen, keepusing(cnstyr10 size10 room10 owner10 typ1hh10 hinc10 condit10 seval10) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bbhgen, keepusing(cnstyr11 size11 room11 owner11 typ1hh11 hinc11 condit11 seval11) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bchgen, keepusing(cnstyr12 size12 room12 owner12 typ1hh12 hinc12 condit12 seval12) 
drop if _merge==2
drop _merge 

rename room95 room1995
rename room96 room1996
rename room97 room1997
rename room98 room1998
rename room99 room1999
rename room00 room2000
rename room01 room2001
rename room02 room2002
rename room03 room2003
rename room04 room2004
rename room05 room2005
rename room06 room2006
rename room07 room2007
rename room08 room2008
rename room09 room2009
rename room10 room2010
rename room11 room2011
rename room12 room2012

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 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 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 typ1hh95 hhtyp1995
rename typ1hh96 hhtyp1996
rename typ1hh97 hhtyp1997
rename typ1hh98 hhtyp1998
rename typ1hh99 hhtyp1999
rename typ1hh00 hhtyp2000
rename typ1hh01 hhtyp2001
rename typ1hh02 hhtyp2002
rename typ1hh03 hhtyp2003
rename typ1hh04 hhtyp2004
rename typ1hh05 hhtyp2005
rename typ1hh06 hhtyp2006
rename typ1hh07 hhtyp2007
rename typ1hh08 hhtyp2008
rename typ1hh09 hhtyp2009
rename typ1hh10 hhtyp2010
rename typ1hh11 hhtyp2011
rename typ1hh12 hhtyp2012

rename hinc95 netinc1995
rename hinc96 netinc1996
rename hinc97 netinc1997
rename hinc98 netinc1998
rename hinc99 netinc1999
rename hinc00 netinc2000
rename hinc01 netinc2001
rename hinc02 netinc2002
rename hinc03 netinc2003
rename hinc04 netinc2004
rename hinc05 netinc2005
rename hinc06 netinc2006
rename hinc07 netinc2007
rename hinc08 netinc2008
rename hinc09 netinc2009
rename hinc10 netinc2010
rename hinc11 netinc2011
rename hinc12 netinc2012

rename condit95 condition1995
rename condit96 condition1996
rename condit97 condition1997
rename condit98 condition1998
rename condit99 condition1999
rename condit00 condition2000
rename condit01 condition2001
rename condit02 condition2002
rename condit03 condition2003
rename condit04 condition2004
rename condit05 condition2005
rename condit06 condition2006
rename condit07 condition2007
rename condit08 condition2008
rename condit09 condition2009
rename condit10 condition2010
rename condit11 condition2011
rename condit12 condition2012

rename seval95 opinionsize1995
rename seval96 opinionsize1996
rename seval97 opinionsize1997
rename seval98 opinionsize1998
rename seval99 opinionsize1999
rename seval00 opinionsize2000
rename seval01 opinionsize2001
rename seval02 opinionsize2002
rename seval03 opinionsize2003
rename seval04 opinionsize2004
rename seval05 opinionsize2005
rename seval06 opinionsize2006
rename seval07 opinionsize2007
rename seval08 opinionsize2008
rename seval09 opinionsize2009
rename seval10 opinionsize2010
rename seval11 opinionsize2011
rename seval12 opinionsize2012

cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
save hmaster_mig, replace


/* mit Variablen aus Haushaltsdatensatz $H: Wohngegend des Zielhaushaltes, Sparbetrag & Höhe, Kredit & Höhe & Belastung durch Kredit
Modernisierungskosten (nur für 2010-2012), Betriebs- und Instandhaltungskosten (letztes Jahr), Zins-, Tilgungszahlungen (nur Eigentümer, monatlich): Abzahlung von Hypotheken oder Bauspardarlehen */
cd "D:\SOEP\stata_v29"
merge 1:1 hhnrakt using lh, keepusing(lh07 lh5101 lh5102 lh02a lh36 lh4201 lh3301)
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using mh, keepusing(mh08 mh5101 mh5102 mh03a mh36 mh4201 mh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using nh, keepusing(nh08 nh5101 nh5102 nh5201 nh5202 nh03a nh36 nh4201 nh3301) /*ab 1997 Abzahlung Kredite und deren Höhe*/
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using oh, keepusing(oh08 oh5101 oh5102 oh5201 oh5202 oh03a oh36 oh4201 oh3301) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ph, keepusing(ph12 ph5101 ph5102 ph5201 ph5202 ph20 ph34 ph4201 ph33) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using qh, keepusing(qh12 qh5501 qh5502 qh5601 qh5602 qh19 qh33 qh4201 qh32) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using rh, keepusing(rh12 rh5001 rh5002 rh5101 rh5102 rh19 rh33 rh4201 rh32) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using sh, keepusing(sh05 sh5001 sh5002 sh5101 sh5102 sh18 sh33 sh4201 sh32) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using th, keepusing(th05 th4901 th4902 th5001 th5002 th17 th31 th4001 th30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using uh, keepusing(uh05 uh4901 uh4902 uh5001 uh5002 uh17 uh31 uh4001 uh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using vh, keepusing(vh05 vh5201 vh5202 vh41 vh42 vh16 vh30 vh3901 vh29) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using wh, keepusing(wh05 wh5201 wh5202 wh41 wh42 wh16 wh30 wh3901 wh29) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using xh, keepusing(xh05 xh5201 xh5202 xh41 xh42 xh16 xh30 xh3901 xh29) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using yh, keepusing(yh05 yh5301 yh5302 yh42 yh43 yh16 yh31 yh4001 yh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using zh, keepusing(zh05 zh5301 zh5302 zh42 zh43 zh16 zh31 zh4001 zh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bah, keepusing(bah05 bah5401 bah5402 bah42 bah43 bah16 bah1702 bah31 bah4001 bah30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bbh, keepusing(bbh05 bbh5201 bbh5202 bbh42 bbh43 bbh16 bbh1702 bbh31 bbh4001 bbh30) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bch, keepusing(bch05 bch5201 bch5202 bch42 bch43 bch16 bch1702 bch31 bch4001 bch30) 
drop if _merge==2
drop _merge 

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 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 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 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 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 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 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

cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
save hmaster_mig, replace



/* mit Vermögensinformationen aus HWEALTH */
*Implicates werden gedroppt und Mittelwerte gebildet für jede Vermögenskomponente
cd "D:\SOEP\soep29_wealth\stata"

*** 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 "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\hwealth02", replace
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 "gefüllt")
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 "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\hwealth07", replace
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 für 2007 und 2012 "gefüllt")
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 "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\hwealth12", replace
clear

cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
use hmaster_mig, clear
sort hhnrakt
merge 1:1 hhnrakt using hwealth02
drop if _merge==2
drop _merge
merge 1:1 hhnrakt using hwealth07
drop if _merge==2
drop _merge
merge 1:1 hhnrakt using hwealth12
drop if _merge==2
drop _merge

save hmaster_mig, replace
erase hwealth02.dta
erase hwealth07.dta
erase hwealth12.dta


/* mit Variablen aus $PEQUIV mergen */
*Datensätze zunächst anpassen: alle droppen, die kein HH head sind, damit hhnrakt single identifier wird und Eigenschaften sich auf den HH head beziehen
*Dadurch werden einige Personen, die in pequiv vorhanden sind rausgeschmissen; insgesamt werden je nach Jahr 6000-13000 Beobachtungen erfolgreich gemerget
*Alternative wäre hier: pequiv für 1995 1:m (da hhnrakt in pequiv nicht single identifier) bzw. ab 1996 dann m:m zu mergen (da dann hhnrakt auch im master
*Datensatz nicht mehr single identifier ist)
*Das hat allerdings zur Folge, dass hinterher auch persnr doppelt auftauchen, sodass nicht mehr genau identifiziert werden kann 
cd "D:\SOEP\stata_v29"
use lpequiv, clear
drop if d1110595!=1
rename persnr persnr1995
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\lpequiv_mig", replace
use mpequiv, clear
drop if d1110596!=1
rename persnr persnr1996
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\mpequiv_mig", replace
use npequiv, clear
drop if d1110597!=1
rename persnr persnr1997
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\npequiv_mig", replace
use opequiv, clear
drop if d1110598!=1
rename persnr persnr1998
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\opequiv_mig", replace
use ppequiv, clear
drop if d1110599!=1
rename persnr persnr1999
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\ppequiv_mig", replace
use qpequiv, clear
drop if d1110500!=1
rename persnr persnr2000
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\qpequiv_mig", replace
use rpequiv, clear
drop if d1110501!=1
rename persnr persnr2001
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\rpequiv_mig", replace
use spequiv, clear
drop if d1110502!=1
rename persnr persnr2002
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\spequiv_mig", replace
use tpequiv, clear
drop if d1110503!=1
rename persnr persnr2003
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\tpequiv_mig", replace
use upequiv, clear
drop if d1110504!=1
rename persnr persnr2004
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\upequiv_mig", replace
use vpequiv, clear
drop if d1110505!=1
rename persnr persnr2005
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\vpequiv_mig", replace
use wpequiv, clear
drop if d1110506!=1
rename persnr persnr2006
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\wpequiv_mig", replace
use xpequiv, clear
drop if d1110507!=1
rename persnr persnr2007
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\xpequiv_mig", replace
use ypequiv, clear
drop if d1110508!=1
rename persnr persnr2008
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\ypequiv_mig", replace
use zpequiv, clear
drop if d1110509!=1
rename persnr persnr2009
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\zpequiv_mig", replace
use bapequiv, clear
drop if d1110510!=1
rename persnr persnr2010
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\bapequiv_mig", replace
use bbpequiv, clear
drop if d1110511!=1
rename persnr persnr2011
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\bbpequiv_mig", replace
use bcpequiv, clear
drop if d1110512!=1
rename persnr persnr2012
sort hhnrakt
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\bcpequiv_mig", replace

/* "Reduzierte" DS, wo nur noch HH heads drin sind mit Master-DS mergen */
/* Relationship to HH head (head==1), N° person in HH, marital status, educ w.r.t. HS, n° years educ, employment status, employment level, n° children in HH, race of HH head, CPI, BULA, West/East */
cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
use hmaster_mig
sort hhnrakt
merge 1:1 hhnrakt using lpequiv_mig.dta, keepusing(persnr1995 d1110595 d1110695 d1110495 d1110895 d1110995 e1110295 e1110395 d1110795 d1110395 y1110195 l1110195 l1110295) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using mpequiv_mig.dta, keepusing(persnr1996 d1110596 d1110696 d1110496 d1110896 d1110996 e1110296 e1110396 d1110796 d1110396 y1110196 l1110196 l1110296) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using npequiv_mig.dta, keepusing(persnr1997 d1110597 d1110697 d1110497 d1110897 d1110997 e1110297 e1110397 d1110797 d1110397 y1110197 l1110197 l1110297) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using opequiv_mig.dta, keepusing(persnr1998 d1110598 d1110698 d1110498 d1110898 d1110998 e1110298 e1110398 d1110798 d1110398 y1110198 l1110198 l1110298) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ppequiv_mig.dta, keepusing(persnr1999 d1110599 d1110699 d1110499 d1110899 d1110999 e1110299 e1110399 d1110799 d1110399 y1110199 l1110199 l1110299) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using qpequiv_mig.dta, keepusing(persnr2000 d1110500 d1110600 d1110400 d1110800 d1110900 e1110200 e1110300 d1110700 d1110300 y1110100 l1110100 l1110200) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using rpequiv_mig.dta, keepusing(persnr2001 d1110501 d1110601 d1110401 d1110801 d1110901 e1110201 e1110301 d1110701 d1110301 y1110101 l1110101 l1110201) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using spequiv_mig.dta, keepusing(persnr2002 d1110502 d1110602 d1110402 d1110802 d1110902 e1110202 e1110302 d1110702 d1110302 y1110102 l1110102 l1110202) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using tpequiv_mig.dta, keepusing(persnr2003 d1110503 d1110603 d1110403 d1110803 d1110903 e1110203 e1110303 d1110703 d1110303 y1110103 l1110103 l1110203) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using upequiv_mig.dta, keepusing(persnr2004 d1110504 d1110604 d1110404 d1110804 d1110904 e1110204 e1110304 d1110704 d1110304 y1110104 l1110104 l1110204) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using vpequiv_mig.dta, keepusing(persnr2005 d1110505 d1110605 d1110405 d1110805 d1110905 e1110205 e1110305 d1110705 d1110305 y1110105 l1110105 l1110205) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using wpequiv_mig.dta, keepusing(persnr2006 d1110506 d1110606 d1110406 d1110806 d1110906 e1110206 e1110306 d1110706 d1110306 y1110106 l1110106 l1110206) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using xpequiv_mig.dta, keepusing(persnr2007 d1110507 d1110607 d1110407 d1110807 d1110907 e1110207 e1110307 d1110707 d1110307 y1110107 l1110107 l1110207) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using ypequiv_mig.dta, keepusing(persnr2008 d1110508 d1110608 d1110408 d1110808 d1110908 e1110208 e1110308 d1110708 d1110308 y1110108 l1110108 l1110208) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using zpequiv_mig.dta, keepusing(persnr2009 d1110509 d1110609 d1110409 d1110809 d1110909 e1110209 e1110309 d1110709 d1110309 y1110109 l1110109 l1110209) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bapequiv_mig.dta, keepusing(persnr2010 d1110510 d1110610 d1110410 d1110810 d1110910 e1110210 e1110310 d1110710 d1110310 y1110110 l1110110 l1110210) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bbpequiv_mig.dta, keepusing(persnr2011 d1110511 d1110611 d1110411 d1110811 d1110911 e1110211 e1110311 d1110711 d1110311 y1110111 l1110111 l1110211) 
drop if _merge==2
drop _merge 
merge 1:1 hhnrakt using bcpequiv_mig.dta, keepusing(persnr2012 d1110512 d1110612 d1110412 d1110812 d1110912 e1110212 e1110312 d1110712 d1110312 y1110112 l1110112 l1110212) 
drop if _merge==2
drop _merge 

rename d1110595 relhead1995
rename d1110596 relhead1996
rename d1110597 relhead1997
rename d1110598 relhead1998
rename d1110599 relhead1999
rename d1110500 relhead2000
rename d1110501 relhead2001
rename d1110502 relhead2002
rename d1110503 relhead2003
rename d1110504 relhead2004
rename d1110505 relhead2005
rename d1110506 relhead2006
rename d1110507 relhead2007
rename d1110508 relhead2008
rename d1110509 relhead2009
rename d1110510 relhead2010
rename d1110511 relhead2011
rename d1110512 relhead2012

rename d1110695 numberpers1995
rename d1110696 numberpers1996
rename d1110697 numberpers1997
rename d1110698 numberpers1998
rename d1110699 numberpers1999
rename d1110600 numberpers2000
rename d1110601 numberpers2001
rename d1110602 numberpers2002
rename d1110603 numberpers2003
rename d1110604 numberpers2004
rename d1110605 numberpers2005
rename d1110606 numberpers2006
rename d1110607 numberpers2007
rename d1110608 numberpers2008
rename d1110609 numberpers2009
rename d1110610 numberpers2010
rename d1110611 numberpers2011
rename d1110612 numberpers2012

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 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 d1110995 yearseduc1995
rename d1110996 yearseduc1996
rename d1110997 yearseduc1997
rename d1110998 yearseduc1998
rename d1110999 yearseduc1999
rename d1110900 yearseduc2000
rename d1110901 yearseduc2001
rename d1110902 yearseduc2002
rename d1110903 yearseduc2003
rename d1110904 yearseduc2004
rename d1110905 yearseduc2005
rename d1110906 yearseduc2006
rename d1110907 yearseduc2007
rename d1110908 yearseduc2008
rename d1110909 yearseduc2009
rename d1110910 yearseduc2010
rename d1110911 yearseduc2011
rename d1110912 yearseduc2012

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 e1110395 empltime1995
rename e1110396 empltime1996
rename e1110397 empltime1997
rename e1110398 empltime1998
rename e1110399 empltime1999
rename e1110300 empltime2000
rename e1110301 empltime2001
rename e1110302 empltime2002
rename e1110303 empltime2003
rename e1110304 empltime2004
rename e1110305 empltime2005
rename e1110306 empltime2006
rename e1110307 empltime2007
rename e1110308 empltime2008
rename e1110309 empltime2009
rename e1110310 empltime2010
rename e1110311 empltime2011
rename e1110312 empltime2012

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 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 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 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 l1110295 region1995
rename l1110296 region1996
rename l1110297 region1997
rename l1110298 region1998
rename l1110299 region1999
rename l1110200 region2000
rename l1110201 region2001
rename l1110202 region2002
rename l1110203 region2003
rename l1110204 region2004
rename l1110205 region2005
rename l1110206 region2006
rename l1110207 region2007
rename l1110208 region2008
rename l1110209 region2009
rename l1110210 region2010
rename l1110211 region2011
rename l1110212 region2012

erase lpequiv_mig.dta
erase mpequiv_mig.dta
erase npequiv_mig.dta
erase opequiv_mig.dta
erase ppequiv_mig.dta
erase qpequiv_mig.dta
erase rpequiv_mig.dta
erase spequiv_mig.dta
erase tpequiv_mig.dta
erase upequiv_mig.dta
erase vpequiv_mig.dta
erase wpequiv_mig.dta
erase xpequiv_mig.dta
erase ypequiv_mig.dta
erase zpequiv_mig.dta
erase bapequiv_mig.dta
erase bbpequiv_mig.dta
erase bcpequiv_mig.dta

cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
save hmaster_mig, replace


/* Mit language skills mergen aus Personendatensatz xP */
/* Umgangssprache (für 95 02 04 06 12 nicht vorhanden), Zeitung aus DT (ab 96 nur alle 2 Jahre), oral ability German (nur 2007-2011 verfügbar) */
cd "D:\SOEP\stata_v29"
use mp, clear
rename persnr persnr1996
sort persnr1996
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\mp_mig", replace
use np, clear
rename persnr persnr1997
sort persnr1997
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\np_mig", replace
use op, clear
rename persnr persnr1998
sort persnr1998
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\op_mig", replace
use pp, clear
rename persnr persnr1999
sort persnr1999
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\pp_mig", replace
use qp, clear
rename persnr persnr2000
sort persnr2000
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\qp_mig", replace
use rp, clear
rename persnr persnr2001
sort persnr2001
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\rp_mig", replace
use sp, clear
rename persnr persnr2002
sort persnr2002
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\sp_mig", replace
use tp, clear
rename persnr persnr2003
sort persnr2003
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\tp_mig", replace
use up, clear
rename persnr persnr2004
sort persnr2004
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\up_mig", replace
use vp, clear
rename persnr persnr2005
sort persnr2005
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\vp_mig", replace
use wp, clear
rename persnr persnr2006
sort persnr2006
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\wp_mig", replace
use xp, clear
rename persnr persnr2007
sort persnr2007
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\xp_mig", replace
use yp, clear
rename persnr persnr2008
sort persnr2008
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\yp_mig", replace
use zp, clear
rename persnr persnr2009
sort persnr2009
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\zp_mig", replace
use bap, clear
rename persnr persnr2010
sort persnr2010
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\bap_mig", replace
use bbp, clear
rename persnr persnr2011
sort persnr2011
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\bbp_mig", replace
use bcp, clear
rename persnr persnr2012
sort persnr2012
save "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze\bcp_mig", replace

*merge
cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
use hmaster_mig, replace
merge m:1 persnr1996 using mp_mig, keepusing(mp96a mp97a) 
drop if _merge==2
drop _merge 
merge m:1 persnr1997 using np_mig, keepusing(np104a)
drop if _merge==2
drop _merge 
merge m:1 persnr1998 using op_mig, keepusing(op109 op110) 
drop if _merge==2
drop _merge 
merge m:1 persnr1999 using pp_mig, keepusing(pp123) 
drop if _merge==2
drop _merge 
merge m:1 persnr2000 using qp_mig, keepusing(qp128 qp129) 
drop if _merge==2
drop _merge 
merge m:1 persnr2001 using rp_mig, keepusing(rp123) 
drop if _merge==2
drop _merge 
merge m:1 persnr2002 using sp_mig, keepusing(sp124) 
drop if _merge==2
drop _merge 
merge m:1 persnr2003 using tp_mig, keepusing(tp129) 
drop if _merge==2
drop _merge 
merge m:1 persnr2004 using up_mig, keepusing(up133) 
drop if _merge==2
drop _merge 
merge m:1 persnr2005 using vp_mig, keepusing(vp142) 
drop if _merge==2
drop _merge 
merge m:1 persnr2006 using wp_mig, keepusing(wp134) 
drop if _merge==2
drop _merge 
merge m:1 persnr2007 using xp_mig, keepusing(xp136 xp13501) 
drop if _merge==2
drop _merge 
merge m:1 persnr2008 using yp_mig, keepusing(yp135 yp143 yp13401) 
drop if _merge==2
drop _merge 
merge m:1 persnr2009 using zp_mig, keepusing(zp134 zp13301) 
drop if _merge==2
drop _merge 
merge m:1 persnr2010 using bap_mig, keepusing(bap133 bap141 bap13201) 
drop if _merge==2
drop _merge 
merge m:1 persnr2011 using bbp_mig, keepusing(bbp137 bbp13601) 
drop if _merge==2
drop _merge 
merge m:1 persnr2012 using bcp_mig, keepusing(bcp145) 
drop if _merge==2
drop _merge 

rename mp96a language1996
rename np104a language1997
rename op109 language1998
rename pp123 language1999
rename qp128 language2000
rename rp123 language2001
rename tp129 language2003
rename vp142 language2005
rename xp136 language2007
rename yp135 language2008
rename zp134 language2009
rename bap133 language2010
rename bbp137 language2011

rename mp97a newspaper1996
rename op110 newspaper1998
rename qp129 newspaper2000
rename sp124 newspaper2002
rename up133 newspaper2004
rename wp134 newspaper2006
rename yp143 newspaper2008
rename bap141 newspaper2010
rename bcp145 newspaper2012

rename xp13501 oralgerman2007
rename yp13401 oralgerman2008
rename zp13301 oralgerman2009
rename bap13201 oralgerman2010
rename bbp13601 oralgerman2011

cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
save hmaster_mig, replace

erase mp_mig.dta
erase np_mig.dta
erase op_mig.dta
erase pp_mig.dta
erase qp_mig.dta
erase rp_mig.dta
erase sp_mig.dta
erase tp_mig.dta
erase up_mig.dta
erase vp_mig.dta
erase wp_mig.dta
erase xp_mig.dta
erase yp_mig.dta
erase zp_mig.dta
erase bap_mig.dta
erase bbp_mig.dta
erase bcp_mig.dta


/******** Paneldatensatz bilden **********/
reshape long persnr hnetto sampreg hbleib hhrf condition opinionsize wohngegend hhtyp sav savings kred kredit baujahr qm room owner netinc relhead numberpers marital educ yearseduc employ empltime numberkids race cpi bula region 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 language newspaper oralgerman, i(hhnrakt) j(jahr)

keep if hnetto==1
/* Mit Migrationsvariablen und personenbezogenen Informationen mergen aus ppfad.dta */
*m:1 mergen, da persnr teilweise missings aufweist, sodass nicht single identifier
cd "D:\SOEP\stata_v29"
merge m:1 persnr using ppfad.dta, keepusing (gebjahr sex eintritt austritt erstbefr letztbef todjahr todinfo immiyear germborn loc1989 corigin migback miginfo psample gebmonat gebmoval)
drop if _merge==2
drop _merge
* als Paneldatensatz deklarieren 
sort hhnrakt jahr
xtset hhnrakt jahr, yearly

/* mit ROR-Hauspreis-DS mergen; hier wurden die Regionstypen nach BBSSR hinzugefügt */
cd "I:\wealth\Migranten und Wohnungseigentum\Data\Datensaetze"
merge m:1 jahr ror using hp_ror.dta 
drop if _merge==2
drop _merge 

/* Mit Migrationsvariablen mergen aus bioimmig_jahr.dta (erhebj wurde zu jahr umbenannt) (Zuzug in Wohnort der Bekannten, Eheparther in DT, Wunsch in DT zu bleiben)*/
merge m:1 jahr persnr using bioimmig_jahr.dta, keepusing(bifamcl birelhs2 bistay)
drop if _merge==2
drop _merge 

/*Mit Partner-Informationen mergen */
merge 1:1 persnr jahr using partner.dta
drop if _merge==2
drop _merge 

sort hhnrakt jahr
save hmaster_mig, replace