* Vergleich Anteile der  zusammengefassten Mueller-Klassen 
* --------------------------------------------------------

* (siehe Bemerkungen am Ende der Datei)

quietly {

* +------+
* |Allbus|
* +------+

use $allbdir/s1795, clear

* Einordnung nach Pappi
* ---------------------

ren v400 egph
ren v395 isch

* Aus crtraeg.do
* --------------

gen megph = 1 if (egph == 1 | egph == 2) &  /*
*/ ((isch==1 | isch==2) | (isch>=121 & isch<=129) | (isch>=201 & isch<=999))
replace  megph = 2 if (egph == 1 | egph == 2) &   /*
*/ ((isch>=11 & isch<=54) | (isch>=81 & isch<=110))
replace  megph = 3 if (egph == 1 | egph == 2) &   /*
*/ ((isch>=61 & isch<=79) | (isch>=131 & isch<=199))
replace megph = egph + 1 if egph > 2 & egph ~= .  

gen egp = 1 if megp >= 5 & megp <= 7 /* Selbständige */
replace egp = 2 if megp == 1 /* Administrative Dienste */
replace egp = 3 if megp == 2 /* Experten */
replace egp = 4 if megp == 3 /* Soziale Dienste */
replace egp = 5 if megp == 4 | megp == 8 | megp == 12 /* Mischtypen */
replace egp = 6 if megp >= 9 & megp <= 11 /* Arbeiter */
lab var egp "Mueller - EGP, 6er Teilung"
lab val egp megp6
lab def megp6 1 "Selb." 2 "Ad. D." 3 "Experten" 4 "Soz. D." 5 "Mischt."  /*
*/ 6 "Arb."

noi di _newline as text "ALLBUS"
noi tab egp


* +---------------+
* |SOEP - Original|
* +---------------+

clear
mkdat /*
*/ goldth84 goldth85 goldth86 goldth87 goldth88 goldth89 goldth90  /*
*/ goldth91 goldth92 goldth93 goldth94 goldth95 goldth96 goldth97  /*
*/ goldth98 goldth99 /*
*/ isco84 isco85 isco86 isco87 isco88 isco89 isco90 isco91 isco92 /*
*/ isco93 isco94 isco95 isco96 isco97 isco98 isco99  /*
*/ using $soepdir, files(pgen) waves(a b c d e f g h i j k l m n o p) clear

keep persnr goldth* isc*
reshape long goldth isco, i(persnr) j(welle)

ren goldth egph
ren isco isch

* Aus crtraeg.do
* --------------

gen megph = 1 if (egph == 1 | egph == 2) &  /*
*/ ((isch==1 | isch==2) | (isch>=121 & isch<=129) | (isch>=201 & isch<=999))
replace  megph = 2 if (egph == 1 | egph == 2) &   /*
*/ ((isch>=11 & isch<=54) | (isch>=81 & isch<=110))
replace  megph = 3 if (egph == 1 | egph == 2) &   /*
*/ ((isch>=61 & isch<=79) | (isch>=131 & isch<=199))
replace megph = egph + 1 if egph > 2 & egph ~= .  

gen egp = 1 if megp >= 5 & megp <= 7 /* Selbständige */
replace egp = 2 if megp == 1 /* Administrative Dienste */
replace egp = 3 if megp == 2 /* Experten */
replace egp = 4 if megp == 3 /* Soziale Dienste */
replace egp = 5 if megp == 4 | megp == 8 | megp == 12 /* Mischtypen */
replace egp = 6 if megp >= 9 & megp <= 11 /* Arbeiter */
lab var egp "Mueller - EGP, 6er Teilung"
lab val egp megp6
lab def megp6 1 "Selb." 2 "Ad. D." 3 "Experten" 4 "Soz. D." 5 "Mischt."  /*
*/ 6 "Arb."

noi di _newline as text "SOEP-Original"
noi tab egp


* +---------------------+
* |SOEP - aus traeg.dta |
* +---------------------+

capture use traeg, clear
if _rc ~= 0 {
	di as text "Data not found. Try to recover"
	do crtraeg
	use traeg, clear
}


noi di _newline as text "SOEP - aus traag.dta"
noi tab egp


* +----------------------+
* |SOEP - Balanced-Sample|
* +----------------------+

noi di _newline as text "SOEP - aus traeg.dta (Balanced Sample)"
noi tab egp if mark

}
exit


Notes
-----

Die Anteile der EGP-Klassen unterscheiden sich von denjenigen der
Analysen in der Dissertation. Insbesondere liegt in den vorliegenden
Analysen der Anteil von Arbeitern etwas hoeher. Dies hat seine
Ursachen zum Einen in der augenscheinlich im entsprechen hoeheren
Anteil der SOEP-Originalvariablen. In diesen liegt der Anteil der
Arbeiter hoeher als im ALLBUS, w"ahrend in der Dissertation der Anteil
der Arbeiter tendentiell etwas niedriger lag als im Allbus. 

Zum Anderen erhoeht sich der Anteil der Arbeiter zuungunsten der drei
Fraktionen der Dienstklassen, da die Dienstklassen auf Grund fehlender
Angaben des ISCO-Codes teilweise nicht in die Fraktionen aufgegliedert
werden koennen.