*! version 1.0  15jun2001
* Stata version June 15, 2001 by John Hendrickx <John_Hendrickx@yahoo.com>
/*
Transforms ISCO-88 (International Classification of Occupation)
4-digit occupational codes into
ISCO-68 (International Classification of Occupation)
4-digit occupational codes

Source:
Ganzeboom, Harry B.G.;Treiman, Donald J.,
International Stratification and Mobility File: Conversion Tools.
Utrecht: Department of Sociologie,
http://www.fss.uu.nl/soc/hg/ismf.

ISCO-88 Reference:
ILO (International Labour Office). (1990).
International standard classification of occupations : ISCO-88.
Geneva: International Labour Office.

ISCO-68 Reference:
ILO (International Labour Office). (1968).
International Standard Classification of Occupations, revised edition.
International Labour Office, Geneva.
*/
program define isko8868
	version 7
	syntax newvarname, isko(varname numeric)
	/* SPSS comments:
	** this module recodes isko88 back into isco68
	** put your isco88 codes negatively in @isco
	** last update: summer 1992

	** Please cite use of our conversion tools as:
	** "Ganzeboom, Harry B.G.;Treiman, Donald J.,
	** International Stratification and Mobility
	** File: Conversion Tools. Utrecht: Department of Sociologie,
	** http://www.fss.uu.nl/soc/hg/ismf." Date of last revision.
	*/

	quietly {
		gen `varlist'=.
		replace `varlist'=9970 if (`isko' == 8400)
		replace `varlist'=8494 if (`isko' == 7234)
		replace `varlist'=9950 if (`isko' == 7520)
		replace `varlist'=2000 if (`isko' == 1000)
		replace `varlist'=2010 if (`isko' == 1100)
		replace `varlist'=2020 if (`isko' == 1110)
		replace `varlist'=2030 if (`isko' == 1120)
		replace `varlist'=2015 if (`isko' == 1130)
		replace `varlist'=2110 if (`isko' == 1140)
		replace `varlist'=2195 if (`isko' == 1141)
		replace `varlist'=2196 if (`isko' == 1142)
		replace `varlist'=2190 if (`isko' == 1143)
		replace `varlist'=2110 if (`isko' == 1200)
		replace `varlist'=2119 if (`isko' == 1210)
		replace `varlist'=2120 if (`isko' == 1220)
		replace `varlist'=6000 if (`isko' == 1221)
		replace `varlist'=2120 if (`isko' == 1222)
		replace `varlist'=2120 if (`isko' == 1223)
		replace `varlist'=4000 if (`isko' == 1224)
		replace `varlist'=5000 if (`isko' == 1225)
		replace `varlist'=3500 if (`isko' == 1226)
		replace `varlist'=2199 if (`isko' == 1227)
		replace `varlist'=2120 if (`isko' == 1228)
		replace `varlist'=1740 if (`isko' == 1229)
		replace `varlist'=2192 if (`isko' == 1230)
		replace `varlist'=3009 if (`isko' == 1231)
		replace `varlist'=1949 if (`isko' == 1232)
		replace `varlist'=4200 if (`isko' == 1233)
		replace `varlist'=2192 if (`isko' == 1234)
		replace `varlist'=2192 if (`isko' == 1235)
		replace `varlist'=2192 if (`isko' == 1236)
		replace `varlist'=2192 if (`isko' == 1237)
		replace `varlist'=2192 if (`isko' == 1239)
		replace `varlist'=2192 if (`isko' == 1240)
		replace `varlist'=5832 if (`isko' == 1250)
		replace `varlist'=2110 if (`isko' == 1300)
		replace `varlist'=2115 if (`isko' == 1310)
		replace `varlist'=6009 if (`isko' == 1311)
		replace `varlist'=2113 if (`isko' == 1312)
		replace `varlist'=2116 if (`isko' == 1313)
		replace `varlist'=4000 if (`isko' == 1314)
		replace `varlist'=5000 if (`isko' == 1315)
		replace `varlist'=2113 if (`isko' == 1316)
		replace `varlist'=2113 if (`isko' == 1317)
		replace `varlist'=2113 if (`isko' == 1318)
		replace `varlist'=2113 if (`isko' == 1319)
		replace `varlist'=1960 if (`isko' == 2000)
		replace `varlist'=0100 if (`isko' == 2100)
		replace `varlist'=0100 if (`isko' == 2110)
		replace `varlist'=0120 if (`isko' == 2111)
		replace `varlist'=0133 if (`isko' == 2112)
		replace `varlist'=0110 if (`isko' == 2113)
		replace `varlist'=0131 if (`isko' == 2114)
		replace `varlist'=0800 if (`isko' == 2120)
		replace `varlist'=0820 if (`isko' == 2121)
		replace `varlist'=0810 if (`isko' == 2122)
		replace `varlist'=0840 if (`isko' == 2130)
		replace `varlist'=0830 if (`isko' == 2131)
		replace `varlist'=0849 if (`isko' == 2132)
		replace `varlist'=0840 if (`isko' == 2139)
		replace `varlist'=0200 if (`isko' == 2140)
		replace `varlist'=0210 if (`isko' == 2141)
		replace `varlist'=0220 if (`isko' == 2142)
		replace `varlist'=0230 if (`isko' == 2143)
		replace `varlist'=0230 if (`isko' == 2144)
		replace `varlist'=0240 if (`isko' == 2145)
		replace `varlist'=0250 if (`isko' == 2146)
		replace `varlist'=0260 if (`isko' == 2147)
		replace `varlist'=0310 if (`isko' == 2148)
		replace `varlist'=0290 if (`isko' == 2149)
		replace `varlist'=0500 if (`isko' == 2200)
		replace `varlist'=0500 if (`isko' == 2210)
		replace `varlist'=0510 if (`isko' == 2211)
		replace `varlist'=0520 if (`isko' == 2212)
		replace `varlist'=0530 if (`isko' == 2213)
		replace `varlist'=0600 if (`isko' == 2220)
		replace `varlist'=0610 if (`isko' == 2221)
		replace `varlist'=0630 if (`isko' == 2222)
		replace `varlist'=0650 if (`isko' == 2223)
		replace `varlist'=0670 if (`isko' == 2224)
		replace `varlist'=0790 if (`isko' == 2229)
		replace `varlist'=0710 if (`isko' == 2230)
		replace `varlist'=1300 if (`isko' == 2300)
		replace `varlist'=1310 if (`isko' == 2310)
		replace `varlist'=1320 if (`isko' == 2320)
		replace `varlist'=1329 if (`isko' == 2321)
		replace `varlist'=1321 if (`isko' == 2322)
		replace `varlist'=1399 if (`isko' == 2323)
		replace `varlist'=1330 if (`isko' == 2330)
		replace `varlist'=1330 if (`isko' == 2331)
		replace `varlist'=1340 if (`isko' == 2332)
		replace `varlist'=1350 if (`isko' == 2340)
		replace `varlist'=1390 if (`isko' == 2350)
		replace `varlist'=1924 if (`isko' == 2351)
		replace `varlist'=1392 if (`isko' == 2352)
		replace `varlist'=1390 if (`isko' == 2359)
		replace `varlist'=1990 if (`isko' == 2400)
		replace `varlist'=1100 if (`isko' == 2410)
		replace `varlist'=1100 if (`isko' == 2411)
		replace `varlist'=1940 if (`isko' == 2412)
		replace `varlist'=1593 if (`isko' == 2419)
		replace `varlist'=1200 if (`isko' == 2420)
		replace `varlist'=1210 if (`isko' == 2421)
		replace `varlist'=1220 if (`isko' == 2422)
		replace `varlist'=1290 if (`isko' == 2429)
		replace `varlist'=1910 if (`isko' == 2430)
		replace `varlist'=1910 if (`isko' == 2431)
		replace `varlist'=1910 if (`isko' == 2432)
		replace `varlist'=1920 if (`isko' == 2440)
		replace `varlist'=0900 if (`isko' == 2441)
		replace `varlist'=1920 if (`isko' == 2442)
		replace `varlist'=1923 if (`isko' == 2443)
		replace `varlist'=1950 if (`isko' == 2444)
		replace `varlist'=1921 if (`isko' == 2445)
		replace `varlist'=1930 if (`isko' == 2446)
		replace `varlist'=1600 if (`isko' == 2450)
		replace `varlist'=1510 if (`isko' == 2451)
		replace `varlist'=1610 if (`isko' == 2452)
		replace `varlist'=1710 if (`isko' == 2453)
		replace `varlist'=1720 if (`isko' == 2454)
		replace `varlist'=1730 if (`isko' == 2455)
		replace `varlist'=1400 if (`isko' == 2460)
		replace `varlist'=1990 if (`isko' == 3000)
		replace `varlist'=1999 if (`isko' == 3100)
		replace `varlist'=0140 if (`isko' == 3110)
		replace `varlist'=0140 if (`isko' == 3111)
		replace `varlist'=0330 if (`isko' == 3112)
		replace `varlist'=0340 if (`isko' == 3113)
		replace `varlist'=0340 if (`isko' == 3114)
		replace `varlist'=0350 if (`isko' == 3115)
		replace `varlist'=0360 if (`isko' == 3116)
		replace `varlist'=0370 if (`isko' == 3117)
		replace `varlist'=0320 if (`isko' == 3118)
		replace `varlist'=0390 if (`isko' == 3119)
		replace `varlist'=3400 if (`isko' == 3120)
		replace `varlist'=3420 if (`isko' == 3121)
		replace `varlist'=3420 if (`isko' == 3122)
		replace `varlist'=0390 if (`isko' == 3123)
		replace `varlist'=8600 if (`isko' == 3130)
		replace `varlist'=1630 if (`isko' == 3131)
		replace `varlist'=3800 if (`isko' == 3132)
		replace `varlist'=0770 if (`isko' == 3133)
		replace `varlist'=8620 if (`isko' == 3139)
		replace `varlist'=0400 if (`isko' == 3140)
		replace `varlist'=0430 if (`isko' == 3141)
		replace `varlist'=0420 if (`isko' == 3142)
		replace `varlist'=0410 if (`isko' == 3143)
		replace `varlist'=3590 if (`isko' == 3144)
		replace `varlist'=3590 if (`isko' == 3145)
		replace `varlist'=3102 if (`isko' == 3150)
		replace `varlist'=5890 if (`isko' == 3151)
		replace `varlist'=9499 if (`isko' == 3152)
		replace `varlist'=0700 if (`isko' == 3200)
		replace `varlist'=0540 if (`isko' == 3210)
		replace `varlist'=0540 if (`isko' == 3211)
		replace `varlist'=0541 if (`isko' == 3212)
		replace `varlist'=0531 if (`isko' == 3213)
		replace `varlist'=0790 if (`isko' == 3220)
		replace `varlist'=0620 if (`isko' == 3221)
		replace `varlist'=0793 if (`isko' == 3222)
		replace `varlist'=0690 if (`isko' == 3223)
		replace `varlist'=0750 if (`isko' == 3224)
		replace `varlist'=0640 if (`isko' == 3225)
		replace `varlist'=0760 if (`isko' == 3226)
		replace `varlist'=0660 if (`isko' == 3227)
		replace `varlist'=0680 if (`isko' == 3228)
		replace `varlist'=0790 if (`isko' == 3229)
		replace `varlist'=0720 if (`isko' == 3230)
		replace `varlist'=0720 if (`isko' == 3231)
		replace `varlist'=0740 if (`isko' == 3232)
		replace `varlist'=0792 if (`isko' == 3240)
		replace `varlist'=0792 if (`isko' == 3241)
		replace `varlist'=1491 if (`isko' == 3242)
		replace `varlist'=1393 if (`isko' == 3300)
		replace `varlist'=1391 if (`isko' == 3310)
		replace `varlist'=1993 if (`isko' == 3320)
		replace `varlist'=1393 if (`isko' == 3330)
		replace `varlist'=1994 if (`isko' == 3340)
		replace `varlist'=1990 if (`isko' == 3400)
		replace `varlist'=4400 if (`isko' == 3410)
		replace `varlist'=4410 if (`isko' == 3411)
		replace `varlist'=4419 if (`isko' == 3412)
		replace `varlist'=4411 if (`isko' == 3413)
		replace `varlist'=1990 if (`isko' == 3414)
		replace `varlist'=4300 if (`isko' == 3415)
		replace `varlist'=4220 if (`isko' == 3416)
		replace `varlist'=4430 if (`isko' == 3417)
		replace `varlist'=3390 if (`isko' == 3419)
		replace `varlist'=4400 if (`isko' == 3420)
		replace `varlist'=4410 if (`isko' == 3422)
		replace `varlist'=4104 if (`isko' == 3421)
		replace `varlist'=4108 if (`isko' == 3423)
		replace `varlist'=4420 if (`isko' == 3429)
		replace `varlist'=3300 if (`isko' == 3430)
		replace `varlist'=3210 if (`isko' == 3431)
		replace `varlist'=3932 if (`isko' == 3432)
		replace `varlist'=3310 if (`isko' == 3433)
		replace `varlist'=0840 if (`isko' == 3434)
		replace `varlist'=3211 if (`isko' == 3439)
		replace `varlist'=3100 if (`isko' == 3440)
		replace `varlist'=3103 if (`isko' == 3441)
		replace `varlist'=3104 if (`isko' == 3442)
		replace `varlist'=3109 if (`isko' == 3443)
		replace `varlist'=3102 if (`isko' == 3444)
		replace `varlist'=3100 if (`isko' == 3449)
		replace `varlist'=5820 if (`isko' == 3450)
		replace `varlist'=5820 if (`isko' == 3451)
		replace `varlist'=5832 if (`isko' == 3452)
		replace `varlist'=1930 if (`isko' == 3460)
		replace `varlist'=1700 if (`isko' == 3470)
		replace `varlist'=1620 if (`isko' == 3471)
		replace `varlist'=1790 if (`isko' == 3472)
		replace `varlist'=1712 if (`isko' == 3473)
		replace `varlist'=1750 if (`isko' == 3474)
		replace `varlist'=1800 if (`isko' == 3475)
		replace `varlist'=1490 if (`isko' == 3480)
		replace `varlist'=3000 if (`isko' == 4000)
		replace `varlist'=3930 if (`isko' == 4100)
		replace `varlist'=3200 if (`isko' == 4110)
		replace `varlist'=3210 if (`isko' == 4111)
		replace `varlist'=3219 if (`isko' == 4112)
		replace `varlist'=3220 if (`isko' == 4113)
		replace `varlist'=3410 if (`isko' == 4114)
		replace `varlist'=3211 if (`isko' == 4115)
		replace `varlist'=3390 if (`isko' == 4120)
		replace `varlist'=3399 if (`isko' == 4121)
		replace `varlist'=3391 if (`isko' == 4122)
		replace `varlist'=3920 if (`isko' == 4130)
		replace `varlist'=3910 if (`isko' == 4131)
		replace `varlist'=3920 if (`isko' == 4132)
		replace `varlist'=3911 if (`isko' == 4133)
		replace `varlist'=3950 if (`isko' == 4140)
		replace `varlist'=3950 if (`isko' == 4141)
		replace `varlist'=3709 if (`isko' == 4142)
		replace `varlist'=3999 if (`isko' == 4143)
		replace `varlist'=3930 if (`isko' == 4144)
		replace `varlist'=3990 if (`isko' == 4190)
		replace `varlist'=3310 if (`isko' == 4200)
		replace `varlist'=3310 if (`isko' == 4210)
		replace `varlist'=3311 if (`isko' == 4211)
		replace `varlist'=3313 if (`isko' == 4212)
		replace `varlist'=5997 if (`isko' == 4213)
		replace `varlist'=4900 if (`isko' == 4214)
		replace `varlist'=3391 if (`isko' == 4215)
		replace `varlist'=3940 if (`isko' == 4220)
		replace `varlist'=3943 if (`isko' == 4221)
		replace `varlist'=3949 if (`isko' == 4222)
		replace `varlist'=3809 if (`isko' == 4223)
		replace `varlist'=5990 if (`isko' == 5000)
		replace `varlist'=5900 if (`isko' == 5100)
		replace `varlist'=5996 if (`isko' == 5111)
		replace `varlist'=3600 if (`isko' == 5112)
		replace `varlist'=5910 if (`isko' == 5113)
		replace `varlist'=3600 if (`isko' == 5110)
		replace `varlist'=5300 if (`isko' == 5120)
		replace `varlist'=5201 if (`isko' == 5121)
		replace `varlist'=5310 if (`isko' == 5122)
		replace `varlist'=5320 if (`isko' == 5123)
		replace `varlist'=5400 if (`isko' == 5130)
		replace `varlist'=5401 if (`isko' == 5131)
		replace `varlist'=5999 if (`isko' == 5132)
		replace `varlist'=5409 if (`isko' == 5133)
		replace `varlist'=5990 if (`isko' == 5139)
		replace `varlist'=5990 if (`isko' == 5140)
		replace `varlist'=5700 if (`isko' == 5141)
		replace `varlist'=5409 if (`isko' == 5142)
		replace `varlist'=5920 if (`isko' == 5143)
		replace `varlist'=5990 if (`isko' == 5149)
		replace `varlist'=1991 if (`isko' == 5150)
		replace `varlist'=1991 if (`isko' == 5151)
		replace `varlist'=1991 if (`isko' == 5152)
		replace `varlist'=5800 if (`isko' == 5160)
		replace `varlist'=5810 if (`isko' == 5161)
		replace `varlist'=5829 if (`isko' == 5162)
		replace `varlist'=5891 if (`isko' == 5163)
		replace `varlist'=5833 if (`isko' == 5164)
		replace `varlist'=5890 if (`isko' == 5169)
		replace `varlist'=4500 if (`isko' == 5200)
		replace `varlist'=4513 if (`isko' == 5210)
		replace `varlist'=4510 if (`isko' == 5220)
		replace `varlist'=4529 if (`isko' == 5230)
		replace `varlist'=6220 if (`isko' == 6000)
		replace `varlist'=6220 if (`isko' == 6100)
		replace `varlist'=6220 if (`isko' == 6110)
		replace `varlist'=6220 if (`isko' == 6111)
		replace `varlist'=6230 if (`isko' == 6112)
		replace `varlist'=6270 if (`isko' == 6113)
		replace `varlist'=6110 if (`isko' == 6114)
		replace `varlist'=6240 if (`isko' == 6120)
		replace `varlist'=6240 if (`isko' == 6121)
		replace `varlist'=6260 if (`isko' == 6122)
		replace `varlist'=6290 if (`isko' == 6123)
		replace `varlist'=6240 if (`isko' == 6124)
		replace `varlist'=6240 if (`isko' == 6129)
		replace `varlist'=6100 if (`isko' == 6130)
		replace `varlist'=6119 if (`isko' == 6131)
		replace `varlist'=6119 if (`isko' == 6133)
		replace `varlist'=6300 if (`isko' == 6140)
		replace `varlist'=6310 if (`isko' == 6141)
		replace `varlist'=7491 if (`isko' == 6142)
		replace `varlist'=6400 if (`isko' == 6150)
		replace `varlist'=6490 if (`isko' == 6151)
		replace `varlist'=6410 if (`isko' == 6152)
		replace `varlist'=6410 if (`isko' == 6153)
		replace `varlist'=6491 if (`isko' == 6154)
		replace `varlist'=6290 if (`isko' == 6200)
		replace `varlist'=6290 if (`isko' == 6210)
		replace `varlist'=9950 if (`isko' == 7000)
		replace `varlist'=9500 if (`isko' == 7100)
		replace `varlist'=7100 if (`isko' == 7110)
		replace `varlist'=7110 if (`isko' == 7111)
		replace `varlist'=7110 if (`isko' == 7112)
		replace `varlist'=8200 if (`isko' == 7113)
		replace `varlist'=9500 if (`isko' == 7120)
		replace `varlist'=9590 if (`isko' == 7121)
		replace `varlist'=9510 if (`isko' == 7122)
		replace `varlist'=9520 if (`isko' == 7123)
		replace `varlist'=9540 if (`isko' == 7124)
		replace `varlist'=9590 if (`isko' == 7129)
		replace `varlist'=9500 if (`isko' == 7130)
		replace `varlist'=9530 if (`isko' == 7131)
		replace `varlist'=9540 if (`isko' == 7132)
		replace `varlist'=9550 if (`isko' == 7133)
		replace `varlist'=9560 if (`isko' == 7134)
		replace `varlist'=9570 if (`isko' == 7135)
		replace `varlist'=8710 if (`isko' == 7136)
		replace `varlist'=8550 if (`isko' == 7137)
		replace `varlist'=9300 if (`isko' == 7140)
		replace `varlist'=9310 if (`isko' == 7141)
		replace `varlist'=9390 if (`isko' == 7142)
		replace `varlist'=5520 if (`isko' == 7143)
		replace `varlist'=7250 if (`isko' == 7200)
		replace `varlist'=7200 if (`isko' == 7210)
		replace `varlist'=7250 if (`isko' == 7211)
		replace `varlist'=8720 if (`isko' == 7212)
		replace `varlist'=8730 if (`isko' == 7213)
		replace `varlist'=8740 if (`isko' == 7214)
		replace `varlist'=9720 if (`isko' == 7215)
		replace `varlist'=9594 if (`isko' == 7216)
		replace `varlist'=8300 if (`isko' == 7220)
		replace `varlist'=8310 if (`isko' == 7221)
		replace `varlist'=8320 if (`isko' == 7222)
		replace `varlist'=8330 if (`isko' == 7223)
		replace `varlist'=8350 if (`isko' == 7224)
		replace `varlist'=8400 if (`isko' == 7230)
		replace `varlist'=8410 if (`isko' == 7231)
		replace `varlist'=8440 if (`isko' == 7232)
		replace `varlist'=8490 if (`isko' == 7233)
		replace `varlist'=8500 if (`isko' == 7240)
		replace `varlist'=8510 if (`isko' == 7241)
		replace `varlist'=8520 if (`isko' == 7242)
		replace `varlist'=8540 if (`isko' == 7243)
		replace `varlist'=8560 if (`isko' == 7244)
		replace `varlist'=8570 if (`isko' == 7245)
		replace `varlist'=8420 if (`isko' == 7300)
		replace `varlist'=8420 if (`isko' == 7310)
		replace `varlist'=8420 if (`isko' == 7311)
		replace `varlist'=9410 if (`isko' == 7312)
		replace `varlist'=8800 if (`isko' == 7313)
		replace `varlist'=8900 if (`isko' == 7320)
		replace `varlist'=8920 if (`isko' == 7321)
		replace `varlist'=8910 if (`isko' == 7322)
		replace `varlist'=8940 if (`isko' == 7323)
		replace `varlist'=8950 if (`isko' == 7324)
		replace `varlist'=9420 if (`isko' == 7330)
		replace `varlist'=9420 if (`isko' == 7331)
		replace `varlist'=9420 if (`isko' == 7332)
		replace `varlist'=9200 if (`isko' == 7340)
		replace `varlist'=9210 if (`isko' == 7341)
		replace `varlist'=9230 if (`isko' == 7342)
		replace `varlist'=9240 if (`isko' == 7343)
		replace `varlist'=9270 if (`isko' == 7344)
		replace `varlist'=9260 if (`isko' == 7345)
		replace `varlist'=9290 if (`isko' == 7346)
		replace `varlist'=9950 if (`isko' == 7400)
		replace `varlist'=7700 if (`isko' == 7410)
		replace `varlist'=7730 if (`isko' == 7411)
		replace `varlist'=7760 if (`isko' == 7412)
		replace `varlist'=7750 if (`isko' == 7413)
		replace `varlist'=7740 if (`isko' == 7414)
		replace `varlist'=7790 if (`isko' == 7415)
		replace `varlist'=7800 if (`isko' == 7416)
		replace `varlist'=8100 if (`isko' == 7420)
		replace `varlist'=7310 if (`isko' == 7421)
		replace `varlist'=8110 if (`isko' == 7422)
		replace `varlist'=8120 if (`isko' == 7423)
		replace `varlist'=9420 if (`isko' == 7424)
		replace `varlist'=7500 if (`isko' == 7430)
		replace `varlist'=7510 if (`isko' == 7431)
		replace `varlist'=7540 if (`isko' == 7432)
		replace `varlist'=7900 if (`isko' == 7433)
		replace `varlist'=7920 if (`isko' == 7434)
		replace `varlist'=7940 if (`isko' == 7435)
		replace `varlist'=7950 if (`isko' == 7436)
		replace `varlist'=7960 if (`isko' == 7437)
		replace `varlist'=7600 if (`isko' == 7440)
		replace `varlist'=7610 if (`isko' == 7441)
		replace `varlist'=8000 if (`isko' == 7442)
		replace `varlist'=9950 if (`isko' == 7500)
		replace `varlist'=7009 if (`isko' == 7510)
		replace `varlist'=9971 if (`isko' == 7530)
		replace `varlist'=8490 if (`isko' == 8000)
		replace `varlist'=9690 if (`isko' == 8100)
		replace `varlist'=9690 if (`isko' == 8110)
		replace `varlist'=7110 if (`isko' == 8111)
		replace `varlist'=7120 if (`isko' == 8112)
		replace `varlist'=7130 if (`isko' == 8113)
		replace `varlist'=7200 if (`isko' == 8120)
		replace `varlist'=7210 if (`isko' == 8121)
		replace `varlist'=7220 if (`isko' == 8122)
		replace `varlist'=7260 if (`isko' == 8123)
		replace `varlist'=7270 if (`isko' == 8124)
		replace `varlist'=8930 if (`isko' == 8130)
		replace `varlist'=8930 if (`isko' == 8131)
		replace `varlist'=8990 if (`isko' == 8139)
		replace `varlist'=7300 if (`isko' == 8140)
		replace `varlist'=7320 if (`isko' == 8141)
		replace `varlist'=7330 if (`isko' == 8142)
		replace `varlist'=7340 if (`isko' == 8143)
		replace `varlist'=7400 if (`isko' == 8150)
		replace `varlist'=7410 if (`isko' == 8151)
		replace `varlist'=7420 if (`isko' == 8152)
		replace `varlist'=7430 if (`isko' == 8153)
		replace `varlist'=7440 if (`isko' == 8154)
		replace `varlist'=7450 if (`isko' == 8155)
		replace `varlist'=7490 if (`isko' == 8159)
		replace `varlist'=9600 if (`isko' == 8160)
		replace `varlist'=9610 if (`isko' == 8161)
		replace `varlist'=9690 if (`isko' == 8162)
		replace `varlist'=9690 if (`isko' == 8163)
		replace `varlist'=8530 if (`isko' == 8170)
		replace `varlist'=8530 if (`isko' == 8171)
		replace `varlist'=0390 if (`isko' == 8172)
		replace `varlist'=8340 if (`isko' == 8200)
		replace `varlist'=8340 if (`isko' == 8210)
		replace `varlist'=8340 if (`isko' == 8211)
		replace `varlist'=9430 if (`isko' == 8212)
		replace `varlist'=7440 if (`isko' == 8220)
		replace `varlist'=7440 if (`isko' == 8221)
		replace `varlist'=7440 if (`isko' == 8222)
		replace `varlist'=7290 if (`isko' == 8223)
		replace `varlist'=9270 if (`isko' == 8224)
		replace `varlist'=7490 if (`isko' == 8229)
		replace `varlist'=9000 if (`isko' == 8230)
		replace `varlist'=9010 if (`isko' == 8231)
		replace `varlist'=9010 if (`isko' == 8232)
		replace `varlist'=8120 if (`isko' == 8240)
		replace `varlist'=9210 if (`isko' == 8250)
		replace `varlist'=9220 if (`isko' == 8251)
		replace `varlist'=9260 if (`isko' == 8252)
		replace `varlist'=9100 if (`isko' == 8253)
		replace `varlist'=7590 if (`isko' == 8260)
		replace `varlist'=7510 if (`isko' == 8261)
		replace `varlist'=7530 if (`isko' == 8262)
		replace `varlist'=7950 if (`isko' == 8263)
		replace `varlist'=7560 if (`isko' == 8264)
		replace `varlist'=7610 if (`isko' == 8265)
		replace `varlist'=8010 if (`isko' == 8266)
		replace `varlist'=7930 if (`isko' == 8269)
		replace `varlist'=7790 if (`isko' == 8270)
		replace `varlist'=7790 if (`isko' == 8271)
		replace `varlist'=7750 if (`isko' == 8272)
		replace `varlist'=7710 if (`isko' == 8273)
		replace `varlist'=7760 if (`isko' == 8274)
		replace `varlist'=7740 if (`isko' == 8275)
		replace `varlist'=7720 if (`isko' == 8276)
		replace `varlist'=7770 if (`isko' == 8277)
		replace `varlist'=7780 if (`isko' == 8278)
		replace `varlist'=7890 if (`isko' == 8279)
		replace `varlist'=8410 if (`isko' == 8280)
		replace `varlist'=8493 if (`isko' == 8281)
		replace `varlist'=8530 if (`isko' == 8282)
		replace `varlist'=8430 if (`isko' == 8283)
		replace `varlist'=8493 if (`isko' == 8284)
		replace `varlist'=8190 if (`isko' == 8285)
		replace `varlist'=9100 if (`isko' == 8286)
		replace `varlist'=9970 if (`isko' == 8290)
		replace `varlist'=9970 if (`isko' == 8300)
		replace `varlist'=9830 if (`isko' == 8310)
		replace `varlist'=9839 if (`isko' == 8311)
		replace `varlist'=9840 if (`isko' == 8312)
		replace `varlist'=9850 if (`isko' == 8320)
		replace `varlist'=9850 if (`isko' == 8321)
		replace `varlist'=9859 if (`isko' == 8322)
		replace `varlist'=9851 if (`isko' == 8323)
		replace `varlist'=9852 if (`isko' == 8324)
		replace `varlist'=6280 if (`isko' == 8330)
		replace `varlist'=6280 if (`isko' == 8331)
		replace `varlist'=9740 if (`isko' == 8332)
		replace `varlist'=9730 if (`isko' == 8333)
		replace `varlist'=9790 if (`isko' == 8334)
		replace `varlist'=9810 if (`isko' == 8340)
		replace `varlist'=9990 if (`isko' == 9000)
		replace `varlist'=4520 if (`isko' == 9100)
		replace `varlist'=4520 if (`isko' == 9110)
		replace `varlist'=4521 if (`isko' == 9111)
		replace `varlist'=4521 if (`isko' == 9112)
		replace `varlist'=4521 if (`isko' == 9113)
		replace `varlist'=5995 if (`isko' == 9120)
		replace `varlist'=5400 if (`isko' == 9130)
		replace `varlist'=5400 if (`isko' == 9131)
		replace `varlist'=5520 if (`isko' == 9132)
		replace `varlist'=5600 if (`isko' == 9133)
		replace `varlist'=5500 if (`isko' == 9140)
		replace `varlist'=5510 if (`isko' == 9141)
		replace `varlist'=5520 if (`isko' == 9142)
		replace `varlist'=3700 if (`isko' == 9150)
		replace `varlist'=9713 if (`isko' == 9151)
		replace `varlist'=5994 if (`isko' == 9152)
		replace `varlist'=3993 if (`isko' == 9153)
		replace `varlist'=9990 if (`isko' == 9160)
		replace `varlist'=9996 if (`isko' == 9161)
		replace `varlist'=9995 if (`isko' == 9162)
		replace `varlist'=6290 if (`isko' == 9200)
		replace `varlist'=6290 if (`isko' == 9210)
		replace `varlist'=6210 if (`isko' == 9211)
		replace `varlist'=6230 if (`isko' == 9212)
		replace `varlist'=6490 if (`isko' == 9213)
		replace `varlist'=9990 if (`isko' == 9300)
		replace `varlist'=9990 if (`isko' == 9310)
		replace `varlist'=9990 if (`isko' == 9311)
		replace `varlist'=9994 if (`isko' == 9312)
		replace `varlist'=9595 if (`isko' == 9313)
		replace `varlist'=9990 if (`isko' == 9320)
		replace `varlist'=9979 if (`isko' == 9321)
		replace `varlist'=9714 if (`isko' == 9322)
		replace `varlist'=9710 if (`isko' == 9330)
		replace `varlist'=9899 if (`isko' == 9331)
		replace `varlist'=9860 if (`isko' == 9332)
		replace `varlist'=9710 if (`isko' == 9333)
	}
end