* Encoding: UTF-8.
*Weighting cases using post-stratification and design weights included in the ESS data.
USE ALL.
COMPUTE filter_$=(cntry = "HR" OR cntry = "ME" OR cntry = "RS" OR cntry = "SI") & agea >= 25.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.

weight by pspwght.
EXECUTE.

*Recoding the dependent variable*.
recode health (1,2 = 0) (3,4,5=1) (8,9=SYSMIS) into srh.
var lab srh 'Self-rated Health'.
val lab srh 0'Good' 1'Poor'.

*Recoding education*.
recode eisced (1,2 = 1) (3,4 = 2) (5,6,7 = 3) into education.
var lab education 'Educational attainment'.
val lab education 1'ISCED I & II' 2'ISCED III' 3'ISCED IV & V'.

*Recoding age.
recode agea (25 thru 34 = 1) (35 thru 44 = 2) (45 thru 54 = 3) (55 thru 64 = 4) (65 thru hi = 5) into agea2.
val lab agea2 1'25-34' 2'35-44' 3'45-54' 4'55-64' 5'65-hi'.

*Computing the occupational class (EGP) independent variable.
**STEP 1. RECODE OF ISCO-08 [ISKO] INTO ISCO-88 (ISQO] **.

recode isco08   
  (110=0110)
  (210=0110)
  (310=0110)
  (100=0110)
  (200=0110)
  (300=0110)
 (1000=1000)
 (1100=1100)
 (1110=1100)
  (1111=1110)
  (1112=1120)
  (1113=1130)
  (1114=1140)
  (1120=1210)
 (1200=1200)
 (1210=1230)
  (1211=1231)
  (1212=1232)
  (1213=1239)
  (1219=1229)
 (1220=1230)
  (1221=1233)
  (1222=1234)
  (1223=1237)
 (1300=1220)
 (1310=1221)
  (1311=1221)
  (1312=1221)
 (1320=1220)
  (1321=1222)
  (1322=1222)
  (1323=1223)
  (1324=1235)
  (1330=1236)
 (1340=1229)
  (1341=1229)
  (1342=1229)
  (1343=1229)
  (1344=1229)
  (1345=1229)
  (1346=1227)
  (1349=1229)
 (1400=1310)
 (1410=1315)
  (1411=1315)
  (1412=1315)
  (1420=1314)
 (1430=1319)
  (1431=1319)
  (1439=1319)
 (2000=2000)
 (2100=2100)
 (2110=2110)
  (2111=2111)
  (2112=2112)
  (2113=2113)
  (2114=2114)
  (2120=2120)
 (2130=2210)
  (2131=2211)
  (2132=2213)
  (2133=2200)
 (2140=2140)
  (2141=2149)
  (2142=2142)
  (2143=2149)
  (2144=2145)
  (2145=2146)
  (2146=2147)
  (2149=2149)
 (2150=2140)
  (2151=2143)
  (2152=2144)
  (2153=2144)
 (2160=2140)
  (2161=2141)
  (2162=2141)
  (2163=3471)
  (2164=2141)
  (2165=2148)
  (2166=3471)
 (2200=2200)
 (2210=2220)
  (2211=2221)
  (2212=2221)
 (2220=2230)
  (2221=2230)
  (2222=2230)
  (2230=3229)
  (2240=3221)
  (2250=2223)
 (2260=3210)
  (2261=2222)
  (2262=2224)
  (2263=2229)
  (2264=3226)
  (2265=3223)
  (2266=3229)
  (2267=3224)
  (2269=2229)
  (2310=2310)
  (2320=2320)
  (2330=2320)
 (2300=2300)
 (2340=2330)
  (2341=2331)
  (2342=2332)
 (2350=2350)
  (2351=2351)
  (2351=2352)
  (2352=2340)
  (2353=2359)
  (2354=2359)
  (2355=2359)
  (2356=2359)
  (2359=2359)
 (2400=2400)
 (2410=2410)
  (2411=2411)
  (2412=2419)
  (2413=2419)
 (2420=2419)
  (2421=2419)
  (2422=2419)
  (2423=2412)
  (2424=2412)
 (2430=2410)
  (2431=2419)
  (2432=2419)
  (2433=3415)
  (2434=3415)
 (2500=2100)
 (2510=2130)
  (2511=2131)
  (2512=2131)
  (2513=2131)
  (2513=2139)
  (2514=2132)
  (2519=2131)
 (2520=2131)
  (2521=2131)
  (2522=2131)
  (2523=2131)
  (2529=2139)
 (2600=2400)
 (2610=2420)
  (2611=2421)
  (2612=2422)
  (2619=2429)
 (2620=2430)
  (2621=2431)
  (2622=2432)
 (2630=2440)
  (2631=2441)
  (2632=2442)
  (2633=2443)
  (2634=2445)
  (2635=2446)
  (2636=2460)
 (2640=2450)
  (2641=2451)
  (2642=2451)
  (2643=2444)
 (2650=2450)
  (2651=2452)
  (2652=2453)
  (2653=2454)
  (2654=2455)
  (2655=2455)
  (2656=3472)
  (2659=3474)
 (3000=3000)
 (3100=3100)
 (3110=3110)
  (3111=3111)
  (3112=3112)
  (3113=3113)
  (3114=3114)
  (3115=3115)
  (3116=3116)
  (3117=3117)
  (3118=3118)
  (3119=3119)
 (3120=1220)
  (3121=1229)
  (3122=1222)
  (3123=1223)
 (3130=8160)
  (3131=8161)
  (3132=8163)
  (3133=8150)
  (3134=8155)
  (3135=8120)
  (3139=8290)
 (3140=3210)
  (3141=3211)
  (3142=3212)
  (3143=3212)
 (3150=3140)
  (3151=3141)
  (3152=3142)
  (3153=3143)
  (3154=3144)
  (3155=3145)
 (3200=3100)
 (3210=3130)
  (3211=3133)
  (3212=3211)
  (3213=3228)
  (3214=7311)
 (3220=3230)
  (3221=3231)
  (3222=3232)
  (3230=3241)
  (3240=3227)
 (3250=3220)
  (3251=3225)
  (3252=3229)
  (3253=3229)
  (3254=3224)
  (3255=3226)
  (3256=3221)
  (3257=3152)
  (3258=3152)
  (3259=3229)
 (3300=3300)
 (3310=3410)
  (3311=3411)
  (3312=3419)
  (3313=3433)
  (3314=3434)
  (3315=3417)
 (3320=3410)
  (3321=3412)
  (3322=3415)
  (3323=3416)
  (3324=3421)
 (3330=3420)
  (3331=3422)
  (3332=3414)
  (3332=3439)
  (3333=3423)
  (3334=3413)
  (3339=3429)
 (3340=3430)
  (3341=3431)
  (3342=3431)
  (3343=3431)
  (3344=3431)
 (3350=3440)
  (3351=3441)
  (3352=3442)
  (3353=3443)
  (3354=3444)
  (3355=3450)
  (3359=3449)
 (3400=3400)
 (3410=3430)
  (3411=3432)
  (3412=3460)
  (3413=3480)
 (3420=3470)
  (3421=3475)
  (3422=3475)
  (3423=3340)
  (3423=3475)
 (3430=3470)
  (3431=3131)
  (3432=3471)
  (3433=3470)
  (3434=5122)
  (3435=3470)
 (3500=3100)
 (3510=3120)
  (3511=3122)
  (3512=3121)
  (3513=2139)
  (3514=3121)
 (3520=3130)
  (3521=3130)
  (3522=3114)
  (3522=3132)
 (4000=4000)
  (4110=4100)
  (4120=4115)
 (4100=4100)
 (4130=4110)
  (4131=4112)
  (4132=4113)
 (4200=4200)
 (4210=4210)
  (4211=4211)
  (4212=4213)
  (4213=4214)
  (4214=4215)
 (4220=4220)
  (4221=3414)
  (4222=4222)
  (4223=4223)
  (4224=4222)
  (4225=4222)
  (4226=4222)
  (4227=4190)
  (4229=4222)
 (4300=4100)
 (4310=4120)
  (4311=4121)
  (4312=4122)
  (4313=4121)
 (4320=4130)
  (4321=4131)
  (4322=4132)
  (4323=4133)
 (4400=4100)
 (4410=4140)
  (4411=4141)
  (4412=4142)
  (4413=4143)
  (4414=4144)
  (4415=4141)
  (4416=4190)
  (4419=4190)
 (5000=5000)
 (5100=5100)
 (5110=5110)
  (5111=5111)
  (5112=5112)
  (5113=5113)
  (5120=5122)
 (5130=5120)
  (5131=5123)
  (5132=5123)
 (5140=5140)
  (5141=5141)
  (5142=5141)
 (5150=5120)
  (5151=5121)
  (5152=5121)
  (5153=9141)
 (5160=5140)
  (5161=5152)
  (5162=5142)
  (5163=5143)
  (5164=5149)
  (5165=3340)
  (5169=5149)
 (5200=5200)
 (5210=5230)
  (5211=5230)
  (5212=9111)
 (5220=1314)
  (5221=1314)
  (5222=1314)
  (5223=5220)
  (5230=4211)
 (5240=5220)
  (5241=5210)
  (5242=5220)
  (5243=9113)
  (5244=9113)
  (5245=5220)
  (5246=5123)
  (5249=5220)
 (5300=5100)
 (5310=5130)
  (5311=5131)
  (5312=5131)
 (5320=5130)
  (5321=5132)
  (5322=5133)
  (5329=5139)
 (5400=5100)
 (5410=5160)
  (5411=5161)
  (5412=5162)
  (5413=5163)
  (5414=5169)
  (5419=5169)
 (6000=6000)
 (6100=6100)
 (6110=6110)
  (6111=6111)
  (6112=6112)
  (6113=6113)
  (6114=6114)
 (6120=6120)
  (6121=6124)
  (6122=6122)
  (6123=6123)
  (6129=6129)
  (6130=6130)
  (6210=6141)
 (6200=6150)
 (6220=6150)
  (6221=6151)
  (6222=6152)
  (6223=6153)
  (6224=6154)
 (6300=6200)
  (6310=6210)
  (6320=6210)
  (6330=6210)
  (6340=6210)
 (7000=7000)
 (7100=7100)
 (7110=7120)
  (7111=7129)
  (7112=7122)
  (7113=7113)
  (7114=7123)
  (7115=7124)
  (7119=7129)
 (7120=7130)
  (7121=7131)
  (7122=7132)
  (7123=7133)
  (7124=7134)
  (7125=7135)
  (7126=7136)
  (7127=7240)
 (7130=7140)
  (7131=7141)
  (7132=7142)
  (7133=7143)
 (7200=7200)
 (7210=7210)
  (7211=7211)
  (7212=7212)
  (7213=7213)
  (7214=7214)
  (7215=7215)
 (7220=7220)
  (7221=7221)
  (7222=7222)
  (7223=7223)
  (7224=7224)
 (7230=7230)
  (7231=7231)
  (7232=7232)
  (7233=7233)
  (7234=7231)
 (7300=7300)
 (7310=7310)
  (7311=7311)
  (7312=7312)
  (7313=7313)
  (7314=7321)
  (7315=7322)
  (7316=3471)
  (7317=7331)
  (7318=7332)
  (7319=7330)
 (7320=7340)
  (7321=7340)
  (7322=7340)
  (7323=7345)
 (7400=7200)
 (7410=7240)
  (7411=7137)
  (7412=7241)
  (7413=7245)
 (7420=7240)
  (7421=7242)
  (7421=7243)
  (7422=7243)
 (7500=7400)
 (7510=7410)
  (7511=7411)
  (7512=7412)
  (7513=7413)
  (7514=7414)
  (7515=7415)
  (7516=7416)
 (7520=7420)
  (7521=7421)
  (7522=7422)
  (7523=7423)
 (7530=7430)
  (7531=7434)
  (7532=7435)
  (7533=7436)
  (7534=7437)
  (7535=7441)
  (7536=7442)
 (7540=7200)
  (7541=7216)
  (7542=7112)
  (7543=3152)
  (7544=7143)
  (7549=7000)
 (8000=8000)
 (8100=8100)
 (8110=8110)
  (8111=7111)
  (8112=8112)
  (8113=8113)
  (8114=8212)
 (8120=8120)
  (8121=8120)
  (8122=8223)
 (8130=8220)
  (8131=8220)
  (8132=8224)
 (8140=8230)
  (8141=8231)
  (8142=8232)
  (8143=8253)
 (8150=8260)
  (8151=8261)
  (8152=8262)
  (8153=8263)
  (8154=8264)
  (8155=8265)
  (8156=8266)
  (8157=8264)
  (8159=8269)
  (8160=8270)
 (8170=8140)
  (8171=8140)
  (8172=8141)
 (8180=8290)
  (8181=8131)
  (8182=8162)
  (8183=8290)
  (8189=8290)
 (8200=8200)
 (8210=8280)
  (8211=8281)
  (8212=8283)
  (8219=8290)
 (8300=8300)
 (8310=8310)
  (8311=8311)
  (8312=8312)
 (8320=8320)
  (8321=8321)
  (8322=8322)
 (8330=8320)
  (8331=8323)
  (8332=8324)
 (8340=8330)
  (8341=8331)
  (8342=8332)
  (8343=8333)
  (8344=8334)
  (8350=8340)
 (9000=9000)
 (9100=9100)
 (9110=9130)
  (9111=9131)
  (9112=9132)
 (9120=9140)
  (9121=9133)
  (9122=9142)
  (9123=9142)
  (9129=9140)
 (9200=9200)
 (9210=9210)
  (9211=9211)
  (9212=9211)
  (9213=9211)
  (9214=9211)
  (9215=9212)
  (9216=9213)
 (9300=9300)
 (9310=9310)
  (9311=9311)
  (9312=9312)
  (9313=9313)
 (9320=9320)
  (9321=9322)
  (9329=9320)
 (9330=9330)
  (9331=9331)
  (9332=9332)
  (9333=9333)
  (9334=9333)
 (9400=9100)
 (9410=9130)
  (9411=5122)
  (9412=9132)
 (9500=9100)
  (9510=9120)
  (9520=9112)
 (9600=9100)
 (9610=9160)
  (9611=9161)
  (9612=9161)
  (9613=9162)
 (9620=9140)
  (9621=9151)
  (9622=9160)
  (9623=9153)
  (9624=9160)
  (9629=9100)
  (9999=0000) into iscoco.

 *Value labels for Isco88.
