
***********************************************************************************************************************
*												
				*Hentet fra ZA5400: International Social Survey Programme: Social Inequality IV - ISSP 2009
**********************************************************************************************************************



* Oslo register data class scheme

* Isco-version for STATA - June 2013
* The ordc-schema is developed by Marianne Nordli Hansen, Magne Flemmen, Patrick Lie Andersen, JÃ¸rn Ljunggren and Maren Toft.
* contact: m.n.hansen@sosgeo.uio.no - magne.flemmen@sosgo.uio.no - p.l.andersen@sosgeo.uio.no - jorn.ljunggren@sosgeo.uio.no


* This syntax is written by Patrick Lie Andersen, with modifications by Maren Toft
* exemplified on ISSP 2009 (Norwegian part)
* data are available for download at: http://www.issp.org/
* This version is a major revision of an syntax used on Norwegian survey data; see Haakestad 2012


* This paper explains the scheme's logic:
*Hansen, M. N., Flemmen, M. Ø. & Andersen, P. L. (2009). The Oslo Register Data Class Scheme (ordc). Final report from the classification project. University of Oslo
*http://www.iss.uio.no/publikasjoner/memoranda/2009/2009-01.html



sysdir set PLUS m:\Stata\ado\plus
sysdir set PERSONAL m:\Stata\ado\personal
ssc install egenmore


* 0. LABELS AND OCCUPATIONAL CODES:
* 0A - The ordc variable is created with the following value labels:

capture drop ordc
gen ordc=.

label define ordcvaluesii 1 "Cultural upper" 2 "Professional upper" 3 "Economic upper" 4 "Cultural upper middle" 5 "Professional upper middle" ///
6 "Economic upper middle" 7 "Cultural lower middle" 8 "Professional lower middle" 9 "Economic lower middle" 10 "Skilled workers" ///
11 "Unskilled workers" 12 "Primary sector" 13 "Welfare transference" 996 "Occu title unclassifiable" 997 "Occu or missing" ///
998 "Not in labour" 999 "Excluded"
label value ordc ordcvaluesii


