/**** SSM85 DANSEI Q HA QUESTION S HA SUBQUESTION BY MURASE *****/ /***** Version1.0 19981229 *****/ /***** 組合の変数　追加版　　　 *****/ /***** このプログラムは自由に配布してかまいません *****/ /***** ただし、バグを見つけたら修正版を出すのでご注意 *****/ SET LENGTH=NONE /LOG=OFF /BOXSTRING='-|+'. DATA LIST FILE='C:\Documents and Settings\yourname\My Documents\SSM85MS.DAT' NOTABLE RECORDS 4 FIXED /CITY 1-3 B01 B021 B022 B03A B03C B03D 7-18 B03E 19-21 B03F B03H 22-23 B05A 24-25 B05B 26 B06A B06B B06C B06D B06E B06F B06G B06H 36-43 B07A 44-46 B07B 47-48 B081 49 B081A B081C B081D 50-55 B081E 56-58 B081F 59 B082 60 B082A B082C B082D 61-66 B082E 67-69 B082F 70 /B083 7 B083A B083C B083D 8-13 B083E 14-16 B083F 17 B09A 18 B09B 19-20 B09C1 B09C2 B09C3 B09C4 B09C5 B09C6 B09C7 B09C8 B09C9 B09C10 21-30 B10 B11A B11C B11D 31-38 B11E 39-41 B11F 42 B12A B12C B12D 43-48 B12E 49-51 B12F B13A B13B B13C 52-55 B13D1 B13D2 56-61 B13E 62-63 /B2201 TO B2214 B23 7-21 B24A 22-23 B24B 24 B24C 25-26 B25A B25B B25C 27-32 NJOB 71-72 /JOB1 JOB1A JOB1C JOB1D 7-14 JOB1E 15-17 JOB1F 18 JOB1G 19-20 JOBN JOBNA JOBNC JOBND 21-28 JOBNE 29-31 JOBNF 32 JOBNG 33-34. COMPUTE GEN=B03E. COMPUTE SYO=JOB1E. COMPUTE JOBF=B083E. RECODE JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (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 JOBF,GEN,SYO (3 THRU 7=61.0)(24=73.0)(277=32.0)(272,273=45.0) (289 THRU 999=999). COMPUTE JOBX=B03E. COMPUTE JOBXFATH=B083E. RECODE JOBX,JOBXFATH (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=B03A. COMPUTE JOBD=B03D. COMPUTE JOBE=JOBX. 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 4 OR 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 (JOBE EQ 1) JOBY=3. IF (JOBE EQ 8) JOBY=12. IF (B03E EQ 986) JOBY=96. IF (B03E EQ 988) JOBY=98. IF (B03E EQ 998) JOBY=88. /* IF (JOBE EQ 9) JOBY=99.*/ COMPUTE JOB8=JOBX. COMPUTE SOGOJ=JOBY. RECODE JOBY(6,7=6)(8,9=7)(10,11=8)(12=9). COMPUTE SOGOJK=JOBY. /***** SOGO SYOKUGYO BUNRUI TITI BY MURASE 19981229 *****/ COMPUTE JOBYFATH=99. COMPUTE JOBAFATH=B083A. COMPUTE JOBDFATH=B083D. COMPUTE JOBEFATH=JOBXFATH. IF (JOBEFATH EQ 6 OR JOBEFATH EQ 7) JOBYFATH=11. IF ((JOBYFATH EQ 11) AND (JOBDFATH EQ 9)) JOBYFATH=9. IF ((JOBYFATH EQ 11) AND (JOBDFATH EQ 10)) JOBYFATH=9. IF (JOBEFATH EQ 5) JOBYFATH=10. IF ((JOBYFATH EQ 10) AND (JOBDFATH EQ 9)) JOBYFATH=8. IF ((JOBYFATH EQ 10) AND (JOBDFATH EQ 10)) JOBYFATH=8. IF (JOBEFATH EQ 4) JOBYFATH=7. IF (JOBEFATH EQ 3) JOBYFATH=6. IF ((JOBYFATH EQ 6 OR JOBYFATH EQ 7) AND (JOBDFATH EQ 9)) JOBYFATH=5. IF ((JOBYFATH EQ 6 OR JOBYFATH EQ 7) AND (JOBDFATH EQ 10)) JOBYFATH=5. IF (JOBAFATH EQ 4 OR JOBAFATH EQ 5 OR JOBAFATH EQ 6) JOBYFATH=2. IF ((JOBYFATH EQ 2) AND (JOBEFATH GE 1 AND JOBEFATH LE 4)) JOBYFATH=1. IF ((JOBYFATH EQ 1 OR JOBYFATH EQ 2) AND (JOBDFATH EQ 8)) JOBYFATH=4. IF ((JOBYFATH EQ 1 OR JOBYFATH EQ 2) AND (JOBDFATH EQ 9)) JOBYFATH=4. IF (JOBEFATH EQ 2) JOBYFATH=4. IF ((JOBYFATH EQ 4) AND (JOBDFATH EQ 1 OR JOBDFATH EQ 2)) JOBYFATH=1. IF (JOBEFATH EQ 1) JOBYFATH=3. IF (JOBEFATH EQ 8) JOBYFATH=12. IF (JOBEFATH EQ 9) JOBYFATH=96. IF (JOBEFATH EQ 10) JOBYFATH=98. IF (JOBEFATH EQ 99) JOBYFATH=99. COMPUTE JOB8FATH=JOBXFATH. COMPUTE SOGOJFAT=JOBYFATH. RECODE JOBYFATH(6,7=6)(8,9=7)(10,11=8)(12=9). COMPUTE SOGOJKFA=JOBYFATH. COMPUTE SOGOJKF2=JOBYFATH. RECODE SOGOJKF2(4=5)(5=6)(6=7)(7=8)(8=9)(9=10). IF ((JOBYFATH EQ 4) AND (JOBDFATH EQ 9 OR JOBDFATH EQ 10)) SOGOJKF2=4. COMPUTE SELFEMFA=0. IF (B083A=4 or B083A=5 or B083A=6 or B083A=1) SELFEMFA=1. COMPUTE SELFNOFA=0. IF (SOGOJFAT=1) SELFNOFA=1. COMPUTE SELFMAFA=0. IF (SOGOJFAT=2) SELFMAFA=1. COMPUTE NOGYOFA=0. IF (SOGOJFAT=12) NOGYOFA=1. COMPUTE ZIEIKOYO=0. IF (SOGOJK=1 OR SOGOJK=2 OR SOGOJK=9) ZIEIKOYO=11. IF (SOGOJK=3 OR SOGOJK=4 OR SOGOJK=5 OR SOGOJK=6 OR SOGOJK=7 OR SOGOJK=8) ZIEIKOYO=12. IF ( SOGOJK=96 ) ZIEIKOYO=13. COMPUTE ZIEIKO2=0. IF (B03A<4 ) ZIEIKO2=12. IF (B03A=4 OR B03A=5 OR B03A=6) ZIEIKO2=11. IF ( SOGOJK=9 ) ZIEIKO2=11. IF ( SOGOJK=96 ) ZIEIKO2=13. COMPUTE EDU=B05A. COMPUTE EDUF=B07B. RECODE EDU,EDUF (1=6)(2=8)(3=11)(4=14)(5=17)(12=9)(13=12)(14=14)(15=16)(0,20,30=99). COMPUTE EDU2=B05A. RECODE EDU2 (1=9)(2=9)(3=12)(4=14)(5=16)(12=9)(13=12)(14=14)(15=16)(0,20,30=99). COMPUTE EDU3=B05A. RECODE EDU3 (1=9)(2=9)(3=12)(4=16)(5=16)(12=9)(13=12)(14=16)(15=16)(0,20,30=99). COMPUTE AGE=B01. COMPUTE NENDAI=B01. RECODE NENDAI(20 THRU 29 =20)(30 THRU 39 =30)(40 THRU 49 =40) (50 THRU 59 =50)(60 THRU 69 =60) . COMPUTE AREA=CITY. RECODE AREA (081 THRU 102=11)(111 THRU 117=12)(164 THRU 168=13) (186 THRU 189=14)(193 THRU 199=15)(215 THRU 217=16) (001 THRU 010 =20) (015,016,019,020,022 THRU 025,028,029,032,033,035 THRU 037 =21) (040 THRU 042,047 THRU 049,051 THRU 053,056 THRU 066,069 THRU 078, 103 THRU 110,118 THRU 127 =22) (129 THRU 132,135 THRU 136,138 THRU 139,141,144 THRU 147,150 THRU 152, 155 THRU 161,169 THRU 176 =23) (179 THRU 181,184,190 THRU 191,200 THRU 213,218 THRU 224,227 THRU 228, 230 THRU 231 =24) (233,235,237 THRU 240,242 THRU 246,249 THRU 251 =25) (253,255 THRU 256,259 THRU 261,263 =26) (265 THRU 272,276,278 THRU 279,281 THRU 282,285 THRU 287,290 THRU 291, 293 THRU 295, =27) (298 THRU 300, =28) (011 THRU 014 =30) (017,018,021,026,027,030,031,034,038,039 =31) (043 THRU 046,050,054,055,067,068,079,080,128 =32) (133,134,137,140,142,143,148,149,153,154,162,163,177,178 =33) (182,183,185,192,214,225,226,229,232, =34) (234,236,241,247,248,252 =35) (254,257,258,262,264 =36) (273 THRU 275,277,280,283,284,288,289,292,296,297, =37) . COMPUTE AREA2=AREA. RECODE AREA2 (11 THRU 16=1)(20 THRU 28=2)(30 THRU 37=3) . COMPUTE AREA3=1. IF (AREA2=3) AREA3=0. COMPUTE tosikibo=3-AREA2. /***** *****/ /***** 都市コードＡ（量的分類）　75年コードブックP.62と同じ　　　*****/ /***** *****/ COMPUTE CITYA=0. **MORE THAN 100. IF (CITY LE 3 ) CITYA=8. IF (CITY GE 81 AND CITY LE 102 ) CITYA=8. IF (CITY GE 111 AND CITY LE 120 ) CITYA=8. IF (CITY GE 164 AND CITY LE 168 ) CITYA=8. IF (CITY GE 186 AND CITY LE 189 ) CITYA=8. IF (CITY GE 193 AND CITY LE 199 ) CITYA=8. IF (CITY GE 215 AND CITY LE 217 ) CITYA=8. IF (CITY GE 265 AND CITY LE 269 ) CITYA=8. **50-100. IF (CITY EQ 22 OR CITY EQ 23 OR CITY EQ 69 OR CITY EQ 70 OR CITY EQ 155 OR CITY EQ 200 OR CITY EQ 201 OR CITY EQ 218 OR CITY EQ 242 OR CITY EQ 243 OR CITY EQ 239 OR CITY EQ 240 OR CITY EQ 281 OR CITY EQ 293 ) CITYA=7. **20-50. IF (CITY EQ 4 OR CITY EQ 5 OR CITY EQ 15 OR CITY EQ 28 OR CITY EQ 33 OR CITY EQ 35 OR CITY EQ 36 OR CITY EQ 40 OR CITY EQ 47 OR CITY EQ 51 OR CITY EQ 52 ) CITYA=6. IF (CITY GE 56 AND CITY LE 60 ) CITYA=6. IF (CITY GE 71 AND CITY LE 74 ) CITYA=6. IF (CITY GE 121 AND CITY LE 124 ) CITYA=6. IF (CITY EQ 103 OR CITY EQ 129 OR CITY EQ 130 OR CITY EQ 135 OR CITY EQ 139 OR CITY EQ 147 OR CITY EQ 150 OR CITY EQ 156 OR CITY EQ 157 OR CITY EQ 158 OR CITY EQ 169 OR CITY EQ 170 OR CITY EQ 171 OR CITY EQ 179 ) CITYA=6. IF (CITY GE 202 AND CITY LE 208 ) CITYA=6. IF (CITY EQ 219 OR CITY EQ 220 OR CITY EQ 221 OR CITY EQ 227 OR CITY EQ 230 OR CITY EQ 231 OR CITY EQ 238 OR CITY EQ 244 OR CITY EQ 249 OR CITY EQ 253 OR CITY EQ 256 OR CITY EQ 259 OR CITY EQ 263 OR CITY EQ 279 OR CITY EQ 285 OR CITY EQ 291 OR CITY EQ 298 ) CITYA=6. **10-20. IF (CITY EQ 6 OR CITY EQ 7 OR CITY EQ 16 OR CITY EQ 24 OR CITY EQ 37 OR CITY EQ 48 OR CITY EQ 53 OR CITY EQ 61 OR CITY EQ 62 OR CITY EQ 63 OR CITY EQ 75 OR CITY EQ 76 ) CITYA=5. IF (CITY GE 104 AND CITY LE 108 ) CITYA=5. IF (CITY EQ 125 OR CITY EQ 126 OR CITY EQ 146 OR CITY EQ 151 OR CITY EQ 159 OR CITY EQ 172 OR CITY EQ 180 OR CITY EQ 184 OR CITY EQ 190 OR CITY EQ 191 OR CITY EQ 209 OR CITY EQ 210 OR CITY EQ 211 OR CITY EQ 222 OR CITY EQ 223 OR CITY EQ 233 OR CITY EQ 245 OR CITY EQ 250 OR CITY EQ 260 OR CITY EQ 270 OR CITY EQ 286 OR CITY EQ 300 ) CITYA=5. ** 5-10. IF (CITY EQ 8 OR CITY EQ 20 OR CITY EQ 29 OR CITY EQ 32 OR CITY EQ 41 OR CITY EQ 49 OR CITY EQ 64 OR CITY EQ 65 OR CITY EQ 66 OR CITY EQ 77 OR CITY EQ 78 OR CITY EQ 109 OR CITY EQ 127 OR CITY EQ 131 OR CITY EQ 136 OR CITY EQ 138 OR CITY EQ 141 OR CITY EQ 145 OR CITY EQ 152 OR CITY EQ 160 OR CITY EQ 161 OR CITY EQ 173 OR CITY EQ 174 OR CITY EQ 175 OR CITY EQ 181 OR CITY EQ 212 OR CITY EQ 213 OR CITY EQ 228 OR CITY EQ 251 OR CITY EQ 255 OR CITY EQ 271 OR CITY EQ 276 OR CITY EQ 278 OR CITY EQ 290 OR CITY EQ 294 OR CITY EQ 299 ) CITYA=4. ** LESS THAN 5. IF (CITY EQ 9 OR CITY EQ 10 OR CITY EQ 19 OR CITY EQ 25 OR CITY EQ 42 OR CITY EQ 110 OR CITY EQ 132 OR CITY EQ 144 OR CITY EQ 176 OR CITY EQ 224 OR CITY EQ 235 OR CITY EQ 237 OR CITY EQ 246 OR CITY EQ 261 OR CITY EQ 272 OR CITY EQ 282 OR CITY EQ 287 OR CITY EQ 295 ) CITYA=3. ** TOWN. IF (CITY GE 11 AND CITY LE 14 ) CITYA=2. IF (CITY EQ 17 OR CITY EQ 18 OR CITY EQ 21 OR CITY EQ 26 OR CITY EQ 27 OR CITY EQ 31 OR CITY EQ 34 OR CITY EQ 38 OR CITY EQ 39 OR CITY EQ 45 OR CITY EQ 50 OR CITY EQ 67 OR CITY EQ 68 OR CITY EQ 79 OR CITY EQ 80 OR CITY EQ 128 OR CITY EQ 133 OR CITY EQ 134 OR CITY EQ 137 OR CITY EQ 140 OR CITY EQ 142 OR CITY EQ 148 OR CITY EQ 149 OR CITY EQ 154 OR CITY EQ 162 OR CITY EQ 163 OR CITY EQ 177 OR CITY EQ 182 OR CITY EQ 185 OR CITY EQ 192 OR CITY EQ 214 OR CITY EQ 225 OR CITY EQ 226 OR CITY EQ 234 OR CITY EQ 236 OR CITY EQ 241 OR CITY EQ 247 OR CITY EQ 248 OR CITY EQ 254 OR CITY EQ 257 OR CITY EQ 258 OR CITY EQ 262 OR CITY EQ 264 OR CITY EQ 273 OR CITY EQ 274 OR CITY EQ 275 OR CITY EQ 277 OR CITY EQ 280 OR CITY EQ 283 OR CITY EQ 284 OR CITY EQ 288 OR CITY EQ 289 OR CITY EQ 292 OR CITY EQ 296 OR CITY EQ 297 ) CITYA=2. ** VILLEGE. IF (CITY EQ 30 OR CITY EQ 43 OR CITY EQ 44 OR CITY EQ 46 OR CITY EQ 54 OR CITY EQ 55 OR CITY EQ 143 OR CITY EQ 153 OR CITY EQ 178 OR CITY EQ 183 OR CITY EQ 229 OR CITY EQ 232 OR CITY EQ 252 ) CITYA=1. VALUE LABELS CITYA 1 '村' 2 '町' 3 '市５万未満' 4 '市10万未満' 5 '市20万未満' 6 '市50万未満' 7 '100 万未満' 8 '100 万以上' . 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 CITYA3=CITYA. RECODE CITYA3 (1 THRU 2=1)(3 THRU 4=2)(5=3)(6=4)(7 THRU 8=5). VALUE LABELS CITYA3 1 '村・町' 2 '市10万未満' 3 '市20万未満' 4 '市50万未満' 5 '市50万以上' 9 'DK,NA' . COMPUTE CITYA4=CITYA. RECODE CITYA4 (1 THRU 2=1)(3=2)(4=3)(5=4)(6=5)(7 THRU 8=6). VALUE LABELS CITYA4 1 '村・町' 2 '市５万未満' 3 '市10万未満' 4 '市20万未満' 5 '市50万未満' 6 '50 万以上' 9 'DK,NA' . COMPUTE urbaniza=citya. 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. /* KESSONTI ITIBU NOMI */ MISSING VALUES B06A TO B06H B13A B13B B2201 TO B2214 (9). MISSING VALUES JOBF,GEN,SYO(999)/EDU,EDUF(99). COMPUTE SETAISYU=B25A. RECODE SETAISYU (1=0) (2=12.5)(3=37.5) (4=62.5)(5=87.5)(6=112.5)(7=137.5) (8=162.5)(9=187.5)(10=212.5)(11=250)(12=300)(13=350)(14=400) (15=450) (16=500)(17=550)(18=600)(19=650)(20=700)(21=750) (22=800) (23=850) (24=900) (25=950) (26=1000)(27=1050) (28=1100)(29=1150)(30=1200)(31=1250)(32=1300)(33=1350) (34=1400)(35=1450)(36=1500)(37 THRU 95 =1600) . COMPUTE KOZINSYU=B25B. RECODE KOZINSYU (1=0) (2=12.5)(3=37.5) (4=62.5)(5=87.5)(6=112.5)(7=137.5) (8=162.5)(9=187.5)(10=212.5)(11=250)(12=300)(13=350)(14=400) (15=450) (16=500)(17=550)(18=600)(19=650)(20=700)(21=750) (22=800) (23=850) (24=900) (25=950) (26=1000)(27=1050) (28=1100)(29=1150)(30=1200)(31=1250)(32=1300)(33=1350) (34=1400)(35=1450)(36=1500)(37 THRU 95 =1600) . COMPUTE SETAISY2=B25A. RECODE SETAISY2 (1,2,3,4,5,6,7,8,9=200) (10,11,12=300)(13,14=400) (15,16,=500)(17,18=600)(19,20,21,22=800)(23 THRU 66=1350) . COMPUTE KOZINSY2=B25B. RECODE KOZINSY2 (1,2,3,4,5=100)(6,7,8,9=200) (10,11,12=300)(13,14=400) (15,16,=500)(17,18=600)(19,20,21,22=800)(23 THRU 66=1350) . COMPUTE MOTIIE=0. IF (B23=1 OR B23=2) MOTIIE=1. COMPUTE ZAISAN=B2201+B2202+B2203+B2204+B2205+B2206+B2207+ B2208+B2209+B2210+B2211+B2212+B2213+B2214+MOTIIE. COMPUTE ZAISAN2=ZAISAN. RECODE ZAISAN2 (0,1,2,3,4,5=1)(6,7=2)(8,9=3)(10,11=4)(12,13,14,15=5). COMPUTE FAMINCOM=SETAISYU. COMPUTE PROPERTY=ZAISAN. COMPUTE COMSCALE =B03D. RECODE COMSCALE (10=9). MISSING VALUES COMSCALE (98,99). COMPUTE ORGRANK =B03F. MISSING VALUES ORGRANK (8,9). COMPUTE UNIONPRT =B03H. RECODE UNIONPRT (2,3=0). MISSING VALUES UNIONPRT (8,9). COMPUTE UNIONPRS =B03H. RECODE UNIONPRS (2=0). MISSING VALUES UNIONPRS (3,8,9). COMPUTE UNIONPRL =B03H. RECODE UNIONPRL (2,3,8=0). MISSING VALUES UNIONPRL (9). COMPUTE UNIONEXT =B03H. RECODE UNIONEXT (1,2=1)(3=0). MISSING VALUES UNIONEXT (8,9). COMPUTE UNIONETL =B03H. RECODE UNIONETL (1,2=1)(3,8=0). MISSING VALUES UNIONETL (9). COMPUTE UNION =B03H. MISSING VALUES UNION (8,9). COMPUTE UNION2 =B03H. RECODE UNION2 (8=3). VARIABL LABELS SOGOJ '総合職業分類' /JOBY,SOGOJK '総合職業簡略版' /AREA2 '層別' /AREA3 '都市・農村' . VALUE LABELS B24A 01 '自民党' 02 '社会党' 03 '公明党' 04 '民社党' 05 '共産党' 06 '新自由クラブ' 07 '社民連' 08 'その他' 09 '支持政党なし' 99 'DK,NA' /SOGOJ 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大Ｗ' 6 '中小事務' 7 '中小販売' 8 '大熟練' 9 '大非熟練' 10 '中小熟練' 11 '中小非熟練' 12 '農業' 96 '無職' 98 '学生' /JOBY,SOGOJK,SOGOJKFA 1 '自営ノン' 2 '自営マニ' 3 '専門' 4 '管理' 5 '大Ｗ' 6 '中小Ｗ' 7 '大Ｂ' 8 '中小Ｂ' 9 '農業' 96 '無職' 98 '学生' /AREA2 1 '６大都市' 2 '市部' 3 '郡部' /AREA3 1 '都市' 0 '郡部' . FREQUENCIES VARIABLES=orgrank .