/*SHORT TITLE: see pages 13, 29, 138 of codebook */
set width 80.
Comment This recode the Enhanced International Classification
of Occupations (ISCO) into the International Socio-
Economic Index of Occupational Status. The procedure is
documented in: Ganzeboom, De Graaf & Treiman, "A Standard
Socio-Economic Index of Occupational Status", Paper,
University of California at Los Angeles, revised version,
December 1990.
Last Revised: December 16 1990
RECODE ISCO ISCO1 SISCO FISCO MISCO
(0100=62)(0110=73)(0120=79)(0130 thru 0139=79)(0140=47)
(0200=71)(0210=77)(0220=73)(0230=69)(0240=68)(0250=73)
(0260=70)(0270=65)(0280=65)(0290=76)(0300=53)(0310=58)
(0320 thru 0329=53)(0330 thru 0339=50)(0340=48)(0350=52)
(0360=57)(0370=56)(0380=56)(0390=56)(0400=59)
(0410 thru 0419=71)(0420 thru 0429=53)(0430=53)(0500=65)
(0510=77)(0520 thru 0529=77)(0530 thru 0539=77)(0540=52)
(0541=59)(0549=49)(0600=85)(0610 thru 0619=88)(0630=86)
(0650=84)(0670=81)(0680=52)(0700=49)(0710 THRU 0719=42)
(0720=39)(0730=51)(0740=39)(0750=58)(0751=58)
(0759 THRU 0769=58)(0770=58)
(0780=52)(0620=52)(0640=52)(0660=52)(0670=52)(0690=52)
(0790 THRU 0799=58)(0800=67)(0810=71)(0820=71)(0830=71)
(0840 thru 0849=64)(0900=80)(1100=69)(1101=75)(1109=68)
(1200=85)(1210 THRU 1219=85)(1220 THRU 1229=90)
(1290 THRU 1299=82)
(1300=71)(1310 thru 1319=78)(1320 thru 1329=71)(1330=69)
(1340=65)(1350=65)(1390 thru 1399=65)(1400=55)
(1410 thru 1419=55)(1490 thru 1499=55)(1500=66)
(1510 thru 1519=66)(1590 thru 1599=66)(1600=55)(1610=57)
(1620=55)(1621=60)(1622,1629=44)(1630 thru 1639=50)(1700=59)
(1710 thru 1719=54)(1720 thru 1729=64)(1730 thru 1739=64)
(1740 thru 1749=64)(1750=54)(1790 thru 1799=64)
(1800 thru 1809=55)(1900=65)(1910=59)(1920 thru 1929=72)
(1930 thru 1939=54)(1940 thru 1949=59)(1950 thru 1959=54)
(1960=82)(1990 thru 1999=61)(2000=72)(2010 thru 2019=72)
(2020 thru 2029=73)(2030 thru 2039=72)(2033=81)(2035=60)
(2100=67)(2110=66)(2111,2114,2115=69)(2112,2113=65)(2116=47)
(2119=69)(2120=67)(2190=67)(2191=65)(2192,2193=67)
(2195,2196,2197=59)
(2199,2194=67)(3000 thru 3009=60)(3100=58)(3102,3103=48)
(3104=53)(3101,3109=59)(3200=54)(3210=55)(3211=58)(3219=48)
(3220=48)(3300=54)(3310=54)(3312=58)(3311,3313,3314=47)
(3315=46)(3319=56)(3390 thru 3399=44)(3400=51)(3410=50)
(3420=54)(3500=49)(3510=56)(3520=56)(3590=48)
(3600 thru 3609=37)(3700=36)(3701=34)(3709=37)(3800=43)
(3801,3802=63)(3809=43)(3900=48)(3910 thru 3919=35)(3920=45)
(3930 THRU 3939=58)(3940 THRU 3949=51)(3950 THRU 3959=51)
(3990 THRU 3993=45)(4000 THRU 4009=54)(4100=53)
(4101,4104,4105,4108=64)(4102,4107=35)(4103=52)(4106=60)
(4109=47)(4200=54)(4210=57)(4220 thru 4229=52)(4300=58)
(4310 thru 4319=55)(4320=58)(4400=59)(4410=59)(4411=61)
(4412=64)(4419=58)(4420=60)(4430 THRU 4439=56)(4500=42)
(4510=45)(4512=17)(4513,4514=41)(4511,4519=46)
(4520 THRU 4524=35)(4529=35)(4900=35)(5000 THRU 5009=41)
(5100=48)
(5101,5102,5103,5104=48)(5109=49)(5200 THRU 5209=33)
(5300=29)(5310=27)
(5311,5319=30)(5312=10)(5320=30)(5321,5322=28)(5329=32)
(5400 thru 5409=24)(5500=25)(5510 thru 5519=26)
(5520 thru 5529=22)(5600=24)(5700 thru 5709=32)(5800=48)
(5810=44)(5820=54)(5821,5822=75)(5823,5829=53)(5830=60)
(5831=83)(5832,5833=58)(5890 thru 5899=35)(5900=40)(5910=39)
(5920=58)(5990=39)(5991,5997=44)(5992,5993,5994,5995,5998=37)
(5996=34)(5999=28)(6000=46)(6001=32)(6009=49)(6100=26)
(6110=26)(6111=49)(6112=18)(6113,6114,6115=27)(6116,6119=26)
(6120=29)(6200=17)(6210 thru 6219,6117=16)(6220=16)
(6230 thru 6239=16)(6240=20)(6250=20)(6260=20)(6270=21)
(6280=28)(6290 thru 6299=10)(6300=25)(6310 thru 6319=19)
(6320 thru 6329=32)(6400=30)(6410 thru 6419=30)
(6490 thru 6499=32)(7000 thru 7009=44)(7100=32)(7110=32)
(7112=29)(7111,7113,7119=32)(7120=26)(7130 thru 7139=31)
(7200=34)(7210=34)(7220=31)(7230=31)(7240=31)(7250=34)
(7260=34)(7270=34)(7280=34)(7290=37)(7300=26)(7310=24)
(7320,7321,7329=24)(7330=36)(7340=36)(7400=36)(7410=36)(7420=36)
(7430=36)(7440=36)(7450=36)(7491=29)(7490,7499=36)(7500=34)
(7510=35)(7520=35)(7530=30)(7540 thru 7549=34)(7550=31)
(7560=31)(7590=37)(7600=32)(7610=32)(7620=32)(7700=32)
(7710 thru 7719=22)(7720=22)(7730 thru 7739=32)(7740=28)
(7750=33)(7760 THRU 7769=33)(7770=33)(7780=33)(7789=36)
(7790 thru 7799=36)(7800=37)(7810=37)(7820=37)(7830=37)
(7890,7899=37)(7900=40)(7910,7919=46)(7920=43)(7930=43)(7940=43)
(7950,7911=23)(7960=30)(7990=37)(8000=33)(8010=33)(8020=32)
(8030=32)(8100=35)(8110=36)(8120=32)(8190 thru 8199=32)
(8200=29)(8300=40)(8310=37)(8311=34)(8319=45)(8320=41)
(8321=44)(8329=41)(8330=36)(8331=39)(8339=35)(8340=39)
(8350 THRU 8359=28)(8390=43)(8400=35)(8410 THRU 8419=36)
(8420 thru 8429=39)(8430,8439=31)(8431=52)(8440=44)(8490=36)
(8491,8492,8494=26)(8493=28)(8499=37)(8500=41)(8510=39)
(8520=41)(8530=40)(8540=43)(8550 thru 8559=40)(8560=43)
(8570=41)(8590=46)(8600=46)(8610=46)(8620=46)(8700=35)
(8710 thru 8719=36)(8720=33)(8730=36)(8731=32)(8732=37)
(8733=41)(8739=37)(8740=33)(8800 thru 8809=43)(8900=29)
(8910 thru 8919=33)(8920=27)(8930=25)(8940=25)(8950=25)
(8990=25)(9000=33)(9010=33)(9020=33)(9100=34)(9200=42)
(9210 thru 9219=41)(9220=41)(9230=43)(9240=43)(9250=43)
(9260=39)(9270=43)(9290=46)(9300=32)(9310 thru 9319=32)
(9390=30)(9400=29)(9410=29)(9420=29)(9430=29)(9490=29)
(9491 thru 9493=29)(9499=39)(9500=32)(9510=32)(9520=29)
(9530=22)(9540 thru 9549=31)(9550 thru 9559=33)(9560=36)
(9570=30)(9590=31)(9591,9592,9593,9594,9596,9599=39)(9595=24)
(9600=33)(9610=34)(9690=33)(9700=31)(9710=31)(9711=32)
(9712,9713=21)(9714=27)(9719=34)(9720=28)(9730 thru 9739=29)
(9740=30)(9790=30)(9800=36)(9810 thru 9839=36)(9820=36)
(9830 thru 9839=45)(9840=35)(9850=37)(9851=33)
(9852,9853,9855=37)(9854=18)(9859=33)(9860,9861,9869=20)
(9890 thru 9899=35)(9900=25)(9950 thru 9959=43)
(9970 thru 9979=28)(9990=23)(9991=24)(9994=28)(9995,9996=26)
(9997=28)(9992,9993,9999=22) (ELSE=-98)
INTO ISEI
ISEI1 SISEI FISEI MISEI
formats ISEI ISEI1 SISEI FISEI MISEI (F3.0)