add value labels iscoco
    110 '[armed forces]'
    6131 '[mixed farmer]'
    6132 '[farm foreman]'
    6133 '[farmer nfs]'
    6134 '[skilled farm worker nfs]'
    7510 '[non farm foremen nfs]'
    7520 '[skilled manual nfs]'
    3451 '[police inspectors-detectives]'
    3452 '[armed forces non-commissioned officers + army nfs]'
    2322 '[second voc teacher]'
    2321 '[second academ teacher]'
    2323 '[middle school teacher]'
    8400 '[semiskld worker nfs]'
    7530 '[apprentice skilled work nfs]'
    7234 '[unskl garage worker, oiler]'
    1000 'legislators, senior officials & managers'
    1100 'legislators & senior officials'
    1110 'legislators'
    1120 'senior government officials'
    1130 'traditional chiefs & heads of villages'
    1140 'senior officials special-interest organisations'
    1141 'senior officials political-party organisations'
    1142 'senior officials economic-interest organisations'
    1143 'senior officials special-interest organisations'
    1200 'corporate managers [large enterprise]'
    1210 'directors & chief executives [large enterprise]'
    1220 'department managers [large enterprise][production-operation]'
    1221 'department managers agriculture, hunting, forestry & fishlng'
    1222 'department managers manufacturing'
    1223 'department managers construction'
    1224 'department managers wholesale & retail trade'
    1225 'department managers restaurants & hotels'
    1226 'department managers transport, storage & communications'
    1227 'department managers business services'
    1228 'department managers personal care, cleaning etc'
    1229 'operations department managers nec'
    1230 'other department managers [large enterprise]'
    1231 'finance & administration department managers'
    1232 'personnel & industrial relations department managers'
    1233 'sales & marketing department managers'
    1234 'advertising & public relations department managers'
    1235 'supply & distribution department managers'
    1236 'computing services department managers'
    1237 'research & development department managers'
    1239 'other department managers nec'
    1240 '[office manager]'
    1250 '[military officers]'
    1251 '[high military officers]'
    1252 '[lower military officers]'
    1300 'general managers [small enterprise]'
    1310 'general managers [small enterprise]'
    1311 'general managers agriculture, hunting forestry & fishing'
    1312 'general managers manufacturing'
    1313 'general managers construction'
    1314 'general managers wholesale & retail trade'
    1315 'general managers restaurants & hotels'
    1316 'general managers transport, storage & communications'
    1317 'general managers business services'
    1318 'general managers personal care, cleaning etc services'
    1319 'general managers nec'
    2000 'professionals'
    2100 'physical, mathematical & engineering science professionals'
    2110 'physicists, chemists & related professionals'
    2111 'physicists & astronomers'
    2112 'meteorologists'
    2113 'chemists'
    2114 'geologists & geophysicists'
    2120 'mathematicians, statisticians etc professionals'
    2121 'mathematicians etc professionals'
    2122 'statisticians'
    2130 'computing professionals'
    2131 'computer systems designers & analysts'
    2132 'computer programmers'
    2139 'computing professionals nec'
    2140 'architects, engineers etc professionals'
    2141 'architects town & traffic planners'
    2142 'civil engineers'
    2143 'electrical engineers'
    2144 'electronics & telecommunications engineers'
    2145 'mechanical engineers'
    2146 'chemical engineers'
    2147 'mining engineers metallurgists etc professionals'
    2148 'cartographers & surveyors'
    2149 'architects engineers etc professionals nec'
    2200 'life science & health professionals'
    2210 'life science professionals'
    2211 'biologists, botanists zoologists etc professionals'
    2212 'pharmacologists, pathologists etc professlonals'
    2213 'agronomists etc professionals'
    2220 'health professionals (except nursing)'
    2221 'medical doctors'
    2222 'dentists'
    2223 'veterinarians'
    2224 'pharmacists'
    2229 'health professionals except nursing nec'
    2230 'nursing & midwifery professionals'
    2300 'teaching professionals'
    2310 'higher education teaching professionals'
    2320 'secondary education teaching professionals'
    2330 'primary & pre-primary education teaching professionals'
    2331 'primary education teaching professionals'
    2332 'pre-primary education teaching professionals'
    2340 'special education teaching professionals'
    2350 'other teaching professionals'
    2351 'education methods specialists'
    2352 'school inspectors'
    2359 'other teaching professionals nec'
    2400 'other professionals'
    2410 'business professionals'
    2411 'accountants'
    2412 'personnel & careers professionals'
    2419 'business professionals nec'
    2420 'legal professionals'
    2421 'lawyers'
    2422 'judges'
    2429 'legal professionals nec'
    2430 'archivists, librarians etc information professionals'
    2431 'archivists & curators'
    2432 'librarians etc information professionals'
    2440 'social science etc professionals'
    2441 'economists'
    2442 'sociologists anthropologists etc professionals'
    2443 'philosophers, historians & political scientists'
    2444 'philologists translators & interpreters'
    2445 'psychologists'
    2446 'social work professionals'
    2450 'writers & creative or performing artists'
    2451 'authors journalists & other writers'
    2452 'sculptors, painters etc artists'
    2453 'composers musicians & singers'
    2454 'choreographers & dancers'
    2455 'film, stage etc actors & directors'
    2460 'religious professionals'
    3000 'technicians and associated professionals'
    3100 'physical & engineering science associate professionals'
    3110 'physical & engineering science technicians'
    3111 'chemical & physical science technicians'
    3112 'civil engineering technicians'
    3113 'electrical engineering technicians'
    3114 'electronics & telecommunications engineering technicians'
    3115 'mechanical engineering technicians'
    3116 'chemical engineering technicians'
    3117 'mining & metallurgical technicians'
    3118 'draughtspersons'
    3119 'physical & engineering science technicians nec'
    3120 'computer associate professionals'
    3121 'computer assistants'
    3122 'computer equipment operators'
    3123 'industrial robot controllers'
    3130 'optical & electronic equipment operators'
    3131 'photographers & elctr equipment operators'
    3132 'broadcasting & telecommunications equipment operators'
    3133 'medical equipment operators'
    3139 'optical & electronic equipment operators nec'
    3140 'ship & aircraft controllers & technicians'
    3141 'ships engineers'
    3142 'ships deck officers & pilots'
    3143 'aircraft pilots etc associate professionals'
    3144 'air traffic controllers'
    3145 'air traffic safety technicians'
    3150 'safety & ouality inspectors'
    3151 'building & fire inspectors'
    3152 'safety, health & quality inspectors'
    3200 'life science & health associate professionals'
    3210 'life science technicians etc associate professionals'
    3211 'life science technicians'
    3212 'agronomy & forestry technicians'
    3213 'farming & forestry advisers'
    3220 'modern health associate professionals except nursing'
    3221 'medical assistants'
    3222 'sanitarians'
    3223 'dieticians & nutritionists'
    3224 'optometrists & opticians'
    3225 'dental assistants'
    3226 'physiotherapists etc associate professionals'
    3227 'veterinary assistants'
    3228 'pharmaceutical assistants'
    3229 'modern health associate professionals except nursing nec'
    3230 'nursing & midwifery associate professionals'
    3231 'nursing associate professionals'
    3232 'midwifery associate professionals'
    3240 'traditional medicine practitioners & faith healers'
    3241 'traditional medicine practitioners'
    3242 'faith healers'
    3300 'teaching associate professionals'
    3310 'primary education teaching associate professionals'
    3320 'pre-primary education teaching associate professionals'
    3330 'special education teaching associate professionals'
    3340 'other teaching associate professionals'
    3400 'other associate professionals'
    3410 'finance & sales associate professionals'
    3411 'securities & finance dealers & brokers'
    3412 'insurance representatives'
    3413 'estate agents'
    3414 'travel consultants & organisers'
    3415 'technical & commercial sales representatives'
    3416 'buyers'
    3417 'appraisers, valuers & auctioneers'
    3419 'finance & sales associate professionals nec'
    3420 'business services agents and trade brokers'
    3421 'trade brokers'
    3422 'clearing & forwarding agents'
    3423 'employment agents & labour contractors'
    3429 'business services agents & trade brokers nec'
    3430 'administrative associate professionals'
    3431 'administrative secretaries etc associate professionals'
    3432 'legal etc business associate professionals'
    3433 'bookkeepers'
    3434 'statistical, mathematical etc associate professionals'
    3439 'administrative associate professionals nec'
    3440 'customs, tax etc government associate professionals'
    3441 'customs & border inspectors'
    3442 'government tax & excise officials'
    3443 'government social benefits officials'
    3444 'government licensing officials'
    3449 'customs tax etc government associate professionals nec'
    3450 '[police and army officers]'
    3460 'social work associate professionals'
    3470 'artistic, entertainment & sports associate professionals'
    3471 'decorators & commercial designers'
    3472 'radio, television & other announcers'
    3473 'street night-club etc musicians singers & dancers'
    3474 'clowns magicians acrobats etc associate professionals'
    3475 'athletes sportspersons etc associate professionals'
    3480 'religious associate professionals'
    4000 'clerks'
    4100 'office clerks'
    4110 'secretaries & keyboard-operating clerks'
    4111 'stenographers & typists'
    4112 'word-processor etc operators'
    4113 'data entry operators'
    4114 'calculating-machine operators'
    4115 'secretaries'
    4120 'numerical clerks'
    4121 'accounting & bookkeeping clerks'
    4122 'statistical & finance clerks'
    4130 'material-recording & transport clerks'
    4131 'stock clerks'
    4132 'production clerks'
    4133 'transport clerks'
    4140 'library, mail etc clerks'
    4141 'library & filing clerks'
    4142 'mail carriers & sorting clerks'
    4143 'coding proof-reading etc clerks'
    4144 'scribes etc workers'
    4190 'other office clerks'
    4200 'customer services clerks'
    4210 'cashiers, tellers etc clerks'
    4211 'cashiers & ticket clerks'
    4212 'tellers & other counter clerks'
    4213 'bookmakers & croupiers'
    4214 'pawnbrokers & money-lenders'
    4215 'debt-collectors etc workers'
    4220 'client information clerks'
    4221 'travel agency etc clerks'
    4222 'receptionists & information clerks'
    4223 'telephone switchboard operators'
    5000 'service workers & shop & market sales workers'
    5100 'personal & protective services workers'
    5110 'travel attendants etc'
    5111 'travel attendants & travel stewards'
    5112 'transport conductors'
    5113 'travel, museum guides'
    5120 'housekeeping & restaurant services workers'
    5121 'housekeepers etc workers'
    5122 'cooks'
    5123 'waiters waitresses & bartenders'
    5130 'personal care etc work'
    5131 'child-care workers'
    5132 'institution-based personal care workers'
    5133 'home based personal care workers'
    5139 'personal care etc workers nec'
    5140 'other personal services workers'
    5141 'hairdressers barbers beauticians etc workers'
    5142 'companions & valets '
    5143 'undertakers & embalmers'
    5149 'other personal services workers nec'
    5150 'astrologers, fortune-tellers etc workers'
    5151 'astrologers etc workers'
    5152 'fortune-tellers, palmists etc workers'
    5160 'protective services workers'
    5161 'fire-fighters'
    5162 'police officers'
    5163 'prison guards'
    5164 '[army: enlisted men - soldiers]'
    5169 'protective services workers nec'
    5200 'models, salespersons & demonstrators'
    5210 'fashion & other models'
    5220 'shop salespersons & demonstrators'
    5230 'stall & market salespersons'
    6000 'skilled agricultural & fishery workers'
    6100 'market-oriented skilled agricultural & fishery workers'
    6110 'market gardeners & cropgrowers'
    6111 'field crop & vegetable growers'
    6112 'tree & shrub crop growers'
    6113 'gardeners, horticultural & nursery growers'
    6114 'mixed-crop growers'
    6120 'market-oriented animal producers etc workers'
    6121 'dairy & livestock producers'
    6122 'poultry producers'
    6123 'apiarists & sericulturists'
    6124 'mixed -animal producers'
    6129 'market-oriented animal producers etc workers nec'
    6130 'market-oriented crop & animal producers'
    6140 'forestry etc workers'
    6141 'forestry workers & loggers'
    6142 'charcoal burners etc workers'
    6150 'fishery workers, hunters & trappers'
    6151 'aquatic-life cultivation workers'
    6152 'inland & coastal waters fishery workers'
    6153 'deep-sea fishery workers'
    6154 'hunters & trappers'
    6200 'subsistence agricultural & fishery workers'
    6210 'subsistence agricultural & fishery workers'
    7000 'craft etc trades workers'
    7100 'extraction & building trades workers'
    7110 'miners, shotfirers, stone cutters & carvers'
    7111 'miners & quarry workers'
    7112 'shotfirers & blasters'
    7113 'stone splitters cutters & carvers'
    7120 '[builders] & ar trades workers'
    7121 'builders traditional materials'
    7122 'bricklayers & stonemasons'
    7123 'concrete placers concrete finishers etc workers'
    7124 'carpenters & joiners'
    7129 '[builders] ar trades workers nec'
    7130 'building finishers etc trades workers'
    7131 'roofers'
    7132 'floor layers & tile setters'
    7133 'plasterers'
    7134 'insulation workers'
    7135 'glaziers'
    7136 'plumbers & pipe fitters'
    7137 'building etc electricians'
    7140 'painters, building structure cleaners etc trades workers'
    7141 'painters etc workers'
    7142 'varnishers etc painters'
    7143 'building structure cleaners'
    7200 'metal, machinery etc trades workers'
    7210 'metal moulders, welders, sheetmetal workers structural metal'
    7211 'metal moulders & coremakers'
    7212 'welders & flamecutters'
    7213 'sheet-metal workers'
    7214 'structural-metal preparers & erectors'
    7215 'riggers & cable splicers'
    7216 'underwater workers'
    7220 'blacksmiths, tool-makers etc trades workers'
    7221 'blacksmiths hammer-smiths & forgingpress workers'
    7222 'tool-makers etc workers'
    7223 'machine-tool setters & setter-operators'
    7224 'metal wheel-grinders polishers & tool sharpeners'
    7230 'machinery mechanics & fitters'
    7231 'motor vehicle mechanics & fitters'
    7232 'aircraft engine mechanics & fitters'
    7233 'agricultural- or industrial-machinery mechanics & fitters'
    7240 'electrical & electronic equipment mechanics & fitters'
    7241 'electrical mechanics & fitters'
    7242 'electronics fitters'
    7243 'electronics mechanics & servicers'
    7244 'telegraph & telephone installers & servlcers'
    7245 'electrical line installers repairers & cable jointers'
    7300 'precision, handicraft, printing etc trades workers'
    7310 'precision workers in metal etc materials'
    7311 'precision-instrument makers & repairers'
    7312 'musical-instrument makers & tuners'
    7313 'jewellery & precious-metal workers'
    7320 'potters, glass-makers etc trades workers'
    7321 'abrasive wheel formers potters etc workers'
    7322 'glass-makers cutters grinders & finishers'
    7323 'glass engravers & etchers'
    7324 'glass ceramics etc decorative painters'
    7330 'handicraft workers in wood,textile, leather etc'
    7331 'handicraft workers in wood etc materials'
    7332 'handicraft workers in textile leather etc materials'
    7340 'printing etc trades workers'
    7341 'compositors typesetters etc workers'
    7342 'stereotypers & electrotypers'
    7343 'printing engravers & etchers'
    7344 'photographic etc workers'
    7345 'bookbinders etc workers'
    7346 'silk-screen, block & textile printers'
    7400 'other craft etc trades workers'
    7410 'food processing etc trades workers'
    7411 'butchers fishmongers etc food preparers'
    7412 'bakers-pastry cooks & confectionery makers'
    7413 'dairy-products makers'
    7414 'fruit, vegetable etc preservers'
    7415 'food & beverage tasters & graders'
    7416 'tobacco preparers & tobacco products makers'
    7420 'wood treaters, cabinet-makers etc trades workers'
    7421 'wood treaters'
    7422 'cabinet-makers etc workers'
    7423 'woodworking-machine setters & setteroperators'
    7424 'basketry weavers brush makers etc workers'
    7430 'textile, garment etc trades workers'
    7431 'fibre preparers'
    7432 'weavers knitters etc workers'
    7433 'tailors dressmakers & hatters'
    7434 'furriers etc workers'
    7435 'textile leather etc pattern-makers & cutters'
    7436 'sewers embroiderers etc workers'
    7437 'upholsterers etc workers'
    7440 'pelt, leather & shoemaking trades workers'
    7441 'pelt dressers tanners & fellmongers'
    7442 'shoe-makers etc workers'
    7500 '[skilled manual worker nfs]'
    8000 'plant & machine operators & assemblers'
    8100 'stationary-plant etc operators'
    8110 'mining- & mineral-processing plant operators'
    8111 'mining-plant operators'
    8112 'mineral-ore- & stone-processing-plant operators'
    8113 'well drillers & borers etc workers'
    8120 'metal-processing-plant operators'
    8121 'ore & metal furnace operators'
    8122 'metal melters casters & rolling-mill operators'
    8123 'metal-heat-treating-plant operators'
    8124 'metal drawers & extruders'
    8130 'glass, ceramics etc plant operators'
    8131 'glass & ceramics kiln etc machine operators'
    8139 'glass, ceramics etc plant operators nec'
    8140 'wood-processing- & papermaking-plant operators'
    8141 'wood-processing-plant operators'
    8142 'paper-pulp plant operators'
    8143 'papermaking-plant operators'
    8150 'chemical-processing-plant operators'
    8151 'crushing- grinding- & chemical-mixing machinery operators'
    8152 'chemical-heat-treating-plant operators'
    8153 'chemical-filtering- & separating-equipment operators'
    8154 'chemical-still & reactor operators '
    8155 'petroleum- & natural-gas-refining-plant operators'
    8159 'chemical-processing-plant operators nec'
    8160 'power-production etc plant operators'
    8161 'power-production plant operators'
    8162 'steam-engine & boiler operators'
    8163 'incinerator water-treatment etc plant operators'
    8170 'automated-assembly-line & industrial-robot operators'
    8171 'automated-assembly- line operators'
    8172 'industrial-robot operators'
    8200 'machine operators & assemblers'
    8210 'metal- & mineral-products machine operators'
    8211 'machine-tool operators'
    8212 'cement & other mineral products machine operators'
    8220 'chemical-products machine operators'
    8221 'pharmaceutical- & toiletry-products machine operators'
    8222 'ammunition- & explosive-products machine operators'
    8223 'metal finishing- plating- & coating-machlne operators'
    8224 'photographic-products machine operators'
    8229 'chemical-products machine operators nec'
    8230 'rubber- & plastic-products machine operators'
    8231 'rubber-products machine operators'
    8232 'plastic-products machine operators'
    8240 'wood-products machine operators'
    8250 'printing- binding- & paper-products machine operators'
    8251 'printing-machine operators'
    8252 'bookbinding-machine operators'
    8253 'paper-products machine operators'
    8260 'textile- fur- & leather-products machine operators'
    8261 'fibre-preparing-, spinning- & windingmachine operators'
    8262 'weaving- & knitting-machine operators'
    8263 'sewing-machine operators'
    8264 'bleaching- dyeing- & cleaning-machine operators'
    8265 'fur- & leather-preparing-machine operators'
    8266 'shoemaking- etc machine operators'
    8269 'textile- fur- & leather-products machine operators nec'
    8270 'food etc products machine operators'
    8271 'meat- & fish-processing-machine operators'
    8272 'dairy-products machine operators'
    8273 'grain- & spice-milling-machine operators'
    8274 'baked-goods cereal & chocolate-products machine operators'
    8275 'fruit- vegetable- & nut-processing-machine operators'
    8276 'sugar production machine operators'
    8277 'tea- coffee- & cocoa-processing-machine operators'
    8278 'brewers- wine & other beverage machine operators'
    8279 'tobacco production machine operators'
    8280 'assemblers'
    8281 'mechanical-machinery assemblers'
    8282 'electrical-equipment assemblers'
    8283 'electronic-equipment assemblers'
    8284 'metal- rubber- & plastic-products assemblers'
    8285 'wood etc products assemblers'
    8286 'paperboard textile etc products assemblers'
    8290 'other machine operators & assemblers'
    8300 'drivers & mobile-plant operators'
    8310 'locomotive-engine drivers etc workers'
    8311 'locomotive-engine drivers'
    8312 'railway brakers signallers & shunters'
    8320 'motor-vehicle drivers'
    8321 'motor-cycle drivers'
    8322 'car taxi & van drivers'
    8323 'bus & tram drivers'
    8324 'heavy truck & lorry drivers'
    8330 'agricultural & other mobile-plant operators'
    8331 'motorised farm & forestry plant operators'
    8332 'earth-moving- etc plant operators'
    8333 'crane hoist etc plant operators'
    8334 'lifting-truck operators'
    8340 'ships deck crews etc workers'
    9000 'elementary occupations'
    9100 'sales & services elementary occupations'
    9110 'street vendors etc workers'
    9111 'street food vendors'
    9112 'street vendors non-food products'
    9113 'door-to-door & telephone salespersons'
    9120 'street services elementary occupations'
    9130 'domestic etc helpers cleaners & launderers'
    9131 'domestic helpers & cleaners'
    9132 'helpers & cleaners in establishments'
    9133 'hand-launderers & pressers'
    9140 'building caretakers, window etc cleaners'
    9141 'building caretakers'
    9142 'vehicle, window etc cleaners'
    9150 'messengers, porters, doorkeepers etc workers'
    9151 'messengers package & luggage porters & deliverers'
    9152 'doorkeepers watchpersons etc workers'
    9153 'vending-machine money collectors meter readers etc workers'
    9160 'garbage collectors etc labourers'
    9161 'garbage collectors'
    9162 'sweepers etc labourers'
    9200 'agricultural, fishery etc labourers'
    9210 'agricultural, fishery etc labourers'
    9211 'farm-hands & labourers'
    9212 'forestry labourers'
    9213 'fishery hunting & trapping labourers'
    9300 'labourers in mining, construction, manufacturing & transport'
    9310 'mining & construction labourers'
    9311 'mining & quarrying labourers'
    9312 'construction & maintenance labourers: roads dams etc'
    9313 'building construction labourers'
    9320 'manufacturing labourers'
    9321 'assembling labourers'
    9322 'hand packers & other manufacturing labourers'
    9330 'transport labourers & freight handlers'
    9331 'hand or pedal vehicle drivers'
    9332 'drivers of animal-drawn vehicles & machinery'
    9333 'freight handlers'.


