/**** SSM95 A B GAPPEI data Hara sensei yori *****/ /***** 村瀬　職業小分類　専門職修正版 Version3.0 19971229 *****/ /***** エリクソンらの職業分類　追加版 Version4.1 20011115 *****/ /***** 父学歴カテゴリー、年代、地域性別変数追加 Ver5.0 20080614 *****/ /***** Ｂ票の調査票の問番号を見れば内容は分かる *****/ /***** ただし、問13はＡ票問22を参照せよ *****/ /***** データファイルのあるフォルダ名を適当に書き換えて使用してください *****/ SET LENGTH=NONE /LOG=OFF /BOXSTRING='-|+'. DATA LIST FILE='C:\Documents and Settings\yourname\My Documents\SSM95T.DAT' NOTABLE RECORDS=3 FIXED / IDT 1-3 IDP 4-5 ABP 6 Q1S1 9 Q1S2Y 10-11 Q1S2M 12-13 Q1S2A 14-15 Q2A 16-17 Q2B 18-19 Q2C 20-21 Q301 22 Q302 23 Q303 24 Q304 25 Q305 26 Q306 27 Q307 28 Q308 29 Q309 30 Q310 31 Q311 32 Q312 33 Q313 34 Q314 35 Q315 36 Q4A 37-38 Q4C 39-40 Q4D 41-42 Q4E 43-45 Q4F 46 Q5A 47-48 Q5C 49-50 Q5D 51-52 Q5E 53-55 Q5F 56 Q61 57-58 Q62 59 Q7PREF 60-61 Q7CITY 62-64 Q81 65 Q82 66 Q83 67 Q84 68 Q9 69-71 Q10 72-73 / Q11A 9-10 Q11C 11-12 Q11D 13-14 Q11E 15-17 Q11F 18 Q12 19-20 Q13S1 21 Q13S2A 22 Q13S2C 23-24 Q13S2D 25-26 Q13S2E 27-29 Q13S2F 30 Q14 31 Q15 32-33 Q16 34-35 Q17 36 Q17A 37-38 Q17C 39-40 Q17D 41-42 Q17E 43-45 Q17F 46 Q18 47-48 Q19S1 49-50 Q19S2 51-52 Q19S3 53-54 Q20S11 55 Q20S12 56 Q20S13 57 Q20S14 58 Q20S15 59 Q20S16 60 Q20S17 61 Q20S18 62 Q20S19 63 Q20S21 64 Q20S22 65 Q20S23 66 Q20S24 67 Q20S25 68 Q20S26 69 Q21S1 70-71 / Q21S201 9 Q21S202 10 Q21S203 11 Q21S204 12 Q21S205 13 Q21S206 14 Q21S207 15 Q21S208 16 Q21S209 17 Q21S210 18 Q21S211 19 Q21S212 20 Q21S213 21 Q21S214 22 Q21S215 23 Q21S216 24 Q21S217 25 Q21S218 26 Q21S220 27 Q21S221 28 Q21S222 29 Q21S223 30 Q21S224 31 Q21S225 32 Q2301 33 Q2302 34 Q2303 35 Q2304 36 Q2305 37 Q2306 38 Q2307 39 Q2308 40 Q2309 41 Q2310 42 Q2311 43 Q2312 44 Q2313 45 Q2314 46 Q2315 47 Q24 48 Q26S1 49 Q28A 50 Q28B 51 Q29S1 52 Q33A 53 Q33B 54 Q35A 55 Q35B 56 Q35C 57 Q35D 58 Q35E 59 Q35F 60 Q37 61 Q41S1 62 Q41S2 63 Q44S1 64-65 Q44S2 66-67 Q44S3 68-69. /***** 職業小分類　管理職一部修正　　コードブックP114 19971229 *****/ COMPUTE CKANRI=1. IF ( (500 < Q4E) AND (Q4E < 554) ) CKANRI=0. IF ( (592 < Q4E) AND (Q4E < 599) ) CKANRI=0. IF ( Q4E = 608 ) CKANRI=0. IF ( (688 < Q4E) AND (Q4E <1000) ) CKANRI=0. COMPUTE CKANRI2=0. IF ( (CKANRI=1) AND (Q4D>4) AND (Q4D<10) ) CKANRI2=1. IF ( (CKANRI=1) AND (Q4D=10)) CKANRI2=2. IF ( (CKANRI2=1) AND ((Q4F=4) OR (Q4F=5)) ) Q4E=550. IF ( (CKANRI2=1) AND ( Q4F=6 ) ) Q4E=548. IF ( (CKANRI2=2) AND ((Q4F>3) AND (Q4F<7)) ) Q4E=545. COMPUTE CKANSYO=1. IF ( (500 < Q5E) AND (Q5E < 554) ) CKANSYO=0. IF ( (592 < Q5E) AND (Q5E < 599) ) CKANSYO=0. IF ( Q5E = 608 ) CKANSYO=0. IF ( (688 < Q5E) AND (Q5E <1000) ) CKANSYO=0. COMPUTE CKANSYO2=0. IF ( (CKANSYO=1) AND (Q5D>4) AND (Q5D<10) ) CKANSYO2=1. IF ( (CKANSYO=1) AND (Q5D=10)) CKANSYO2=2. IF ( (CKANSYO2=1) AND ((Q5F=4) OR (Q5F=5)) ) Q5E=550. IF ( (CKANSYO2=1) AND ( Q5F=6 ) ) Q5E=548. IF ( (CKANSYO2=2) AND ((Q5F>3) AND (Q5F<7)) ) Q5E=545. COMPUTE CKANFAT=1. IF ( (500 < Q11E) AND (Q11E < 554) ) CKANFAT=0. IF ( (592 < Q11E) AND (Q11E < 599) ) CKANFAT=0. IF ( Q11E = 608 ) CKANFAT=0. IF ( (688 < Q11E) AND (Q11E <1000) ) CKANFAT=0. COMPUTE CKANFAT2=0. IF ( (CKANFAT=1) AND (Q11D>4) AND (Q11D<10) ) CKANFAT2=1. IF ( (CKANFAT=1) AND (Q11D=10)) CKANFAT2=2. IF ( (CKANFAT2=1) AND ((Q11F=4) OR (Q11F=5)) ) Q11E=550. IF ( (CKANFAT2=1) AND ( Q11F=6 ) ) Q11E=548. IF ( (CKANFAT2=2) AND ((Q11F>3) AND (Q11F<7)) ) Q11E=545. COMPUTE CKANMOT=1. IF ( (500 < Q13S2E) AND (Q13S2E < 554) ) CKANMOT=0. IF ( (592 < Q13S2E) AND (Q13S2E < 599) ) CKANMOT=0. IF ( Q13S2E = 608 ) CKANMOT=0. IF ( (688 < Q13S2E) AND (Q13S2E <1000) ) CKANMOT=0. COMPUTE CKANMOT2=0. IF ( (CKANMOT=1) AND (Q13S2D>4) AND (Q13S2D<10) ) CKANMOT2=1. IF ( (CKANMOT=1) AND (Q13S2D=10)) CKANMOT2=2. IF ( (CKANMOT2=1) AND ((Q13S2F=4) OR (Q13S2F=5)) ) Q13S2E=550. IF ( (CKANMOT2=1) AND ( Q13S2F=6 ) ) Q13S2E=548. IF ( (CKANMOT2=2) AND ((Q13S2F>3) AND (Q13S2F<7)) ) Q13S2E=545. COMPUTE CKANSPO=1. IF ( (500 < Q17E) AND (Q17E < 554) ) CKANSPO=0. IF ( (592 < Q17E) AND (Q17E < 599) ) CKANSPO=0. IF ( Q17E = 608 ) CKANSPO=0. IF ( (688 < Q17E) AND (Q17E <1000) ) CKANSPO=0. COMPUTE CKANSPO2=0. IF ( (CKANSPO=1) AND (Q17D>4) AND (Q17D<10) ) CKANSPO2=1. IF ( (CKANSPO=1) AND (Q17D=10)) CKANSPO2=2. IF ( (CKANSPO2=1) AND ((Q17F=4) OR (Q17F=5)) ) Q17E=550. IF ( (CKANSPO2=1) AND ( Q17F=6 ) ) Q17E=548. IF ( (CKANSPO2=2) AND ((Q17F>3) AND (Q17F<7)) ) Q17E=545. /***** SSM SYOKUGYO ISIN SCORE 75NENBAN 19970627 *****/ COMPUTE GEN=Q4E. COMPUTE SYO=Q5E. COMPUTE JOBF=Q11E. COMPUTE JOBM=Q13S2E. COMPUTE JOBS=Q17E. RECODE GEN,SYO,JOBF,JOBM,JOBS (501,502=62.7)(503=61.0)(504,505=62.7)(506,507=54.6) (508,509=82.7)(510=65.4)(511 thru 515=52.8)(516=61.3) (517=87.3)(518=70.3)(519=73.0)(520=50.5)(521 thru 523=62.9) (524=83.5)(525,526=62.9)(527=58.7)(528=70.1)(529=64.6) (530=65.8)(531,532=56.3)(533=65.8)(534,535=58.2)(536=61.3) (537=50.5)(538=62.9)(539 thru 544=50.5). RECODE GEN,SYO,JOBF,JOBM,JOBS (545=70.5)(546=81.1)(547=70.5)(548=73.3)(549=70.5)(550=60.9) (551,552=60.4)(553=60.9)(554 thru 558=51.6)(559=49.4)(560=44.6) (561,562=32.7)(563=44.6)(564,565=47.4) (566=48.9)(567=52.5)(568=48.9)(569=35.5)(570,571=28.1) (572,573=42.3)(574=35.4)(575=42.3)(576=40.2)(577=35.5) (578=31.4)(579=45.0)(580=32.6)(581=40.7)(582=32.0)(583=31.7) (584=60.5)(585=31.7)(586=31.4)(587,588=31.7)(589,590=35.2) (591,592=31.7). RECODE GEN,SYO,JOBF,JOBM,JOBS (593 thru 595=54.2)(596,597=32.4)(598=54.2) (599=39.9)(600=42.6)(601=37.3)(602,603=29.6)(604=35.9)(605=57.3) (606=51.8)(607=40.6)(608,609=74.8)(610=74.9)(611,612=40.7) (613=44.4)(614=40.7)(615,616=57.3)(617=42.2)(618=39.8) (619=57.3)(620 thru 622=28.1) (623=37.3)(624=39.5)(625,626=32.6)(627,628=37.3)(629=46.8) (630 thru 632=37.3)(633,634=40.2)(635 thru 642=42.6). RECODE GEN,SYO,JOBF,JOBM,JOBS (643,645 thru 647=34.2)(644=36.7)(648 thru 650=32.6)(651=42.9) (652,653=32.6)(654=42.6)(655=45.3)(656=39.5)(657=32.6) (658=37.6)(659,660=32.6)(661 thru 666=42.6)(667 thru 669=37.3) (670,671=50.9)(672=32.6)(673 thru 675=40.6)(676,677=41.3) (678,679=45.3)(680,681=39.8)(682,683=26.7)(684=39.8) (685 thru 688=27.2)(689 thru 999=999). /***** SSM SYOKUGYO ISIN SCORE 95NENBAN 19970508 *****/ COMPUTE GEN95=Q4E. COMPUTE SYO95=Q5E. COMPUTE JOBF95=Q11E. COMPUTE JOBM95=Q13S2E. COMPUTE JOBS95=Q17E. RECODE GEN95,SYO95,JOBF95,JOBM95,JOBS95 (501 THRU 502=72.0)(503=66.3)(504 THRU 505=72.0) (506 THRU 507=66.3)(508 THRU 509=90.1)(510=65.7)(511 THRU 516=59.7) (517=86.9)(518 THRU 519=70.8)(520=58.3)(521 THRU 523=63.6)(524=84.3) (525=63.6)(526=58.3)(527=60.3)(528=66.6)(529=52.2)(530=66.6) (531 THRU 532=64.6)(533=66.6)(534 THRU 535=69.0)(536=65.7)(537=52.9) (538=59.7)(539=58.3)(540 THRU 541=70.8)(542=70.0)(543 THRU 544=63.6) (545=67.2)(546=74.9)(547=67.2)(548=78.1)(549=67.2)(550=59.7) (551 THRU 552=56.9)(553=56.1)(554=52.2)(555 THRU 556=48.2) (557 THRU 558=52.2)(559=52.9)(560=47.8)(561 THRU 562=42.4)(563=47.8) (564 THRU 565=48.2)(566=51.3)(567=52.9)(568=51.3)(569 THRU 571=42.4) (572 THRU 573=47.2)(574=44.3)(575=47.2)(576 THRU 577=42.4)(578=38.1) (579=49.7)(580=42.0)(581=51.6)(582 THRU 583=38.1)(584=70.0). RECODE GEN95,SYO95,JOBF95,JOBM95,JOBS95 (585 THRU 586=38.1)(587=48.9)(588=38.1)(589=51.3)(590=39.9) (591=64.6)(592=38.1)(593 THRU 595=57.9)(596 THRU 597=39.9)(598=57.9) (599 THRU 603=45.6)(604 THRU 605=46.5)(606=51.3)(607=48.9) (608 THRU 610=82.5)(611 THRU 613=47.8)(614=39.0)(615 THRU 616=51.3) (617 THRU 618=46.2)(619=51.3)(620 THRU 622=36.7)(623 THRU 624=52.1) (625 THRU 626=44.0)(627 THRU 642=48.9)(643=42.2)(644=44.6) (645 THRU 646=42.2)(647=44.6)(648 THRU 650=42.0)(651=52.1) (652 THRU 653=42.0)(654=52.1)(655=53.1)(656=52.1)(657=42.0) (658=44.0)(659 THRU 660=48.9)(661=44.0)(662 THRU 666=52.1) (667 THRU 669=44.0)(670 THRU 671=52.1)(672=42.0)(673 THRU 675=46.8) (676 THRU 677=50.4)(678 THRU 679=53.1)(680=46.1)(681=53.1) (682 THRU 683=39.0)(684=47.9)(685 THRU 688=39.0)(689 thru 999=999). /***** SYOKUGYO ISIN SCORE97 95nenban kigyo kibo version 19971017 *****/ /***** 本人現職について　新威信スコア作成プログラム *****/ /***** *****/ COMPUTE GEN97 = GEN95. /***** 職従業先規模を、大と中小に分ける *****/ COMPUTE CSCAL=0. IF (Q4D<9 ) CSCAL=1. IF (Q4D=9 OR Q4D=10) CSCAL=2. /***** 従業先規模による威信スコアの差の５グループに分ける *****/ COMPUTE SC97SG=Q4E. RECODE SC97SG(548 THRU 549=1) (550 THRU 553=2)(608=2) (554 THRU 565=3)(586=3) (590=3)(616 THRU 619=3) (566 THRU 577=4)(582 THRU 589=4) (578 THRU 581 = 5) (591 THRU 592 = 5) (606 THRU 607 = 5) (611 THRU 614 = 5) (620 THRU 688 = 5) (501 THRU 545 = 0)(599 THRU 605 = 0)(609 THRU 610 = 0)(615 = 0) (689 THRU 998 = 0)(546 THRU 547 = 0)(593 THRU 598 = 0)(999 = 0). /***** 従業先規模により、威信スコアに差を付ける *****/ IF ( CSCAL = 1 AND SC97SG= 1 ) GEN97 = GEN95 - 9. IF ( CSCAL = 2 AND SC97SG= 1 ) GEN97 = GEN95 + 9. IF ( CSCAL = 1 AND SC97SG= 2 ) GEN97 = GEN95 - (7/2). IF ( CSCAL = 2 AND SC97SG= 2 ) GEN97 = GEN95 + (7/2). IF ( CSCAL = 1 AND SC97SG= 3 ) GEN97 = GEN95 - 5. IF ( CSCAL = 2 AND SC97SG= 3 ) GEN97 = GEN95 + 5. IF ( CSCAL = 1 AND SC97SG= 4 ) GEN97 = GEN95 - 3. IF ( CSCAL = 2 AND SC97SG= 4 ) GEN97 = GEN95 + 3. IF ( CSCAL = 1 AND SC97SG= 5 ) GEN97 = GEN95 - 2. IF ( CSCAL = 2 AND SC97SG= 5 ) GEN97 = GEN95 + 2. /***** 無職などの威信スコアを999 にしているので *****/ /***** 欠損値処理を必ずすること *****/ /***** *****/ MISSING VALUES GEN,SYO,JOBF,JOBM,JOBS, GEN95,SYO95,JOBF95,JOBM95,JOBS95,GEN97(999). /***** 初職、父職、母職、配偶者職業について新威信スコア作成 *****/ /***** *****/ COMPUTE SYO97 = SYO95. COMPUTE JOBF97 = JOBF95. COMPUTE JOBM97 = JOBM95. COMPUTE JOBS97 = JOBS95. /***** 本人初職について *****/ /***** 職従業先規模を、大と中小に分ける *****/ COMPUTE CSCALSYO=0. IF (Q5D<9 ) CSCALSYO=1. IF (Q5D=9 OR Q5D=10) CSCALSYO=2. /***** 従業先規模による威信スコアの差の５グループに分ける *****/ COMPUTE SC97GSYO=Q5E. RECODE SC97GSYO(548 THRU 549=1) (550 THRU 553=2)(608=2) (554 THRU 565=3)(586=3) (590=3)(616 THRU 619=3) (566 THRU 577=4)(582 THRU 589=4) (578 THRU 581 = 5) (591 THRU 592 = 5) (606 THRU 607 = 5) (611 THRU 614 = 5) (620 THRU 688 = 5) (501 THRU 545 = 0)(599 THRU 605 = 0)(609 THRU 610 = 0)(615 = 0) (689 THRU 998 = 0)(546 THRU 547 = 0)(593 THRU 598 = 0)(999 = 0). /***** 従業先規模により、威信スコアに差を付ける *****/ IF ( CSCALSYO = 1 AND SC97GSYO= 1 ) SYO97 = SYO95 - 9. IF ( CSCALSYO = 2 AND SC97GSYO= 1 ) SYO97 = SYO95 + 9. IF ( CSCALSYO = 1 AND SC97GSYO= 2 ) SYO97 = SYO95 - (7/2). IF ( CSCALSYO = 2 AND SC97GSYO= 2 ) SYO97 = SYO95 + (7/2). IF ( CSCALSYO = 1 AND SC97GSYO= 3 ) SYO97 = SYO95 - 5. IF ( CSCALSYO = 2 AND SC97GSYO= 3 ) SYO97 = SYO95 + 5. IF ( CSCALSYO = 1 AND SC97GSYO= 4 ) SYO97 = SYO95 - 3. IF ( CSCALSYO = 2 AND SC97GSYO= 4 ) SYO97 = SYO95 + 3. IF ( CSCALSYO = 1 AND SC97GSYO= 5 ) SYO97 = SYO95 - 2. IF ( CSCALSYO = 2 AND SC97GSYO= 5 ) SYO97 = SYO95 + 2. /***** 父職について *****/ /***** 職従業先規模を、大と中小に分ける *****/ COMPUTE CSCALf=0. IF (Q11D<9 ) CSCALf=1. IF (Q11D=9 OR Q11D=10) CSCALf=2. /***** 従業先規模による威信スコアの差の５グループに分ける *****/ COMPUTE SC97GF=Q11E. RECODE SC97GF(548 THRU 549=1) (550 THRU 553=2)(608=2) (554 THRU 565=3)(586=3) (590=3)(616 THRU 619=3) (566 THRU 577=4)(582 THRU 589=4) (578 THRU 581 = 5) (591 THRU 592 = 5) (606 THRU 607 = 5) (611 THRU 614 = 5) (620 THRU 688 = 5) (501 THRU 545 = 0)(599 THRU 605 = 0)(609 THRU 610 = 0)(615 = 0) (689 THRU 998 = 0)(546 THRU 547 = 0)(593 THRU 598 = 0)(999 = 0). /***** 従業先規模により、威信スコアに差を付ける *****/ IF ( CSCALf = 1 AND SC97GF= 1 ) JOBF97 = JOBF95 - 9. IF ( CSCALf = 2 AND SC97GF= 1 ) JOBF97 = JOBF95 + 9. IF ( CSCALf = 1 AND SC97GF= 2 ) JOBF97 = JOBF95 - (7/2). IF ( CSCALf = 2 AND SC97GF= 2 ) JOBF97 = JOBF95 + (7/2). IF ( CSCALf = 1 AND SC97GF= 3 ) JOBF97 = JOBF95 - 5. IF ( CSCALf = 2 AND SC97GF= 3 ) JOBF97 = JOBF95 + 5. IF ( CSCALf = 1 AND SC97GF= 4 ) JOBF97 = JOBF95 - 3. IF ( CSCALf = 2 AND SC97GF= 4 ) JOBF97 = JOBF95 + 3. IF ( CSCALf = 1 AND SC97GF= 5 ) JOBF97 = JOBF95 - 2. IF ( CSCALf = 2 AND SC97GF= 5 ) JOBF97 = JOBF95 + 2. /***** 母職について *****/ /***** 職従業先規模を、大と中小に分ける *****/ COMPUTE CSCALM=0. IF (Q13S2D<9 ) CSCALM=1. IF (Q13S2D=9 OR Q13S2D=10) CSCALM=2. /***** 従業先規模による威信スコアの差の５グループに分ける *****/ COMPUTE SC97GM=Q13S2E. RECODE SC97GM(548 THRU 549=1) (550 THRU 553=2)(608=2) (554 THRU 565=3)(586=3) (590=3)(616 THRU 619=3) (566 THRU 577=4)(582 THRU 589=4) (578 THRU 581 = 5) (591 THRU 592 = 5) (606 THRU 607 = 5) (611 THRU 614 = 5) (620 THRU 688 = 5) (501 THRU 545 = 0)(599 THRU 605 = 0)(609 THRU 610 = 0)(615 = 0) (689 THRU 998 = 0)(546 THRU 547 = 0)(593 THRU 598 = 0)(999 = 0). /***** 従業先規模により、威信スコアに差を付ける *****/ IF ( CSCALM = 1 AND SC97GM= 1 ) JOBM97 = JOBM95 - 9. IF ( CSCALM = 2 AND SC97GM= 1 ) JOBM97 = JOBM95 + 9. IF ( CSCALM = 1 AND SC97GM= 2 ) JOBM97 = JOBM95 - (7/2). IF ( CSCALM = 2 AND SC97GM= 2 ) JOBM97 = JOBM95 + (7/2). IF ( CSCALM = 1 AND SC97GM= 3 ) JOBM97 = JOBM95 - 5. IF ( CSCALM = 2 AND SC97GM= 3 ) JOBM97 = JOBM95 + 5. IF ( CSCALM = 1 AND SC97GM= 4 ) JOBM97 = JOBM95 - 3. IF ( CSCALM = 2 AND SC97GM= 4 ) JOBM97 = JOBM95 + 3. IF ( CSCALM = 1 AND SC97GM= 5 ) JOBM97 = JOBM95 - 2. IF ( CSCALM = 2 AND SC97GM= 5 ) JOBM97 = JOBM95 + 2. /***** 配偶者職について *****/ /***** 職従業先規模を、大と中小に分ける *****/ COMPUTE CSCALS=0. IF (Q17D<9 ) CSCALS=1. IF (Q17D=9 OR Q17D=10) CSCALS=2. /***** 従業先規模による威信スコアの差の５グループに分ける *****/ COMPUTE SC97GS=Q17E. RECODE SC97GS(548 THRU 549=1) (550 THRU 553=2)(608=2) (554 THRU 565=3)(586=3) (590=3)(616 THRU 619=3) (566 THRU 577=4)(582 THRU 589=4) (578 THRU 581 = 5) (591 THRU 592 = 5) (606 THRU 607 = 5) (611 THRU 614 = 5) (620 THRU 688 = 5) (501 THRU 545 = 0)(599 THRU 605 = 0)(609 THRU 610 = 0)(615 = 0) (689 THRU 998 = 0)(546 THRU 547 = 0)(593 THRU 598 = 0)(999 = 0). /***** 従業先規模により、威信スコアに差を付ける *****/ IF ( CSCALS = 1 AND SC97GS= 1 ) JOBS97 = JOBS95 - 9. IF ( CSCALS = 2 AND SC97GS= 1 ) JOBS97 = JOBS95 + 9. IF ( CSCALS = 1 AND SC97GS= 2 ) JOBS97 = JOBS95 - (7/2). IF ( CSCALS = 2 AND SC97GS= 2 ) JOBS97 = JOBS95 + (7/2). IF ( CSCALS = 1 AND SC97GS= 3 ) JOBS97 = JOBS95 - 5. IF ( CSCALS = 2 AND SC97GS= 3 ) JOBS97 = JOBS95 + 5. IF ( CSCALS = 1 AND SC97GS= 4 ) JOBS97 = JOBS95 - 3. IF ( CSCALS = 2 AND SC97GS= 4 ) JOBS97 = JOBS95 + 3. IF ( CSCALS = 1 AND SC97GS= 5 ) JOBS97 = JOBS95 - 2. IF ( CSCALS = 2 AND SC97GS= 5 ) JOBS97 = JOBS95 + 2. MISSING VALUES SYO97,JOBF97,JOBM97,JOBS97(999). /***** SSM SYOKUGYO 8BUNRUI BY MURASE 19960707 *****/ /***** 9 HA MUSYOKU 10 HA GAKUSEI 11 HA SONOTA *****/ COMPUTE Q4EJOB=Q4E. COMPUTE Q5EJOB=Q5E. COMPUTE Q11EJOB=Q11E. COMPUTE Q13CJOB=Q13S2E. COMPUTE Q17EJOB=Q17E. RECODE Q4EJOB Q5EJOB Q11EJOB Q13CJOB Q17EJOB ( 501 THRU 544 = 1) ( 609 THRU 610 = 1) ( 615 = 1) ( 545 THRU 553 = 2) ( 608 = 2) ( 554 THRU 565 = 3) ( 586 = 3) ( 590 = 3) ( 593 THRU 598 = 3) ( 616 THRU 619 = 3) ( 566 THRU 577 = 4) ( 582 THRU 585 = 4) ( 587 THRU 589 = 4) ( 579 = 5) ( 581 = 5) ( 628 = 5) ( 631 = 5) ( 633 = 5) ( 635 THRU 642 = 5) ( 651 = 5) ( 654 THRU 656 = 5) ( 658 = 5) ( 660 = 5) ( 623 THRU 624 = 5) ( 626 = 5) ( 643 THRU 644 = 5) ( 647 = 5) ( 661 THRU 666 = 5) ( 668 = 5) ( 670 THRU 671 = 5) ( 673 THRU 675 = 5) ( 677 THRU 681 = 5) ( 684 = 5) ( 580 = 6) ( 606 THRU 607 = 6) ( 611 THRU 614 = 6) ( 625 = 6) ( 627 = 6) ( 629 THRU 630 = 6) ( 632 = 6) ( 634 = 6) ( 645 THRU 646 = 6) ( 648 THRU 650 = 6) ( 652 THRU 653 = 6) ( 657 = 6) ( 659 = 6) ( 667 = 6) ( 669 = 6) ( 672 = 6) ( 676 = 6) ( 578 = 7) ( 591 THRU 592 = 7) ( 620 THRU 622 = 7) ( 682 THRU 683 = 7) ( 685 THRU 688 = 7) ( 599 THRU 605 = 8) ( 689 THRU 691, 986= 9) ( 988 THRU 991 =10) ( 987, 998 THRU 999 =99) (ELSE=11). COMPUTE JOB8=Q4EJOB. COMPUTE JOB8hon=Q4EJOB. COMPUTE JOB8fath=Q11EJOB. MISSING VALUES JOB8hon JOB8fath(9, 10, 99). /***** Erikson Goldthorpe Portocarero *****/ /***** 6 category class schema BY MURASE 2001 1115 *****/ COMPUTE Q4EJOB6= Q4EJOB. COMPUTE Q5EJOB6= Q5EJOB. COMPUTE Q11EJOB6=Q11EJOB. COMPUTE Q13CJOB6=Q13CJOB. COMPUTE Q17EJOB6=Q17EJOB. RECODE Q4EJOB6 Q5EJOB6 Q11EJOB6 Q13CJOB6 Q17EJOB6 ( 1 THRU 2 = 1) ( 3 THRU 4 = 2) (8 = 4) (5 = 5) ( 6 THRU 7 = 6) ( 9= 7) (10= 8). IF (Q4A EQ 5 OR Q4A EQ 6) Q4EJOB6=3. IF ((Q4EJOB EQ 2) AND (Q4D < 5) ) Q4EJOB6=3. IF (Q4EJOB EQ 1) Q4EJOB6=1. IF (Q4EJOB EQ 8) Q4EJOB6=4. IF (Q5A EQ 5 OR Q5A EQ 6) Q5EJOB6=3. IF ((Q5EJOB EQ 2) AND (Q5D < 5) ) Q5EJOB6=3. IF (Q5EJOB EQ 1) Q5EJOB6=1. IF (Q5EJOB EQ 8) Q5EJOB6=4. IF (Q11A EQ 5 OR Q11A EQ 6) Q11EJOB6=3. IF ((Q11EJOB EQ 2) AND (Q11D < 5) ) Q11EJOB6=3. IF (Q11EJOB EQ 1) Q11EJOB6=1. IF (Q11EJOB EQ 8) Q11EJOB6=4. IF (Q13S2A EQ 5 OR Q13S2A EQ 6) Q13CJOB6=3. IF ((Q13CJOB EQ 2) AND (Q13S2D <5) ) Q13CJOB6=3. IF (Q13CJOB EQ 1) Q13CJOB6=1. IF (Q13CJOB EQ 8) Q13CJOB6=4. IF (Q17A EQ 5 OR Q17A EQ 6) Q17EJOB6=3. IF ((Q17EJOB EQ 2) AND (Q17D < 5) ) Q17EJOB6=3. IF (Q17EJOB EQ 1) Q17EJOB6=1. IF (Q17EJOB EQ 8) Q17EJOB6=4. COMPUTE JOB6 = Q4EJOB6. COMPUTE JOB6FST= Q5EJOB6. COMPUTE JOB6FAT=Q11EJOB6. COMPUTE JOB6MAT=Q13CJOB6. COMPUTE JOB6SPO=Q17EJOB6. MISSING VALUES JOB6 JOB6FST JOB6FAT JOB6MAT JOB6SPO(7, 8, 99). VALUE LABELS Q4EJOB6 Q5EJOB6 Q11EJOB6 Q13CJOB6 Q17EJOB6 JOB6 JOB6FST JOB6FAT JOB6MAT JOB6SPO 1'profmanag' 2 'nonmanual' 3 'pettybour' 4 'farming' 5 'skilledworkers' 6 'unskilledworkers' 7 'inoccupations' 8 'students'. /***** Erikson Goldthorpe Portocarero *****/ /***** 6 category class schema PLUS manage BY MURASE 2001 1117 *****/ COMPUTE CSCALEQ4= Q4D. MISSING VALUES CSCALEQ4 (98, 99). COMPUTE Q4EJOB7 = Q4EJOB. COMPUTE Q11EJOB7=Q11EJOB. RECODE Q4EJOB7 Q11EJOB7 ( 3 THRU 4 = 3) (8 = 5) (5 = 6) ( 6 THRU 7 = 7) ( 9= 8) (10= 9). *IF ((CSCALEQ4 >4) AND (Q4F =4) ) Q4EJOB7=2. *IF ((CSCALEQ4 >4) AND (Q4F =5) ) Q4EJOB7=2. *IF ((CSCALEQ4 >4) AND (Q4F =6) ) Q4EJOB7=2. IF (Q4A EQ 5 OR Q4A EQ 6) Q4EJOB7=4. IF ((Q4EJOB EQ 2) AND (Q4D < 5) ) Q4EJOB7=4. IF (Q4EJOB EQ 1) Q4EJOB7=1. IF (Q4EJOB EQ 8) Q4EJOB7=5. IF (Q11A EQ 5 OR Q11A EQ 6) Q11EJOB7=4. IF ((Q11EJOB EQ 2) AND (Q11D < 5) ) Q11EJOB7=4. IF (Q11EJOB EQ 1) Q11EJOB7=1. IF (Q11EJOB EQ 8) Q11EJOB7=5. COMPUTE JOB7 = Q4EJOB7. COMPUTE JOB7FAT = Q11EJOB7. MISSING VALUES JOB7 JOB7FAT (8, 9, 99). VALUE LABELS Q4EJOB7 Q11EJOB7 JOB7 JOB7FAT 1 'prof' 2 'manage' 3 'nonmanual' 4 'pettybour' 5 'farming' 6 'skilledworkers' 7 'unskilledworkers' 8 'inoccupations' 9 'students'. /***** Erikson Goldthorpe Portocarero *****/ /***** Ishida 7 category class schema 2002 0104 *****/ /***** yakusyoku ari wo subete kanri tosita *****/ COMPUTE Cyaku= Q4f. MISSING VALUES Cyaku (9). COMPUTE Q4EJOB7B = Q4EJOB. RECODE Q4EJOB7B ( 3 THRU 4 = 3) (8 = 5) (5 = 6) ( 6 THRU 7 = 7) ( 9= 8) (10= 9). IF ((Q4EJOB6 = 2) AND (Cyaku > 1) ) Q4EJOB7B=2. IF (Q4A EQ 5 OR Q4A EQ 6) Q4EJOB7B=4. IF ((Q4EJOB EQ 2) AND (Q4D < 5) ) Q4EJOB7B=4. IF (Q4EJOB EQ 1) Q4EJOB7B=1. IF (Q4EJOB EQ 8) Q4EJOB7B=5. VALUE LABELS Q4EJOB7B 1 'prof' 2 'manage' 3 'nonmanual' 4 'pettybour' 5 'farming' 6 'skilledworkers' 7 'unskilledworkers' 8 'inoccupations' 9 'students'. /***** SOGO SYOKUGYO BUNRUI BY MURASE 19960707 *****/ COMPUTE JOBY=99. COMPUTE JOBA=Q4A. COMPUTE JOBD=Q4D. COMPUTE JOBE=Q4EJOB. IF (JOBE EQ 6 OR JOBE EQ 7) JOBY=11. IF ((JOBY EQ 11) AND (JOBD EQ 9)) JOBY=9. IF ((JOBY EQ 11) AND (JOBD EQ 10)) JOBY=9. IF (JOBE EQ 5) JOBY=10. IF ((JOBY EQ 10) AND (JOBD EQ 9)) JOBY=8. IF ((JOBY EQ 10) AND (JOBD EQ 10)) 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 9)) JOBY=5. IF ((JOBY EQ 6 OR JOBY EQ 7) AND (JOBD EQ 10)) JOBY=5. IF (JOBA EQ 5 OR JOBA EQ 6) 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 8)) JOBY=4. IF ((JOBY EQ 1 OR JOBY EQ 2) AND (JOBD EQ 9)) 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 (JOBE EQ 9) JOBY=96. IF (JOBE EQ 10) JOBY=98. IF (JOBE EQ 99) JOBY=99. COMPUTE SOGOJ=JOBY. RECODE JOBY(6,7=6)(8,9=7)(10,11=8)(12=9). COMPUTE SOGOJK=JOBY. MISSING VALUES SOGOJK (96, 98, 99). COMPUTE SOGOJ7=SOGOJK. RECODE SOGOJ7(5,6=5)(7,8=6)(9=7). COMPUTE SOGOJ6=SOGOJ7. RECODE SOGOJ6(1=3)(2=6)(3=1)(4=2)(5=4)(6=5)(7=6). /***** 父の総合職業分類　　 BY MURASE 19971129 *****/ COMPUTE JOBXF=Q11EJOB. COMPUTE JOBYF=99. COMPUTE JOBA=Q11A. COMPUTE JOBD=Q11D. COMPUTE JOBEF=JOBXF. IF (JOBEF EQ 6 OR JOBEF EQ 7) JOBYF=11. IF ((JOBYF EQ 11) AND (JOBD EQ 9)) JOBYF=9. IF ((JOBYF EQ 11) AND (JOBD EQ 10)) JOBYF=9. IF (JOBEF EQ 5) JOBYF=10. IF ((JOBYF EQ 10) AND (JOBD EQ 9)) JOBYF=8. IF ((JOBYF EQ 10) AND (JOBD EQ 10)) JOBYF=8. IF (JOBEF EQ 4) JOBYF=7. IF (JOBEF EQ 3) JOBYF=6. IF ((JOBYF EQ 6 OR JOBYF EQ 7) AND (JOBD EQ 9)) JOBYF=5. IF ((JOBYF EQ 6 OR JOBYF EQ 7) AND (JOBD EQ 10)) JOBYF=5. IF (JOBA EQ 5 OR JOBA EQ 6) JOBYF=2. IF ((JOBYF EQ 2) AND (JOBEF GE 1 AND JOBEF LE 4)) JOBYF=1. IF ((JOBYF EQ 1 OR JOBYF EQ 2) AND (JOBD EQ 8)) JOBYF=4. IF ((JOBYF EQ 1 OR JOBYF EQ 2) AND (JOBD EQ 9)) JOBYF=4. IF (JOBEF EQ 2) JOBYF=4. IF ((JOBYF EQ 4) AND (JOBD EQ 1 OR JOBD EQ 2)) JOBYF=1. IF (JOBEF EQ 1) JOBYF=3. IF (JOBEF EQ 8) JOBYF=12. IF (JOBEF EQ 9) JOBYF=96. IF (JOBEF EQ 10) JOBYF=98. IF (JOBEF EQ 99) JOBYF=99. COMPUTE JOB8FA=JOBXF. COMPUTE SOGOJFA=JOBYF. RECODE JOBYF(6,7=6)(8,9=7)(10,11=8)(12=9). COMPUTE SOGOJKFA=JOBYF. MISSING VALUES SOGOJKFA (96, 98, 99). COMPUTE SOGOJ7F=SOGOJKFA. RECODE SOGOJ7F(5,6=5)(7,8=6)(9=7). COMPUTE SOGOJ6F=SOGOJ7F. RECODE SOGOJ6F(1=3)(2=6)(3=1)(4=2)(5=4)(6=5)(7=6). VALUE LABELS SOGOJ7,SOGOJ7F 1 '自営ノンマニ' 2 '自営マニ' 3 '専門' 4 '管理' 5 'ノンマニュアル' 6 'マニュアル' 7 '農業' 96 '無職' 98 '学生' /SOGOJ6,SOGOJ6F 1 '専門' 2 '管理' 3 '自営ノンマニ' 4 'ノンマニュアル' 5 'マニュアル' 6 '自営マニ・農業'96 '無職' 98 '学生' . /***** 新総合８分類　原盛山『社会階層』東大出版　用語解説と ***/ /***** ＳＳＭ調査シリーズ１の２００ページ　 BY MURASE 20030801 ***/ COMPUTE JOBS8=99. COMPUTE JOBA=Q4A. COMPUTE JOBD=Q4D. COMPUTE JOBE=Q4EJOB. IF (JOBE EQ 5 OR JOBE EQ 6 OR JOBE EQ 7) JOBS8=6. IF ((JOBS8 EQ 6) AND (JOBD EQ 7)) JOBS8=5. IF ((JOBS8 EQ 6) AND (JOBD EQ 8)) JOBS8=5. IF ((JOBS8 EQ 6) AND (JOBD EQ 9)) JOBS8=5. IF ((JOBS8 EQ 6) AND (JOBD EQ 10)) JOBS8=5. IF ((JOBS8 EQ 6) AND (JOBA EQ 1) AND (JOBD NE 10)) JOBS8=7. IF (JOBE EQ 2 OR JOBE EQ 3 OR JOBE EQ 4) JOBS8=3. IF ((JOBS8 EQ 3) AND (JOBA EQ 1) AND (JOBD NE 10)) JOBS8=4. IF ((JOBS8 EQ 3) AND (JOBD EQ 7)) JOBS8=2. IF ((JOBS8 EQ 3) AND (JOBD EQ 8)) JOBS8=2. IF ((JOBS8 EQ 3) AND (JOBD EQ 9)) JOBS8=2. IF ((JOBS8 EQ 3) AND (JOBD EQ 10)) JOBS8=2. IF ( JOBA EQ 5 OR JOBA EQ 6 ) JOBS8=7. IF ((JOBS8 EQ 7) AND (JOBE EQ 2)) JOBS8=4. IF ((JOBS8 EQ 7) AND (JOBE EQ 3)) JOBS8=4. IF ((JOBS8 EQ 7) AND (JOBE EQ 4)) JOBS8=4. IF (JOBE EQ 1) JOBS8=1. IF (JOBE EQ 8) JOBS8=8. IF (JOBE EQ 9) JOBS8=96. IF (JOBE EQ 10) JOBS8=98. IF (JOBE EQ 99) JOBS8=99. COMPUTE sin8job=JOBS8. MISSING VALUES sin8job (96, 98, 99). VALUE LABELS sin8job 1 '専門' 2 '大Ｗ' 3 '中小Ｗ' 4 '自営Ｗ' 5 '大Ｂ' 6 '中小Ｂ' 7 '自営Ｂ' 8 '農業' 96 '無職' 98 '学生' . /***** 新総合８分類父親　原盛山『社会階層』用語解説 BY MURASE 20030801 ***/ COMPUTE JOBT8=99. COMPUTE JOBA =Q11A. COMPUTE JOBD =Q11D. COMPUTE JOBEF=Q11EJOB. IF (JOBEF EQ 5 OR JOBEF EQ 6 OR JOBEF EQ 7) JOBT8=6. IF ((JOBT8 EQ 6) AND (JOBD EQ 7)) JOBT8=5. IF ((JOBT8 EQ 6) AND (JOBD EQ 8)) JOBT8=5. IF ((JOBT8 EQ 6) AND (JOBD EQ 9)) JOBT8=5. IF ((JOBT8 EQ 6) AND (JOBD EQ 10)) JOBT8=5. IF ((JOBT8 EQ 6) AND (JOBA EQ 1) AND (JOBD NE 10)) JOBT8=7. IF (JOBEF EQ 2 OR JOBEF EQ 3 OR JOBEF EQ 4) JOBT8=3. IF ((JOBT8 EQ 3) AND (JOBA EQ 1) AND (JOBD NE 10)) JOBT8=4. IF ((JOBT8 EQ 3) AND (JOBD EQ 7)) JOBT8=2. IF ((JOBT8 EQ 3) AND (JOBD EQ 8)) JOBT8=2. IF ((JOBT8 EQ 3) AND (JOBD EQ 9)) JOBT8=2. IF ((JOBT8 EQ 3) AND (JOBD EQ 10)) JOBT8=2. IF ( JOBA EQ 5 OR JOBA EQ 6 ) JOBT8=7. IF ((JOBT8 EQ 7) AND (JOBEF EQ 2)) JOBT8=4. IF ((JOBT8 EQ 7) AND (JOBEF EQ 3)) JOBT8=4. IF ((JOBT8 EQ 7) AND (JOBEF EQ 4)) JOBT8=4. IF (JOBEF EQ 1) JOBT8=1. IF (JOBEF EQ 8) JOBT8=8. IF (JOBEF EQ 9) JOBT8=96. IF (JOBEF EQ 10) JOBT8=98. IF (JOBEF EQ 99) JOBT8=99. COMPUTE sin8jobf=JOBT8. MISSING VALUES sin8jobf (96, 98, 99). VALUE LABELS sin8jobf 1 '専門' 2 '大Ｗ' 3 '中小Ｗ' 4 '自営Ｗ' 5 '大Ｂ' 6 '中小Ｂ' 7 '自営Ｂ' 8 '農業' 96 '無職' 98 '学生' . /***** 人口　単位千人(百位四捨五入)『全国市町村要覧　平成７年版』より　 **/ /***** 　　　平成７年３月３１日現在　住民基本台帳人口　　　　　　　　　 **/ /***** ( 1,2,3,4,5 = 1733)は、地点 1,2,3,4,5 の人口が 1733千人という意味 **/ /***** 東京23区の人口(地点95から116まで）は23区の合計の7837千人とした **/ COMPUTE zinkou=IDT. RECODE zinkou ( 1,2,3,4,5 = 1733)(6=299)(7=360)(8=170)(9=168)(10=46) (11=23)(12=111)(13=10)(14=8)(15=6)(16=22)(17=294)(18=177)(19=244)(20=18) (21=281)(22=57)(23=19)(24=23)(25,26=937)(27=63)(28=35)(29=22)(30=12) (31=42)(32=21)(33=4)(34=248)(35=101)(36=43)(37=282)(38=320)(39=364)(40=40) (41=14)(42=17)(43=8)(44=243)(45=53)(46=66)(47=147)(48=26)(49=45)(50=46) (51=431)(52=61)(53=147)(54=13)(55=27)(56=238)(57=122)(58=48)(59=2)(60=24) (61=315)(62=155)(63,64=446)(65=445)(66=426)(67=315)(68=80)(69=205)(70=213) (71=94)(72=142)(73=106)(74=70)(75=57)(76=55)(77=23)(78=15) (79,80,81=841)(82=428)(83,84=533)(85=124)(86=455)(87=118)(88=90) (89=316)(90=276)(91=154)(92=57)(93=45)(94=43) (95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110=7837) (111,112,113,114,115,116=7837)(117=483)(118=156)(119=159)(120=191) (121=356)(122=104)(123=135)(124=73)(125=67)(126=17) (127,128,129,130,131,132,133,134,135=3274)(136,137,138,139=1175)(140=437) (141=252)(142=173)(143=362)(144=213)(145=560)(146=55)(147=200)(148=116) (149=23)(150,151=481)(152=188)(153=87)(154=43)(155=24)(156=11)(157=321) (158=175)(159=36)(160=32)(161=434)(162=27)(163=26)(164=10)(165=196)(166=56) (167=11)(168=353)(169=45)(170=63) (171=24)(172=11)(173,174=404)(175=148)(176=72)(177=41)(178=21)(179=20) (180,181=471)(182=552)(183=121)(184=74)(185=230)(186=85)(187=8)(188=30) (189,190,191,192,193=2087)(194=345)(195=318)(196=267)(197=127)(198=113) (199=333)(200=98) (201=71)(202=57)(203=35)(204=36)(205=32)(206=283)(207=104) (208=178)(209=39)(210=35) (211=9)(212=272)(213=61)(214=23)(215,216,217,218=1389)(219=181)(220=75) (221=9)(222,223,224,225,226,227,228=2479)(229,230=794) (231=394)(232=330)(233=360)(234=83)(235=154)(236=395)(237=269)(238=256) (239=117)(240=122) (241=140)(242=64)(243=495)(244=40)(245,246,247,248=1457)(249=465)(250=481) (251=283)(252=399)(253=43)(254=81)(255=255)(256=203)(257=78)(258=6)(259=8) (260=356) (261=95)(262=37)(263=19)(264=400)(265=6)(266=144)(267=8)(268=36)(269=4) (270,271=601)(272=424)(273=89)(274=24)(275,276,277=1082)(278=374)(279=22) (280=106) (281=17)(282=40)(283=255)(284=131)(285=109)(286=25)(287=23)(288=262)(289=14) (290=329) (291=46)(292=24)(293=459)(294=66)(295=5)(296=318)(297=36)(298=4) (299,300,301=1015) (302,303,304=1226)(305=63)(306=83)(307=45)(308=36)(309=15)(310=26) (311=167)(312=12)(313=436)(314=246)(315=26)(316=35)(317=4)(318,319=631) (320=58)(321=31)(322=12)(323=421)(324=127)(325=22)(326=18)(327=296)(328=60) (329=23)(330=536)(331=28)(332=18)(333=16)(334=302)(335=54)(336=10). /***** 現住所　都市コードＢ（質的分類）　75年コードブックP.79と　 *****/ /***** 同じで、６大都市とは東京、横浜、名古屋、京都、大阪、神戸 *****/ /***** である。しかし、1995年３月31日現在の人口は、　　　　　　　 *****/ /***** 東京23区7836665人、大阪市2478628人、名古屋市2086745人　 　　*****/ /***** 札幌市1733133人、神戸市1456780人、 京都市1389342人である。 *****/ /***** ６大都市ならば京都（地点番号215-218）を除き札幌（地点1-5）を *****/ /***** 入れるべきかもしれない。 *****/ COMPUTE CITYB=IDT. RECODE CITYB ( 1,2,3,4,5 = 4)(6=3)(7=3)(8=3)(9=3)(10=3) (11=3)(12=3)(13=2)(14=2)(15=2)(16=2)(17=4)(18=3)(19=3)(20=2) (21=4)(22=3)(23=2)(24=2)(25,26=4)(27=3)(28=3)(29=2)(30=2) (31=3)(32=2)(33=1)(34=4)(35=3)(36=3)(37=4)(38=3)(39=3)(40=3) (41=2)(42=2)(43=1)(44=4)(45=3)(46=3)(47=3)(48=2)(49=2)(50=2) (51=4)(52=3)(53=3)(54=2)(55=2)(56=3)(57=3)(58=3)(59=1)(60=2) (61=3)(62=3)(63,64=3)(65=4)(66=3)(67=3)(68=3)(69=3)(70=3) (71=3)(72=3)(73=3)(74=3)(75=3)(76=3)(77=2)(78=2) (79,80,81=4)(82=3)(83,84=3)(85=3)(86=3)(87=3)(88=3) (89=3)(90=3)(91=3)(92=3)(93=2)(94=2) (95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110=5) (111,112,113,114,115,116=5)(117=3)(118=3)(119=3)(120=3) (121=3)(122=3)(123=3)(124=3)(125=3)(126=2) (127,128,129,130,131,132,133,134,135=5)(136,137,138,139=5)(140=3) (141=3)(142=3)(143=3)(144=3)(145=3)(146=2)(147=3)(148=3) (149=2)(150,151=4)(152=3)(153=3)(154=3)(155=2)(156=2)(157=4) (158=3)(159=3)(160=2)(161=4)(162=3)(163=2)(164=2)(165=4)(166=3) (167=2)(168=4)(169=3)(170=3) (171=2)(172=2)(173,174=4)(175=3)(176=3)(177=3)(178=2)(179=2) (180,181=4)(182=3)(183=3)(184=3)(185=3)(186=3)(187=2)(188=2) (189,190,191,192,193=5)(194=3)(195=3)(196=3)(197=3)(198=3) (199=3)(200=3) (201=3)(202=3)(203=2)(204=2)(205=2)(206=3)(207=3) (208=3)(209=3)(210=2) (211=2)(212=4)(213=3)(214=2)(215,216,217,218=5)(219=3)(220=3) (221=2)(222,223,224,225,226,227,228=5)(229,230=3) (231=3)(232=3)(233=3)(234=3)(235=3)(236=3)(237=3)(238=3) (239=3)(240=3) (241=3)(242=3)(243=3)(244=2)(245,246,247,248=5)(249=3)(250=3) (251=3)(252=3)(253=3)(254=3)(255=3)(256=3)(257=3)(258=2)(259=2) (260=4) (261=3)(262=3)(263=2)(264=4)(265=2)(266=4)(267=1)(268=3)(269=2) (270,271=4)(272=3)(273=3)(274=2)(275,276,277=4)(278=3)(279=3) (280=3) (281=2)(282=2)(283=3)(284=4)(285=3)(286=3)(287=2)(288=4)(289=2) (290=4) (291=3)(292=2)(293=4)(294=3)(295=2)(296=4)(297=3)(298=1) (299,300,301=3) (302,303,304=4)(305=3)(306=3)(307=3)(308=2)(309=2)(310=2) (311=4)(312=2)(313=4)(314=3)(315=3)(316=2)(317=2)(318,319=4) (320=3)(321=2)(322=2)(323=4)(324=3)(325=3)(326=2)(327=4)(328=3) (329=2)(330=4)(331=3)(332=2)(333=2)(334=4)(335=3)(336=2). VALUE LABELS CITYB 1 '村' 2 '町' 3 'その他の都市' 4 '県庁所在地' 5 '六大都市' 9 'DK,NA' . /***** 都市コードＡ（量的分類）　75年コードブックP.62と同じ　　　*****/ COMPUTE CITYA=zinkou. RECODE CITYA (1 THRU 49=3)(50 THRU 99=4)(100 THRU 199=5)(200 THRU 499=6) (500 THRU 999=7)(1000 THRU 10000=8). IF (CITYB=1) CITYA=1. IF (CITYB=2) CITYA=2. VALUE LABELS CITYA 1 '村' 2 '町' 3 '市５万未満' 4 '市10万未満' 5 '市20万未満' 6 '市50万未満' 7 '100 万未満' 8 '100 万以上' 9 'DK,NA' . COMPUTE CITYA2=CITYA. RECODE CITYA2 (1 THRU 2=1)(3 THRU 4=2)(5 THRU 6=3)(7 THRU 8=4). VALUE LABELS CITYA2 1 '村・町' 2 '市10万未満' 3 '市50万未満' 4 '市50万以上' 9 'DK,NA' . COMPUTE urbaniza=citya. /***** 現住所人口カテゴリー作成　　　　　　　　　　　　　　　　　*****/ COMPUTE populat=zinkou. COMPUTE urban=zinkou. RECODE urban(1 THRU 9=1)(10 THRU 29=2)(30 THRU 49=3)(50 THRU 99=4) (100 THRU 199=5)(200 THRU 299=6) (300 THRU 499=7)(500 THRU 999=8)(1000 THRU 10000=9). VALUE LABELS urban 1 '１万未満' 2 '３万未満' 3 '５万未満' 4 '10万未満' 5 '20万未満' 6 '30万未満' 7 '50万未満' 8 '100 万未満' 9 '100 万以上' . COMPUTE urbanct=zinkou. RECODE urbanct (1 THRU 29=1)(30 THRU 99=2) (100 THRU 299=3) (300 THRU 999=4)(1000 THRU 10000=5). VALUE LABELS urbanct 1 '３万未満'2 '10万未満'3 '30万未満'4 '100 万未満' 5 '100 万以上' . /*現住所地点番号を都道府県ＪＩＳコードに変換　75年コードブック P61とは異なる*/ COMPUTE IDKEN=IDT. RECODE IDKEN (1 THRU 16=1) (17 THRU 20=2) (21 THRU 24=3) (25 THRU 30 =4) (31 THRU 33=5) (34 THRU 36=6) (37 THRU 43=7) (44 THRU 50=8) (51 THRU 55 =9) (56 THRU 60=10)(61 THRU 78=11)(79 THRU 94=12)(95 THRU 126=13)(127 THRU 149=14) (150 THRU 156=15)(157 THRU 160=16)(161 THRU 163=17)(164 =18) (165 THRU 167=19)(168 THRU 172=20)(173 THRU 179=21)(180 THRU 188=22) (189 THRU 205=23)(206 THRU 211=24)(212 THRU 214=25)(215 THRU 221=26) (222 THRU 244=27)(245 THRU 259=28)(260 THRU 263=29)(264 THRU 265=30) (266 THRU 267=31)(268 THRU 269=32)(270 THRU 274=33)(275 THRU 282=34) (283 THRU 287=35)(288 THRU 289=36)(290 THRU 292=37)(293 THRU 295=38) (296 THRU 298=39)(299 THRU 310=40)(311 THRU 312=41)(313 THRU 317=42) (318 THRU 322=43)(323 THRU 326=44)(327 THRU 329=45)(330 THRU 333=46) (334 THRU 336=47). COMPUTE IDTIHO=IDKEN. RECODE IDTIHO (1 THRU 7=1) (8 THRU 10=2) (11 THRU 14=3) (15 THRU 23 =4) (24 THRU 30=5)(31 THRU 35=6) (36 THRU 39=7) (40 THRU 47=8) . COMPUTE IDTIHO2=IDKEN. RECODE IDTIHO2 (1 THRU 7=1) (8 THRU 10=2) (11 THRU 14=3) (15 THRU 21 =4) (22,23,24 =5) (25 THRU 30=6)(31 THRU 35=7) (36 THRU 39=8) (40 THRU 47=9) . VALUE LABELS IDTIHO 1 '北海道・東北' 2 '群馬・栃木・茨城' 3 '埼・東京・千・神奈' 4 '中部' 5 '関西' 6 '中国' 7 '四国' 8 '九州・沖縄'. VALUE LABELS IDTIHO2 1 '北海道・東北' 2 '群馬・栃木・茨城' 3 '埼・東京・千・神奈' 4 '名古屋圏外の中部' 5 '静岡・愛知・三重' 6 '三重を除く関西' 7 '中国' 8 '四国' 9 '九州・沖縄'. /*地域移動　「現住所」と「義務教育終了時点住所」の都道府県の変化の有無*/ COMPUTE TIDOU=1. IF (Q7PREF=IDKEN) TIDOU=0. COMPUTE MOVING=TIDOU. COMPUTE TIDOUKEN=0. IF (Q7PREF=IDKEN) TIDOUKEN=IDKEN. /***** 産業別人口比率　『全国市町村要覧　平成７年版』より by murase 971230**/ /***** 　　　出典：平成２年１０月１日国勢調査結果　　単位：千分の一　　　 **/ /***** (1=4)は、地点1 の第一次産業就業人口比率が0.4%という意味　　　　　　 **/ COMPUTE indust1=IDT. RECODE indust1 ( 1= 4) ( 2= 9) ( 3= 6) ( 4= 11) ( 5= 5) ( 6= 28) ( 7= 43) ( 8= 53) ( 9= 10) ( 10= 113) ( 11= 146) ( 12= 51) ( 13= 360) ( 14= 401) ( 15= 532) ( 16= 139) ( 17= 45) ( 18= 201) ( 19= 62) ( 20= 473) ( 21= 32) ( 22= 133) ( 23= 335) ( 24= 280) ( 25= 9) ( 26= 24) ( 27= 179) ( 28= 163) ( 29= 173) ( 30= 353) ( 31= 216) ( 32= 121) ( 33= 305) ( 34= 73) ( 35= 123) ( 36= 206) ( 37= 86) ( 38= 90) ( 39= 64) ( 40= 174) ( 41= 163) ( 42= 238) ( 43= 397) ( 44= 45) ( 45= 88) ( 46= 98) ( 47= 120) ( 48= 269) ( 49= 100) ( 50= 115) ( 51= 42) ( 52= 106) ( 53= 93) ( 54= 228) ( 55= 231) ( 56= 29) ( 57= 11) ( 58= 52) ( 59= 293) ( 60= 39) ( 61= 32) ( 62= 42) ( 63= 14) ( 64= 14) ( 65= 13) ( 66= 16) ( 67= 22) ( 68= 25) ( 69= 17) ( 70= 11) ( 71= 3) ( 72= 20) ( 73= 13) ( 74= 29) ( 75= 9) ( 76= 44) ( 77= 166) ( 78= 163) ( 79= 14) ( 80= 14) ( 81= 14) ( 82= 10) ( 83= 16) ( 84= 16) ( 85= 73) ( 86= 13) ( 87= 36) ( 88= 57) ( 89= 18) ( 90= 41) ( 91= 28) ( 92= 113) ( 93= 93) ( 94= 128) ( 95= 1) ( 96= 1) ( 97= 1) ( 98= 1) ( 99= 1) (100= 2) (101= 2) (102= 5) (103= 5) (104= 1) (105= 1) (106= 2) (107= 1) (108= 1) (109= 1) (110= 2) (111= 6) (112= 6) (113= 4) (114= 3) (115= 3) (116= 4) (117= 10) (118= 12) (119= 9) (120= 9) (121= 12) (122= 9) (123= 11) (124= 10) (125= 15) (126= 28) (127= 2) (128= 7) (129= 1) (130= 2) (131= 11) (132= 9) (133= 7) (134= 13) (135= 10) (136= 1) (137= 4) (138= 9) (139= 11) (140= 13) (141= 26) (142= 9) (143= 17) (144= 16) (145= 8) (146= 150) (147= 7) (148= 9) (149= 19) (150= 31) (151= 31) (152= 45) (153= 44) (154= 113) (155= 100) (156= 66) (157= 40) (158= 34) (159= 92) (160= 84) (161= 22) (162= 84) (163= 14) (164= 152) (165= 31) (166= 15) (167= 134) (168= 98) (169= 149) (170= 122) (171= 82) (172= 140) (173= 24) (174= 24) (175= 21) (176= 36) (177= 39) (178= 57) (179= 41) (180= 45) (181= 45) (182= 46) (183= 55) (184= 36) (185= 36) (186= 69) (187= 180) (188= 208) (189= 3) (190= 1) (191= 9) (192= 2) (193= 9) (194= 83) (195= 25) (196= 26) (197= 6) (198= 63) (199= 25) (200= 72) (201= 26) (202= 26) (203= 11) (204= 13) (205= 78) (206= 26) (207= 49) (208= 56) (209= 58) (210= 52) (211= 139) (212= 21) (213= 56) (214= 93) (215= 17) (216= 1) (217= 11) (218= 9) (219= 8) (220= 27) (221= 123) (222= 0) (223= 0) (224= 0) (225= 1) (226= 3) (227= 1) (228= 4) (229= 6) (230= 6) (231= 3) (232= 2) (233= 6) (234= 22) (235= 2) (236= 8) (237= 14) (238= 4) (239= 14) (240= 11) (241= 4) (242= 4) (243= 4) (244= 27) (245= 2) (246= 2) (247= 4) (248= 1) (249= 16) (250= 3) (251= 18) (252= 5) (253= 128) (254= 2) (255= 18) (256= 15) (257= 33) (258= 31) (259= 109) (260= 20) (261= 42) (262= 122) (263= 62) (264= 32) (265= 100) (266= 65) (267= 205) (268= 204) (269= 270) (270= 47) (271= 47) (272= 33) (273= 76) (274= 89) (275= 3) (276= 8) (277= 52) (278= 29) (279= 185) (280= 92) (281= 51) (282= 50) (283= 50) (284= 87) (285= 44) (286= 158) (287= 106) (288= 62) (289= 258) (290= 45) (291= 140) (292= 95) (293= 46) (294= 169) (295= 440) (296= 31) (297= 134) (298= 482) (299= 28) (300= 27) (301= 8) (302= 11) (303= 5) (304= 5) (305= 35) (306= 21) (307= 130) (308= 10) (309= 50) (310= 198) (311= 51) (312= 193) (313= 35) (314= 51) (315= 313) (316= 74) (317= 171) (318= 25) (319= 25) (320= 82) (321= 268) (322= 301) (323= 28) (324= 20) (325= 314) (326= 165) (327= 57) (328= 84) (329= 160) (330= 16) (331= 137) (332= 233) (333= 291) (334= 10) (335= 143) (336= 185) . COMPUTE indust2=IDT. RECODE indust2 ( 1= 128) ( 2= 247) ( 3= 201) ( 4= 161) ( 5= 192) ( 6= 215) ( 7= 242) ( 8= 222) ( 9= 298) ( 10= 263) ( 11= 329) ( 12= 244) ( 13= 191) ( 14= 169) ( 15= 190) ( 16= 240) ( 17= 187) ( 18= 190) ( 19= 284) ( 20= 173) ( 21= 166) ( 22= 271) ( 23= 309) ( 24= 321) ( 25= 168) ( 26= 231) ( 27= 276) ( 28= 448) ( 29= 316) ( 30= 349) ( 31= 325) ( 32= 381) ( 33= 428) ( 34= 268) ( 35= 318) ( 36= 352) ( 37= 283) ( 38= 299) ( 39= 396) ( 40= 375) ( 41= 418) ( 42= 368) ( 43= 396) ( 44= 217) ( 45= 366) ( 46= 445) ( 47= 235) ( 48= 339) ( 49= 344) ( 50= 488) ( 51= 315) ( 52= 376) ( 53= 408) ( 54= 405) ( 55= 294) ( 56= 336) ( 57= 509) ( 58= 355) ( 59= 419) ( 60= 484) ( 61= 366) ( 62= 336) ( 63= 394) ( 64= 394) ( 65= 298) ( 66= 302) ( 67= 305) ( 68= 410) ( 69= 368) ( 70= 379) ( 71= 409) ( 72= 376) ( 73= 345) ( 74= 359) ( 75= 360) ( 76= 429) ( 77= 401) ( 78= 353) ( 79= 274) ( 80= 274) ( 81= 274) ( 82= 277) ( 83= 287) ( 84= 287) ( 85= 301) ( 86= 305) ( 87= 370) ( 88= 188) ( 89= 300) ( 90= 394) ( 91= 309) ( 92= 331) ( 93= 283) ( 94= 307) ( 95= 202) ( 96= 236) ( 97= 386) ( 98= 308) ( 99= 278) (100= 339) (101= 339) (102= 213) (103= 213) (104= 187) (105= 208) (106= 214) (107= 240) (108= 290) (109= 368) (110= 316) (111= 269) (112= 269) (113= 356) (114= 369) (115= 369) (116= 343) (117= 328) (118= 292) (119= 278) (120= 254) (121= 289) (122= 240) (123= 282) (124= 281) (125= 415) (126= 415) (127= 399) (128= 303) (129= 291) (130= 304) (131= 350) (132= 365) (133= 332) (134= 333) (135= 347) (136= 397) (137= 370) (138= 310) (139= 266) (140= 302) (141= 410) (142= 285) (143= 366) (144= 361) (145= 388) (146= 241) (147= 389) (148= 380) (149= 423) (150= 246) (151= 246) (152= 357) (153= 427) (154= 461) (155= 288) (156= 506) (157= 326) (158= 416) (159= 454) (160= 423) (161= 274) (162= 422) (163= 358) (164= 336) (165= 308) (166= 479) (167= 352) (168= 293) (169= 385) (170= 438) (171= 562) (172= 462) (173= 352) (174= 352) (175= 445) (176= 525) (177= 450) (178= 531) (179= 486) (180= 318) (181= 318) (182= 429) (183= 457) (184= 196) (185= 494) (186= 475) (187= 287) (188= 404) (189= 346) (190= 192) (191= 393) (192= 454) (193= 401) (194= 398) (195= 475) (196= 448) (197= 464) (198= 453) (199= 587) (200= 519) (201= 476) (202= 544) (203= 269) (204= 379) (205= 545) (206= 431) (207= 340) (208= 478) (209= 328) (210= 443) (211= 399) (212= 333) (213= 416) (214= 465) (215= 311) (216= 317) (217= 360) (218= 318) (219= 353) (220= 335) (221= 334) (222= 304) (223= 254) (224= 418) (225= 381) (226= 339) (227= 343) (228= 436) (229= 351) (230= 351) (231= 304) (232= 275) (233= 356) (234= 429) (235= 416) (236= 359) (237= 422) (238= 375) (239= 308) (240= 254) (241= 436) (242= 345) (243= 438) (244= 374) (245= 285) (246= 370) (247= 287) (248= 194) (249= 388) (250= 392) (251= 358) (252= 264) (253= 289) (254= 217) (255= 442) (256= 278) (257= 381) (258= 531) (259= 492) (260= 262) (261= 376) (262= 331) (263= 460) (264= 323) (265= 185) (266= 307) (267= 268) (268= 314) (269= 374) (270= 276) (271= 276) (272= 426) (273= 337) (274= 497) (275= 205) (276= 250) (277= 363) (278= 403) (279= 322) (280= 418) (281= 436) (282= 484) (283= 283) (284= 186) (285= 357) (286= 257) (287= 360) (288= 260) (289= 362) (290= 240) (291= 351) (292= 313) (293= 239) (294= 202) (295= 216) (296= 206) (297= 210) (298= 139) (299= 359) (300= 307) (301= 352) (302= 204) (303= 222) (304= 181) (305= 365) (306= 279) (307= 346) (308= 305) (309= 382) (310= 310) (311= 208) (312= 353) (313= 218) (314= 229) (315= 207) (316= 256) (317= 363) (318= 202) (319= 202) (320= 353) (321= 263) (322= 335) (323= 275) (324= 171) (325= 257) (326= 282) (327= 183) (328= 339) (329= 244) (330= 200) (331= 321) (332= 325) (333= 271) (334= 162) (335= 197) (336= 187) . COMPUTE indust3 = 1-indust1-indust2. /***** 第一次産業人口比で地点を３分割 *****/ /***** *****/ COMPUTE agri3=0. IF (indust1 < 17 ) agri3=1. IF (indust1 > 16 and indust1 <74 ) agri3=2. IF (indust1 > 73 ) agri3=3. COMPUTE agrisex=q1s1*10+agri3. COMPUTE agri6=0. IF ( indust1 < 7 ) agri6=1. IF (indust1 > 6 and indust1 <17 ) agri6=2. IF (indust1 > 16 and indust1 <38 ) agri6=3. IF (indust1 > 38 and indust1 <74 ) agri6=4. IF (indust1 > 73 and indust1 <151) agri6=5. IF (indust1 > 151 ) agri6=6. COMPUTE agrisex2=q1s1*10+agri6. VALUE LABELS agri3 1 '都市部' 2 '中間部' 3 '農村部' /agrisex 11 '都市部男性' 12 '中間部男性' 13 '農村部男性' 21 '都市部女性' 22 '中間部女性' 23 '農村部女性' /agri6 1 '0.6以下' 2 '1.6以下' 3 '3.7以下' 4 '7.3以下' 5 '15.0以下' 6 '15.1以上' . /***** NENREI KATEGORI SAKUSEI 19960903 *****/ /******** ********/ /******** ********/ COMPUTE age =Q1S2A. COMPUTE NENDAI =Q1S2A. RECODE NENDAI(20 THRU 29 =2)(30 THRU 39 =3)(40 THRU 49 =4) (50 THRU 59 =5)(60 THRU 70 =6) . COMPUTE NENDAI2 =Q1S2A. RECODE NENDAI2 (20 THRU 24 =1)(25 THRU 34 =2)(35 THRU 44 =3) (45 THRU 54 =4)(55 THRU 64 =5)(65 THRU 70 =6) . COMPUTE NENDAI3 =NENDAI. if (nendai=2 and q1s1=1) NENDAI3=12. if (nendai=3 and q1s1=1) NENDAI3=13. if (nendai=4 and q1s1=1) NENDAI3=13. if (nendai=5 and q1s1=1) NENDAI3=15. if (nendai=6 and q1s1=1) NENDAI3=15. if (nendai=2 and q1s1=2) NENDAI3=22. if (nendai=3 and q1s1=2) NENDAI3=23. if (nendai=4 and q1s1=2) NENDAI3=23. if (nendai=5 and q1s1=2) NENDAI3=25. if (nendai=6 and q1s1=2) NENDAI3=25. COMPUTE NENDAI4 =NENDAI. if (nendai=2 and q1s1=1) NENDAI4=12. if (nendai=3 and q1s1=1) NENDAI4=13. if (nendai=4 and q1s1=1) NENDAI4=14. if (nendai=5 and q1s1=1) NENDAI4=14. if (nendai=6 and q1s1=1) NENDAI4=16. if (nendai=2 and q1s1=2) NENDAI4=22. if (nendai=3 and q1s1=2) NENDAI4=23. if (nendai=4 and q1s1=2) NENDAI4=24. if (nendai=5 and q1s1=2) NENDAI4=24. if (nendai=6 and q1s1=2) NENDAI4=26. COMPUTE agesex=0. if (nendai<5 and q1s1=1) agesex=11. if (nendai>4 and q1s1=1) agesex=12. if (nendai<5 and q1s1=2) agesex=21. if (nendai>4 and q1s1=2) agesex=22. /***** GAKUREKI WO KYOUIKU NENSUU HE HENKAN 19960729 *****/ COMPUTE EDU=Q61. COMPUTE EDUF=Q10. COMPUTE EDUM=Q12. COMPUTE EDUS=Q18. RECODE EDU,EDUF,EDUM,EDUS (1=6)(2=8)(3,4=11)(5=13)(6=14)(7=17)(12=9)(13=12)(14=14) (15=16)(16=18)(0,19=99). /***** GAKUREKI KATEGORI SAKUSEI 19960903 *****/ COMPUTE EDUCT =Q61. RECODE EDUCT (1=9) (2=9)(3,4=12)(5,6=14)(7=16) (12=9)(13=12)(14=14)(15,16=16)(0,20,30=99). COMPUTE EDUCT2 =Q61. RECODE EDUCT2 (1=9) (2=9)(3,4=12)(5,6,7=16) (12=9)(13=12)(14=16)(15,16=16)(0,20,30=99). COMPUTE EDUFCT=EDUF. COMPUTE EDUMCT=EDUM. COMPUTE EDUSCT=EDUS. RECODE EDUFCT,EDUMCT,EDUSCT (6 thru 9 =1)(10 thru 12 =2)(13 thru 18=3). /***** KOSYUNYU WO HAZURETI TOSITE SYORI *****/ COMPUTE KOZINSYU=Q44S1. RECODE KOZINSYU (18 THRU 80 = 18). COMPUTE HAIGUSYU=Q44S2. RECODE HAIGUSYU (18 THRU 80 = 18). COMPUTE SETAISYU=Q44S3. RECODE SETAISYU (18 THRU 80 = 18). /***** SYUNYU WO RENZOKU HENSUU NI 960903 *****/ COMPUTE KOZISYQU=Q44S1. RECODE KOZISYQU (1=0) (2=35)(3=100) (4=200)(5=300)(6=400)(7=500) (8=600)(9=700)(10=800)(11=900)(12=1100)(13=1300) (14=1500)(15=1700) (16=2000)(17=2300) (18 THRU 80 = 2500)(99=9999). COMPUTE HAIGSYQU=Q44S2. RECODE HAIGSYQU (1=0) (2=35)(3=100) (4=200)(5=300)(6=400)(7=500) (8=600)(9=700)(10=800)(11=900)(12=1100)(13=1300) (14=1500)(15=1700) (16=2000)(17=2300) (18 THRU 80 = 2500)(99=9999). COMPUTE SETASYQU=Q44S3. RECODE SETASYQU (1=0) (2=35)(3=100) (4=200)(5=300)(6=400)(7=500) (8=600)(9=700)(10=800)(11=900)(12=1100)(13=1300) (14=1500)(15=1700) (16=2000)(17=2300) (18 THRU 80 = 2500)(99=9999). /***** SYUNYU KATEGORI SAKUSEI 960903 *****/ COMPUTE KOZISYCT=Q44S1. RECODE KOZISYCT (0,1,2,3,4=250)(5,6=450)(7,8,=650)(9,10=850) (11,12=1200)(13,14=1600) (15,16,17 THRU 80=2300) . COMPUTE HAIGSYCT=Q44S2. RECODE HAIGSYCT (0,1,2,3,4=250)(5,6=450)(7,8,=650)(9,10=850) (11,12=1200)(13,14=1600) (15,16,17 THRU 80=2300) . COMPUTE SETASYCT=Q44S3. RECODE SETASYCT (0,1,2,3,4=250)(5,6=450)(7,8,=650)(9,10=850) (11,12=1200)(13,14=1600) (15,16,17 THRU 80=2300) . COMPUTE famincct=Q44S3. RECODE famincct (0,1,2,3,4,5,6=450)(7,8=650)(9,10,11,=1000) (12 THRU 80=1100) . COMPUTE FAMINCOM=Q44S3. RECODE FAMINCOM (1=0) (2=35)(3=100) (4=200)(5=300)(6=400)(7=500) (8=600)(9=700)(10=800)(11=900)(12=1100)(13=1300) (14=1500)(15=1700) (16=2000)(17=2300) (18 THRU 80 = 2500)(99=9999). /***** ZAISANSUU TO KATEGORI SAKUSEI 960903 *****/ COMPUTE MOTIIE=0. IF (Q24=1 OR Q24=2) MOTIIE=1. COMPUTE property=Q2301+Q2302+Q2303+Q2304+Q2305+Q2306+Q2307+Q2308+Q2309 +Q2310+Q2311+Q2312+Q2313+Q2314+Q2315+MOTIIE. COMPUTE ZAISANCT=property. RECODE ZAISANCT (0,1,2,3,4,5=1)(6,7=2)(8,9=3)(10,11=4)(12,13,14,15,16=5). COMPUTE ZAISANC2=property. RECODE ZAISANC2 (0,1,2,3,4,5=1)(6,7=2)(8,9=3)(10,11,12,13,14,15,16=4). /******** 新変数の作成 ********/ /******** ********/ /******** ********/ COMPUTE COMSCALE=Q4D. RECODE COMSCALE(10=9). COMPUTE ORGRANK=Q4f. /*COMPUTE prestige=GEN.*/ COMPUTE prestige=GEN95. COMPUTE SELFEMP=0. IF (Q4A=5 or Q4A=6 or Q4A=1) SELFEMP=1. COMPUTE SELFNON=0. IF (SOGOJ=1) SELFNON=1. COMPUTE SELFMANU=0. IF (SOGOJ=2) SELFMANU=1. COMPUTE EMPLOYEE=0. IF (Q4A=2 ) EMPLOYEE=1. COMPUTE NONMANU=0. IF ( JOB8<5 ) NONMANU=1. IF ( (JOB8>4) AND (JOB8<9) ) NONMANU=2. COMPUTE S6sen1 =0. IF ( (sogoj6=1) AND (sogoj6f<4) ) S6sen1 =1. COMPUTE S6kan1 =0. IF ( (sogoj6=2) AND (sogoj6f<4) ) S6kan1 =1. COMPUTE S6jinon1=0. IF ( (sogoj6=3) AND (sogoj6f<4) ) S6jinon1=1. COMPUTE S6josyo=0. IF ( (sogoj6=1) AND (sogoj6f>3) ) S6josyo=1. IF ( (sogoj6=2) AND (sogoj6f>3) ) S6josyo=1. IF ( (sogoj6=3) AND (sogoj6f>3) ) S6josyo=1. COMPUTE S6nonma=0. IF ( sogoj6=4 ) S6nonma=1. COMPUTE S6kaso =0. IF ( sogoj6>3 ) S6kaso =1. COMPUTE Soj6fj6=sogoj6f*10+sogoj6. COMPUTE SEXMANU=Q1S1*10+NONMANU. COMPUTE fukohei2=q29s1. RECODE fukohei2(2=1)(3=0)(4=0). /***** 政党支持　その他などを欠損値に 19961119 *****/ COMPUTE SEITO =Q41S1. COMPUTE SEITO2 =Q41S1. RECODE SEITO2 (7=9). COMPUTE SEITOKA =Q41S2. COMPUTE SEITOKA2=Q41S2. RECODE SEITOKA2 (6,7=9). MISSING VALUES SEITO,SEITO2,SEITOKA,SEITOKA2(9). COMPUTE SEITO3 =Q41S1. RECODE SEITO3 (7=9)(8=7). VALUE LABELS SEITO3 01 '自民党' 02 '社会党' 03 '新進党' 04 '公明党' 05 '新党さきがけ' 06 '共産党' 07 '支持政党なし' 09 '無回答・その他' . COMPUTE SEITOKA3=Q41S2. RECODE SEITOKA3 (6,7=9)(8=6). VALUE LABELS SEITOKA3 01 '自民党' 02 '社会党' 03 '公明党' 04 '民社党' 05 '共産党' 06 '支持政党なし' 09 '無回答・その他' /Q41S1,SEITO,SEITO2 01 '自民党' 02 '社会党' 03 '新進党' 04 '公明党' 05 '新党さきがけ' 06 '共産党' 07 'その他' 08 '支持政党なし' 09 '無回答' /Q41S2,SEITOKA,SEITOKA2 01 '自民党' 02 '社会党' 03 '公明党' 04 '民社党' 05 '共産党' 06 '社民連' 07 'その他' 08 '支持政党なし' 09 '無回答' . COMPUTE Jimin =SEITO. IF ( SEITO >1 ) Jimin =0 . COMPUTE Sijinasi=SEITO. RECODE Sijinasi (1=0)(2=0)(3=0)(4=0)(5=0)(6=0)(7=0)(8=1). COMPUTE JOBKOKU=Q4E. RECODE JOBKOKU (501 thru 544=1) (545 thru 553=2) (554 thru 565=3) (566 thru 577=4) (578 thru 592=5) (593 thru 598=6) (599 thru 605=7) (606 thru 619=8) (620 thru 691=9) (986 thru 999=10). /***** 欠損値処理　一部の問いのみです *****/ /***** *****/ /***** *****/ MISSING VALUES Q2301 TO Q2315,Q24,Q26S1, q29s1, Q35a to Q35f, Q37(9). MISSING VALUES Q19S1 TO Q19S3,Q21S1,EDU,EDUF,EDUM,EDUS(99) /Q44S1 TO Q44S3,SETAISYU,HAIGUSYU,KOZINSYU,KOZISYCT,HAIGSYCT, SETASYCT,famincct(98,99) /KOZISYQU,HAIGSYQU,SETASYQU,famincom(9999). MISSING VALUES ORGRANK(8,9) /COMSCALE(98,99) /prestige(999) . VARIABL LABELS Q61 '本人学歴' /Q10'父学歴' /Q12'母学歴' /Q18'配偶者学歴' /EDU '本人学歴'/EDUF'父学歴'/EDUM'母学歴'/EDUS'配偶者学歴' /EDUCT '本人学歴' /EDUCT2 '本人学歴' /Q28A '追い越されそうな不安' /Q28B 'これまでのものを維持' /Q29S1 '全般的不公平感' /Q35A '性別役割：女は家庭を守る' /Q35B '性別役割：男女は違った育て方' /Q35C '性別役割：家事や育児は女性がむいてる' /Q35D '性別役割：専業主婦は意義がある' /Q35E '性別役割：女性も職業生活を重視' /Q35F '性別役割：専業主婦は恵まれている' /Q37 '生活満足感' /Q41S1 '政党支持（現在）' /Q41S2 '政党支持４年前' /Q44S1 '個人年収' /Q44S2 '配偶者年収' /Q44S3 '世帯年収' /KOZINSYU '個人年収' /HAIGUSYU '配偶者年収' /SETAISYU '世帯年収' /JOB8 '職業８分類現職' /SOGOJ '総合職業分類' /SOGOJK '総合職業分類簡略版' /sin8job '新職業８分類現職' /sin8jobf '新職業８分類父職' /GEN '現職威信スコア' /SYO '初職威信スコア' /JOBF '父職威信スコア' /JOBM '母職威信スコア' /JOBS '配偶者威信スコア' . VALUE LABELS Q1S1 1'男' 2'女' /Q28A TO Q28B 1 'よくあてはまる' 2 'ややあてはまる' 3 'どちらともいえない' 4 'あまりあてはまらない' 5 'まったくあてはまらない' 9 'わからない' /Q29S1 1 '公平だ' 2 'だいたい公平だ' 3 'あまり公平でない' 4 '公平でない' 9 'わからない' /Q35A TO Q35F 1 'そう思う' 2 'どちらかといえばそう思う' 3 'どちらかといえばそう思わない' 4 'そう思わない' 9 'わからない' /Q37 1 '満足している' 2 'どちらかといえば満足している' 3 'どちらともいえない' 4 'どちらかといえば不満である' 5 '不満である' 9 'わからない' /Q41S1,SEITO,SEITO2 01 '自民党' 02 '社会党' 03 '新進党' 04 '公明党' 05 '新党さきがけ' 06 '共産党' 07 'その他' 08 '支持政党なし' 09 'わからない' /Q41S2,SEITOKA,SEITOKA2 01 '自民党' 02 '社会党' 03 '公明党' 04 '民社党' 05 '共産党' 06 '社民連' 07 'その他' 08 '支持政党なし' 09 'わからない' /SOGOJ,SOGOJFA 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大Ｗ' 6 '中小事務' 7 '中小販売' 8 '大熟練' 9 '大非熟練' 10 '中小熟練' 11 '中小非熟練' 12 '農業' 96 '無職' 98 '学生' /JOBY,SOGOJK,JOBYF,SOGOJKFA 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大Ｗ' 6 '中小Ｗ' 7 '大Ｂ' 8 '中小Ｂ' 9 '農業' 96 '無職' 98 '学生' /Q4EJOB, Q5EJOB, Q11EJOB, Q13CJOB, Q17EJOB, JOB8, JOB8FA 1'専門' 2 '管理' 3 '事務' 4 '販売' 5 '熟練' 6 '半熟練' 7 '非熟練' 8 '農林' 9'無職' 10 '学生' . /***** 総合職業分類簡略版 *****/ COMPUTE SOGOJK2=SOGOJK. RECODE SOGOJK2 ( 96=10) ( 98=11) . VALUE LABELS SOGOJK2 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大Ｗ' 6 '中小Ｗ' 7 '大Ｂ' 8 '中小Ｂ' 9 '農業' 10 '無職' 11 '学生' . /***** 女性用総合職業分類簡略版　管理とブルーカラーは　　　　*****/ /***** 　　　　　少数なので合併　　主婦は無職　　　　　　　　*****/ COMPUTE SOGOJKF=SOGOJK. RECODE SOGOJKF (5=4)(6=5)(7=6)(8=6)(9=7) ( 96=8) ( 98=9) . VALUE LABELS SOGOJKF 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理・大Ｗ' 5 '中小Ｗ' 6 '大・中小Ｂ' 7 '農業' 8 '無職' 9 '学生' . FREQUENCIES VARIABLES=sin8job . *SORT CASES BY q1s1 . * SPLIT FILE BY q1s1 .