/***** JGSS2008分析用シンタックス 2013 0108 ver1 *****/ /***** 村瀬 洋一 murase(a)gmail com *****/ /***** 各種の職業分類変数を作るためのもの *****/ /***** JGSSもSSM調査1995職業分類コード(500から689まで)を使用 *****/ /***** ただし701以降のJGSS独自の追加コードがあるので注意 *****/ /***** 701 レジスター係員 会計事務員559 と同じ扱い 事務3 *****/ /***** 702 大工 679熟練5 *****/ /***** 703 教員 521専門1 *****/ /***** 704 製品製造作業者 672半熟練6 *****/ /***** 705 会社員 無回答99 *****/ /***** 707 特に父職で記入が「自営業」 無回答99 *****/ /***** OLD SSM SYOKUGYO 8BUNRUI BY MURASE 19960707 *****/ /***** JGSS2008 you *****/ /***** 9 HA MUSYOKU 10 HA GAKUSEI 11 HA SONOTA *****/ /***** 1995SSM調査B票シンタックスをJGSS用に書き換えたもの*****/ /***** *****/ /***** ★このSSM8分類とは旧8分類である *****/ /***** 専門 管理 事務 販売 熟練 半熟練 非熟練 農林漁業 *****/ /***** 2008は2005のTP12JOBと同じものがないのでまず作るシンタックス *****/ /***** 以下にあるJOBAは従業上の地位TP12JOBと同じもの *****/ COMPUTE TP12JOB=99. IF ((TPJOB EQ 2) AND (TPJOBP EQ 1)) TP12JOB=2. IF ((TPJOB EQ 2) AND (TPJOBP EQ 2)) TP12JOB=3. IF ((TPJOB EQ 2) AND (TPJOBP EQ 3)) TP12JOB=4. IF ((TPJOB EQ 2) AND (TPJOBP EQ 4)) TP12JOB=5. IF ((TPJOB EQ 2) AND (TPJOBP EQ 5)) TP12JOB=6. IF ((TPJOB EQ 2) AND (TPJOBP EQ 6)) TP12JOB=7. IF ((TPJOB EQ 2) AND (TPJOBP EQ 7)) TP12JOB=8. IF (TPJOB EQ 1) TP12JOB=1. IF (TPJOB EQ 3) TP12JOB=9. IF (TPJOB EQ 4) TP12JOB=10. IF (TPJOB EQ 5) TP12JOB=11. IF (TPJOB EQ 6) TP12JOB=12. IF (TPJOB EQ 7) TP12JOB=14. /***** 職業小分類 管理職一部修正『SSM1995コードブック』P114 19971229 *****/ /***** まずこれを実行してから職業分類を作成すること MURASE 20080930 *****/ /***** 本人役職が30人以上か公務員かつ *****/ /***** 役職が課長か部長か役員以上の場合は職業を管理職545 548 550に変更 *****/ /***** ★SSM95B Q4A従業上地位 Q4D従業先規模 Q4E仕事内容職種 Q4F役職 *****/ /***** 2005データと比較しつつ以下の3変数を作らないとまだきちんと動かない TP12FSTJ PPJOBTP15 SSTP12JB *****/ COMPUTE CKANRI=1. IF ( (500 < XXJOB) AND (XXJOB < 554) ) CKANRI=0. IF ( (592 < XXJOB) AND (XXJOB < 599) ) CKANRI=0. IF ( XXJOB = 608 ) CKANRI=0. IF ( (688 < XXJOB) AND (XXJOB <1000) ) CKANRI=0. COMPUTE CKANRI2=0. IF ( (CKANRI=1) AND (SZTTLSTA>4) AND (SZTTLSTA<12) ) CKANRI2=1. IF ( (CKANRI=1) AND (SZTTLSTA=12)) CKANRI2=2. IF ( (CKANRI2=1) AND ((TP12JOB=5) OR (TP12JOB=6)) ) XXJOB=550. IF ( (CKANRI2=1) AND ( TP12JOB=1 ) ) XXJOB=548. IF ( (CKANRI2=2) AND ((TP12JOB=1) OR (TP12JOB=5) OR (TP12JOB=6)) ) XXJOB=545. /***** COMPUTE CKANSYO=1. IF ( (500 < XXFSTJB) AND (XXFSTJB < 554) ) CKANSYO=0. IF ( (592 < XXFSTJB) AND (XXFSTJB < 599) ) CKANSYO=0. IF ( XXFSTJB = 608 ) CKANSYO=0. IF ( (688 < XXFSTJB) AND (XXFSTJB <1000) ) CKANSYO=0. COMPUTE CKANSYO2=0. IF ( (CKANSYO=1) AND (SZSTFFST>4) AND (SZSTFFST<12) ) CKANSYO2=1. IF ( (CKANSYO=1) AND (SZSTFFST=12)) CKANSYO2=2. IF ( (CKANSYO2=1) AND ((TP12FSTJ=5) OR (TP12FSTJ=6)) ) XXFSTJB=550. IF ( (CKANSYO2=1) AND ( TP12FSTJ=1 ) ) XXFSTJB=548. IF ( (CKANSYO2=2) AND ((TP12FSTJ=1) OR (TP12FSTJ=5) OR (TP12FSTJ=6)) ) XXFSTJB=545. COMPUTE CKANFAT=1. IF ( (500 < PPJBXX15) AND (PPJBXX15 < 554) ) CKANFAT=0. IF ( (592 < PPJBXX15) AND (PPJBXX15 < 599) ) CKANFAT=0. IF ( PPJBXX15 = 608 ) CKANFAT=0. IF ( (688 < PPJBXX15) AND (PPJBXX15 <1000) ) CKANFAT=0. COMPUTE CKANFAT2=0. IF ( (CKANFAT=1) AND (PPJBSZ15>2) AND (PPJBSZ15< 5) ) CKANFAT2=1. IF ( (CKANFAT=1) AND (PPJBSZ15= 5)) CKANFAT2=2. IF ( (CKANFAT2=1) AND ((PPJBTP15=5) OR (PPJBTP15=6)) ) PPJBXX15=550. IF ( (CKANFAT2=1) AND ( PPJBTP15=1 ) ) PPJBXX15=548. IF ( (CKANFAT2=2) AND ((PPJBTP15=1) OR (PPJBTP15=5) OR (PPJBTP15=6)) ) PPJBXX15=545. COMPUTE CKANSPO=1. IF ( (500 < SSXXJOB) AND (SSXXJOB < 554) ) CKANSPO=0. IF ( (592 < SSXXJOB) AND (SSXXJOB < 599) ) CKANSPO=0. IF ( SSXXJOB = 608 ) CKANSPO=0. IF ( (688 < SSXXJOB) AND (SSXXJOB <1000) ) CKANSPO=0. COMPUTE CKANSPO2=0. IF ( (CKANSPO=1) AND (SSSZSTFA>4) AND (SSSZSTFA<12) ) CKANSPO2=1. IF ( (CKANSPO=1) AND (SSSZSTFA=12)) CKANSPO2=2. IF ( (CKANSPO2=1) AND ((SSTP12JB=5) OR (SSTP12JB=6)) ) SSXXJOB=550. IF ( (CKANSPO2=1) AND ( SSTP12JB=1 ) ) SSXXJOB=548. IF ( (CKANSPO2=2) AND ((SSTP12JB=1) OR (SSTP12JB=5) OR (SSTP12JB=6)) ) SSXXJOB=545. *****/ /***** OLD SSM SYOKUGYO 8BUNRUI BY MURASE 19960707 *****/ /***** JGSS2008 you *****/ /***** 9 HA MUSYOKU 10 HA GAKUSEI 11 HA SONOTA *****/ /***** 1995SSM調査B票シンタックスをJGSS用に書き換えたもの*****/ /***** *****/ /***** ★このSSM8分類とは旧8分類である *****/ /***** 専門 管理 事務 販売 熟練 半熟練 非熟練 農林漁業 *****/ RECODE XXJOB XXFSTJB PPJBXX15 SSXXJOB (701=559) (702=679) (703=521) (704=672) (SYSMIS=986). COMPUTE Q4EJOB=XXJOB. COMPUTE Q5EJOB=XXFSTJB. COMPUTE Q11EJOB=PPJBXX15. COMPUTE Q17EJOB=SSXXJOB. RECODE Q4EJOB Q5EJOB Q11EJOB Q17EJOB (SYSMIS=986). RECODE Q4EJOB Q5EJOB Q11EJOB 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 =99) ( 998 THRU 999 =99) ( 701 = 3) ( 702 = 5) ( 703 = 1) ( 704 = 6) ( 705 =99) ( 706 =99) ( 707 =99) ( 708 =99) (ELSE=11). COMPUTE JOB8=Q4EJOB. COMPUTE JOB8FATH=Q11EJOB. COMPUTE JOB8SYO=Q5EJOB. COMPUTE JOB8SPO=Q17EJOB. VARIABL LABELS JOB8 '旧職業8分類' /JOB8FATH '旧父職業8分類' /JOB8SYO '旧初職8分類' /JOB8SPO '旧配偶者職業8分類' . VALUE LABELS JOB8, JOB8FATH, JOB8SYO, JOB8SPO 1'専門' 2 '管理' 3 '事務' 4 '販売' 5 '熟練' 6 '半熟練' 7 '非熟練' 8 '農林' 9 '無職'. /***** SOGO SYOKUGYO 12 BUNRUI BY MURASE 19960707 *****/ /***** JGSS2008 you *****/ /***** 本人現職 ****/ /***** ****/ /***** 安田原の総合職業12分類 『1995SSM調査職業分類』か****/ /***** 『社会調査ハンドブック』参照 *****/ /***** 上の旧8分類作成プログラムをもとに分類しているので注意***/ /***** *****/ /*****★以下のJOBAは従業上の地位 JOBDは従業先の規模 *****/ /***** JOBDは従業先規模 JOBEは上記で作った旧8分類 ****/ /***** JOBYが最終的にできる総合職業分類 ****/ /***** つまり2008年の従業先規模の変数名はSZTTLSTA ****/ /***** JOBAの変数名や中身が年により違うことに注意 ****/ /***** ****/ /***** JOBA従業上の地位が自営か家族従業のものは自営と分類 *****/ /***** ただし自営かつ従業先規模500人以上は管理とする *****/ /***** JOBD従業先の規模1000人以上と公務員は大企業と分類 *****/ /***** 職種は管理職だが従業先規模4人以下の場合は *****/ /***** 自営ノンマニュアルと分類 *****/ /***** ただし、旧8分類が専門職はすべて専門職と分類 *****/ /***** ただし、旧8分類が農業はすべて農業と分類 *****/ COMPUTE JOBY=99. COMPUTE JOBA=TP12JOB. COMPUTE JOBD=SZTTLSTA. 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 ((JOBY EQ 11) AND (JOBD EQ 11)) JOBY=9. IF ((JOBY EQ 11) AND (JOBD EQ 12)) 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 ((JOBY EQ 10) AND (JOBD EQ 11)) JOBY=8. IF ((JOBY EQ 10) AND (JOBD EQ 12)) 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 ((JOBY EQ 6 OR JOBY EQ 7) AND (JOBD EQ 11)) JOBY=5. IF ((JOBY EQ 6 OR JOBY EQ 7) AND (JOBD EQ 12)) JOBY=5. IF (JOBA EQ 11 OR JOBA EQ 12) 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 ((JOBY EQ 1 OR JOBY EQ 2) AND (JOBD EQ 10)) JOBY=4. IF ((JOBY EQ 1 OR JOBY EQ 2) AND (JOBD EQ 11)) 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. COMPUTE SOGOJKB=JOBY. RECODE SOGOJKB(4=5)(5=6)(6=7)(7=8)(8=9)(9=10). IF ((JOBY EQ 4) AND (JOBD EQ 9 OR JOBD EQ 10)) SOGOJKB=4. IF ((JOBY EQ 4) AND (JOBD EQ 11 OR JOBD EQ 12)) SOGOJKB=4. 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). VARIABL LABELS SOGOJ '総合職業12分類' /SOGOJK '総合職業分類簡略版9分類' VALUE LABELS 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 '学生' /SOGOJKB 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '大管理' 5 '小管理' 6 '大W' 7 '中小W' 8 '大B' 9 '中小B' 10 '農業' 96 '無職' 98 '学生' . /***** SSM SIN 8BUNRUI BY MURASE 20030801 *****/ /***** JGSS2008 you *****/ /***** ★新総合8分類 原盛山『社会階層』東大出版 用語解説か ****/ /***** 『95SSM調査シリーズ1』200ページ参照 ****/ /***** 上の旧8分類シンタックスを使って分類しているので注意 *****/ /***** 以下のJOBAは従業上の地位 JOBDは従業先の規模 *****/ /***** JOBA従業上の地位が自営か家族従業のものは自営と分類 *****/ /***** JOBD従業先の規模300人以上と公務員は大企業と分類 *****/ /***** 旧8分類が熟練、半熟練、非熟練かつ従業上地位が経営は、自営ブルーと分類***/ /***** 旧8分類が管理、事務、販売かつ従業上地位が経営は、自営ホワイトと分類*****/ /***** ただし、旧8分類が専門職はすべて専門職と分類 *****/ /***** ただし、旧8分類が農業はすべて農業と分類 *****/ COMPUTE JOBS8=99. COMPUTE JOBA=TP12JOB. COMPUTE JOBD=SZTTLSTA. COMPUTE JOBE=JOB8. 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 (JOBD EQ 11)) JOBS8=5. IF ((JOBS8 EQ 6) AND (JOBD EQ 12)) JOBS8=5. IF ((JOBS8 EQ 6) AND (JOBA EQ 1) AND (JOBD NE 12)) 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 12)) 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 ((JOBS8 EQ 3) AND (JOBD EQ 11)) JOBS8=2. IF ((JOBS8 EQ 3) AND (JOBD EQ 12)) JOBS8=2. IF ( JOBA EQ 11 OR JOBA EQ 12 ) 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 JOBS8 1 '専門' 2 '大W' 3 '中小W' 4 '自営W' 5 '大B' 6 '中小B' 7 '自営B' 8 '農業' 96 '無職' 98 '学生' 99 '無回答' . /***** SSM SIN 8BUNRUI FATHER BY MURASE 20030801 ****/ /***** JGSS2008 you ****/ /***** ★新総合8分類 原盛山『社会階層』東大出版 用語解説か ****/ /***** 『95SSM調査シリーズ1』200ページ参照 ****/ /***** 上の旧8分類シンタックスを使って分類しているので注意 *****/ COMPUTE JOBT8=99. COMPUTE JOBAFA=PPJBTP15. COMPUTE JOBDFA=PPJBSZ15. COMPUTE JOBEF=JOB8FATH. IF (JOBEF EQ 5 OR JOBEF EQ 6 OR JOBEF EQ 7) JOBT8=6. IF ((JOBT8 EQ 6) AND (JOBDFA EQ 4)) JOBT8=5. IF ((JOBT8 EQ 6) AND (JOBDFA EQ 5)) JOBT8=5. IF ((JOBT8 EQ 6) AND (JOBAFA EQ 1) AND (JOBDFA NE 5)) JOBT8=7. IF (JOBEF EQ 2 OR JOBEF EQ 3 OR JOBEF EQ 4) JOBT8=3. IF ((JOBT8 EQ 3) AND (JOBAFA EQ 1) AND (JOBDFA NE 5)) JOBT8=4. IF ((JOBT8 EQ 3) AND (JOBDFA EQ 4)) JOBT8=2. IF ((JOBT8 EQ 3) AND (JOBDFA EQ 5)) JOBT8=2. IF ( JOBAFA EQ 10 OR JOBAFA EQ 11 ) 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 JOBT8 1 '専門' 2 '大W' 3 '中小W' 4 '自営W' 5 '大B' 6 '中小B' 7 '自営B' 8 '農業' 96 '無職' 98 '学生' 99 '無回答' . /***** 年齢と学歴 *****/ /***** 年齢と学歴 *****/ /***** age recode by MURASE *****/ COMPUTE NENDAI =AGEb. RECODE NENDAI(15 THRU 29 =2)(30 THRU 39 =3)(40 THRU 49 =4) (50 THRU 59 =5)(60 THRU 69 =6)(70 THRU 98 =7) . COMPUTE NENDAI2 =NENDAI. RECODE NENDAI2 (2,3 =2)(4,5 =4)(6,7=6). /***** gakureki wo kyoiku nensu ni henkan *****/ COMPUTE EDU=xxlstsch. COMPUTE EDUF=pplstsch. COMPUTE EDUM=mmlstsch. COMPUTE EDUS=sslstsch. RECODE EDU,EDUF,EDUM,EDUS (1=6)(2=8)(3,4=11)(5=13)(6=14)(7=17)(8=9)(9=12)(10=14) (11=16)(12=18)(13=99). /***** GAKUREKI KATEGORI SAKUSEI *****/ COMPUTE EDUCT =xxlstsch. COMPUTE EDUCTF =pplstsch. RECODE EDUCT EDUCTF (1=9) (2=9)(3,4=12)(5,6=14)(7=16) (8=9)(9=12)(10=14)(11,12=16)(13=99). COMPUTE EDUCT2 =xxlstsch. COMPUTE EDUCTF2 =pplstsch. RECODE EDUCT2 EDUCTF2 (1=9) (2=9)(3,4=12)(5,6,7=16) (8=9)(9=12)(10=16)(11,12=16)(13=99). missing values EDUCT EDUCTF EDUCT2 EDUCTF2 (99). /***** dummy hensu sakusei *****/ COMPUTE SEXDM=SEXa-1. COMPUTE SELFEMPL =0. IF (jobstats= 5) SELFEMPL =1. /***** 注意 データ人数を減らす処理 *****/ /***** 注意 データ人数を減らす処理 *****/ /***** 注意 データ人数を減らす処理 *****/ /***** 年齢 20から69まで *****/ /***** 絞りたいときは行頭星マークとる *****/ *select if AGEb >19. *select if AGEb <70. CROSSTABS /TABLES=sin8jobf BY sin8job BY sexa.