* 0B - occupational codes
rename ISCO88 isco88
rename WRKST wrkst
rename NO_RINC earnings
replace ordc=1 if isco88==1237			
replace ordc=1 if isco88==2141			
replace ordc=1 if isco88==2310			
replace ordc=1 if isco88==2351			
replace ordc=1 if isco88==2442			
replace ordc=1 if isco88==2443			
replace ordc=1 if isco88==2444			
replace ordc=1 if isco88==2451			
replace ordc=1 if isco88==2452			
replace ordc=1 if isco88==2453			
replace ordc=1 if isco88==2454			
replace ordc=1 if isco88==2455			
replace ordc=2 if isco88==1100			
replace ordc=2 if isco88==1110			
replace ordc=2 if isco88==1120			
replace ordc=2 if isco88==1130			
replace ordc=2 if isco88==1141			
replace ordc=2 if isco88==1142			
replace ordc=2 if isco88==1143			
replace ordc=2 if isco88==2142			
replace ordc=2 if isco88==2143			
replace ordc=2 if isco88==2144			
replace ordc=2 if isco88==2145			
replace ordc=2 if isco88==2146			
replace ordc=2 if isco88==2147			
replace ordc=2 if isco88==2149			
replace ordc=2 if isco88==2221			
replace ordc=2 if isco88==2222			
replace ordc=2 if isco88==2223			
replace ordc=2 if isco88==2224			
replace ordc=2 if isco88==2421			
replace ordc=2 if isco88==2422			
replace ordc=2 if isco88==2429			
replace ordc=2 if isco88==2445			
replace ordc=2 if isco88==3143			
replace ordc=6 if isco88==1200			
replace ordc=6 if isco88==1210			
replace ordc=4 if isco88==2300			
replace ordc=4 if isco88==2320			
replace ordc=4 if isco88==2340			
replace ordc=4 if isco88==2352			
replace ordc=4 if isco88==2359			
replace ordc=4 if isco88==2431			
replace ordc=4 if isco88==2432			
replace ordc=4 if isco88==2440			
replace ordc=4 if isco88==2460			
replace ordc=4 if isco88==3472			
replace ordc=4 if isco88==3491			
replace ordc=4 if isco88==3492			
replace ordc=5 if isco88==2229			
replace ordc=5 if isco88==2			
replace ordc=5 if isco88==1227			
replace ordc=5 if isco88==1228			
replace ordc=5 if isco88==1229			
replace ordc=5 if isco88==2000			
replace ordc=5 if isco88==2100			
replace ordc=5 if isco88==2111			
replace ordc=5 if isco88==2112			
replace ordc=5 if isco88==2113			
replace ordc=5 if isco88==2114			
replace ordc=5 if isco88==2121			
replace ordc=5 if isco88==2122			
replace ordc=5 if isco88==2131			
replace ordc=5 if isco88==2132			
replace ordc=5 if isco88==2139			
replace ordc=5 if isco88==2148			
replace ordc=5 if isco88==2200			
replace ordc=5 if isco88==2211			
replace ordc=5 if isco88==2212			
replace ordc=5 if isco88==2213			
replace ordc=5 if isco88==2230			
replace ordc=5 if isco88==2446			
replace ordc=5 if isco88==2470 			
replace ordc=5 if isco88==2511			
replace ordc=5 if isco88==2513			
replace ordc=5 if isco88==2519			
replace ordc=5 if isco88==3000			
replace ordc=5 if isco88==3100			
replace ordc=5 if isco88==3110			
replace ordc=5 if isco88==3111			
replace ordc=5 if isco88==3112			
replace ordc=5 if isco88==3113			
replace ordc=5 if isco88==3114			
replace ordc=5 if isco88==3116			
replace ordc=5 if isco88==3117			
replace ordc=5 if isco88==3118			
replace ordc=5 if isco88==3119			
replace ordc=5 if isco88==3132			
replace ordc=5 if isco88==3133			
replace ordc=5 if isco88==3141			
replace ordc=5 if isco88==3142			
replace ordc=5 if isco88==3145			
replace ordc=5 if isco88==3151			
replace ordc=5 if isco88==3152			
replace ordc=5 if isco88==3200			
replace ordc=5 if isco88==3210			
replace ordc=5 if isco88==3211			
replace ordc=5 if isco88==3212			
replace ordc=5 if isco88==3213			
replace ordc=5 if isco88==3221			
replace ordc=5 if isco88==3222			
replace ordc=5 if isco88==3223			
replace ordc=5 if isco88==3224			
replace ordc=5 if isco88==3226			
replace ordc=5 if isco88==3229			
replace ordc=5 if isco88==3241			
replace ordc=5 if isco88==3431			
replace ordc=5 if isco88==3434			
replace ordc=5 if isco88==3439			
replace ordc=5 if isco88==3475			
replace ordc=6 if isco88==1220			
replace ordc=6 if isco88==1221			
replace ordc=6 if isco88==1222			
replace ordc=6 if isco88==1223			
replace ordc=6 if isco88==1224			
replace ordc=6 if isco88==1225			
replace ordc=6 if isco88==1226			
replace ordc=6 if isco88==1231			
replace ordc=6 if isco88==1232			
replace ordc=6 if isco88==1233			
replace ordc=6 if isco88==1234			
replace ordc=6 if isco88==1235			
replace ordc=6 if isco88==1236			
replace ordc=6 if isco88==1239			
replace ordc=6 if isco88==1300			
replace ordc=6 if isco88==1310			
replace ordc=6 if isco88==1312			
replace ordc=6 if isco88==1313			
replace ordc=6 if isco88==1314			
replace ordc=6 if isco88==1315			
replace ordc=6 if isco88==1316			
replace ordc=6 if isco88==1317			
replace ordc=6 if isco88==1318			
replace ordc=6 if isco88==1319			
replace ordc=6 if isco88==2411			
replace ordc=6 if isco88==2412			
replace ordc=6 if isco88==2419			
replace ordc=6 if isco88==2441			
replace ordc=6 if isco88==3411			
replace ordc=6 if isco88==3412			
replace ordc=6 if isco88==3413			
replace ordc=6 if isco88==3415			
replace ordc=6 if isco88==3416			
replace ordc=6 if isco88==3417			
replace ordc=6 if isco88==3419			
replace ordc=6 if isco88==3421			
replace ordc=6 if isco88==3429			
replace ordc=6 if isco88==3432			
replace ordc=7 if isco88==2331			
replace ordc=7 if isco88==2332			
replace ordc=7 if isco88==3131			
replace ordc=7 if isco88==3300			
replace ordc=7 if isco88==3310			
replace ordc=7 if isco88==3320			
replace ordc=7 if isco88==3330			
replace ordc=7 if isco88==3340			
replace ordc=7 if isco88==3341			
replace ordc=7 if isco88==3342			
replace ordc=7 if isco88==3471			
replace ordc=7 if isco88==3473			
replace ordc=7 if isco88==3474			
replace ordc=7 if isco88==3480			
replace ordc=7 if isco88==4141			
replace ordc=7 if isco88==7324			
replace ordc=7 if isco88==7330			
replace ordc=7 if isco88==7331			
replace ordc=7 if isco88==7332			
replace ordc=7 if isco88==7343			
replace ordc=7 if isco88==7344			
replace ordc=7 if isco88==7350			
replace ordc=8 if isco88==3144			
replace ordc=8 if isco88==1			
replace ordc=8 if isco88==110			
replace ordc=8 if isco88==0110			
replace ordc=8 if isco88==3115			
replace ordc=8 if isco88==3120			
replace ordc=8 if isco88==3121			
replace ordc=8 if isco88==3122			
replace ordc=8 if isco88==3123			
replace ordc=8 if isco88==3225			
replace ordc=8 if isco88==3227			
replace ordc=8 if isco88==3228			
replace ordc=8 if isco88==3231			
replace ordc=8 if isco88==3232			
replace ordc=8 if isco88==3242			
replace ordc=8 if isco88==3441			
replace ordc=8 if isco88==3442			
replace ordc=8 if isco88==3443			
replace ordc=8 if isco88==3444			
replace ordc=8 if isco88==3445			
replace ordc=8 if isco88==3449			
replace ordc=8 if isco88==3450			
replace ordc=8 if isco88==3460			
replace ordc=8 if isco88==4000			
replace ordc=8 if isco88==4100			
replace ordc=8 if isco88==4111			
replace ordc=8 if isco88==4112			
replace ordc=8 if isco88==4113			
replace ordc=8 if isco88==4114			
replace ordc=8 if isco88==4115			
replace ordc=8 if isco88==4116			
replace ordc=8 if isco88==4121			
replace ordc=8 if isco88==4122			
replace ordc=8 if isco88==4132			
replace ordc=8 if isco88==4133			
replace ordc=8 if isco88==4143			
replace ordc=8 if isco88==4144			
replace ordc=8 if isco88==4190			
replace ordc=8 if isco88==4212			
replace ordc=8 if isco88==4214			
replace ordc=8 if isco88==4215			
replace ordc=8 if isco88==4221			
replace ordc=8 if isco88==4222			
replace ordc=8 if isco88==4400			
replace ordc=8 if isco88==4500			
replace ordc=8 if isco88==5100			
replace ordc=8 if isco88==5110			
replace ordc=8 if isco88==5111			
replace ordc=8 if isco88==5113			
replace ordc=8 if isco88==5121			
replace ordc=8 if isco88==5134			
replace ordc=8 if isco88==5135			
replace ordc=8 if isco88==5143			
replace ordc=8 if isco88==5160			
replace ordc=8 if isco88==5161			
replace ordc=8 if isco88==5162			
replace ordc=8 if isco88==5163			
replace ordc=8 if isco88==7450			
replace ordc=6 if isco88==3414			
replace ordc=6 if isco88==3418			
replace ordc=6 if isco88==1311			
replace ordc=6 if isco88==1320			
replace ordc=6 if isco88==3422			
replace ordc=6 if isco88==3423			
replace ordc=10 if isco88==3433			
replace ordc=10 if isco88==4223			
replace ordc=10 if isco88==5122			
replace ordc=10 if isco88==5131			
replace ordc=10 if isco88==5132			
replace ordc=10 if isco88==5133			
replace ordc=10 if isco88==5139			
replace ordc=10 if isco88==5141			
replace ordc=10 if isco88==5142			
replace ordc=10 if isco88==6113			
replace ordc=10 if isco88==6142			
replace ordc=10 if isco88==7000			
replace ordc=10 if isco88==7100			
replace ordc=10 if isco88==7110			
replace ordc=10 if isco88==7111			
replace ordc=10 if isco88==7112			
replace ordc=10 if isco88==7113			
replace ordc=10 if isco88==7121			
replace ordc=10 if isco88==7122			
replace ordc=10 if isco88==7123			
replace ordc=10 if isco88==7124			
replace ordc=10 if isco88==7125			
replace ordc=10 if isco88==7126			
replace ordc=10 if isco88==7127			
replace ordc=10 if isco88==7128			
replace ordc=10 if isco88==7129			
replace ordc=10 if isco88==7130			
replace ordc=10 if isco88==7131			
replace ordc=10 if isco88==7132			
replace ordc=10 if isco88==7133			
replace ordc=10 if isco88==7134			
replace ordc=10 if isco88==7135			
replace ordc=10 if isco88==7136			
replace ordc=10 if isco88==7137			
replace ordc=10 if isco88==7141			
replace ordc=10 if isco88==7142			
replace ordc=10 if isco88==7143			
replace ordc=10 if isco88==7211			
replace ordc=10 if isco88==7212			
replace ordc=10 if isco88==7213			
replace ordc=10 if isco88==7214			
replace ordc=10 if isco88==7215			
replace ordc=10 if isco88==7216			
replace ordc=10 if isco88==7217			
replace ordc=10 if isco88==7221			
replace ordc=10 if isco88==7222			
replace ordc=10 if isco88==7223			
replace ordc=10 if isco88==7224			
replace ordc=10 if isco88==7231			
replace ordc=10 if isco88==7232			
replace ordc=10 if isco88==7233			
replace ordc=10 if isco88==7234			
replace ordc=10 if isco88==7240			
replace ordc=10 if isco88==7241			
replace ordc=10 if isco88==7242			
replace ordc=10 if isco88==7243			
replace ordc=10 if isco88==7244			
replace ordc=10 if isco88==7245			
replace ordc=10 if isco88==7300			
replace ordc=10 if isco88==7310			
replace ordc=10 if isco88==7311			
replace ordc=10 if isco88==7312			
replace ordc=10 if isco88==7313			
replace ordc=10 if isco88==7320			
replace ordc=10 if isco88==7321			
replace ordc=10 if isco88==7322			
replace ordc=10 if isco88==7323			
replace ordc=10 if isco88==7340			
replace ordc=10 if isco88==7341			
replace ordc=10 if isco88==7342			
replace ordc=10 if isco88==7345			
replace ordc=10 if isco88==7346			
replace ordc=10 if isco88==7400			
replace ordc=10 if isco88==7410			
replace ordc=10 if isco88==7411			
replace ordc=10 if isco88==7412			
replace ordc=10 if isco88==7413			
replace ordc=10 if isco88==7414			
replace ordc=10 if isco88==7415			
replace ordc=10 if isco88==7416			
replace ordc=10 if isco88==7420			
replace ordc=10 if isco88==7421			
replace ordc=10 if isco88==7422			
replace ordc=10 if isco88==7423			
replace ordc=10 if isco88==7424			
replace ordc=10 if isco88==7430			
replace ordc=10 if isco88==7431			
replace ordc=10 if isco88==7432			
replace ordc=10 if isco88==7433			
replace ordc=10 if isco88==7434			
replace ordc=10 if isco88==7435			
replace ordc=10 if isco88==7436			
replace ordc=10 if isco88==7437			
replace ordc=10 if isco88==7440			
replace ordc=10 if isco88==7441			
replace ordc=10 if isco88==7442			
replace ordc=10 if isco88==7500			
replace ordc=10 if isco88==7510			
replace ordc=10 if isco88==7520			
replace ordc=10 if isco88==7900			
replace ordc=10 if isco88==8100			
replace ordc=10 if isco88==8110			
replace ordc=10 if isco88==8111			
replace ordc=10 if isco88==8112			
replace ordc=10 if isco88==8113			
replace ordc=10 if isco88==8120			
replace ordc=10 if isco88==8121			
replace ordc=10 if isco88==8122			
replace ordc=10 if isco88==8123			
replace ordc=10 if isco88==8124			
replace ordc=10 if isco88==8150			
replace ordc=10 if isco88==8151			
replace ordc=10 if isco88==8152			
replace ordc=10 if isco88==8153			
replace ordc=10 if isco88==8154			
replace ordc=10 if isco88==8155			
replace ordc=10 if isco88==8159			
replace ordc=10 if isco88==8160			
replace ordc=10 if isco88==8161			
replace ordc=10 if isco88==8162			
replace ordc=10 if isco88==8163			
replace ordc=10 if isco88==8170			
replace ordc=10 if isco88==8171			
replace ordc=10 if isco88==8172			
replace ordc=10 if isco88==8210			
replace ordc=10 if isco88==8211			
replace ordc=10 if isco88==8212			
replace ordc=10 if isco88==8250			
replace ordc=10 if isco88==8251			
replace ordc=10 if isco88==8252			
replace ordc=10 if isco88==8311			
replace ordc=11 if isco88==4131			
replace ordc=11 if isco88==4142			
replace ordc=11 if isco88==4211			
replace ordc=11 if isco88==4213			
replace ordc=11 if isco88==5112			
replace ordc=11 if isco88==5123			
replace ordc=11 if isco88==5136			
replace ordc=11 if isco88==5140			
replace ordc=11 if isco88==5149			
replace ordc=11 if isco88==5150			
replace ordc=11 if isco88==5151			
replace ordc=11 if isco88==5152			
replace ordc=11 if isco88==5164			
replace ordc=11 if isco88==5169			
replace ordc=11 if isco88==5200			
replace ordc=11 if isco88==5210			
replace ordc=11 if isco88==5220			
replace ordc=11 if isco88==5221			
replace ordc=11 if isco88==5222			
replace ordc=11 if isco88==5223			
replace ordc=11 if isco88==5230			
replace ordc=11 if isco88==8000			
replace ordc=11 if isco88==8120			
replace ordc=11 if isco88==8130			
replace ordc=11 if isco88==8131			
replace ordc=11 if isco88==8139			
replace ordc=11 if isco88==8140			
replace ordc=11 if isco88==8141			
replace ordc=11 if isco88==8142			
replace ordc=11 if isco88==8143			
replace ordc=11 if isco88==8200			
replace ordc=11 if isco88==8221			
replace ordc=11 if isco88==8222			
replace ordc=11 if isco88==8223			
replace ordc=11 if isco88==8224			
replace ordc=11 if isco88==8229			
replace ordc=11 if isco88==8230			
replace ordc=11 if isco88==8231			
replace ordc=11 if isco88==8232			
replace ordc=11 if isco88==8240			
replace ordc=11 if isco88==8253			
replace ordc=11 if isco88==8260			
replace ordc=11 if isco88==8261			
replace ordc=11 if isco88==8262			
replace ordc=11 if isco88==8263			
replace ordc=11 if isco88==8264			
replace ordc=11 if isco88==8265			
replace ordc=11 if isco88==8266			
replace ordc=11 if isco88==8269			
replace ordc=11 if isco88==8270			
replace ordc=11 if isco88==8271			
replace ordc=11 if isco88==8272			
replace ordc=11 if isco88==8273			
replace ordc=11 if isco88==8274			
replace ordc=11 if isco88==8275			
replace ordc=11 if isco88==8276			
replace ordc=11 if isco88==8277			
replace ordc=11 if isco88==8278			
replace ordc=11 if isco88==8279			
replace ordc=11 if isco88==8280			
replace ordc=11 if isco88==8281			
replace ordc=11 if isco88==8282			
replace ordc=11 if isco88==8283			
replace ordc=11 if isco88==8284			
replace ordc=11 if isco88==8285			
replace ordc=11 if isco88==8286			
replace ordc=11 if isco88==8290			
replace ordc=11 if isco88==8300			
replace ordc=11 if isco88==8312			
replace ordc=11 if isco88==8320			
replace ordc=11 if isco88==8321			
replace ordc=11 if isco88==8322			
replace ordc=11 if isco88==8323			
replace ordc=11 if isco88==8324			
replace ordc=11 if isco88==8330			
replace ordc=11 if isco88==8331			
replace ordc=11 if isco88==8332			
replace ordc=11 if isco88==8333			
replace ordc=11 if isco88==8334			
replace ordc=11 if isco88==8340			
replace ordc=11 if isco88==8341			
replace ordc=11 if isco88==8342			
replace ordc=11 if isco88==9000			
replace ordc=11 if isco88==9100			
replace ordc=11 if isco88==9110			
replace ordc=11 if isco88==9111			
replace ordc=11 if isco88==9112			
replace ordc=11 if isco88==9113			
replace ordc=11 if isco88==9120			
replace ordc=11 if isco88==9130			
replace ordc=11 if isco88==9131			
replace ordc=11 if isco88==9132			
replace ordc=11 if isco88==9133			
replace ordc=11 if isco88==9134			
replace ordc=11 if isco88==9140			
replace ordc=11 if isco88==9141			
replace ordc=11 if isco88==9142			
replace ordc=11 if isco88==9150			
replace ordc=11 if isco88==9151			
replace ordc=11 if isco88==9152			
replace ordc=11 if isco88==9153			
replace ordc=11 if isco88==9160			
replace ordc=11 if isco88==9161			
replace ordc=11 if isco88==9162			
replace ordc=11 if isco88==9300			
replace ordc=11 if isco88==9310			
replace ordc=11 if isco88==9311			
replace ordc=11 if isco88==9312			
replace ordc=11 if isco88==9313			
replace ordc=11 if isco88==9320			
replace ordc=11 if isco88==9321			
replace ordc=11 if isco88==9322			
replace ordc=11 if isco88==9330			
replace ordc=11 if isco88==9331			
replace ordc=11 if isco88==9332			
replace ordc=11 if isco88==9333			
replace ordc=12 if isco88==6000			
replace ordc=12 if isco88==6100			
replace ordc=12 if isco88==6110			
replace ordc=12 if isco88==6111			
replace ordc=12 if isco88==6112			
replace ordc=12 if isco88==6114			
replace ordc=12 if isco88==6120			
replace ordc=12 if isco88==6121			
replace ordc=12 if isco88==6122			
replace ordc=12 if isco88==6123			
replace ordc=12 if isco88==6124			
replace ordc=12 if isco88==6129			
replace ordc=12 if isco88==6130			
replace ordc=12 if isco88==6140			
replace ordc=12 if isco88==6141			
replace ordc=12 if isco88==6150			
replace ordc=12 if isco88==6151			
replace ordc=12 if isco88==6152			
replace ordc=12 if isco88==6153			
replace ordc=12 if isco88==6154			
replace ordc=12 if isco88==6200			
replace ordc=12 if isco88==6210			
replace ordc=12 if isco88==9200			
replace ordc=12 if isco88==9210			
replace ordc=12 if isco88==9211			
replace ordc=12 if isco88==9212			
replace ordc=12 if isco88==9213			
replace ordc=996 if isco88==1000			
replace ordc=996 if isco88==2400			
replace ordc=996 if isco88==3400			
replace ordc=996 if isco88==3470			
replace ordc=996 if isco88==4200			
replace ordc=996 if isco88==4210			
replace ordc=996 if isco88==5000			
replace ordc=996 if isco88==8310			
replace ordc=997 if isco88==0			
replace ordc=997 if isco88==9996			
replace ordc=997 if isco88==9997			
replace ordc=997 if isco88==9998			
			
