******************************************************************************************
*******************BIBB/BAuA Erwerbstätigenbefragung 2024*********************************
*************Codieren der European Socio-economic Classification (ESeC)*******************
********************und dem Klassenmodell nach Daniel Oesch*******************************
******************************************************************************************
******************************* aus der ISCO08********************************************
******************Mit SUF-Variablen nicht nachbildbar, SV Variablen benötigt**************
******************************************************************************************
/*
Herkunft: BIBB-FDZ
Stataversion: 18.0 MP
Quelle:
Stata module to recode 4 digit ISCO-08 occupational codes:
Jann, B. (2019). iscogen: Stata module to translate ISCO codes. Available from http://ideas.repec.org/c/boc/bocode/s458665.html.
	ISCO-08 -> ESEC
        File esec_08_3_digit_public.xlsx provided by Eric Harrison at http://ekharrison.weebly.com/european-socio-economic-classification-esec.html. For information on the ESEC classification also see http://www.iser.essex.ac.uk/archives/esec. Note that
        ESEC is defined at the level of minor groups (3 digit) (i.e. all unit groups within a minor group map into the same class). ISCO minor groups 960, 961, and 962 are missing in the ESEC list provided in esec_08_3_digit_public.xlsx; iscogen applies
        the same ESEC classes as for minor groups 950, 951, and 952.
	ISCO-08 -> OESCH
        Stata script iscooesch.ado (version May 2018) by Kaiser (2018). The mapping has been generated automatically by applying iskooesch.ado to all relevant combinations of ISCO codes, self-employment status, and number of subordinates or employees.
*/





ssc install iscogen  //installieren des ado


/*Variablen:
f100* (Erwerbstätiger) f1609* (Vater), f1610* (Mutter)

Das Klassenschema nach Daniel Oesch (16er-Fassung)* aus der ISCO08 gebildet*/

***Stellung im beruf
gen sempl_b=.														
replace sempl_b=1 if Stib==4												//Stib=Stellung im Beruf 4=Stelbständig

gen sempl_e=.
replace sempl_e=1 if F1611==3 & F1608==1								//F1611==berufliche Stellung Vater bzw. Mutter 3=Selbstständige, F1608==bis 15 durchgängig mit Vater zusammen gelebt? 1==ja 2==nein
	

**Vorgesetztenfunktion
gen supvis_b=.														//F302 Anzahl der Mitarbeitenden, für die die Person Vorgesetzte/r ist
replace supvis_b=1 if F302==1
replace supvis_b=F302 if F302>=2& F302<=10
replace supvis_b=10 if F302>10
replace supvis_b=0 if F302==.
replace supvis_b=0 if F302==99999


gen supvis_e=.
replace supvis_e=1 if (F1612b==9 | F1612b==8)&(F1612==1)				//F1612==Übte Ihr Vater/Ihre Mutter eine Vorgesetztenfunktion aus? 1=Ja, 2=Nein, 3=Keine Angabe
replace supvis_e=1 if (F1612b==1)										//F1612= Für wieviele Mitarbeiter ist ihre Mutter/Vater Vorgesetzte/r 1=1-9, 2=10+, 8=kann ich nicht sagen, 9=keine Angabe
replace supvis_e=10 if (F1612b==2)
replace supvis_e=0 if F1612b==.


iscogen f100_oesch = oesch(f100_isco08 sempl_b supvis_b)
iscogen f1401_oesch= oesch(f1401_isco08)
iscogen f1609_oesch= oesch(f1609_isco08 sempl_e supvis_e)	
iscogen f1610_oesch= oesch(f1610_isco08 sempl_e supvis_e)	


replace f100_oesch=-1 if f100_isco08<0 | f100_isco08>=9910 & f100_isco08<.		//Sonderwerte auf -1 "Kein gültiger Berufscode"  
replace f1401_oesch=-1 if f1401_isco08<0 | f1401_isco08>=9910 & f1401_isco08<.
replace f1609_oesch=-1 if f1609_isco08<0 | f1609_isco08>=9910 & f1609_isco08<.
replace f1610_oesch=-1 if f1610_isco08<0 | f1610_isco08>=9910 & f1610_isco08<.

replace f100_oesch=-4 if f100_isco08 ==310			//Reguläre Streitkräfte, sonstige Ränge 310 = nicht zuordenbar -4
replace f1401_oesch=-4 if f1401_isco08 ==310
replace f1609_oesch=-4 if f1609_isco08 ==310
replace f1610_oesch=-4 if f1610_isco08==310

label define f100_oesch -1 "Kein gültiger Berufscode" -4 "nicht zuordenbar", add			//labels ergänzt
label define f1401_oesch -1 "Kein gültiger Berufscode"-4 "nicht zuordenbar", add
label define f1609_oesch -1 "Kein gültiger Berufscode"-4 "nicht zuordenbar", add
label define f1610_oesch -1 "Kein gültiger Berufscode"-4 "nicht zuordenbar", add

label var f100_oesch "Aktueller Erwerbsberuf: Oesch aus ISCO08"
label var f1401_oesch "Erster Erwerbsberuf: Oesch aus ISCO08"
label var f1609_oesch "Beruf Vater: Oesch aus ISCO08"
label var f1610_oesch "Beruf Mutter: Oesch aus ISCO08"





//Die European Socio-economic Classification (ESeC) aus der ISCO08 generieren
iscogen f100_esec=esec(f100_isco08 sempl_b supvis_b)
iscogen f1401_esec=esec(f1401_isco08)
iscogen f1609_esec=esec(f1609_isco08 sempl_e supvis_e)	
iscogen f1610_esec=esec(f1610_isco08 sempl_e supvis_e)	

replace f100_esec=-1 if f100_isco08<0 | f100_isco08>=9910 & f100_isco08<.		//Sonderwerte auf -1 "Kein gültiger Berufscode" gesetzt 
replace f1401_esec=-1 if f1401_isco08<0 | f1401_isco08>=9910 & f1401_isco08<.
replace f1609_esec=-1 if f1609_isco08<0 | f1609_isco08>=9910 & f1609_isco08<.
replace f1610_esec=-1 if f1610_isco08<0 | f1610_isco08>=9910 & f1610_isco08<.

label define f100_esec -1 "Kein gültiger Berufscode", add
label define f1401_esec -1 "Kein gültiger Berufscode", add
label define f1609_esec -1 "Kein gültiger Berufscode", add
label define f1610_esec -1 "Kein gültiger Berufscode", add


label var f100_esec "Aktueller Erwerbsberuf: ESEC aus ISCO08"
label var f1401_esec "Erster Erwerbsberuf: ESEC aus ISCO08"
label var f1609_esec "Beruf Vater: ESEC aus ISCO08"
label var f1610_esec "Beruf Mutter: ESEC aus ISCO08"


drop supvis_* sempl_*