*** PRIPRAVA SPREMENLJIVKE RAZREDNIH POLOŽAJEV - ESeC ("euroesec") NA PODLAGI ISCO88 ***.
                        *** pripravljeno za raziskavo SJM 2011/1 (zadnji popravki: 9.1.2014) ***.


****constructing version 4 of ESEC Classes from 3 digit ISCO***
***Prepared on the basis of syntax for the ESS dataset (LAST REVISION 27 SEPTEMBER 2006). ***
*** All variable names and values are adapted to the SJM2011/1 ***

***preparing ISCO 3-digit variable from ISCO 4-digit variable "ISCO88" ***

COMPUTE isco8803=TRUNC(isco / 10).
EXECUTE.

**Stage 1 - derive employment status categories***
***need to know whether employed (1) or self-employed (2). Family workers (3) here treated as employees. Variable name in ESS is emplrel (in SJM: D7) ***
***Self-employed are split three ways. First take the continuous variable for how many employees people have (in ESS 'emplno'; in SJM: d8) and collapse into categorical variable as below***

recode d8 (0=0) (998=0) (1 thru 9=1) (10 thru 995=2) (else=sysmis) into empnum.
execute.
fre var=empnum.

**now combine basic employment situation (*emplrel / D7*) with supervision variable also to give five statuses**
**In ESS this question is called jbspv (in SJM: D9) (yes=1, no=2)**

if (D7=3 and empnum=2) @empstat=1.
if (D7=3 and empnum=1) @empstat=2.
if ((D7=2) or (D7=3 and empnum=0)) @empstat=3.
if (D7=1 and D9=1 or D7=4 and D9=1) @empstat=4.
if (D7 = 1 & D9 >= 2 | D7 = 4 & D9 >= 2) @empstat = 5 .
execute.

var labs @empstat 'ESeC employment status variable'.

val labs @empstat
1 'Self-employed 10+ employees'
2 'Self-employed <10 employees'
3 ' Self-employed no employees'
4 'Supervisors'
5 'Employees'.

fre var=@empstat.


**Stage 2 - creation of 'euroesec' (international comparative version of ESeC based on ISCO minor groups)**

***blocks of syntax for each employment status variable***
**Each ends with frequency check for errors***

**self-employed 10+ employees. Defaults to 1 unless otherwise in matrix**

do if (@empstat=1).
recode isco8803
(344, 345=2)
(011, 516=3)
(621=5) (999=999)
(else=1)
into euroesec.
end if.
execute.
fre var=euroesec.


**Small employers <10. Defaults to 4 unless otherwise in matrix**

do if (@empstat=2).
recode isco8803
(010, 110, 111, 114, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242=1)
(223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348=2)
(011, 516=3)
(600, 610, 611, 612, 613, 614, 615, 621, 920, 921=5) 
(999=999)
(else=4) into euroesec.
end if. 
execute.
fre var=euroesec.

**Self-employed with no employees. Defaults to 4 unless otherwise in matrix**

do if (@empstat=3).
recode isco8803
(010, 110, 111, 114, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242=1)
(223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348=2)
(011,516=3)
(600, 610, 611, 612, 613, 614, 615, 621, 920, 921=5) 
(999=999)
(else=4) into euroesec.
end if.
execute.
fre var=euroesec.

***'Supervisors'***

do if (@empstat=4).
recode isco8803 
(010, 100, 110, 111, 114, 120, 121, 123, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242=1)
(011, 122, 130,131, 223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 300, 310, 311, 312, 313, 314, 320, 321, 322, 323, 330, 331, 332, 333, 334, 340, 
341, 342, 343, 344, 345, 346, 347, 348, 400, 410, 411, 412, 419, 420, 521=2)
(621=5)
(999=999)
(else=6) into euroesec.
end if. 
execute.
fre var=euroesec.

**Employees**

do if (@empstat=5).
recode isco8803 
(010, 100,110,111,114,120, 121, 123, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242=1)
(122,130,131, 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)
(621=5)
(313, 315, 730,731=6)
(413, 421, 422, 500, 510, 511, 513, 514, 516, 520, 522, 911=7)
(600, 610, 611, 612, 613, 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,  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)
(999=999)
into euroesec.
end if.
execute.
fre var=euroesec.

**Final block to sweep up missing employment statuses. **
**Allocations here on the basis of modal ESS employment status (so-called 'simplified class')**

do if (sysmis(@empstat)).
recode isco8803 
(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) 
(999=999)
into euroesec.
end if.
execute.

recode
euroesec  (SYSMIS=998).

*** slovenski opisi za euroesec ***.

VARIABLE LABELS euroesec
   'Razred anketiranca na podlagi poklica (dela) (European ESeC)'.
VALUE LABELS
  euroesec
    1 'veliki delodajalci, višji vodilni (menedžerji) / strokovnjaki'
    2 'nižji vodilni (menedžerji) /strokovnjaki, višji nadzorniki /tehniki'
    3 'vmesni poklici'
    4 'mali delodajalci ali samozaposleni (izven kmetijstva)'
    5 'mali delodajalci ali samozaposleni (kmetijstvo)'
    6 'nižji nadzorniki in tehniki'
    7 'nižji (delavski) položaji v trgovini in uslugah'
    8 'nižji (dlavski) položaji v tehničnih poklicih'
    9 'rutinska (nekvalificirana) dela'
 998 'nikoli ni delal za plačilo'
 999 'neustrezna informacija, ni odgovora'.
Execute.

fre var=euroesec.

*** vir: Rose, David and Eric Harrison (2007)
     “The European Socio-economic Classification: a New Social Class Schema for Comparative European Research” 
      European Societies 9(3): 459–490 ***.