***Assignment of occupation categories from the ESS data to the EGP measure.
compute @isko = iscoco.

recode emplno (else=copy) into emplno1.
recode njbspv (else=copy) into njbspv1.
recode jbspv (sysmis=-1) (else=copy) into jbspv1.
recode emplrel (else=copy) into @sempl.
EXECUTE.

do if ((emplno1 lt 66666) and (@sempl gt 6)).
 compute @sempl=2.
else if ((emplno1 eq 66666) and (@sempl gt 6)).
 compute @sempl=1.
else if ((emplno1 lt 6666) and any(@sempl,1,3)).
 compute emplno1=99999.
end if.


VALUE LABELS @sempl 1 'Employee' 2 'Self-Employed' 3 'Working for own family business' 6 'Not applicable' 7 'Refusal' 8
"Don't know" 9 'No answer'
 /jbspv1 1 "Yes" 2 "No" 6 'Not applicable' 7 'Refusal' 8 "Don't know" 9 'No answer'.


do if ((njbspv1 lt 66666) and (jbspv1 gt 6)).
 compute jbspv1=1.
else if ((njbspv1 eq 66666) and (jbspv1 gt 6)).
 compute jbspv1=2.
else if ((njbspv1 lt 6666) and (jbspv1 eq 2)).
 compute njbspv1=99999.
