TITLE SSM1975B. /**** SSM75 B HYOU OCCUPATIONAL PRESTIGE SURVEY BY MURASE *****/ /***** Version4.0 19961209 *****/ /***** 1975職業威信 問4に職業名ラベル追加版 *****/ /***** このプログラムは自由に配布してかまいません *****/ /***** ただし、バグを見つけたら修正版を出すのでご注意 *****/ SET LENGTH=NONE /LOG=OFF /BOXSTRING='-|+'. DATA LIST FILE='C:\Ssm75b.dat' NOTABLE RECORDS 4 FIXED /CITYA 1-2 CITYB 3 AREA 4-6 B01 9-10 B0201 TO B0220 B0301 TO B0320 B0401 TO B0428 11-78 /B0429 TO B0482 B0501 TO B0510 9-72 /B06A01 TO B06A20 B06B01 TO B06B20 B06C01 TO B06C20 B07A B07B B08A1 TO B08A4 B08B B09 9-76 B10A 77-78 B10B 79 /B11A 9 B11C B11E B11F 10-15 B11G 16 B11D 17-19 B12A B12B 20-23. COMPUTE JOB8=B11D. RECODE JOB8 (1 THRU 45,101,102,108=1) (46 THRU 54,100=2) (55 THRU 63,109 THRU 112,263 THRU 268,281,285=3) (64 THRU 75,277 THRU 279,283,284=4) (115 THRU 120,124 THRU 126,130,131,137 THRU 148, 160 THRU 162,171 THRU 176,182 THRU 186, 191 THRU 193,196 THRU 198,201 THRU 206, 211,220 THRU 227,230 THRU 234,236 THRU 239, 241 THRU 247,249,251,252,254,272,273,276=5) (97 THRU 99,103 THRU 107,113,114,121 THRU 123, 127 THRU 129,132 THRU 136,149 THRU 159, 163 THRU 170,177 THRU 181,187 THRU 190,194,195, 199,200,207 THRU 210,212 THRU 219,235,240,248, 250,253,255,275,294=6) (89 THRU 96,228,229,256 THRU 262,269 THRU 271,274, 280,282,286,287,288=7) (76 THRU 88=8) (289,291,986,987,988,998,999=9). COMPUTE JOBY=99. COMPUTE JOBA=B11A. COMPUTE JOBD=B11F. COMPUTE JOBE=JOB8. IF (JOBE EQ 6 OR JOBE EQ 7) JOBY=11. IF ((JOBY EQ 11) AND (JOBD EQ 7)) JOBY=9. IF ((JOBY EQ 11) AND (JOBD EQ 8)) JOBY=9. IF (JOBE EQ 5) JOBY=10. IF ((JOBY EQ 10) AND (JOBD EQ 7)) JOBY=8. IF ((JOBY EQ 10) AND (JOBD EQ 8)) JOBY=8. IF (JOBE EQ 4) JOBY=7. IF (JOBE EQ 3) JOBY=6. IF ((JOBY EQ 6 OR JOBY EQ 7) AND (JOBD EQ 7)) JOBY=5. IF ((JOBY EQ 6 OR JOBY EQ 7) AND (JOBD EQ 8)) JOBY=5. IF (JOBA EQ 3 OR JOBA EQ 4 OR JOBA EQ 5) JOBY=2. IF ((JOBY EQ 2) AND (JOBE GE 1 AND JOBE LE 4)) JOBY=1. IF ((JOBY EQ 1 OR JOBY EQ 2) AND (JOBD EQ 6)) JOBY=4. IF ((JOBY EQ 1 OR JOBY EQ 2) AND (JOBD EQ 7)) JOBY=4. IF (JOBE EQ 2) JOBY=4. IF ((JOBY EQ 4) AND (JOBD EQ 1 OR JOBD EQ 2)) JOBY=1. IF (JOBE EQ 1) JOBY=3. IF (JOBE EQ 8) JOBY=12. IF (B11D EQ 986) JOBY=96. IF (B11D EQ 988) JOBY=98. IF (B11D EQ 998) JOBY=88. COMPUTE JOBZ=B11D. RECODE JOBZ (1,2,8,9,10=62.7)(11,12=54.6)(13,14=82.7)(15=65.4) (16 THRU 20=52.8)(21=61.3)(22=87.3)(23=70.3)(25=50.5) (26,27,28=62.9)(29=83.5)(30,31=62.9)(32=58.7)(33=70.1) (34=64.6)(35=65.8)(36,37=56.3)(38=65.8)(39,40=58.2) (41=61.3)(42=50.5)(43=62.9)(44,45=50.5)(101=74.8) (102=74.9)(108=57.3). RECODE JOBZ (46=70.5)(47=81.1)(48=70.5)(49=73.3)(50,51=70.5) (52,53=60.4)(54=60.9)(100=74.8). RECODE JOBZ (55=51.6)(56=49.4)(57=44.6)(58,59=32.7)(60=44.6) (61,62,63=47.4)(109=57.3)(110=42.2)(111=39.8)(112=57.3) (263,264,265=54.2)(266,267=32.4)(268=54.2)(281=31.4) (285=35.2). RECODE JOBZ (64=48.9)(65=52.5)(66=48.9)(67=35.5)(68,69=28.1) (70,71=42.3)(72=35.4)(73=42.3)(74=40.2)(75=35.5) (278,279,283=31.7)(284=35.2). RECODE JOBZ (115 THRU 120,124,125,126=37.3)(130,131=40.2) (130 THRU 148=42.6)(160,161,162=42.9)(171=42.6)(172=45.3) (173 THRU 176=39.5)(182 THRU 186=37.6)(191,192,193=32.6) (196,197=37.3)(198=32.6)(201=39.5)(202=32.6)(203=34.2) (204,205,206=36.7)(211=34.2)(220,221=45.3) (222 THRU 227,230=39.8)(231 THRU 234=40.6) (236 THRU 239=41.3)(241 THRU 247=42.6)(249=37.3) (251,252,254=50.9)(276=40.7). RECODE JOBZ (97,98=51.8)(99=40.6)(103,104,105=40.7)(106=48.1) (107=40.7)(113,114,121,122,123,127,128,129=37.3) (132 THRU 136=40.2)(149 THRU 159,163 THRU 170=32.6) (177 THRU 181,187 THRU 190,194=32.6)(195=37.3) (199,200=32.6)(207 THRU 210,212 THRU 216=34.2) (217,218,219=46.8)(235=41.3)(240=34.2)(248,250=37.3) (253=27.2)(255,275=32.6). RECODE JOBZ (89 THRU 96=28.1)(228,229=26.7)(256 THRU 262=27.2) (269,270,271,274=31.4)(280=31.7)(282=27.2)(286=31.4) (287=27.2)(288=31.7). RECODE JOBZ (76=39.9)(77=37.3)(78,79,80=29.6)(81=23.4)(82=42.6) (83=29.6)(84=35.9)(85=57.3)(86,87,88=35.9). RECODE JOBZ (3 THRU 7=61.0)(24=73.0)(277=32.0)(272,273=45.0) (289 THRU 999=999). COMPUTE HONJOB8=JOB8. COMPUTE SOGOJ=JOBY. COMPUTE GEN=JOBZ. RECODE JOBY(6,7=6)(8,9=7)(10,11=8)(12=9). COMPUTE SOGOJK=JOBY. COMPUTE EDU=B10A. RECODE EDU (1=6)(2=8)(3=11)(4=14)(5=17)(12=9)(13=12)(14=14)(15=16)(0,20,30=99). COMPUTE NENREI=B01. COMPUTE ZINON =0. IF (SOGOJ=1) ZINON =1. COMPUTE ZIMANU=0. IF (SOGOJ=2) ZIMANU=1. COMPUTE SENMON=0. IF (SOGOJ=3) SENMON=1. COMPUTE KANRI =0. IF (SOGOJ=4) KANRI =1. COMPUTE DAIW =0. IF (SOGOJ=5) DAIW =1. COMPUTE TYUZIMU =0. IF (SOGOJ=6) TYUZIMU =1. COMPUTE TYUHAN =0. IF (SOGOJ=7) TYUHAN =1. COMPUTE DAIZYUKU=0. IF (SOGOJ=8) DAIZYUKU=1. COMPUTE DAIHIZYU=0. IF (SOGOJ=9) DAIHIZYU=1. COMPUTE TYUZYUKU=0. IF (SOGOJ=10) TYUZYUKU=1. COMPUTE TYUHIZYU=0. IF (SOGOJ=11) TYUHIZYU=1. COMPUTE NOGYO =0. IF (SOGOJ=12) NOGYO =1. COMPUTE MUSYOKU =0. IF (SOGOJ=96) MUSYOKU =1. COMPUTE GAKUSEI =0. IF (SOGOJ=98) GAKUSEI =1. COMPUTE ZINON2 =0. IF (SOGOJk=1) ZINON2 =1. COMPUTE ZIMANU2=0. IF (SOGOJk=2) ZIMANU2=1. COMPUTE SENMON2=0. IF (SOGOJk=3) SENMON2=1. COMPUTE KANRI2 =0. IF (SOGOJk=4) KANRI2 =1. COMPUTE DAIW2 =0. IF (SOGOJk=5) DAIW2 =1. COMPUTE TYUW2 =0. IF (SOGOJk=6) TYUW2 =1. COMPUTE DAIB2 =0. IF (SOGOJk=7) DAIB2 =1. COMPUTE TYUB2 =0. IF (SOGOJk=8 ) TYUB2 =1. COMPUTE NOGYO2 =0. IF (SOGOJk=9 ) NOGYO2 =1. COMPUTE MUSYOKU2=0. IF (SOGOJk=96) MUSYOKU2=1. COMPUTE GAKUSEI2=0. IF (SOGOJk=98) GAKUSEI2=1. COMPUTE SETAISYU=B12A. RECODE SETAISYU (1=12.5) (2=50) (3=100) (4=150) (5=200) (6=250) (7=300) (8=350) (9=400) (10=450)(11=500)(12=550)(13=600)(14=650) (15=700)(16=750)(17=800)(18=850)(19=900)(20=950)(21=1000) (22 THRU 97 =1050). COMPUTE KOZINSYU=B12B. RECODE KOZINSYU (1=12.5)(2=50) (3=100) (4=150) (5=200) (6=250) (7=300) (8=350) (9=400) (10=450)(11=500)(12=550)(13=600)(14=650) (15=700)(16=750)(17=800)(18=850)(19=900)(20=950)(21=1000) (22 THRU 97 =1050). MISSING VALUES B0201 TO B0220, B0301 TO B0320,B0401 TO B0482, B0501 TO B0510,B07A,B07B,B08A1 TO B08A4,B08B,B09(9). MISSING VALUES GEN(999)/EDU(99)/B12A,B12B,SETAISYU,KOZINSYU(98,99). COMPUTE LGSETAI = LG10(SETAISYU) . EXECUTE . COMPUTE LGKOZIN = LG10(KOZINSYU) . EXECUTE . RECODE B0401 TO B0482(1=100)(2=75)(3=50)(4=25)(5=0). RECODE B0201 TO B0320(1=100)(2=75)(3=50)(4=25)(5=0). COMPUTE N0501=5-B0501. COMPUTE N0502=5-B0502. COMPUTE N0503=5-B0503. COMPUTE N0504=5-B0504. COMPUTE N0505=5-B0505. COMPUTE N0506=5-B0506. COMPUTE N0507=5-B0507. COMPUTE N0508=5-B0508. COMPUTE N0509=5-B0509. COMPUTE N0510=5-B0510. COMPUTE KIKYOIKU=5-B0501. COMPUTE KIGINOU =5-B0502. COMPUTE KISEKINI=5-B0503. COMPUTE KISYUNYU=5-B0504. COMPUTE KISEKEN =5-B0505. COMPUTE KIKOKEN =5-B0506. COMPUTE KIEIKYO =5-B0507. COMPUTE KISOZO =5-B0508. COMPUTE KIZIRITU=5-B0509. COMPUTE KIKAKKO =5-B0510. COMPUTE GSYAKA =KISEKINI+KISEKEN+KIKOKEN+KIEIKYO. COMPUTE GSENMON =KIGINOU+KISOZO+KIZIRITU. VARIABL LABELS SOGOJ '総合職業分類' /JOBY, SOGOJK '総合職業簡略版' /JOB8 '職業8分類' /GEN '現職威信スコア' /EDU '本人学歴' /B0201 '旋盤工 ' /B0301 '旋盤工 ' /B0202 '大会社の企画・営業担当社員' /B0302 '大会社の企画・営業担当社員' /B0203 '医 師 ' /B0303 '医 師 ' /B0204 '大 工 ' /B0304 '大 工 ' /B0205 '中小企業の経営者 ' /B0305 '中小企業の経営者 ' /B0206 'セールスマン ' /B0306 'セールスマン ' /B0207 'レストランのコック ' /B0307 'レストランのコック ' /B0208 '自動車修理工 ' /B0308 '自動車修理工 ' /B0209 '工場や現場の監督者 ' /B0309 '工場や現場の監督者 ' /B0210 'デザイナー ' /B0310 'デザイナー ' /B0211 '警 官 ' /B0311 '警 官 ' /B0212 '高級官僚 ' /B0312 '高級官僚 ' /B0213 '小学校の教諭(先生)' /B0313 '小学校の教諭(先生)' /B0214 '理容師 ' /B0314 '理容師 ' /B0215 '自作農 ' /B0315 '自作農 ' /B0216 '印刷工 ' /B0316 '印刷工 ' /B0217 '自動車運転手 ' /B0317 '自動車運転手 ' /B0218 '小売店主 ' /B0318 '小売店主 ' /B0219 '機械工業技術者 ' /B0319 '機械工業技術者 ' /B0220 '新聞記者 ' /B0320 '新聞記者 ' /B0401 '大会社の社長 ' /B0402 '旋盤工 ' /B0403 '左 官 ' /B0404 '電気工事人 ' /B0405 '行商人 ' /B0406 '大 工 ' /B0407 'タイピスト ' /B0408 'ウェイトレス ' /B0409 '炭焼夫 ' /B0410 '大会社の企画・営業担当社員' /B0411 'レストランのコック ' /B0412 '医 師 ' /B0413 '化学薬品製造工 ' /B0414 '中小企業の経営者 ' /B0415 'プログラマー ' /B0416 'スチュワーデス ' /B0417 '薬剤師 ' /B0418 '質 屋 ' /B0419 '看護婦 ' /B0420 '石工職 ' /B0421 'パイロット   ' /B0422 'セールスマン ' /B0423 '採炭夫 ' /B0424 '大学教授 ' /B0425 '新聞記者 ' /B0426 'レントゲン技師 ' /B0427 '自動車修理工 ' /B0428 '旅館の番頭 ' /B0429 '漁業者(漁師) ' /B0430 '鉄道の駅員 ' /B0431 '列車ボーイ ' /B0432 '郵便配達人 ' /B0433 '保 母 ' /B0434 '漁船の船長 ' /B0435 '集金人 ' /B0436 '小作農 ' /B0437 '工場や現場の監督者 ' /B0438 'デザイナー ' /B0439 '警 官 ' /B0440 '食品かんづめ工 ' /B0441 '中小企業の課長 ' /B0442 '高級官僚 ' /B0443 '大型船の船長 ' /B0444 '小学校の教諭(先生)' /B0445 '理容師 ' /B0446 '守 衛 ' /B0447 'プロスポーツ家 ' /B0448 '音楽家 ' /B0449 '自作農 ' /B0450 '印刷工 ' /B0451 '電話交換手 ' /B0452 '紡績工 ' /B0453 '作 家 ' /B0454 '裁判官 ' /B0455 '自動車運転手 ' /B0456 '船舶機関員 ' /B0457 '無線通信士 ' /B0458 '小中学校の校長 ' /B0459 '商店の店員 ' /B0460 '製図工 ' /B0461 '車 掌 ' /B0462 '会計事務員 ' /B0463 'パン製造工 ' /B0464 '寺の住職 ' /B0465 '小売店主 ' /B0466 '国会議員 ' /B0467 '道路工夫 ' /B0468 '市役所の課長 ' /B0469 '運搬人 ' /B0470 '洋服仕立職 ' /B0471 '指物師 ' /B0472 '機械工業技術者 ' /B0473 '保険の勧誘員 ' /B0474 '大会社の課長 ' /B0475 '公認会計士 ' /B0476 '電気機関士 ' /B0477 '大工見習 ' /B0478 'テレビ組立工 ' /B0479 '中小企業の一般事務員' /B0480 '司法書士 ' /B0481 '卸売店主 ' /B0482 '土木建築技術者 ' . VALUE LABELS B0401 TO B0482 100 '最も高い' 75 'やや高い' 50 'ふつう' 25 'やや低い' 0 '最も低い' 9 'わからない' /SOGOJ 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大W' 6 '中小事務' 7 '中小販売' 8 '大熟練' 9 '大非熟練' 10 '中小熟練' 11 '中小非熟練' 12 '農業' 96 '無職' 98 '学生' /JOBY,SOGOJK 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大W' 6 '中小W' 7 '大B' 8 '中小B' 9 '農業' 96 '無職' 98 '学生' .