replace ordc=997 if isco88==9999			




*1. MISSING & TRANSITORY CODES.
*1A - those outside the labor force are coded 997.
replace ordc=997 if isco88==0 


*1B - observations without a code (missing, refused, don't know etc..) are set to the ordc-value 997.
replace ordc=997 if isco88==9996	
replace ordc=997 if isco88==9997	
replace ordc=997 if isco88==9998	
replace ordc=997 if isco88==9999


*1C - isco codes not included in, or unknown to, the syntax are also coded 997.
replace ordc=997 if isco88==.a
replace ordc=997 if isco88==.n


*2A - WELFARE AND TRANCFERENCE CATEGORY (13). 
*Those who answered helping family member(4), retired(7), unemployed(5), housewife(8), disabled(9) are classified with 13
//if they have no occupational information (997) or are not in labor(998).

//replace ordc=13 if (ordc==997 & wrkst==4)
//replace ordc=13 if (ordc==997 & wrkst==5)
//replace ordc=13 if (ordc==997 & wrkst==7)			LEAVE AS MISSING
//replace ordc=13 if (ordc==997 & wrkst==8)
//replace ordc=13 if (ordc==997 & wrkst==9)


*3. INCOME & ECONOMIC FACTIONS
* If the dataset includes reliable information on income we distinguish between the economic factions (ordc==6) if not you can use the ordc-version that only sorts income.
*3A - income 
* Within the economic faction, the top 10% in the income distribution are assigned economic upper-class membership, 
//the following 40% economic upper-middle class, while the remaining 50% are assigned lower middle-class membership.

capture drop innt_ecfrac
egen innt_ecfrac=xtile(earnings) if (ordc==6 & V5==578), p(10(10)90)  //user written egenmore (country-identifier if needed when estimating relative income boundary).

replace ordc=3 if innt_ecfrac==10
replace ordc=6 if (innt_ecfrac==9 | innt_ecfrac==8 | innt_ecfrac==7 | innt_ecfrac==6)
replace ordc=9 if innt_ecfrac<=5


* 4. EXCLUSION
*4A - full time students (6)and military duty personnel (10)(not military professionals (8)) are excluded since they are in transitory positions.
replace ordc=999 if ordc==997 & wrkst==6
replace ordc=999 if ordc==997 & wrkst==10


*4B - The above and others not working and that are without an informative ISCO code are excluded and set to missing.
replace ordc=. if ordc==996
replace ordc=. if ordc==997
replace ordc=. if ordc==999


capture drop ordc_nor
gen ordc_nor=ordc if V5==578

label define ordcvalues 1 "Cultural upper" 2 "Professional upper" 3 "Economic upper" 4 "Cultural upper middle" 5 "Professional upper middle" ///
6 "Economic upper middle" 7 "Cultural lower middle" 8 "Professional lower middle" 9 "Economic lower middle" 10 "Skilled workers" ///
11 "Unskilled workers" 12 "Primary sector" 13 "Welfare transference" 996 "Occu title unclassifiable" 997 "Occu or missing" ///
998 "Not in labour" 999 "Excluded"
label value ordc_nor ordcvalue


