/***** JGSS2005分析用シンタックス 2008 0930 *****/ /***** by Murase 村瀬 洋一 murase(a)m.email.ne.jp *****/ /***** 職業威信スコアを作るためのもの *****/ /***** データファイルのあるフォルダ名を適当に書き換えて使用してください *****/ /***** 97年版職業威信スコアは GEN97 SYO97 JOBF97 JOBS97 *****/ /***** ★詳しくは『1995SSM調査シリーズ 職業威信』村瀬論文参照 *****/ /***** なお、必要に応じて、管理職修正シンタックスを実行してから *****/ /***** 威信スコア作成シンタックスを実行してください *****/ GET FILE='C:\Documents and Settings\yourname\My Documents\jgss2005v010_j.por'. /***** 701 レジスター係員 会計事務員559 と同じ扱い 事務3 *****/ /***** 702 大工 679熟練5 *****/ /***** 703 教員 521専門1 *****/ /***** 704 製品製造作業者 672半熟練6 *****/ /***** 705 会社員 無回答99 *****/ /***** 707 特に父職で記入が「自営業」 無回答99 *****/ RECODE XXJOB XXFSTJB PPJBXX15 SSXXJOB (701=559) (702=679) (703=521) (704=672) (SYSMIS=986). /***** SSM SYOKUGYO ISIN SCORE 75NENBAN BY MURASE 19970627 *****/ /***** JGSS2005用に書き換えたシンタックス BY MURASE 20080930 *****/ /***** 1995SSM調査B票シンタックスをもとに書き換えたもの *****/ /***** なおJGSS2005は母の職種の問がない *****/ /***** 現職、初職、父職、配偶者職の職業威信スコア *****/ /***** JGSSもSSM調査1995職業分類コード(500から689まで)を使用 *****/ /***** ただし701以降の追加コードがあるので注意 JGSSコードブック参照*****/ COMPUTE GEN=XXJOB. COMPUTE SYO=XXFSTJB. COMPUTE JOBF=PPJBXX15. COMPUTE JOBS=SSXXJOB. RECODE GEN,SYO,JOBF,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,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,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,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 700=999) (701=49.4)(702=45.3)(703=62.9)(704=32.6)(705 thru 999=999). /***** SSM SYOKUGYO ISIN SCORE 95NENBAN BY MURASE 19970508 *****/ /***** JGSS2005用に書き換えたシンタックス BY MURASE 20080930 *****/ COMPUTE GEN95=XXJOB. COMPUTE SYO95=XXFSTJB. COMPUTE JOBF95=PPJBXX15. COMPUTE JOBS95=SSXXJOB. RECODE GEN95,SYO95,JOBF95,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,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 700=999) (701=52.9)(702=53.1)(703=63.6)(704=42.0)(705 thru 999=999). /***** SYOKUGYO ISIN SCORE97 COMPANY SCALE WEIGHTED version 19971017 *****/ /***** JGSS2005用に書き換えたシンタックス BY MURASE 20080930 *****/ /***** 本人現職について 97年版新威信スコア作成プログラム *****/ /***** 従業先規模により威信スコアに差を付けたもの *****/ /***** ★詳しくは『1995SSM調査シリーズ 職業威信』村瀬論文参照 *****/ COMPUTE GEN97 = GEN95. COMPUTE Q4E =XXJOB. COMPUTE Q5E =XXFSTJB. COMPUTE Q11E=PPJBXX15. COMPUTE Q17E=SSXXJOB. COMPUTE Q4D =SZTTLSTA. COMPUTE Q5D =SZSTFFST. COMPUTE Q17D=SSSZSTFA. RECODE Q4D Q5D Q17D (9 THRU 12=9). COMPUTE Q11D=PPJBSZ15. RECODE Q11D (4 THRU 5=9). /***** 職従業先規模を、大と小に分ける *****/ COMPUTE CSCAL=0. IF (Q4D<9 ) CSCAL=1. IF (Q4D=9 OR Q4D=10) CSCAL=2. /***** 従業先規模による威信スコアの差の5グループに分ける *****/ 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 GEN,SYO,JOBF,JOBS, GEN95,SYO95,JOBF95,JOBS95,GEN97(999). /***** SYOKUGYO ISIN SCORE97 COMPANY SCALE WEIGHTED version 19971017 *****/ /***** JGSS2005用に書き換えたシンタックス BY MURASE 20080930 *****/ /*****  97年版新威信スコア作成プログラム *****/ /***** 従業先規模により威信スコアに差を付けたもの *****/ /***** ★詳しくは『1995SSM調査シリーズ 職業威信』村瀬論文参照 *****/ /***** ★初職、父職、配偶者職業について新威信スコア作成 *****/ COMPUTE SYO97 = SYO95. COMPUTE JOBF97 = JOBF95. COMPUTE JOBS97 = JOBS95. /***** 本人初職について *****/ /***** 職従業先規模を、大と小に分ける *****/ COMPUTE CSCALSYO=0. IF (Q5D<9 ) CSCALSYO=1. IF (Q5D=9 OR Q5D=10) CSCALSYO=2. /***** 従業先規模による威信スコアの差の5グループに分ける *****/ 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. /***** 従業先規模による威信スコアの差の5グループに分ける *****/ 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 CSCALS=0. IF (Q17D<9 ) CSCALS=1. IF (Q17D=9 OR Q17D=10) CSCALS=2. /***** 従業先規模による威信スコアの差の5グループに分ける *****/ 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,JOBS97(999). /***** 注意 データ人数を減らす処理 *****/ /***** 注意 データ人数を減らす処理 *****/ /***** 注意 データ人数を減らす処理 *****/ /***** 年齢 20から69まで *****/ /***** 絞りたいときは行頭星マークとる *****/ *select if AGEb >19. *select if AGEb <70. CORR VAR = GEN97 SYO97 JOBF97 JOBS97 .