else if ((njbspv1 eq 0) and (jbspv1 eq 1)).
 compute njbspv1=99999.
end if.


do if ((@sempl eq 2) and (jbspv1 ne 1)).
 compute @supvis=emplno1.
else if ((@sempl ne 2) and (jbspv1 eq 1)).
 compute @supvis=njbspv1.
else if ((@sempl eq 2) and (jbspv1 eq 1)).
 compute @supvis=emplno1.
else.
 compute @supvis=emplno1.
end if.
recode @supvis (66666=-2).
recode @sempl (2 ,3=2) (else=1).
EXECUTE.
missing values @supvis (77777 thru 99999).
missing values emplno1 (66666 thru 99999). 

/**********************************************************************/
/* BEGIN procedure to define the variable @EGP11 *
/**********************************************************************/.
do repeat i=@isko / e=@egp11.
compute e=i.
end repeat.
** This module makes sure that managers and owners with certain.
** employment statuses go into the right place.
do repeat iii=@isko / sss=@sempl.
do if (sss eq 2).
recode iii (6130=1311).
end if.
end repeat.
execute.
do repeat s=@sempl / sv=@supvis / is=@isko.
if ( is eq 7510 and sv le 0) sv=5.
if ((is ge 6100 and is le 6133) and sv ge 1) is=1311.
if ((is ge 9200 and is le 9213) and sv gt 1) is=6132.
do if (sv ge 11).
recode is (1311=1221)(1312=1222)(1313=1223)(1314=1224)(1315=1225)
 (1316=1226)(1317=1227)(1318=1228)(1319=1229)(1300,1310=1220).
end if.
do if (sv ge 1 and sv le 10).
recode is (1221=1311)(1222=1312)(1223=1313)(1224=1314)(1225=1315)
 (1226=1316)(1227=1317)(1228=1318)(1229=1319)(1200 1210 1220=1310).
end if.
if ((is eq 1220 or (is ge 1222 and is le 1229))
 and (s eq 2) and sv ge 11) is=1210.
end repeat.
execute.

