/*SHORT TITLE:  see pages 13, 29, 138 of codebook */
set width 80.

COMMENT RECODE OF TREIMANS STANDARD INTERNATIONAL OCCUPATIONAL
        PRESTIGE SCALE FOR ISCO
 
        LAST REVISED: DECEMBER 16 1990
 
 
RECODE ISCO ISCO1 SISCO FISCO MISCO
  (400=59)(2193=63)(4319=51)(6119=47)(6291=5)
  (100=66)(110=69)(120=76)(130=72)(131=67)(132=71)(133=49)
  (139=78)(140=46)(200=56)(210=72)(220=70)(230=65)(240=66)
  (250=66)(260=60)(270=63)(280=54)(290=55)(300=56)(310=58)
  (320=55)(321=26)(329=55)(330=39)(339=39)(340=46)(350=46)
  (360=46)(370=46)(380=54)(390=46)(400=59)(410=66)(411=80)(419=66)
  (420=50)(421=36)(429=63)(430=60)(500=61)(510=69)(520=68)
  (521=56)(529=79)(530=56)(531=55)(539=58)(540=52)(541=47)
  (549=58)(600=60)(610=78)(611=80)(619=78)(620=50)(630=70)
  (640=44)(650=61)(660=48)(670=64)(680=44)(690=52)(700=50)
  (710=54)(711=58)(719=54)(720=44)(730=46)(740=42)(750=60)
  (751=57)(759=62)(760=51)(761=57)(762=30)(769=67)(770=58)
  (790=50)(791=62)(792=29)(793=48)(799=62)(800=56)(810=55)
  (820=69)(830=51)(840=51)(849=51)(900=60)(1100=62)(1101=68)
  (1109=55)(1200=73)(1210=73)(1211=75)(1219=71)(1220=76)
  (1221=82)(1222=73)(1229=78)(1290=71)(1291=52)(1299=71)
  (1300=61)(1310=78)(1311=86)(1319=78)(1320=60)(1321=57)
  (1329=64)(1330=57)(1340=49)(1350=62)(1390=62)(1391=66)
  (1392=68)(1393=50)(1394=72)(1399=57)(1400=46)(1410=54)
  (1411=83)(1412=46)(1413=50)(1414=49)(1415=56)(1416=61)
  (1419=60)(1490=39)(1491=22)(1499=56)(1500=58)(1510=62)
  (1511=35)(1519=62)(1590=56)(1591=65)(1592=47)(1593=57)
  (1599=55)(1600=51)(1610=57)(1620=49)(1621=56)(1622=38)
  (1629=54)(1630=46)(1631=47)(1639=45)(1700=48)(1710=45)
  (1711=38)(1712=32)(1713=53)(1719=56)(1720=40)(1721=36)
  (1729=45)(1730=57)(1731=63)(1732=62)(1739=52)(1740=68)
  (1749=68)(1750=33)(1790=42)(1791=33)(1799=50)(1800=49)
  (1801=50)(1809=48)(1900=57)(1910=54)(1920=68)(1921=66)
  (1922=69)(1923=67)(1924=69)(1929=67)(1930=52)(1931=49)
  (1939=56)(1940=56)(1941=55)(1949=58)(1950=62)(1951=69)
  (1959=54)(1990=51)(1991=37)(1992=54)(1993=49)(1994=53)
  (1995=57)(1999=58)(2000=64)(2010=63)(2011=82)(2012=66)
  (2013=75)(2014=68)(2015=42)(2019=90)(2020=64)(2021=85)
  (2022=72)(2023=66)(2024=55)(2029=86)(2030=66)(2031=87)
  (2032=73)(2033=71)(2034=74)(2035=63)(2036=50)(2039=79)
  (2100=63)(2110=65)(2111=70)(2112=63)(2113=52)(2114=67)
  (2115=76)(2116=53)(2119=75)(2120=64)(2190=60)(2191=52)
  (2192=60)(2194=67)(2195=63)(2196=50)(2197=63)(2199=58)
  (3000=55)(3100=55)(3101=54)(3102=61)(3103=44)(3104=52)
  (3109=66)(3200=46)(3210=48)(3211=53)(3219=42)(3220=45)
  (3300=38)(3310=41)(3311=31)(3312=65)(3313=48)(3314=39)
  (3315=36)(3319=49)(3390=34)(3391=27)(3399=42)(3400=49)(3410=45)
  (3420=53)(3500=50)(3510=56)(3520=58)(3590=37)(3600=32)
  (3601=26)(3602=30)(3609=39)(3700=30)(3701=26)(3709=33)
  (3800=44)(3801=45)(3802=49)(3809=38)(3900=38)(3910=30)
  (3911=29)(3919=32)(3920=44)(3930=44)(3931=44)(3932=59)
  (3939=43)(3940=34)(3941=37)(3942=23)(3943=43)(3944=27)
  (3949=38)(3950=36)(3951=31)(3959=41)(3990=37)(3991=41)
  (3992=48)(3993=21)(4000=45)(4001=38)(4002=49)
  (4009=47)(4100=48)(4101=58)(4102=38)(4103=44)(4104=55)
  (4105=40)(4106=58)(4107=09)(4108=49)(4109=42)(4200=49)(4210=52)
  (4220=46)(4221=51)(4222=39)(4229=49)(4300=46)(4310=46)
  (4311=42)(4319=51)(4320=47)(4400=46)(4410=50)(4411=49)
  (4412=56)(4419=44)(4420=42)(4430=45)(4431=48)(4432=49)
  (4439=39)(4500=28)(4510=32)(4511=36)(4512=25)(4513=36)
  (4514=28)(4519=34)(4520=24)(4521=22)(4522=26)(4523=14)
  (4524=24)(4525=06)(4529=36)(4900=15)(5000=40)(5001=53)(5002=47)
  (5009=32)(5100=37)(5101=35)(5102=46)(5103=22)(5104=33)
  (5109=48)(5200=37)(5201=28)(5209=46)(5300=26)(5310=31)
  (5311=38)(5312=22)(5319=31)(5320=21)(5321=23)(5322=16)
  (5329=23)(5400=22)(5401=23)(5402=14)(5403=33)(5409=17)
  (5500=22)(5510=25)(5511=24)(5512=30)(5519=21)(5520=20)
  (5521=19)(5522=25)(5529=16)(5600=22)(5700=32)(5701=37)
  (5702=35)(5703=45)(5709=30)(5800=35)(5810=35)(5820=40)
  (5821=60)(5822=75)(5823=52)(5829=40)(5830=42)(5831=63)
  (5832=44)(5833=39)(5890=30)(5891=39)(5892=47)(5899=22)
  (5900=31)(5910=29)(5920=34)(5990=29)(5991=20)(5992=24)
  (5993=14)(5994=27)(5995=12)(5996=50)(5997=34)(5998=41)
  (5999=42)(6000=48)(6001=41)(6009=54)(6100=40)(6110=40)
  (6111=63)(6112=38)(6113=30)(6114=32)(6115=35)(6116=39)
  (6117=34)(6119=47)(6120=55)(6200=22)(6210=20)(6211=18)
  (6219=23)(6220=21)(6230=21)(6239=21)(6240=26)(6250=23)
  (6260=21)(6270=21)(6280=31)(6290=14)(6291=05)(6299=30)
  (6300=24)(6310=18)(6311=18)(6319=19)(6320=42)(6321=38)
  (6322=40)(6329=48)(6400=28)(6410=32)(6411=37)(6419=28)
  (6490=23)(6491=06)(6499=40)(7000=46)(7001=52)(7009=39)
  (7100=32)(7110=34)(7111=36)(7112=24)(7113=44)(7119=32)
  (7120=32)(7130=31)(7139=31)(7200=38)(7210=45)(7220=36)
  (7230=38)(7240=33)(7250=38)(7260=38)(7270=38)(7280=28)
  (7290=38)(7300=29)(7310=29)(7320=30)(7321=31)
  (7329=30)(7330=28)(7340=28)(7400=40)(7410=43)(7420=43)
  (7430=43)(7440=43)(7450=37)(7490=30)(7491=16)(7499=43)
  (7500=29)(7510=29)(7520=34)(7530=30)(7540=32)(7541=33)
  (7549=30)(7550=29)(7560=25)(7590=26)(7600=22)(7610=22)
  (7620=22)(7700=34)(7710=33)(7711=42)(7719=33)(7720=45)
  (7730=24)(7731=18)(7732=45)(7739=31)(7740=35)(7750=34)
  (7760=33)(7761=48)(7769=33)(7770=34)(7780=34)(7789=06)(7790=34)
  (7799=34)(7800=34)(7810=34)(7820=28)(7830=34)(7890=39)
  (7899=39)(7900=34)(7910=40)(7911=39)(7919=40)(7920=35)
  (7930=32)(7940=41)(7950=26)(7960=31)(7990=34)(8000=26)
  (8010=28)(8020=28)(8030=22)(8100=36)(8110=40)(8120=36)
  (8190=31)(8191=34)(8199=28)(8200=38)(8300=36)(8310=35)
  (8311=36)(8319=34)(8320=40)(8321=39)(8329=40)(8330=38)
  (8331=37)(8339=40)(8340=38)(8350=27)(8351=35)(8359=19)
  (8390=40)(8400=43)(8410=42)(8411=42)(8412=40)(8419=43)
  (8420=47)(8421=42)(8422=60)(8429=40)(8430=44)(8431=47)
  (8439=43)(8440=50)(8490=30)(8491=28)(8492=31)(8493=30)
  (8494=18)(8499=43)(8500=41)(8510=38)(8520=48)(8530=48)
  (8540=42)(8550=44)(8551=48)(8559=44)(8560=35)(8570=36)
  (8590=40)(8600=44)(8610=53)(8620=34)(8700=38)(8710=34)
  (8711=45)(8719=34)(8720=39)(8730=34)(8731=32)(8732=31)
  (8733=36)(8739=36)(8740=44)(8800=43)(8801=57)(8809=43)
  (8900=31)(8910=37)(8911=33)(8919=41)(8920=25)(8930=31)
  (8940=31)(8950=31)(8990=31)(9000=30)(9010=30)(9020=30)
  (9100=28)(9200=41)(9210=42)(9211=51)(9219=42)(9220=41)
  (9230=41)(9240=41)(9250=46)(9260=32)(9270=36)(9290=52)
  (9300=30)(9310=31)(9311=39)(9319=31)(9390=29)(9400=31)
  (9410=33)(9420=21)(9430=30)(9490=41)(9491=33)(9492=50)
  (9493=23)(9499=39)(9500=31)(9510=34)(9520=34)(9530=31)
  (9540=37)(9541=48)(9542=23)(9549=37)(9550=31)(9551=39)
  (9559=31)(9560=28)(9570=26)(9590=28)(9591=38)(9592=28)
  (9593=46)(9594=26)(9595=15)(9596=36)(9599=24)(9600=38)
  (9610=42)(9690=34)(9700=22)(9710=20)(9711=20)(9712=17)
  (9713=18)(9714=22)(9719=21)(9720=32)(9730=32)(9731=25)
  (9739=39)(9740=32)(9790=28)(9800=28)(9810=29)(9811=23)
  (9819=35)(9820=25)(9830=34)(9831=33)(9832=27)(9839=43)
  (9840=29)(9850=31)(9851=32)(9852=33)(9853=39)(9854=15)
  (9855=41)(9859=28)(9860=22)(9861=26)(9869=18)(9890=24)
  (9891=30)(9899=17)(9900=32)(9950=46)(9951=50)(9959=42)
  (9970=33)(9971=37)(9979=29)(9990=18)(9991=18)(9992=8)
  (9993=20)(9994=33)(9995=13)(9996=13)(9997=20)(9999=19)
  (10000=42)(10001=63)(10002=44)(10003=39)(10009=73)
  (11000,12000=-98)
  (ELSE=-98)
  INTO SIOPS SIOPS1 SSIOPS FSIOPS MSIOPS

formats SIOPS SIOPS1 SSIOPS FSIOPS MSIOPS (F3.0)