******************************************************************************************
***********************BIBB-Übergangsstudie 2006******************************************
************************Querschnittdatensatz**********************************************
***************Codieren der Berufsfelddefinitione des BIBB********************************
**********aus der  International Standard Classification of Occupations 1988**************
******************************************************************************************

******************************************************************************************
/*
Herkunft: BIBB-FDZ
Stataversion: 12.0 MP
Quelle:
Quelle: Seite https://www.iser.essex.ac.uk/archives/esec/matrices-and-syntax 
(Stand: 26.09.2012)
*/
******************************************************************************************

******************************************************************************************
*********************Recodieren der Variablen
foreach x of varlist  VBR_I88  MBR_I88{				//VBR_I88=Berufstätigkeit Vater: ISCO88(4-steller); MBR_I88=Berufstätigkeit Mutter: ISCO88(4-steller)
cap drop h_*
gen h_esec=trunc( `x'/10)							//ISCO88 3-steller bilden				
replace h_esec= `x' if `x'<0

#delimit ;
recode  h_esec
(010 100 110 111 114  120 121 123  200  210  211  212  213  214  220  221  222  231  235  240  241  242=1)
(122  223  230  232  233  234  243  244  245  246  247  310  311 312  314  320  321  322  323  334  342  344  345  348  521=2)
(011 300  330  331  332  333  340  341  343  346  347  400  410  411  412  419  420=3)
(130  131  911=4)
(600  610  611  612  613  621=5)
(313  315  730 731=6)
(413  421  422  500  510  511  513  514  516  520  522=7)
(614  615  700  710  711  712  713  714  720  721  722  723  724  732  733  734  740  741  742  743  744  825  831  834=8)
(414  512  800  810  811  811  812  813  814  815  816  817  820  821  822  823  824  826  827  828  829  830  832  833 
900  910  912  913  914  915  916  920  921  930  931  932  933=9) 
( 110 247 525 713 991 993 997 998 -13 -12 -11= -4), gen (`x'_esec);
#delimit cr
}
******************************************************************************************
**************Umbenennen der Variablen

rename VBR_I88_esec VBR_esec
rename MBR_I88_esec MBR_esec
******************************************************************************************
**************Labeln der Variablen

#delimit ;
label define esec
-14 "arbeitssuchend"
-13 "Offiziere"
-12 "Soldaten"
-11 "Hausfrau, Hausmann"
-10 "In schulischer Ausbildung"
-9 "keine Angabe"
-8 "weiß nicht"
-7 "trifft nicht zu"
-6 "ungültig"
-5 "verweigert"
-1 "Filter"
1 "Large employers, higher mgrs/professionals"
2 "Lower mgrs/professionals, higher supervisory/technicians"
3 "Intermediate occupations"
4 "Small employers and self-employed (non-agriculture)"
5 "Small employers and self-employed (agriculture)"
6 "Lower supervisors and technicians"
7 "Lower sales and service"
8 "Lower technical"
9 "Routine";
#delimit cr

label value MBR_esec VBR_esec esec
label variable MBR_esec "Mutter: einfache European ESeC nur aus ISCO 88 Erwerbsberuf"
label variable VBR_esec "Vater: einfache European ESeC nur aus ISCO 88 Erwerbsberuf"

tab1 *_esec																	//einige ISCO88 Codes nicht zugeordnet


**************Zuordnung der fehlenden Codes
recode *_esec (112 113=1)(324=2)(523=7)
tab   VBR_I88 if VBR_esec==751												//es handelt sich um Schlosser
tab   VBR_I88 if VBR_esec==790												//es handelt sich um Aufsichtskräfte in der Produktion
recode VBR_esec (751=8)(790=3)
replace VBR_esec= VBR_I88 if  VBR_I88<0
replace MBR_esec= MBR_I88 if  MBR_I88<0
******************************************************************************************

drop h_*
******************************************************************************************