recode @isko (1000= 1) into @egp11.
recode @isko (1100= 1) into @egp11.
recode @isko (1110= 1) into @egp11.
recode @isko (1120= 1) into @egp11.
recode @isko (1130= 2) into @egp11.
recode @isko (1140= 2) into @egp11.
recode @isko (1141= 2) into @egp11.
recode @isko (1142= 2) into @egp11.
recode @isko (1143= 2) into @egp11.
recode @isko (1200= 1) into @egp11.
recode @isko (1210= 1) into @egp11.
recode @isko (1220= 1) into @egp11.
recode @isko (1221=11) into @egp11.
recode @isko (1222= 1) into @egp11.
recode @isko (1223= 1) into @egp11.
recode @isko (1224= 1) into @egp11.
recode @isko (1225= 1) into @egp11.
recode @isko (1226= 1) into @egp11.
recode @isko (1227= 1) into @egp11.
recode @isko (1228= 1) into @egp11.
recode @isko (1229= 1) into @egp11.
recode @isko (1230= 1) into @egp11.
recode @isko (1231= 1) into @egp11.
recode @isko (1232= 1) into @egp11. 
recode @isko (1233= 1) into @egp11.
recode @isko (1234= 1) into @egp11.
recode @isko (1235= 1) into @egp11.
recode @isko (1236= 1) into @egp11.
recode @isko (1237= 1) into @egp11.
recode @isko (1239= 1) into @egp11.
recode @isko (1240= 2) into @egp11.
recode @isko (1250= 1) into @egp11.
recode @isko (1251= 1) into @egp11.
recode @isko (1252= 2) into @egp11.
recode @isko (1300= 2) into @egp11.
recode @isko (1310= 2) into @egp11.
recode @isko (1311=11) into @egp11.
recode @isko (1312= 2) into @egp11.
recode @isko (1313= 2) into @egp11.
recode @isko (1314= 2) into @egp11.
recode @isko (1315= 2) into @egp11.
recode @isko (1316= 2) into @egp11.
recode @isko (1317= 2) into @egp11.
recode @isko (1318= 2) into @egp11.
recode @isko (1319= 2) into @egp11.
recode @isko (2000= 1) into @egp11.
recode @isko (2100= 1) into @egp11.
recode @isko (2110= 1) into @egp11.
recode @isko (2111= 1) into @egp11.
recode @isko (2112= 1) into @egp11.
recode @isko (2113= 1) into @egp11.
recode @isko (2114= 1) into @egp11.
recode @isko (2120= 1) into @egp11.
recode @isko (2121= 1) into @egp11.
recode @isko (2122= 1) into @egp11.
recode @isko (2130= 1) into @egp11.
recode @isko (2131= 1) into @egp11.
recode @isko (2132= 2) into @egp11.
recode @isko (2139= 2) into @egp11.
recode @isko (2140= 1) into @egp11.
recode @isko (2141= 1) into @egp11.
recode @isko (2142= 1) into @egp11.
recode @isko (2143= 1) into @egp11.
recode @isko (2144= 1) into @egp11.
recode @isko (2145= 1) into @egp11.
recode @isko (2146= 1) into @egp11.
recode @isko (2147= 1) into @egp11.
recode @isko (2148= 2) into @egp11.
recode @isko (2149= 1) into @egp11.
recode @isko (2200= 1) into @egp11.
recode @isko (2210= 1) into @egp11.
recode @isko (2211= 1) into @egp11.
recode @isko (2212= 1) into @egp11.
recode @isko (2213= 1) into @egp11.
recode @isko (2220= 1) into @egp11.
recode @isko (2221= 1) into @egp11.
recode @isko (2222= 1) into @egp11.
recode @isko (2223= 1) into @egp11.
recode @isko (2224= 1) into @egp11.
recode @isko (2229= 1) into @egp11.
recode @isko (2230= 2) into @egp11.
recode @isko (2300= 2) into @egp11.
recode @isko (2310= 1) into @egp11.
recode @isko (2320= 2) into @egp11.
recode @isko (2321= 2) into @egp11.
recode @isko (2322= 2) into @egp11.
recode @isko (2323= 2) into @egp11.
recode @isko (2330= 2) into @egp11.
recode @isko (2331= 2) into @egp11.
recode @isko (2332= 2) into @egp11.
recode @isko (2340= 2) into @egp11.
recode @isko (2350= 1) into @egp11.
recode @isko (2351= 1) into @egp11. 
recode @isko (2352= 1) into @egp11.
recode @isko (2359= 2) into @egp11.
recode @isko (2400= 1) into @egp11.
recode @isko (2410= 2) into @egp11.
recode @isko (2411= 1) into @egp11.
recode @isko (2412= 2) into @egp11.
recode @isko (2419= 2) into @egp11.
recode @isko (2420= 1) into @egp11.
recode @isko (2421= 1) into @egp11.
recode @isko (2422= 1) into @egp11.
recode @isko (2429= 1) into @egp11.
recode @isko (2430= 2) into @egp11.
recode @isko (2431= 2) into @egp11.
recode @isko (2432= 2) into @egp11.
recode @isko (2440= 1) into @egp11.
recode @isko (2441= 1) into @egp11.
recode @isko (2442= 1) into @egp11.
recode @isko (2443= 1) into @egp11.
recode @isko (2444= 2) into @egp11.
recode @isko (2445= 1) into @egp11.
recode @isko (2446= 2) into @egp11.
recode @isko (2450= 2) into @egp11.
recode @isko (2451= 2) into @egp11.
recode @isko (2452= 2) into @egp11.
recode @isko (2453= 2) into @egp11.
recode @isko (2454= 2) into @egp11.
recode @isko (2455= 2) into @egp11.
recode @isko (2460= 2) into @egp11.
recode @isko (3000= 2) into @egp11.
recode @isko (3100= 2) into @egp11.
recode @isko (3110= 2) into @egp11.
recode @isko (3111= 2) into @egp11.
recode @isko (3112= 2) into @egp11.
recode @isko (3113= 2) into @egp11.
recode @isko (3114= 2) into @egp11.
recode @isko (3115= 2) into @egp11.
recode @isko (3116= 2) into @egp11.
recode @isko (3117= 2) into @egp11.
recode @isko (3118= 2) into @egp11.
recode @isko (3119= 2) into @egp11.
recode @isko (3120= 2) into @egp11.
recode @isko (3121= 2) into @egp11.
recode @isko (3122= 2) into @egp11.
recode @isko (3123= 2) into @egp11.
recode @isko (3130= 2) into @egp11.
recode @isko (3131= 2) into @egp11.
recode @isko (3132= 2) into @egp11.
recode @isko (3133= 2) into @egp11.
recode @isko (3139= 2) into @egp11.
recode @isko (3140= 2) into @egp11.
recode @isko (3141= 2) into @egp11.
recode @isko (3142= 2) into @egp11.
recode @isko (3143= 1) into @egp11.
recode @isko (3144= 1) into @egp11.
recode @isko (3145= 2) into @egp11.
recode @isko (3150= 2) into @egp11.
recode @isko (3151= 2) into @egp11.
recode @isko (3152= 2) into @egp11.
recode @isko (3200= 2) into @egp11.
recode @isko (3210= 2) into @egp11.
recode @isko (3211= 2) into @egp11.
recode @isko (3212= 2) into @egp11.
recode @isko (3213= 2) into @egp11.
recode @isko (3220= 2) into @egp11.
recode @isko (3221= 2) into @egp11.
recode @isko (3222= 2) into @egp11.
recode @isko (3223= 2) into @egp11.
recode @isko (3224= 2) into @egp11.
recode @isko (3225= 2) into @egp11. 
recode @isko (3226= 2) into @egp11.
recode @isko (3227= 2) into @egp11.
recode @isko (3228= 2) into @egp11.
recode @isko (3229= 2) into @egp11.
recode @isko (3230= 3) into @egp11.
recode @isko (3231= 3) into @egp11.
recode @isko (3232= 3) into @egp11.
recode @isko (3240= 2) into @egp11.
recode @isko (3241= 2) into @egp11.
recode @isko (3242= 2) into @egp11.
recode @isko (3300= 3) into @egp11.
recode @isko (3310= 3) into @egp11.
recode @isko (3320= 3) into @egp11.
recode @isko (3330= 3) into @egp11.
recode @isko (3340= 3) into @egp11.
recode @isko (3400= 2) into @egp11.
recode @isko (3410= 2) into @egp11.
recode @isko (3411= 2) into @egp11.
recode @isko (3412= 2) into @egp11.
recode @isko (3413= 2) into @egp11.
recode @isko (3414= 2) into @egp11.
recode @isko (3415= 2) into @egp11.
recode @isko (3416= 2) into @egp11.
recode @isko (3417= 2) into @egp11.
recode @isko (3419= 2) into @egp11.
recode @isko (3420= 2) into @egp11.
recode @isko (3421= 2) into @egp11.
recode @isko (3422= 2) into @egp11.
recode @isko (3423= 2) into @egp11.
recode @isko (3429= 2) into @egp11.
recode @isko (3430= 3) into @egp11.
recode @isko (3431= 2) into @egp11.
recode @isko (3432= 2) into @egp11.
recode @isko (3433= 3) into @egp11.
recode @isko (3434= 2) into @egp11.
recode @isko (3439= 3) into @egp11.
recode @isko (3440= 2) into @egp11.
recode @isko (3441= 2) into @egp11.
recode @isko (3442= 2) into @egp11.
recode @isko (3443= 2) into @egp11.
recode @isko (3444= 2) into @egp11.
recode @isko (3449= 2) into @egp11.
recode @isko (3450= 2) into @egp11.
recode @isko (3451= 2) into @egp11.
recode @isko (3452= 7) into @egp11.
recode @isko (3460= 3) into @egp11.
recode @isko (3470= 2) into @egp11.
recode @isko (3471= 2) into @egp11.
recode @isko (3472= 2) into @egp11.
recode @isko (3473= 2) into @egp11.
recode @isko (3474= 2) into @egp11.
recode @isko (3475= 2) into @egp11.
recode @isko (3480= 3) into @egp11.
recode @isko (4000= 3) into @egp11.
recode @isko (4100= 3) into @egp11.
recode @isko (4110= 3) into @egp11.
recode @isko (4111= 3) into @egp11.
recode @isko (4112= 3) into @egp11.
recode @isko (4113= 3) into @egp11.
recode @isko (4114= 3) into @egp11.
recode @isko (4115= 3) into @egp11.
recode @isko (4120= 3) into @egp11.
recode @isko (4121= 3) into @egp11.
recode @isko (4122= 3) into @egp11.
recode @isko (4130= 3) into @egp11.
recode @isko (4131= 3) into @egp11.
recode @isko (4132= 3) into @egp11.
recode @isko (4133= 3) into @egp11.
recode @isko (4140= 3) into @egp11. 
recode @isko (4141= 3) into @egp11.
recode @isko (4142= 9) into @egp11.
recode @isko (4143= 3) into @egp11.
recode @isko (4144= 3) into @egp11.
recode @isko (4190= 3) into @egp11.
recode @isko (4200= 3) into @egp11.
recode @isko (4210= 3) into @egp11.
recode @isko (4211= 3) into @egp11.
recode @isko (4212= 3) into @egp11.
recode @isko (4213= 3) into @egp11.
recode @isko (4214= 3) into @egp11.
recode @isko (4215= 3) into @egp11.
recode @isko (4220= 3) into @egp11.
recode @isko (4221= 3) into @egp11.
recode @isko (4222= 3) into @egp11.
recode @isko (4223= 3) into @egp11.
recode @isko (5000= 3) into @egp11.
recode @isko (5100= 3) into @egp11.
recode @isko (5110= 3) into @egp11.
recode @isko (5111= 3) into @egp11.
recode @isko (5112= 3) into @egp11.
recode @isko (5113= 3) into @egp11.
recode @isko (5120= 3) into @egp11.
recode @isko (5121= 3) into @egp11.
recode @isko (5122= 8) into @egp11.
recode @isko (5123= 3) into @egp11.
recode @isko (5130= 3) into @egp11.
recode @isko (5131= 3) into @egp11.
recode @isko (5132= 3) into @egp11.
recode @isko (5133= 3) into @egp11.
recode @isko (5139= 3) into @egp11.
recode @isko (5140= 8) into @egp11.
recode @isko (5141= 8) into @egp11.
recode @isko (5142= 3) into @egp11.
recode @isko (5143= 8) into @egp11.
recode @isko (5149= 3) into @egp11.
recode @isko (5150= 2) into @egp11.
recode @isko (5151= 2) into @egp11.
recode @isko (5152= 2) into @egp11.
recode @isko (5160= 9) into @egp11.
recode @isko (5161= 8) into @egp11.
recode @isko (5162= 8) into @egp11.
recode @isko (5163= 9) into @egp11.
recode @isko (5164= 8) into @egp11.
recode @isko (5169= 9) into @egp11.
recode @isko (5200= 3) into @egp11.
recode @isko (5210= 3) into @egp11.
recode @isko (5220= 3) into @egp11.
recode @isko (5230= 3) into @egp11.
recode @isko (6000=10) into @egp11.
recode @isko (6100=10) into @egp11.
recode @isko (6110=10) into @egp11.
recode @isko (6111=10) into @egp11.
recode @isko (6112=10) into @egp11.
recode @isko (6113=10) into @egp11.
recode @isko (6114=10) into @egp11.
recode @isko (6120=10) into @egp11.
recode @isko (6121=10) into @egp11.
recode @isko (6122=10) into @egp11.
recode @isko (6123=10) into @egp11.
recode @isko (6124=10) into @egp11.
recode @isko (6129=10) into @egp11.
recode @isko (6130=10) into @egp11.
recode @isko (6131=11) into @egp11.
recode @isko (6132=11) into @egp11.
recode @isko (6133=11) into @egp11.
recode @isko (6134=10) into @egp11.
recode @isko (6140=10) into @egp11.
recode @isko (6141=10) into @egp11. 
recode @isko (6142=10) into @egp11.
recode @isko (6150=10) into @egp11.
recode @isko (6151=10) into @egp11.
recode @isko (6152=10) into @egp11.
recode @isko (6153=10) into @egp11.
recode @isko (6154=10) into @egp11.
recode @isko (6200=11) into @egp11.
recode @isko (6210=11) into @egp11.
recode @isko (7000= 8) into @egp11.
recode @isko (7100= 8) into @egp11.
recode @isko (7110= 8) into @egp11.
recode @isko (7111= 8) into @egp11.
recode @isko (7112= 8) into @egp11.
recode @isko (7113= 8) into @egp11.
recode @isko (7120= 8) into @egp11.
recode @isko (7121= 9) into @egp11.
recode @isko (7122= 9) into @egp11.
recode @isko (7123= 9) into @egp11.
recode @isko (7124= 8) into @egp11.
recode @isko (7129= 8) into @egp11.
recode @isko (7130= 8) into @egp11.
recode @isko (7131= 9) into @egp11.
recode @isko (7132= 8) into @egp11.
recode @isko (7133= 8) into @egp11.
recode @isko (7134= 8) into @egp11.
recode @isko (7135= 9) into @egp11.
recode @isko (7136= 8) into @egp11.
recode @isko (7137= 8) into @egp11.
recode @isko (7140= 8) into @egp11.
recode @isko (7141= 8) into @egp11.
recode @isko (7142= 9) into @egp11.
recode @isko (7143= 9) into @egp11.
recode @isko (7200= 8) into @egp11.
recode @isko (7210= 8) into @egp11.
recode @isko (7211= 8) into @egp11.
recode @isko (7212= 8) into @egp11.
recode @isko (7213= 8) into @egp11.
recode @isko (7214= 8) into @egp11.
recode @isko (7215= 8) into @egp11.
recode @isko (7216= 8) into @egp11.
recode @isko (7220= 8) into @egp11.
recode @isko (7221= 8) into @egp11.
recode @isko (7222= 8) into @egp11.
recode @isko (7223= 8) into @egp11.
recode @isko (7224= 8) into @egp11.
recode @isko (7230= 8) into @egp11.
recode @isko (7231= 8) into @egp11.
recode @isko (7232= 8) into @egp11.
recode @isko (7233= 8) into @egp11.
recode @isko (7234= 9) into @egp11.
recode @isko (7240= 8) into @egp11.
recode @isko (7241= 8) into @egp11.
recode @isko (7242= 8) into @egp11.
recode @isko (7243= 8) into @egp11.
recode @isko (7244= 8) into @egp11.
recode @isko (7245= 8) into @egp11.
recode @isko (7300= 8) into @egp11.
recode @isko (7310= 8) into @egp11.
recode @isko (7311= 8) into @egp11.
recode @isko (7312= 8) into @egp11.
recode @isko (7313= 8) into @egp11.
recode @isko (7320= 9) into @egp11.
recode @isko (7321= 9) into @egp11.
recode @isko (7322= 9) into @egp11.
recode @isko (7323= 8) into @egp11.
recode @isko (7324= 8) into @egp11.
recode @isko (7330= 9) into @egp11.
recode @isko (7331= 9) into @egp11.
recode @isko (7332= 9) into @egp11. 
recode @isko (7340= 8) into @egp11.
recode @isko (7341= 8) into @egp11.
recode @isko (7342= 8) into @egp11.
recode @isko (7343= 8) into @egp11.
recode @isko (7344= 8) into @egp11.
recode @isko (7345= 8) into @egp11.
recode @isko (7346= 8) into @egp11.
recode @isko (7400= 8) into @egp11.
recode @isko (7410= 8) into @egp11.
recode @isko (7411= 8) into @egp11.
recode @isko (7412= 8) into @egp11.
recode @isko (7413= 8) into @egp11.
recode @isko (7414= 8) into @egp11.
recode @isko (7415= 8) into @egp11.
recode @isko (7416= 8) into @egp11.
recode @isko (7420= 8) into @egp11.
recode @isko (7421= 9) into @egp11.
recode @isko (7422= 8) into @egp11.
recode @isko (7423= 8) into @egp11.
recode @isko (7424= 9) into @egp11.
recode @isko (7430= 8) into @egp11.
recode @isko (7431= 9) into @egp11.
recode @isko (7432= 9) into @egp11.
recode @isko (7433= 8) into @egp11.
recode @isko (7434= 8) into @egp11.
recode @isko (7435= 8) into @egp11.
recode @isko (7436= 8) into @egp11.
recode @isko (7437= 8) into @egp11.
recode @isko (7440= 8) into @egp11.
recode @isko (7441= 8) into @egp11.
recode @isko (7442= 8) into @egp11.
recode @isko (7500= 8) into @egp11.
recode @isko (7510= 7) into @egp11.
recode @isko (7520= 8) into @egp11.
recode @isko (7530= 9) into @egp11.
recode @isko (8000= 9) into @egp11.
recode @isko (8100= 9) into @egp11.
recode @isko (8110= 8) into @egp11.
recode @isko (8111= 8) into @egp11.
recode @isko (8112= 8) into @egp11.
recode @isko (8113= 8) into @egp11.
recode @isko (8120= 8) into @egp11.
recode @isko (8121= 8) into @egp11.
recode @isko (8122= 8) into @egp11.
recode @isko (8123= 8) into @egp11.
recode @isko (8124= 8) into @egp11.
recode @isko (8130= 9) into @egp11.
recode @isko (8131= 9) into @egp11.
recode @isko (8139= 9) into @egp11.
recode @isko (8140= 9) into @egp11.
recode @isko (8141= 9) into @egp11.
recode @isko (8142= 9) into @egp11.
recode @isko (8143= 9) into @egp11.
recode @isko (8150= 8) into @egp11.
recode @isko (8151= 8) into @egp11.
recode @isko (8152= 8) into @egp11.
recode @isko (8153= 8) into @egp11.
recode @isko (8154= 8) into @egp11.
recode @isko (8155= 8) into @egp11.
recode @isko (8159= 8) into @egp11.
recode @isko (8160= 8) into @egp11.
recode @isko (8161= 8) into @egp11.
recode @isko (8162= 8) into @egp11.
recode @isko (8163= 8) into @egp11.
recode @isko (8170= 8) into @egp11.
recode @isko (8171= 8) into @egp11.
recode @isko (8172= 8) into @egp11.
recode @isko (8200= 9) into @egp11.
recode @isko (8210= 8) into @egp11. 
recode @isko (8211= 8) into @egp11.
recode @isko (8212= 9) into @egp11.
recode @isko (8220= 9) into @egp11.
recode @isko (8221= 9) into @egp11.
recode @isko (8222= 9) into @egp11.
recode @isko (8223= 9) into @egp11.
recode @isko (8224= 9) into @egp11.
recode @isko (8229= 9) into @egp11.
recode @isko (8230= 9) into @egp11.
recode @isko (8231= 9) into @egp11.
recode @isko (8232= 9) into @egp11.
recode @isko (8240= 9) into @egp11.
recode @isko (8250= 9) into @egp11.
recode @isko (8251= 9) into @egp11.
recode @isko (8252= 9) into @egp11.
recode @isko (8253= 9) into @egp11.
recode @isko (8260= 9) into @egp11.
recode @isko (8261= 9) into @egp11.
recode @isko (8262= 9) into @egp11.
recode @isko (8263= 9) into @egp11.
recode @isko (8264= 9) into @egp11.
recode @isko (8265= 9) into @egp11.
recode @isko (8266= 9) into @egp11.
recode @isko (8269= 9) into @egp11.
recode @isko (8270= 9) into @egp11.
recode @isko (8271= 9) into @egp11.
recode @isko (8272= 9) into @egp11.
recode @isko (8273= 9) into @egp11.
recode @isko (8274= 9) into @egp11.
recode @isko (8275= 9) into @egp11.
recode @isko (8276= 9) into @egp11.
recode @isko (8277= 9) into @egp11.
recode @isko (8278= 9) into @egp11.
recode @isko (8279= 9) into @egp11.
recode @isko (8280= 9) into @egp11.
recode @isko (8281= 9) into @egp11.
recode @isko (8282= 9) into @egp11.
recode @isko (8283= 9) into @egp11.
recode @isko (8284= 9) into @egp11.
recode @isko (8285= 9) into @egp11.
recode @isko (8286= 9) into @egp11.
recode @isko (8290= 9) into @egp11.
recode @isko (8300= 9) into @egp11.
recode @isko (8310= 9) into @egp11.
recode @isko (8311= 8) into @egp11.
recode @isko (8312= 9) into @egp11.
recode @isko (8320= 9) into @egp11.
recode @isko (8321= 9) into @egp11.
recode @isko (8322= 9) into @egp11.
recode @isko (8323= 9) into @egp11.
recode @isko (8324= 9) into @egp11.
recode @isko (8330= 9) into @egp11.
recode @isko (8331=10) into @egp11.
recode @isko (8332= 8) into @egp11.
recode @isko (8333= 8) into @egp11.
recode @isko (8334= 9) into @egp11.
recode @isko (8340= 9) into @egp11.
recode @isko (8400= 9) into @egp11.
recode @isko (9000= 9) into @egp11.
recode @isko (9100= 3) into @egp11.
recode @isko (9110= 3) into @egp11.
recode @isko (9111= 3) into @egp11.
recode @isko (9112= 3) into @egp11.
recode @isko (9113= 3) into @egp11.
recode @isko (9120= 9) into @egp11.
recode @isko (9130= 9) into @egp11.
recode @isko (9131= 9) into @egp11.
recode @isko (9132= 9) into @egp11.
recode @isko (9133= 9) into @egp11. 
recode @isko (9140= 9) into @egp11.
recode @isko (9141= 9) into @egp11.
recode @isko (9142= 9) into @egp11.
recode @isko (9150= 9) into @egp11.
recode @isko (9151= 9) into @egp11.
recode @isko (9152= 9) into @egp11.
recode @isko (9153= 9) into @egp11.
recode @isko (9160= 9) into @egp11.
recode @isko (9161= 9) into @egp11.
recode @isko (9162= 9) into @egp11.
recode @isko (9200= 9) into @egp11.
recode @isko (9210=10) into @egp11.
recode @isko (9211=10) into @egp11.
recode @isko (9212=10) into @egp11.
recode @isko (9213=10) into @egp11.
recode @isko (9300= 9) into @egp11.
recode @isko (9310= 9) into @egp11.
recode @isko (9311= 9) into @egp11.
recode @isko (9312= 9) into @egp11.
recode @isko (9313= 9) into @egp11.
recode @isko (9320= 9) into @egp11.
recode @isko (9321= 9) into @egp11.
recode @isko (9322= 9) into @egp11.
recode @isko (9330= 9) into @egp11.
recode @isko (9331= 9) into @egp11.
recode @isko (9332= 9) into @egp11.
recode @isko (9333= 9) into @egp11.
execute. 

