ＳＳＭ調査の職業威信スコアには、７５年版と９５年版があります。
その他、村瀬(1998a, 1998b)による、従業先規模を考慮した威信スコア（スコア９７）
作成用シンタックスも掲載しました。これは、９５年版スコアをもとに、従業先が、大
企業勤務か中小企業かによって、スコアを調整したものです。これにより、仕事内容が
同じならば、大企業事務職も中小企業事務職も同じスコアになってしまうという、従来
のスコアの問題点を解消できます（と村瀬としては考えている）。
データ定義文と管理職修正文の後で以下を実行すると、威信スコアの変数を作成でき
ます。1995年Ｂ票用ですが、Q4Eなどの変数名を変えれば、他の票にも使えます。
/***** SSM SYOKUGYO ISIN SCORE 75NENBAN 19970627 *****/
COMPUTE GEN=Q4E.
COMPUTE SYO=Q5E.
COMPUTE JOBF=Q11E.
COMPUTE JOBM=Q13S2C.
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=Q13S2C.
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).
MISSING VALUES GEN,SYO,JOBF,JOBM,JOBS,
GEN95,SYO95,JOBF95,JOBM95,JOBS95(999).
VARIABL LABELS GEN '現職威信スコア'
/SYO '初職威信スコア' /JOBF '父職威信スコア'
/JOBM '母職威信スコア' /JOBS '配偶者威信スコア' .
/***** SSM SYOKUGYO ISIN SCORE 95NENBAN(Male) 19971223 *****/
COMPUTE GEN95m=Q4E.
COMPUTE SYO95m=Q5E.
COMPUTE JOBF95m=Q11E.
COMPUTE JOBM95m=Q13S2C.
COMPUTE JOBS95m=Q17E.
RECODE GEN95m,SYO95m,JOBF95m,JOBM95m,JOBS95m
(501 THRU 502=72.1)(503=66.7)(504 THRU 505=72.1)
(506 THRU 507=66.7)(508 THRU 509=88.5)(510=64.6)(511 THRU 516=57.8)
(517=86.7)(518 THRU 519=71.7)(520=57.9)(521 THRU 523=63.8)(524=83.4)
(525=63.8)(526=57.9)(527=60.1)(528=67.1)(529=51.6)(530=67.1)
(531 THRU 532=63.5)(533=67.1)(534 THRU 535=68.9)(536=64.6)(537=52.0)
(538=57.8)(539=57.9)(540 THRU 541=71.7)(542=68.2)(543 THRU 544=63.8)
(545=67.3)(546=74.6)(547=67.3)(548=78.2)(549=67.3)(550=59.4)
(551 THRU 552=57.0)(553=55.5)(554=51.6)(555 THRU 556=47.4)
(557 THRU 558=51.6)(559=52.7)(560=47.3)(561 THRU 562=41.9)(563=47.3)
(564 THRU 565=47.4)(566=51.5)(567=53.8)(568=51.5)(569 THRU 571=41.9)
(572 THRU 573=46.5)(574=43.5)(575=46.5)(576 THRU 577=41.9)(578=37.3)
(579=49.5)(580=41.4)(581=50.7)(582 THRU 583=37.3)(584=68.2)
(585 THRU 586=37.3)(587=48.4)(588=37.3)(589=51.5)(590=38.9)
(591=63.5)(592=37.3)(593 THRU 595=55.9)(596 THRU 597=38.9)(598=55.9)
(599 THRU 603=45.4)(604 THRU 605=46.6)(606=50.7)(607=48.4)
(608 THRU 610=82.3)(611 THRU 613=47.3)(614=37.6)(615 THRU 616=50.7)
(617 THRU 618=45.5)(619=50.7)(620 THRU 622=36.3)(623 THRU 624=51.6)
(625 THRU 626=43.6)(627 THRU 642=47.7)(643=42.2)(644=44.2)
(645 THRU 646=42.2)(647=44.2)(648 THRU 650=41.4)(651=51.6)
(652 THRU 653=41.4)(654=51.6)(655=52.7)(656=51.6)(657=41.4)
(658=43.6)(659 THRU 660=47.7)(661=43.6)(662 THRU 666=51.6)
(667 THRU 669=43.6)(670 THRU 671=51.6)(672=41.4)(673 THRU 675=46.6)
(676 THRU 677=49.9)(678 THRU 679=52.7)(680=45.2)(681=52.7)
(682 THRU 683=37.6)(684=46.9)(685 THRU 688=37.6)(689 thru 999=999).
MISSING VALUES GEN95m,SYO95m,JOBF95m,JOBM95m,JOBS95m(999).
/***** SSM SYOKUGYO ISIN SCORE 95NENBAN(Female) 19971223 *****/
COMPUTE GEN95f=Q4E.
COMPUTE SYO95f=Q5E.
COMPUTE JOBF95f=Q11E.
COMPUTE JOBM95f=Q13S2C.
COMPUTE JOBS95f=Q17E.
RECODE GEN95f,SYO95f,JOBF95f,JOBM95f,JOBS95f
(501 THRU 502=71.8)(503=66.0)(504 THRU 505=71.8)
(506 THRU 507=66.0)(508 THRU 509=91.5)(510=66.7)(511 THRU 516=61.5)
(517=87.1)(518 THRU 519=70.1)(520=58.6)(521 THRU 523=63.4)(524=85.1)
(525=63.4)(526=58.6)(527=60.5)(528=66.2)(529=52.7)(530=66.2)
(531 THRU 532=65.5)(533=66.2)(534 THRU 535=69.0)(536=66.7)(537=53.8)
(538=61.5)(539=58.6)(540 THRU 541=70.1)(542=71.6)(543 THRU 544=63.4)
(545=67.1)(546=74.9)(547=67.1)(548=78.1)(549=67.1)(550=59.9)
(551 THRU 552=56.8)(553=56.6)(554=52.7)(555 THRU 556=48.9)
(557 THRU 558=52.7)(559=53.1)(560=48.3)(561 THRU 562=42.9)(563=48.3)
(564 THRU 565=48.9)(566=51.1)(567=52.0)(568=51.1)(569 THRU 571=42.9)
(572 THRU 573=47.9)(574=45.0)(575=47.9)(576 THRU 577=42.9)(578=38.8)
(579=49.8)(580=42.5)(581=52.5)(582 THRU 583=38.8)(584=71.6)
(585 THRU 586=38.8)(587=49.4)(588=38.8)(589=51.1)(590=40.8)
(591=65.5)(592=38.8)(593 THRU 595=59.7)(596 THRU 597=40.8)(598=59.7)
(599 THRU 603=45.8)(604 THRU 605=46.5)(606=51.9)(607=49.4)
(608 THRU 610=82.6)(611 THRU 613=48.3)(614=40.2)(615 THRU 616=51.9)
(617 THRU 618=46.9)(619=51.9)(620 THRU 622=37.0)(623 THRU 624=52.5)
(625 THRU 626=44.4)(627 THRU 642=50.0)(643=42.2)(644=45.0)
(645 THRU 646=42.2)(647=45.0)(648 THRU 650=42.5)(651=52.5)
(652 THRU 653=42.5)(654=52.5)(655=53.5)(656=52.5)(657=42.5)
(658=44.4)(659 THRU 660=50.0)(661=44.0)(662 THRU 666=52.1)
(667 THRU 669=44.4)(670 THRU 671=52.5)(672=42.5)(673 THRU 675=47.0)
(676 THRU 677=50.9)(678 THRU 679=53.5)(680=46.9)(681=53.5)
(682 THRU 683=40.2)(684=48.7)(685 THRU 688=40.2)(689 thru 999=999).
MISSING VALUES GEN95f,SYO95f,JOBF95f,JOBM95f,JOBS95f(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.
MISSING VALUES 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 (Q13S2B<9 ) CSCALM=1.
IF (Q13S2B=9 OR Q13S2B=10) CSCALM=2.
/***** 従業先規模による威信スコアの差の５グループに分ける *****/
COMPUTE SC97GM=Q13S2C.
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 ISIN SCORE 95NENBAN *****/
ARRAY ocup(I) Q4E Q5E Q11E Q13S2C Q17E;
ARRAY sco(I) GEN95 SYO95 JOBF95 JOBM95 JOBS95;
DO I=1 TO 5;
select;
when(501<=ocup<=502) sco=72.0;
when( ocup =503) sco=66.3;
when(504<=ocup<=505) sco=72.0;
when(506<=ocup<=507) sco=66.3;
when(508<=ocup<=509) sco=90.1;
when( ocup =510) sco=65.7;
when(511<=ocup<=516) sco=59.7;
when( ocup =517) sco=86.9;
when(518<=ocup<=519) sco=70.8;
when( ocup =520) sco=58.3;
when(521<=ocup<=523) sco=63.6;
when( ocup =524) sco=84.3;
when( ocup =525) sco=63.6;
when( ocup =526) sco=58.3;
when( ocup =527) sco=60.3;
when( ocup =528) sco=66.6;
when( ocup =529) sco=52.2;
when( ocup =530) sco=66.6;
when(531<=ocup<=532) sco=64.6;
when( ocup =533) sco=66.6;
when(534<=ocup<=535) sco=69.0;
when( ocup =536) sco=65.7;
when( ocup =537) sco=52.9;
when( ocup =538) sco=59.7;
when( ocup =539) sco=58.3;
when(540<=ocup<=541) sco=70.8;
when( ocup =542) sco=70.0;
when(543<=ocup<=544) sco=63.6;
when( ocup =545) sco=67.2;
when( ocup =546) sco=74.9;
when( ocup =547) sco=67.2;
when( ocup =548) sco=78.1;
when( ocup =549) sco=67.2;
when( ocup =550) sco=59.7;
when(551<=ocup<=552) sco=56.9;
when( ocup =553) sco=56.1;
when( ocup =554) sco=52.2;
when(555<=ocup<=556) sco=48.2;
when(557<=ocup<=558) sco=52.2;
when( ocup =559) sco=52.9;
when( ocup =560) sco=47.8;
when(561<=ocup<=562) sco=42.4;
when( ocup =563) sco=47.8;
when(564<=ocup<=565) sco=48.2;
when( ocup =566) sco=51.3;
when( ocup =567) sco=52.9;
when( ocup =568) sco=51.3;
when(569<=ocup<=571) sco=42.4;
when(572<=ocup<=573) sco=47.2;
when( ocup =574) sco=44.3;
when( ocup =575) sco=47.2;
when(576<=ocup<=577) sco=42.4;
when( ocup =578) sco=38.1;
when( ocup =579) sco=49.7;
when( ocup =580) sco=42.0;
when( ocup =581) sco=51.6;
when(582<=ocup<=583) sco=38.1;
when( ocup =584) sco=70.0;
when(585<=ocup<=586) sco=38.1;
when( ocup =587) sco=48.9;
when( ocup =588) sco=38.1;
when( ocup =589) sco=51.3;
when( ocup =590) sco=39.9;
when( ocup =591) sco=64.6;
when( ocup =592) sco=38.1;
when(593<=ocup<=595) sco=57.9;
when(596<=ocup<=597) sco=39.9;
when( ocup =598) sco=57.9;
when(599<=ocup<=603) sco=45.6;
when(604<=ocup<=605) sco=46.5;
when( ocup =606) sco=51.3;
when( ocup =607) sco=48.9;
when(608<=ocup<=610) sco=82.5;
when(611<=ocup<=613) sco=47.8;
when( ocup =614) sco=39.0;
when(615<=ocup<=616) sco=51.3;
when(617<=ocup<=618) sco=46.2;
when( ocup =619) sco=51.3;
when(620<=ocup<=622) sco=36.7;
when(623<=ocup<=624) sco=52.1;
when(625<=ocup<=626) sco=44.0;
when(627<=ocup<=642) sco=48.9;
when( ocup =643) sco=42.2;
when( ocup =644) sco=44.6;
when(645<=ocup<=646) sco=42.2;
when( ocup =647) sco=44.6;
when(648<=ocup<=650) sco=42.0;
when( ocup =651) sco=52.1;
when(652<=ocup<=653) sco=42.0;
when( ocup =654) sco=52.1;
when( ocup =655) sco=53.1;
when( ocup =656) sco=52.1;
when( ocup =657) sco=42.0;
when( ocup =658) sco=44.0;
when(659<=ocup<=660) sco=48.9;
when( ocup =661) sco=44.0;
when(662<=ocup<=666) sco=52.1;
when(667<=ocup<=669) sco=44.0;
when(670<=ocup<=671) sco=52.1;
when( ocup =672) sco=42.0;
when(673<=ocup<=675) sco=46.8;
when(676<=ocup<=677) sco=50.4;
when(678<=ocup<=679) sco=53.1;
when( ocup =680) sco=46.1;
when( ocup =681) sco=53.1;
when(682<=ocup<=683) sco=39.0;
when( ocup =684) sco=47.9;
when(685<=ocup<=688) sco=39.0;
when( ocup =689) sco=;
otherwise sco=.;
end;
end;
/***** SYOKUGYO ISIN SCORE97 95nenban kigyo kibo version 19971017 *****/
/***** 本人現職について 新威信スコア作成プログラム *****/
/***** *****/
GEN97 = GEN95;
/***** 職従業先規模を、大と中小に分ける *****/
CSCAL=0;
IF (Q4D<9 ) THEN CSCAL=1;
IF (Q4D=9 OR Q4D=10) THEN CSCAL=2;
/***** 従業先規模による威信スコアの差の５グループに分ける *****/
SC97SG2=Q4E;
select;
when (548 <= SC97SG2 <= 549) SC97SG = 1;
when (550 <= SC97SG2 <= 553) SC97SG = 2;
when ( SC97SG2 = 608) SC97SG = 2;
when (554 <= SC97SG2 <= 565) SC97SG = 3;
when ( SC97SG2 = 586) SC97SG = 3;
when ( SC97SG2 = 590) SC97SG = 3;
when (616 <= SC97SG2 <= 619) SC97SG = 3;
when (566 <= SC97SG2 <= 577) SC97SG = 4;
when (582 <= SC97SG2 <= 589) SC97SG = 4;
when (578 <= SC97SG2 <= 581) SC97SG = 5;
when (591 <= SC97SG2 <= 592) SC97SG = 5;
when (606 <= SC97SG2 <= 607) SC97SG = 5;
when (611 <= SC97SG2 <= 614) SC97SG = 5;
when (620 <= SC97SG2 <= 688) SC97SG = 5;
when (501 <= SC97SG2 <= 545) SC97SG = 0;
when (599 <= SC97SG2 <= 605) SC97SG = 0;
when (609 <= SC97SG2 <= 610) SC97SG = 0;
when ( SC97SG2 = 615) SC97SG = 0;
when (689 <= SC97SG2 <= 998) SC97SG = 0;
when (546 <= SC97SG2 <= 547) SC97SG = 0;
when (593 <= SC97SG2 <= 598) SC97SG = 0;
when ( SC97SG2 = 999) SC97SG = 0;
otherwise SC97SG = 0;
end;
/***** 従業先規模により、威信スコアに差を付ける *****/
IF ( CSCAL = 1 AND SC97SG= 1 ) THEN GEN97 = GEN95 - 9;
IF ( CSCAL = 2 AND SC97SG= 1 ) THEN GEN97 = GEN95 + 9;
IF ( CSCAL = 1 AND SC97SG= 2 ) THEN GEN97 = GEN95 - (7/2);
IF ( CSCAL = 2 AND SC97SG= 2 ) THEN GEN97 = GEN95 + (7/2);
IF ( CSCAL = 1 AND SC97SG= 3 ) THEN GEN97 = GEN95 - 5;
IF ( CSCAL = 2 AND SC97SG= 3 ) THEN GEN97 = GEN95 + 5;
IF ( CSCAL = 1 AND SC97SG= 4 ) THEN GEN97 = GEN95 - 3;
IF ( CSCAL = 2 AND SC97SG= 4 ) THEN GEN97 = GEN95 + 3;
IF ( CSCAL = 1 AND SC97SG= 5 ) THEN GEN97 = GEN95 - 2;
IF ( CSCAL = 2 AND SC97SG= 5 ) THEN GEN97 = GEN95 + 2;
参考文献
村瀬洋一．1998a．「新職業威信スコアの有効性 −従業先規模を考慮した新スコ
アによる分析の効果」．『第25回数理社会学会大会研究報告要旨集』30-33．
村瀬洋一．1998b．「職業威信スコアの問題点と新スコアの提案 −従業先規模が
職業評価に及ぼす影響を中心に−」．都築一治編『（仮題）職業威信の分析
(1995年ＳＳＭ調査シリーズ５)』
All Rights Reserved, Copyright(c), MURASE,Yoichi
ご意見、お問い合わせはお気軽にどうぞ E-mail : murase@rikkyo.ac.jp