DO REPEAT E=@egp11 / IS=@ISKO / sv=@supvis / s=@sempl.
COMPUTE #P=IS.
RECODE #P (1000 thru 9299=1)(else=0).
compute #d=is.
recode #d (1300 thru 1319 3400 thru 3439 4000 thru 5230=1)(else=0).
IF ((E=3) AND (SV GE 1)) E=2.
if ((e eq 3 or e eq 2) and (s eq 2) and (#d=1)) e=4.
IF ((E GE 7 AND E LE 9) AND (S=2) and (#p=1)) E=5.
IF ((E=8) AND (SV GE 1)) E=7.
IF ((E=10) AND (S=2)) E=11.
IF ((E=4) AND (SV lt 1)) E=5.
IF ((E=5) AND (SV Ge 1)) E=4.
IF ((E=2 OR E=3 OR E=4) AND (SV GE 10)) E=1.
end repeat.
execute.
recode @egp11 (4=5)(5=6).

do repeat egp=@egp11 /isko=@isko.
do if (egp eq 3).
recode isko (4142 4190 4200 thru 4215 5000 thru 5239=4) into egp.
end if.
end repeat.
/***************************/
/* Define missing value */
/***************************/.
do if (missing(@egp11)).
 recode iscoco (else=copy) into @egp11.
end if.
missing values @egp11 (100 thru 99999). 


Var labels @egp11 'EGP Class scheme: Ganzeboom version'. 
add value labels @egp11 1 ' I Higher controllers' 2 ' II Lower controllers' 3 'IIIa Routine non-manuals' 4 'IIIb Lower sales-service' 5 'IVa Self-empl. with empl.' 6 'IVb Self-empl. no empl.' 
7 ' V Manual supervisors' 8 ' VI Skilled workers' 9 'VIIa Unskilled workers' 10 'VIIb Farm labors' 11 'IVc Self-empl. farmers' 100 'armed forces' 
2470 "Pubblic service administrative professionals" 7139 "Build finiscer, rel. trade work not else class" 8287 "Composite products assemblers" 
66666 'Not applicable' 77777 'Refusal' 88888 "Don't know" 99999 'No answer'.
execute.

DELETE VARIABLES emplno1 njbspv1 jbspv1 @sempl @supvis.

recode @egp11 (sysmis=99) (else=copy) into egpr.
EXECUTE.

add value labels egpr 1 ' I Higher controllers' 2 ' II Lower controllers' 3 'IIIa Routine non-manuals' 4 'IIIb Lower sales-service' 5 'IVa Self-empl. with empl.' 6 'IVb Self-empl. no empl.' 
7 ' V Manual supervisors' 8 ' VI Skilled workers' 9 'VIIa Unskilled workers' 10 'VIIb Farm labors' 11 'IVc Self-empl. farmers'.

recode egpr (1,2,3, 4 = 1) (7,8 = 2) (9=3) (5,6,10,11 = 4) (99,110 = SYSMIS) into egpr3.
val lab egpr3 1'Non-manual workers' 2'Skilled manual workers' 3'Unskilled workers' 4'Other occupational classes'.

compute egpr4 = egpr3.
if pdjobev = 2 egpr4 = 5.
var lab egpr4 'Occupational class'.
val lab egpr4 1'Non-manual workers' 2'Skilled manual workers' 3'Unskilled workers' 4'Other occupational classes' 5'Long-term unemployed'.


*Computing the ISEI index.

recode @isko (1000=55) into @isei.
recode @isko (1100=70) into @isei.
recode @isko (1110=77) into @isei.
recode @isko (1120=77) into @isei.
recode @isko (1130=66) into @isei.
recode @isko (1140=58) into @isei.
recode @isko (1141=58) into @isei.
recode @isko (1142=58) into @isei.
recode @isko (1143=58) into @isei.
recode @isko (1200=68) into @isei.
recode @isko (1210=70) into @isei.
recode @isko (1220=67) into @isei.
recode @isko (1221=67) into @isei.
recode @isko (1222=67) into @isei.
recode @isko (1223=67) into @isei.
recode @isko (1224=59) into @isei.
recode @isko (1225=59) into @isei.
recode @isko (1226=59) into @isei.
recode @isko (1227=87) into @isei.
recode @isko (1228=59) into @isei.
recode @isko (1229=67) into @isei.
recode @isko (1230=61) into @isei.
recode @isko (1231=69) into @isei.
recode @isko (1232=69) into @isei.
recode @isko (1233=56) into @isei.
recode @isko (1234=69) into @isei.
recode @isko (1235=69) into @isei.
recode @isko (1236=69) into @isei.
recode @isko (1237=69) into @isei.
recode @isko (1239=69) into @isei.
recode @isko (1240=58) into @isei.
recode @isko (1250=64) into @isei.
recode @isko (1251=70) into @isei.
recode @isko (1252=60) into @isei.
recode @isko (1300=51) into @isei.
recode @isko (1310=51) into @isei.
recode @isko (1311=43) into @isei.
recode @isko (1312=56) into @isei.
recode @isko (1313=51) into @isei.
recode @isko (1314=49) into @isei.
recode @isko (1315=44) into @isei.
recode @isko (1316=51) into @isei.
recode @isko (1317=51) into @isei.
recode @isko (1318=51) into @isei.
recode @isko (1319=51) into @isei.
recode @isko (2000=70) into @isei.
recode @isko (2100=69) into @isei.
recode @isko (2110=74) into @isei.
recode @isko (2111=74) into @isei.
recode @isko (2112=74) into @isei.
recode @isko (2113=74) into @isei.
recode @isko (2114=74) into @isei.
recode @isko (2120=71) into @isei.
recode @isko (2121=71) into @isei.
recode @isko (2122=71) into @isei.
recode @isko (2130=71) into @isei.
recode @isko (2131=71) into @isei.
recode @isko (2132=71) into @isei.
recode @isko (2139=71) into @isei.
recode @isko (2140=73) into @isei.
recode @isko (2141=69) into @isei.
recode @isko (2142=69) into @isei.
recode @isko (2143=68) into @isei.
recode @isko (2144=68) into @isei.
recode @isko (2145=67) into @isei.
recode @isko (2146=71) into @isei.
recode @isko (2147=67) into @isei.
recode @isko (2148=56) into @isei.
recode @isko (2149=69) into @isei.
recode @isko (2200=80) into @isei.
recode @isko (2210=78) into @isei.
recode @isko (2211=77) into @isei.
recode @isko (2212=77) into @isei.
recode @isko (2213=79) into @isei.
recode @isko (2220=85) into @isei.
recode @isko (2221=88) into @isei.
recode @isko (2222=85) into @isei.
recode @isko (2223=83) into @isei.
recode @isko (2224=74) into @isei.
recode @isko (2229=85) into @isei.
recode @isko (2230=43) into @isei.
recode @isko (2300=69) into @isei.
recode @isko (2310=77) into @isei.
recode @isko (2320=69) into @isei.
recode @isko (2321=70) into @isei.
recode @isko (2322=66) into @isei.
recode @isko (2330=66) into @isei.
recode @isko (2331=66) into @isei.
recode @isko (2332=43) into @isei.
recode @isko (2340=66) into @isei.
recode @isko (2350=66) into @isei.
recode @isko (2351=70) into @isei.
recode @isko (2352=70) into @isei.
recode @isko (2359=65) into @isei.
recode @isko (2400=68) into @isei.
recode @isko (2410=69) into @isei.
recode @isko (2411=69) into @isei.
recode @isko (2412=69) into @isei.
recode @isko (2419=69) into @isei.
recode @isko (2420=85) into @isei.
recode @isko (2421=85) into @isei.
recode @isko (2422=90) into @isei.
recode @isko (2429=82) into @isei.
recode @isko (2430=65) into @isei.
recode @isko (2431=65) into @isei.
recode @isko (2432=65) into @isei.
recode @isko (2440=65) into @isei.
recode @isko (2441=78) into @isei.
recode @isko (2442=71) into @isei.
recode @isko (2443=71) into @isei.
recode @isko (2444=65) into @isei.
recode @isko (2445=71) into @isei.
recode @isko (2446=51) into @isei.
recode @isko (2450=61) into @isei.
recode @isko (2451=65) into @isei.
recode @isko (2452=54) into @isei.
recode @isko (2453=64) into @isei.
recode @isko (2454=64) into @isei.
recode @isko (2455=64) into @isei.
recode @isko (2460=53) into @isei.
recode @isko (3000=54) into @isei.
recode @isko (3100=50) into @isei.
recode @isko (3110=49) into @isei.
recode @isko (3111=45) into @isei.
recode @isko (3112=45) into @isei.
recode @isko (3113=46) into @isei.
recode @isko (3114=46) into @isei.
recode @isko (3115=54) into @isei.
recode @isko (3116=54) into @isei.
recode @isko (3117=54) into @isei.
recode @isko (3118=51) into @isei.
recode @isko (3119=53) into @isei.
recode @isko (3120=52) into @isei.
recode @isko (3121=52) into @isei.
recode @isko (3122=52) into @isei.
recode @isko (3123=52) into @isei.
recode @isko (3130=52) into @isei.
recode @isko (3131=48) into @isei.
recode @isko (3132=57) into @isei.
recode @isko (3133=57) into @isei.
recode @isko (3139=52) into @isei.
recode @isko (3140=57) into @isei.
recode @isko (3141=52) into @isei.
recode @isko (3142=52) into @isei.
recode @isko (3143=69) into @isei.
recode @isko (3144=69) into @isei.
recode @isko (3145=50) into @isei.
recode @isko (3150=50) into @isei.
recode @isko (3151=50) into @isei.
recode @isko (3152=50) into @isei.
recode @isko (3200=48) into @isei.
recode @isko (3210=50) into @isei.
recode @isko (3211=50) into @isei.
recode @isko (3212=50) into @isei.
recode @isko (3213=50) into @isei.
recode @isko (3220=55) into @isei.
recode @isko (3221=51) into @isei.
recode @isko (3222=51) into @isei.
recode @isko (3223=51) into @isei.
recode @isko (3224=60) into @isei.
recode @isko (3225=51) into @isei.
recode @isko (3226=60) into @isei.
recode @isko (3227=51) into @isei.
recode @isko (3228=51) into @isei.
recode @isko (3229=51) into @isei.
recode @isko (3230=38) into @isei.
recode @isko (3231=38) into @isei.
recode @isko (3232=38) into @isei.
recode @isko (3240=49) into @isei.
recode @isko (3241=51) into @isei.
recode @isko (3242=38) into @isei.
recode @isko (3300=38) into @isei.
recode @isko (3310=38) into @isei.
recode @isko (3320=38) into @isei.
recode @isko (3330=38) into @isei.
recode @isko (3340=38) into @isei.
recode @isko (3400=55) into @isei.
recode @isko (3410=55) into @isei.
recode @isko (3411=61) into @isei.
recode @isko (3412=54) into @isei.
recode @isko (3413=59) into @isei.
recode @isko (3414=56) into @isei.
recode @isko (3415=56) into @isei.
recode @isko (3416=50) into @isei.
recode @isko (3417=56) into @isei.
recode @isko (3419=55) into @isei.
recode @isko (3420=55) into @isei.
recode @isko (3421=55) into @isei.
recode @isko (3422=55) into @isei.
recode @isko (3423=55) into @isei.
recode @isko (3429=55) into @isei.
recode @isko (3430=54) into @isei.
recode @isko (3431=54) into @isei.
recode @isko (3432=59) into @isei.
recode @isko (3433=51) into @isei.
recode @isko (3434=61) into @isei.
recode @isko (3439=54) into @isei.
recode @isko (3440=56) into @isei.
recode @isko (3441=56) into @isei.
recode @isko (3442=57) into @isei.
recode @isko (3443=56) into @isei.
recode @isko (3444=46) into @isei.
recode @isko (3449=56) into @isei.
recode @isko (3450=56) into @isei.
recode @isko (3451=55) into @isei.
recode @isko (3452=56) into @isei.
recode @isko (3460=43) into @isei.
recode @isko (3470=52) into @isei.
recode @isko (3471=53) into @isei.
recode @isko (3472=64) into @isei.
recode @isko (3473=50) into @isei.
recode @isko (3474=50) into @isei.
recode @isko (3475=54) into @isei.
recode @isko (3480=38) into @isei.
recode @isko (4000=45) into @isei.
recode @isko (4100=45) into @isei.
recode @isko (4110=51) into @isei.
recode @isko (4111=51) into @isei.
recode @isko (4112=50) into @isei.
recode @isko (4113=50) into @isei.
recode @isko (4114=51) into @isei.
recode @isko (4115=53) into @isei.
recode @isko (4120=51) into @isei.
recode @isko (4121=51) into @isei.
recode @isko (4122=51) into @isei.
recode @isko (4130=36) into @isei.
recode @isko (4131=32) into @isei.
recode @isko (4132=43) into @isei.
recode @isko (4133=45) into @isei.
recode @isko (4140=39) into @isei.
recode @isko (4141=39) into @isei.
recode @isko (4142=39) into @isei.
recode @isko (4143=39) into @isei.
recode @isko (4144=39) into @isei.
recode @isko (4190=39) into @isei.
recode @isko (4200=49) into @isei.
recode @isko (4210=48) into @isei.
recode @isko (4211=53) into @isei.
recode @isko (4212=46) into @isei.
recode @isko (4213=40) into @isei.
recode @isko (4214=40) into @isei.
recode @isko (4215=40) into @isei.
recode @isko (4220=52) into @isei.
recode @isko (4221=52) into @isei.
recode @isko (4222=52) into @isei.
recode @isko (4223=52) into @isei.
recode @isko (5000=40) into @isei.
recode @isko (5100=38) into @isei.
recode @isko (5110=34) into @isei.
recode @isko (5111=34) into @isei.
recode @isko (5112=34) into @isei.
recode @isko (5113=34) into @isei.
recode @isko (5120=32) into @isei.
recode @isko (5121=30) into @isei.
recode @isko (5122=30) into @isei.
recode @isko (5123=34) into @isei.
recode @isko (5130=25) into @isei.
recode @isko (5131=25) into @isei.
recode @isko (5132=25) into @isei.
recode @isko (5133=25) into @isei.
recode @isko (5139=25) into @isei.
recode @isko (5140=30) into @isei.
recode @isko (5141=29) into @isei.
recode @isko (5142=19) into @isei.
recode @isko (5143=54) into @isei.
recode @isko (5149=19) into @isei.
recode @isko (5150=43) into @isei.
recode @isko (5151=43) into @isei.
recode @isko (5152=43) into @isei.
recode @isko (5160=47) into @isei.
recode @isko (5161=42) into @isei.
recode @isko (5162=50) into @isei.
recode @isko (5163=40) into @isei.
recode @isko (5164=40) into @isei.
recode @isko (5169=40) into @isei.
recode @isko (5200=43) into @isei.
recode @isko (5210=43) into @isei.
recode @isko (5220=43) into @isei.
recode @isko (5230=37) into @isei.
recode @isko (6000=23) into @isei.
recode @isko (6100=23) into @isei.
recode @isko (6110=23) into @isei.
recode @isko (6111=23) into @isei.
recode @isko (6112=23) into @isei.
recode @isko (6113=23) into @isei.
recode @isko (6114=23) into @isei.
recode @isko (6120=23) into @isei.
recode @isko (6121=23) into @isei.
recode @isko (6122=23) into @isei.
recode @isko (6123=23) into @isei.
recode @isko (6124=23) into @isei.
recode @isko (6129=23) into @isei.
recode @isko (6130=23) into @isei.
recode @isko (6131=23) into @isei.
recode @isko (6132=27) into @isei.
recode @isko (6133=28) into @isei.
recode @isko (6134=28) into @isei.
recode @isko (6140=22) into @isei.
recode @isko (6141=22) into @isei.
recode @isko (6142=22) into @isei.
recode @isko (6150=28) into @isei.
recode @isko (6151=28) into @isei.
recode @isko (6152=28) into @isei.
recode @isko (6153=28) into @isei.
recode @isko (6154=28) into @isei.
recode @isko (6200=16) into @isei.
recode @isko (6210=16) into @isei.
recode @isko (7000=34) into @isei.
recode @isko (7100=31) into @isei.
recode @isko (7110=30) into @isei.
recode @isko (7111=30) into @isei.
recode @isko (7112=30) into @isei.
recode @isko (7113=27) into @isei.
recode @isko (7120=30) into @isei.
recode @isko (7121=29) into @isei.
recode @isko (7122=29) into @isei.
recode @isko (7123=26) into @isei.
recode @isko (7124=29) into @isei.
recode @isko (7129=30) into @isei.
recode @isko (7130=34) into @isei.
recode @isko (7131=19) into @isei.
recode @isko (7132=30) into @isei.
recode @isko (7133=31) into @isei.
recode @isko (7134=34) into @isei.
recode @isko (7135=26) into @isei.
recode @isko (7136=33) into @isei.
recode @isko (7137=37) into @isei.
recode @isko (7140=29) into @isei.
recode @isko (7141=29) into @isei.
recode @isko (7142=32) into @isei.
recode @isko (7143=29) into @isei.
recode @isko (7200=34) into @isei.
recode @isko (7210=31) into @isei.
recode @isko (7211=29) into @isei.
recode @isko (7212=30) into @isei.
recode @isko (7213=33) into @isei.
recode @isko (7214=30) into @isei.
recode @isko (7215=30) into @isei.
recode @isko (7216=30) into @isei.
recode @isko (7220=35) into @isei.
recode @isko (7221=33) into @isei.
recode @isko (7222=40) into @isei.
recode @isko (7223=34) into @isei.
recode @isko (7224=24) into @isei.
recode @isko (7230=34) into @isei.
recode @isko (7231=34) into @isei.
recode @isko (7232=42) into @isei.
recode @isko (7233=33) into @isei.
recode @isko (7234=23) into @isei.
recode @isko (7240=40) into @isei.
recode @isko (7241=40) into @isei.
recode @isko (7242=39) into @isei.
recode @isko (7243=41) into @isei.
recode @isko (7244=40) into @isei.
recode @isko (7245=38) into @isei.
recode @isko (7300=34) into @isei.
recode @isko (7310=38) into @isei.
recode @isko (7311=38) into @isei.
recode @isko (7312=38) into @isei.
recode @isko (7313=38) into @isei.
recode @isko (7320=28) into @isei.
recode @isko (7321=27) into @isei.
recode @isko (7322=29) into @isei.
recode @isko (7323=29) into @isei.
recode @isko (7324=29) into @isei.
recode @isko (7330=29) into @isei.
recode @isko (7331=29) into @isei.
recode @isko (7332=29) into @isei.
recode @isko (7340=40) into @isei.
recode @isko (7341=40) into @isei.
recode @isko (7342=40) into @isei.
recode @isko (7343=42) into @isei.
recode @isko (7344=40) into @isei.
recode @isko (7345=37) into @isei.
recode @isko (7346=38) into @isei.
recode @isko (7400=33) into @isei.
recode @isko (7410=30) into @isei.
recode @isko (7411=30) into @isei.
recode @isko (7412=31) into @isei.
recode @isko (7413=30) into @isei.
recode @isko (7414=30) into @isei.
recode @isko (7415=30) into @isei.
recode @isko (7416=30) into @isei.
recode @isko (7420=33) into @isei.
recode @isko (7421=33) into @isei.
recode @isko (7422=33) into @isei.
recode @isko (7423=33) into @isei.
recode @isko (7424=33) into @isei.
recode @isko (7430=36) into @isei.
recode @isko (7431=29) into @isei.
recode @isko (7432=29) into @isei.
recode @isko (7433=45) into @isei.
recode @isko (7434=36) into @isei.
recode @isko (7435=36) into @isei.
recode @isko (7436=33) into @isei.
recode @isko (7437=28) into @isei.
recode @isko (7440=31) into @isei.
recode @isko (7441=31) into @isei.
recode @isko (7442=31) into @isei.
recode @isko (7500=42) into @isei.
recode @isko (7510=42) into @isei.
recode @isko (7520=39) into @isei.
recode @isko (7530=26) into @isei.
recode @isko (8000=31) into @isei.
recode @isko (8100=30) into @isei.
recode @isko (8110=35) into @isei.
recode @isko (8111=35) into @isei.
recode @isko (8112=35) into @isei.
recode @isko (8113=35) into @isei.
recode @isko (8120=30) into @isei.
recode @isko (8121=31) into @isei.
recode @isko (8122=30) into @isei.
recode @isko (8123=28) into @isei.
recode @isko (8124=30) into @isei.
recode @isko (8130=22) into @isei.
recode @isko (8131=22) into @isei.
recode @isko (8139=22) into @isei.
recode @isko (8140=27) into @isei.
recode @isko (8141=27) into @isei.
recode @isko (8142=27) into @isei.
recode @isko (8143=27) into @isei.
recode @isko (8150=35) into @isei.
recode @isko (8151=35) into @isei.
recode @isko (8152=35) into @isei.
recode @isko (8153=35) into @isei.
recode @isko (8154=35) into @isei.
recode @isko (8155=35) into @isei.
recode @isko (8159=35) into @isei.
recode @isko (8160=32) into @isei.
recode @isko (8161=33) into @isei.
recode @isko (8162=27) into @isei.
recode @isko (8163=33) into @isei.
recode @isko (8170=26) into @isei.
recode @isko (8171=26) into @isei.
recode @isko (8172=26) into @isei.
recode @isko (8200=32) into @isei.
recode @isko (8210=36) into @isei.
recode @isko (8211=36) into @isei.
recode @isko (8212=30) into @isei.
recode @isko (8220=30) into @isei.
recode @isko (8221=30) into @isei.
recode @isko (8222=30) into @isei.
recode @isko (8223=30) into @isei.
recode @isko (8224=30) into @isei.
recode @isko (8229=30) into @isei.
recode @isko (8230=30) into @isei.
recode @isko (8231=30) into @isei.
recode @isko (8232=30) into @isei.
recode @isko (8240=29) into @isei.
recode @isko (8250=38) into @isei.
recode @isko (8251=38) into @isei.
recode @isko (8252=38) into @isei.
recode @isko (8253=38) into @isei.
recode @isko (8260=30) into @isei.
recode @isko (8261=29) into @isei.
recode @isko (8262=29) into @isei.
recode @isko (8263=32) into @isei.
recode @isko (8264=24) into @isei.
recode @isko (8265=32) into @isei.
recode @isko (8266=32) into @isei.
recode @isko (8269=32) into @isei.
recode @isko (8270=29) into @isei.
recode @isko (8271=29) into @isei.
recode @isko (8272=29) into @isei.
recode @isko (8273=29) into @isei.
recode @isko (8274=29) into @isei.
recode @isko (8275=29) into @isei.
recode @isko (8276=29) into @isei.
recode @isko (8277=29) into @isei.
recode @isko (8278=29) into @isei.
recode @isko (8279=29) into @isei.
recode @isko (8280=31) into @isei.
recode @isko (8281=30) into @isei.
recode @isko (8282=34) into @isei.
recode @isko (8283=34) into @isei.
recode @isko (8284=30) into @isei.
recode @isko (8285=30) into @isei.
recode @isko (8286=30) into @isei.
recode @isko (8290=26) into @isei.
recode @isko (8300=32) into @isei.
recode @isko (8310=36) into @isei.
recode @isko (8311=41) into @isei.
recode @isko (8312=32) into @isei.
recode @isko (8320=34) into @isei.
recode @isko (8321=30) into @isei.
recode @isko (8322=30) into @isei.
recode @isko (8323=30) into @isei.
recode @isko (8324=34) into @isei.
recode @isko (8330=26) into @isei.
recode @isko (8331=26) into @isei.
recode @isko (8332=26) into @isei.
recode @isko (8333=28) into @isei.
recode @isko (8334=28) into @isei.
recode @isko (8340=32) into @isei.
recode @isko (8400=24) into @isei.
recode @isko (9000=20) into @isei.
recode @isko (9100=25) into @isei.
recode @isko (9110=29) into @isei.
recode @isko (9111=29) into @isei.
recode @isko (9112=28) into @isei.
recode @isko (9113=29) into @isei.
recode @isko (9120=28) into @isei.
recode @isko (9130=16) into @isei.
recode @isko (9131=16) into @isei.
recode @isko (9132=16) into @isei.
recode @isko (9133=16) into @isei.
recode @isko (9140=23) into @isei.
recode @isko (9141=23) into @isei.
recode @isko (9142=23) into @isei.
recode @isko (9150=27) into @isei.
recode @isko (9151=25) into @isei.
recode @isko (9152=27) into @isei.
recode @isko (9153=27) into @isei.
recode @isko (9160=23) into @isei.
recode @isko (9161=23) into @isei.
recode @isko (9162=23) into @isei.
recode @isko (9200=16) into @isei.
recode @isko (9210=16) into @isei.
recode @isko (9211=16) into @isei.
recode @isko (9212=16) into @isei.
recode @isko (9213=16) into @isei.
recode @isko (9300=23) into @isei.
recode @isko (9310=21) into @isei.
recode @isko (9311=21) into @isei.
recode @isko (9312=21) into @isei.
recode @isko (9313=21) into @isei.
recode @isko (9320=20) into @isei.
recode @isko (9321=20) into @isei.
recode @isko (9322=24) into @isei.
recode @isko (9330=29) into @isei.
recode @isko (9331=22) into @isei.
recode @isko (9332=22) into @isei.
recode @isko (9333=30) into @isei.

*Computing institutional trust and social trust independent variables.
COMPUTE ins_trust = SUM.5(trstprl, trstlgl, trstplc, trstplt, trstprt)/5.
var lab ins_trust 'Individual institutional trust'.
COMPUTE soc_trust = SUM.3(ppltrst, pplfair, pplhlp)/3. 
var lab soc_trust 'Individual generalized trust'.


******************************Syntax for producing Table 1******************************.

*Recoding social participation for Table 1.
recode sclact (1,2 = 1) (3,4,5 = 2) (ELSE =SYSMIS) into sclact2.
val lab sclact2 1'Less than most' 2'About the same or more than most'.
var lab sclact2 'Social participation'.


*Recoding frequency of social contact for Table 1.
recode sclmeet (1,2,3 = 1) (4 thru 7 = 2) into sclmeet2.
val lab sclmeet2 2'Several times a month to every day' 1'Never to once a month'.
var lab sclmeet2 'Frequency of social contact'.


*Syntax for producing Table 1.
CTABLES 
 /TABLE  gndr [c]  + egpr4 [c] + srh [c] + sclact2 [c] + sclmeet2 [c] BY cntry [c]  [COUNT, "",F5.0,COLPCT.VALIDN, "",PCT5.1, TOTALS[COUNT,"",F5.0]]
  /CATEGORIES VAR=cntry TOTAL=YES POSITION=BEFORE LABEL='N' EMPTY=EXCLUDE 
/CATEGORIES VARIABLES = gndr TOTAL=YES POSITION=BEFORE 
/TITLES title = 'Table 1. Descriptive statistics of the dependent and independent variables by country (weighted data) - PART 1'.

CTABLES
  /TABLE  agea  [MEAN  F5.1 STDDEV F5.1] + ins_trust [MEAN F5.1 STDDEV F5.1] + soc_trust [MEAN F5.1 STDDEV F5.1] BY cntry
  /CATEGORIES VAR=cntry EMPTY=EXCLUDE
/TITLES title = 'Table 1. Descriptive statistics of the dependent and independent variables by country (weighted data) - PART 2'.

*Syntax for producing Table 2.
weight by pspwght.
sort cases by cntry.
split file LAYERED by cntry.
LOGISTIC REGRESSION VARIABLES srh
  /METHOD=ENTER agea gndr egpr4
  /METHOD=ENTER sclact sclmeet ins_trust soc_trust 
  /CONTRAST (gndr)=Indicator(1)
   /CONTRAST (egpr4)=Indicator(1)
  /PRINT = GOODFIT CI(95)
  /CRITERIA=PIN(.05) POUT(.10) ITERATE(20) CUT(.5).

*Robustness check 1 - multivariate hierarchical regression analysis with the original (non-dichotomized) version of the dependent variable .

******Recoding the occupational class categories into dummy variables for the robustness check procedures.
RECODE egpr4  (1 = 0) (2 = 1) (3 = 0) (4 = 0) (5 = 0) into egpr_d1.
RECODE egpr4  (1 = 0) (2 = 0) (3 = 1) (4 = 0) (5 = 0) into egpr_d2.
RECODE egpr4  (1 = 0) (2 = 0) (3 = 0) (4 = 1) (5 = 0) into egpr_d3.
RECODE egpr4  (1 = 0) (2 = 0) (3 = 0) (4 = 0) (5 = 1) into egpr_d4.

REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA CHANGE
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT health
  /METHOD=ENTER agea gndr egpr_d1 egpr_d2 egpr_d3 egpr_d4
  /METHOD=ENTER sclact sclmeet ins_trust soc_trust.

*Robustness check 2 - logistic regression analysis with the ISEI serving as the main socioeconomic indicator instead of the nominal EGP class categories  .
LOGISTIC REGRESSION VARIABLES srh
  /METHOD=ENTER agea gndr @isei
  /METHOD=ENTER sclact sclmeet ins_trust soc_trust 
  /CONTRAST (gndr)=Indicator(1)
  /PRINT = GOODFIT CI(95)
  /CRITERIA=PIN(.05) POUT(.10) ITERATE(20) CUT(.5).