libname zh '~/taiwan/fies/sasdata'; options ls=72; %macro one(q); DATA zh.new&q; LENGTH DEFAULT=6; SET zh.data&q; * import the SAS data; DROP _name_ i daiha1-daiha305 value1-value305 ; ARRAY dai1{305} daiha1-daiha305; ARRAY val1{305} value1-value305; DO i=1 TO 305; * income receipts & expenditures; if dai1{i}=101 then id1=val1{i}; * personal id number; else if dai1{i}=102 then id2=val1{i}; else if dai1{i}=103 then id3=val1{i}; else if dai1{i}=104 then id4=val1{i}; else if dai1{i}=105 then id5=val1{i}; else if dai1{i}=106 then id6=val1{i}; else if dai1{i}=107 then id7=val1{i}; else if dai1{i}=108 then id8=val1{i}; else if dai1{i}=109 then id9=val1{i}; else if dai1{i}=400 then totinc0=val1{i}; * total income; else if dai1{i}=401 then totinc1=val1{i}; else if dai1{i}=402 then totinc2=val1{i}; else if dai1{i}=403 then totinc3=val1{i}; else if dai1{i}=404 then totinc4=val1{i}; else if dai1{i}=405 then totinc5=val1{i}; else if dai1{i}=406 then totinc6=val1{i}; else if dai1{i}=407 then totinc7=val1{i}; else if dai1{i}=408 then totinc8=val1{i}; else if dai1{i}=409 then totinc9=val1{i}; else if dai1{i}=190 then hirepay0=val1{i}; * pay as hired worker; else if dai1{i}=191 then hirepay1=val1{i}; else if dai1{i}=192 then hirepay2=val1{i}; else if dai1{i}=193 then hirepay3=val1{i}; else if dai1{i}=194 then hirepay4=val1{i}; else if dai1{i}=195 then hirepay5=val1{i}; else if dai1{i}=196 then hirepay6=val1{i}; else if dai1{i}=197 then hirepay7=val1{i}; else if dai1{i}=198 then hirepay8=val1{i}; else if dai1{i}=199 then hirepay9=val1{i}; else if dai1{i}=210 then pay1_0=val1{i}; * pay at first/main job; else if dai1{i}=211 then pay1_1=val1{i}; else if dai1{i}=212 then pay1_2=val1{i}; else if dai1{i}=213 then pay1_3=val1{i}; else if dai1{i}=214 then pay1_4=val1{i}; else if dai1{i}=215 then pay1_5=val1{i}; else if dai1{i}=216 then pay1_6=val1{i}; else if dai1{i}=217 then pay1_7=val1{i}; else if dai1{i}=218 then pay1_8=val1{i}; else if dai1{i}=219 then pay1_9=val1{i}; else if dai1{i}=220 then pay2_0=val1{i}; * pay at second job; else if dai1{i}=221 then pay2_1=val1{i}; else if dai1{i}=222 then pay2_2=val1{i}; else if dai1{i}=223 then pay2_3=val1{i}; else if dai1{i}=224 then pay2_4=val1{i}; else if dai1{i}=225 then pay2_5=val1{i}; else if dai1{i}=226 then pay2_6=val1{i}; else if dai1{i}=227 then pay2_7=val1{i}; else if dai1{i}=228 then pay2_8=val1{i}; else if dai1{i}=229 then pay2_9=val1{i}; else if dai1{i}=150 then retpay0=val1{i}; * retirement pay; else if dai1{i}=151 then retpay1=val1{i}; else if dai1{i}=152 then retpay2=val1{i}; else if dai1{i}=153 then retpay3=val1{i}; else if dai1{i}=154 then retpay4=val1{i}; else if dai1{i}=155 then retpay5=val1{i}; else if dai1{i}=156 then retpay6=val1{i}; else if dai1{i}=157 then retpay7=val1{i}; else if dai1{i}=158 then retpay8=val1{i}; else if dai1{i}=159 then retpay9=val1{i}; else if dai1{i}=160 then othpart0=val1{i}; * other part time payroll; else if dai1{i}=161 then othpart1=val1{i}; else if dai1{i}=162 then othpart2=val1{i}; else if dai1{i}=163 then othpart3=val1{i}; else if dai1{i}=164 then othpart4=val1{i}; else if dai1{i}=165 then othpart5=val1{i}; else if dai1{i}=166 then othpart6=val1{i}; else if dai1{i}=167 then othpart7=val1{i}; else if dai1{i}=168 then othpart8=val1{i}; else if dai1{i}=169 then othpart9=val1{i}; else if dai1{i}=230 then pay3_0=val1{i}; * other income; else if dai1{i}=231 then pay3_1=val1{i}; else if dai1{i}=232 then pay3_2=val1{i}; else if dai1{i}=233 then pay3_3=val1{i}; else if dai1{i}=234 then pay3_4=val1{i}; else if dai1{i}=235 then pay3_5=val1{i}; else if dai1{i}=236 then pay3_6=val1{i}; else if dai1{i}=237 then pay3_7=val1{i}; else if dai1{i}=238 then pay3_8=val1{i}; else if dai1{i}=239 then pay3_9=val1{i}; else if dai1{i}=110 then overtim0=val1{i}; * overtime pay; else if dai1{i}=111 then overtim1=val1{i}; else if dai1{i}=112 then overtim2=val1{i}; else if dai1{i}=113 then overtim3=val1{i}; else if dai1{i}=114 then overtim4=val1{i}; else if dai1{i}=115 then overtim5=val1{i}; else if dai1{i}=116 then overtim6=val1{i}; else if dai1{i}=117 then overtim7=val1{i}; else if dai1{i}=118 then overtim8=val1{i}; else if dai1{i}=119 then overtim9=val1{i}; else if dai1{i}=120 then awards0=val1{i}; * awards; else if dai1{i}=121 then awards1=val1{i}; else if dai1{i}=122 then awards2=val1{i}; else if dai1{i}=123 then awards3=val1{i}; else if dai1{i}=124 then awards4=val1{i}; else if dai1{i}=125 then awards5=val1{i}; else if dai1{i}=126 then awards6=val1{i}; else if dai1{i}=127 then awards7=val1{i}; else if dai1{i}=128 then awards8=val1{i}; else if dai1{i}=129 then awards9=val1{i}; else if dai1{i}=130 then empins0=val1{i}; * insurance by employers; else if dai1{i}=131 then empins1=val1{i}; else if dai1{i}=132 then empins2=val1{i}; else if dai1{i}=133 then empins3=val1{i}; else if dai1{i}=134 then empins4=val1{i}; else if dai1{i}=135 then empins5=val1{i}; else if dai1{i}=136 then empins6=val1{i}; else if dai1{i}=137 then empins7=val1{i}; else if dai1{i}=138 then empins8=val1{i}; else if dai1{i}=139 then empins9=val1{i}; else if dai1{i}=700 then einsnhi0=val1{i}; * Insurance of NHI by employers; else if dai1{i}=701 then einsnhi1=val1{i}; else if dai1{i}=702 then einsnhi2=val1{i}; else if dai1{i}=703 then einsnhi3=val1{i}; else if dai1{i}=704 then einsnhi4=val1{i}; else if dai1{i}=705 then einsnhi5=val1{i}; else if dai1{i}=706 then einsnhi6=val1{i}; else if dai1{i}=707 then einsnhi7=val1{i}; else if dai1{i}=708 then einsnhi8=val1{i}; else if dai1{i}=709 then einsnhi9=val1{i}; else if dai1{i}=140 then fringe0=val1{i}; * fringe and death benefits; else if dai1{i}=141 then fringe1=val1{i}; else if dai1{i}=142 then fringe2=val1{i}; else if dai1{i}=143 then fringe3=val1{i}; else if dai1{i}=144 then fringe4=val1{i}; else if dai1{i}=145 then fringe5=val1{i}; else if dai1{i}=146 then fringe6=val1{i}; else if dai1{i}=147 then fringe7=val1{i}; else if dai1{i}=148 then fringe8=val1{i}; else if dai1{i}=149 then fringe9=val1{i}; else if dai1{i}=240 then owninc0=val1{i}; * earnings from owned; else if dai1{i}=241 then owninc1=val1{i}; * owniness; else if dai1{i}=242 then owninc2=val1{i}; else if dai1{i}=243 then owninc3=val1{i}; else if dai1{i}=244 then owninc4=val1{i}; else if dai1{i}=245 then owninc5=val1{i}; else if dai1{i}=246 then owninc6=val1{i}; else if dai1{i}=247 then owninc7=val1{i}; else if dai1{i}=248 then owninc8=val1{i}; else if dai1{i}=249 then owninc9=val1{i}; else if dai1{i}=260 then agrinc0=val1{i}; * agr. & livestock income; else if dai1{i}=261 then agrinc1=val1{i}; else if dai1{i}=262 then agrinc2=val1{i}; else if dai1{i}=263 then agrinc3=val1{i}; else if dai1{i}=264 then agrinc4=val1{i}; else if dai1{i}=265 then agrinc5=val1{i}; else if dai1{i}=266 then agrinc6=val1{i}; else if dai1{i}=267 then agrinc7=val1{i}; else if dai1{i}=268 then agrinc8=val1{i}; else if dai1{i}=269 then agrinc9=val1{i}; else if dai1{i}=270 then treeinc0=val1{i}; * net forestry income; else if dai1{i}=271 then treeinc1=val1{i}; else if dai1{i}=272 then treeinc2=val1{i}; else if dai1{i}=273 then treeinc3=val1{i}; else if dai1{i}=274 then treeinc4=val1{i}; else if dai1{i}=275 then treeinc5=val1{i}; else if dai1{i}=276 then treeinc6=val1{i}; else if dai1{i}=277 then treeinc7=val1{i}; else if dai1{i}=278 then treeinc8=val1{i}; else if dai1{i}=279 then treeinc9=val1{i}; else if dai1{i}=280 then fishinc0=val1{i}; * net fishing income; else if dai1{i}=281 then fishinc1=val1{i}; else if dai1{i}=282 then fishinc2=val1{i}; else if dai1{i}=283 then fishinc3=val1{i}; else if dai1{i}=284 then fishinc4=val1{i}; else if dai1{i}=285 then fishinc5=val1{i}; else if dai1{i}=286 then fishinc6=val1{i}; else if dai1{i}=287 then fishinc7=val1{i}; else if dai1{i}=288 then fishinc8=val1{i}; else if dai1{i}=289 then fishinc9=val1{i}; else if dai1{i}=290 then businc0=val1{i}; * net income from bus.; else if dai1{i}=291 then businc1=val1{i}; else if dai1{i}=292 then businc2=val1{i}; else if dai1{i}=293 then businc3=val1{i}; else if dai1{i}=294 then businc4=val1{i}; else if dai1{i}=295 then businc5=val1{i}; else if dai1{i}=296 then businc6=val1{i}; else if dai1{i}=297 then businc7=val1{i}; else if dai1{i}=298 then businc8=val1{i}; else if dai1{i}=299 then businc9=val1{i}; else if dai1{i}=320 then execinc0=val1{i}; * net income from execu- ; else if dai1{i}=321 then execinc1=val1{i}; * tive bus. activity; else if dai1{i}=322 then execinc2=val1{i}; else if dai1{i}=323 then execinc3=val1{i}; else if dai1{i}=324 then execinc4=val1{i}; else if dai1{i}=325 then execinc5=val1{i}; else if dai1{i}=326 then execinc6=val1{i}; else if dai1{i}=327 then execinc7=val1{i}; else if dai1{i}=328 then execinc8=val1{i}; else if dai1{i}=329 then execinc9=val1{i}; else if dai1{i}=330 then propinc0=val1{i}; * income from property or; else if dai1{i}=331 then propinc1=val1{i}; * capital; else if dai1{i}=332 then propinc2=val1{i}; else if dai1{i}=333 then propinc3=val1{i}; else if dai1{i}=334 then propinc4=val1{i}; else if dai1{i}=335 then propinc5=val1{i}; else if dai1{i}=336 then propinc6=val1{i}; else if dai1{i}=337 then propinc7=val1{i}; else if dai1{i}=338 then propinc8=val1{i}; else if dai1{i}=339 then propinc9=val1{i}; else if dai1{i}=340 then intinc0=val1{i}; * interest income; else if dai1{i}=341 then intinc1=val1{i}; else if dai1{i}=342 then intinc2=val1{i}; else if dai1{i}=343 then intinc3=val1{i}; else if dai1{i}=344 then intinc4=val1{i}; else if dai1{i}=345 then intinc5=val1{i}; else if dai1{i}=346 then intinc6=val1{i}; else if dai1{i}=347 then intinc7=val1{i}; else if dai1{i}=348 then intinc8=val1{i}; else if dai1{i}=349 then intinc9=val1{i}; else if dai1{i}=350 then invinc0=val1{i}; * investment income; else if dai1{i}=351 then invinc1=val1{i}; else if dai1{i}=352 then invinc2=val1{i}; else if dai1{i}=353 then invinc3=val1{i}; else if dai1{i}=354 then invinc4=val1{i}; else if dai1{i}=355 then invinc5=val1{i}; else if dai1{i}=356 then invinc6=val1{i}; else if dai1{i}=357 then invinc7=val1{i}; else if dai1{i}=358 then invinc8=val1{i}; else if dai1{i}=359 then invinc9=val1{i}; else if dai1{i}=360 then othprop0=val1{i}; * other prop rental inc; else if dai1{i}=361 then othprop1=val1{i}; else if dai1{i}=362 then othprop2=val1{i}; else if dai1{i}=363 then othprop3=val1{i}; else if dai1{i}=364 then othprop4=val1{i}; else if dai1{i}=365 then othprop5=val1{i}; else if dai1{i}=366 then othprop6=val1{i}; else if dai1{i}=367 then othprop7=val1{i}; else if dai1{i}=368 then othprop8=val1{i}; else if dai1{i}=369 then othprop9=val1{i}; else if dai1{i}=390 then estrent0=val1{i}; * estimated rent; else if dai1{i}=391 then estrent1=val1{i}; else if dai1{i}=392 then estrent2=val1{i}; else if dai1{i}=393 then estrent3=val1{i}; else if dai1{i}=394 then estrent4=val1{i}; else if dai1{i}=395 then estrent5=val1{i}; else if dai1{i}=396 then estrent6=val1{i}; else if dai1{i}=397 then estrent7=val1{i}; else if dai1{i}=398 then estrent8=val1{i}; else if dai1{i}=399 then estrent9=val1{i}; else if dai1{i}=410 then regtran0=val1{i}; * regular transfer income; else if dai1{i}=411 then regtran1=val1{i}; else if dai1{i}=412 then regtran2=val1{i}; else if dai1{i}=413 then regtran3=val1{i}; else if dai1{i}=414 then regtran4=val1{i}; else if dai1{i}=415 then regtran5=val1{i}; else if dai1{i}=416 then regtran6=val1{i}; else if dai1{i}=417 then regtran7=val1{i}; else if dai1{i}=418 then regtran8=val1{i}; else if dai1{i}=419 then regtran9=val1{i}; else if dai1{i}=420 then pritran0=val1{i}; * private transfer inc; else if dai1{i}=421 then pritran1=val1{i}; else if dai1{i}=422 then pritran2=val1{i}; else if dai1{i}=423 then pritran3=val1{i}; else if dai1{i}=424 then pritran4=val1{i}; else if dai1{i}=425 then pritran5=val1{i}; else if dai1{i}=426 then pritran6=val1{i}; else if dai1{i}=427 then pritran7=val1{i}; else if dai1{i}=428 then pritran8=val1{i}; else if dai1{i}=429 then pritran9=val1{i}; else if dai1{i}=430 then govtran0=val1{i}; * govt transfer income; else if dai1{i}=431 then govtran1=val1{i}; else if dai1{i}=432 then govtran2=val1{i}; else if dai1{i}=433 then govtran3=val1{i}; else if dai1{i}=434 then govtran4=val1{i}; else if dai1{i}=435 then govtran5=val1{i}; else if dai1{i}=436 then govtran6=val1{i}; else if dai1{i}=437 then govtran7=val1{i}; else if dai1{i}=438 then govtran8=val1{i}; else if dai1{i}=439 then govtran9=val1{i}; else if dai1{i}=300 then lowtran0=val1{i}; * trans from gov - low inc hhold; else if dai1{i}=301 then lowtran1=val1{i}; else if dai1{i}=302 then lowtran2=val1{i}; else if dai1{i}=303 then lowtran3=val1{i}; else if dai1{i}=304 then lowtran4=val1{i}; else if dai1{i}=305 then lowtran5=val1{i}; else if dai1{i}=306 then lowtran6=val1{i}; else if dai1{i}=307 then lowtran7=val1{i}; else if dai1{i}=308 then lowtran8=val1{i}; else if dai1{i}=309 then lowtran9=val1{i}; else if dai1{i}=310 then oldtran0=val1{i}; * trans from gov - old-age allow; else if dai1{i}=311 then oldtran1=val1{i}; else if dai1{i}=312 then oldtran2=val1{i}; else if dai1{i}=313 then oldtran3=val1{i}; else if dai1{i}=314 then oldtran4=val1{i}; else if dai1{i}=315 then oldtran5=val1{i}; else if dai1{i}=316 then oldtran6=val1{i}; else if dai1{i}=317 then oldtran7=val1{i}; else if dai1{i}=318 then oldtran8=val1{i}; else if dai1{i}=319 then oldtran9=val1{i}; else if dai1{i}=370 then frmtran0=val1{i}; * trans from gov - old farmer annuity; else if dai1{i}=371 then frmtran1=val1{i}; else if dai1{i}=372 then frmtran2=val1{i}; else if dai1{i}=373 then frmtran3=val1{i}; else if dai1{i}=374 then frmtran4=val1{i}; else if dai1{i}=375 then frmtran5=val1{i}; else if dai1{i}=376 then frmtran6=val1{i}; else if dai1{i}=377 then frmtran7=val1{i}; else if dai1{i}=378 then frmtran8=val1{i}; else if dai1{i}=379 then frmtran9=val1{i}; else if dai1{i}=200 then govgei0=val1{i}; * Insurance of GEI, LI, FHI, & SI by gov; else if dai1{i}=201 then govgei1=val1{i}; else if dai1{i}=202 then govgei2=val1{i}; else if dai1{i}=203 then govgei3=val1{i}; else if dai1{i}=204 then govgei4=val1{i}; else if dai1{i}=205 then govgei5=val1{i}; else if dai1{i}=206 then govgei6=val1{i}; else if dai1{i}=207 then govgei7=val1{i}; else if dai1{i}=208 then govgei8=val1{i}; else if dai1{i}=209 then govgei9=val1{i}; else if dai1{i}=950 then govnhi0=val1{i}; * Insurance of NHI by govt; else if dai1{i}=951 then govnhi1=val1{i}; else if dai1{i}=952 then govnhi2=val1{i}; else if dai1{i}=953 then govnhi3=val1{i}; else if dai1{i}=954 then govnhi4=val1{i}; else if dai1{i}=955 then govnhi5=val1{i}; else if dai1{i}=956 then govnhi6=val1{i}; else if dai1{i}=957 then govnhi7=val1{i}; else if dai1{i}=958 then govnhi8=val1{i}; else if dai1{i}=959 then govnhi9=val1{i}; else if dai1{i}=380 then othtrng0=val1{i}; * trans from gov - others; else if dai1{i}=381 then othtrng1=val1{i}; else if dai1{i}=382 then othtrng2=val1{i}; else if dai1{i}=383 then othtrng3=val1{i}; else if dai1{i}=384 then othtrng4=val1{i}; else if dai1{i}=385 then othtrng5=val1{i}; else if dai1{i}=386 then othtrng6=val1{i}; else if dai1{i}=387 then othtrng7=val1{i}; else if dai1{i}=388 then othtrng8=val1{i}; else if dai1{i}=389 then othtrng9=val1{i}; else if dai1{i}=450 then benins0=val1{i}; * Benefit of social insurance; else if dai1{i}=451 then benins1=val1{i}; else if dai1{i}=452 then benins2=val1{i}; else if dai1{i}=453 then benins3=val1{i}; else if dai1{i}=454 then benins4=val1{i}; else if dai1{i}=455 then benins5=val1{i}; else if dai1{i}=456 then benins6=val1{i}; else if dai1{i}=457 then benins7=val1{i}; else if dai1{i}=458 then benins8=val1{i}; else if dai1{i}=459 then benins9=val1{i}; else if dai1{i}=980 then bengei0=val1{i}; * Benefit of GEI, LI, FHI, and SI; else if dai1{i}=981 then bengei1=val1{i}; else if dai1{i}=982 then bengei2=val1{i}; else if dai1{i}=983 then bengei3=val1{i}; else if dai1{i}=984 then bengei4=val1{i}; else if dai1{i}=985 then bengei5=val1{i}; else if dai1{i}=986 then bengei6=val1{i}; else if dai1{i}=987 then bengei7=val1{i}; else if dai1{i}=988 then bengei8=val1{i}; else if dai1{i}=989 then bengei9=val1{i}; else if dai1{i}=940 then bennhi0=val1{i}; * Benefit of NHI; else if dai1{i}=941 then bennhi1=val1{i}; else if dai1{i}=942 then bennhi2=val1{i}; else if dai1{i}=943 then bennhi3=val1{i}; else if dai1{i}=944 then bennhi4=val1{i}; else if dai1{i}=945 then bennhi5=val1{i}; else if dai1{i}=946 then bennhi6=val1{i}; else if dai1{i}=947 then bennhi7=val1{i}; else if dai1{i}=948 then bennhi8=val1{i}; else if dai1{i}=949 then bennhi9=val1{i}; * For ROC 80 cells 440-9 have been dropped, so bustran0-9 should be all missing values ; else if dai1{i}=440 then bustran0=val1{i}; * business transfer inc; else if dai1{i}=441 then bustran1=val1{i}; else if dai1{i}=442 then bustran2=val1{i}; else if dai1{i}=443 then bustran3=val1{i}; else if dai1{i}=444 then bustran4=val1{i}; else if dai1{i}=445 then bustran5=val1{i}; else if dai1{i}=446 then bustran6=val1{i}; else if dai1{i}=447 then bustran7=val1{i}; else if dai1{i}=448 then bustran8=val1{i}; else if dai1{i}=449 then bustran9=val1{i}; else if dai1{i}=460 then lifeben0=val1{i}; *life insurance benefit; else if dai1{i}=461 then lifeben1=val1{i}; else if dai1{i}=462 then lifeben2=val1{i}; else if dai1{i}=463 then lifeben3=val1{i}; else if dai1{i}=464 then lifeben4=val1{i}; else if dai1{i}=465 then lifeben5=val1{i}; else if dai1{i}=466 then lifeben6=val1{i}; else if dai1{i}=467 then lifeben7=val1{i}; else if dai1{i}=468 then lifeben8=val1{i}; else if dai1{i}=469 then lifeben9=val1{i}; else if dai1{i}=470 then othtran0=val1{i}; * other transfer income; else if dai1{i}=471 then othtran1=val1{i}; else if dai1{i}=472 then othtran2=val1{i}; else if dai1{i}=473 then othtran3=val1{i}; else if dai1{i}=474 then othtran4=val1{i}; else if dai1{i}=475 then othtran5=val1{i}; else if dai1{i}=476 then othtran6=val1{i}; else if dai1{i}=477 then othtran7=val1{i}; else if dai1{i}=478 then othtran8=val1{i}; else if dai1{i}=479 then othtran9=val1{i}; else if dai1{i}=480 then abrtran0=val1{i}; * trans inc from abroad; else if dai1{i}=481 then abrtran1=val1{i}; else if dai1{i}=482 then abrtran2=val1{i}; else if dai1{i}=483 then abrtran3=val1{i}; else if dai1{i}=484 then abrtran4=val1{i}; else if dai1{i}=485 then abrtran5=val1{i}; else if dai1{i}=486 then abrtran6=val1{i}; else if dai1{i}=487 then abrtran7=val1{i}; else if dai1{i}=488 then abrtran8=val1{i}; else if dai1{i}=489 then abrtran9=val1{i}; else if dai1{i}=490 then miscinc0=val1{i}; * misc income; else if dai1{i}=491 then miscinc1=val1{i}; else if dai1{i}=492 then miscinc2=val1{i}; else if dai1{i}=493 then miscinc3=val1{i}; else if dai1{i}=494 then miscinc4=val1{i}; else if dai1{i}=495 then miscinc5=val1{i}; else if dai1{i}=496 then miscinc6=val1{i}; else if dai1{i}=497 then miscinc7=val1{i}; else if dai1{i}=498 then miscinc8=val1{i}; else if dai1{i}=499 then miscinc9=val1{i}; else if dai1{i}=600 then totexp0=val1{i}; * total nonconsumption expenditure; else if dai1{i}=601 then totexp1=val1{i}; else if dai1{i}=602 then totexp2=val1{i}; else if dai1{i}=603 then totexp3=val1{i}; else if dai1{i}=604 then totexp4=val1{i}; else if dai1{i}=605 then totexp5=val1{i}; else if dai1{i}=606 then totexp6=val1{i}; else if dai1{i}=607 then totexp7=val1{i}; else if dai1{i}=608 then totexp8=val1{i}; else if dai1{i}=609 then totexp9=val1{i}; * For ROC 80 cells 530-9 have been dropped, so propexp0-9 should be all missing values ; else if dai1{i}=540 then intexp0=val1{i}; * interest expenditure; else if dai1{i}=541 then intexp1=val1{i}; else if dai1{i}=542 then intexp2=val1{i}; else if dai1{i}=543 then intexp3=val1{i}; else if dai1{i}=544 then intexp4=val1{i}; else if dai1{i}=545 then intexp5=val1{i}; else if dai1{i}=546 then intexp6=val1{i}; else if dai1{i}=547 then intexp7=val1{i}; else if dai1{i}=548 then intexp8=val1{i}; else if dai1{i}=549 then intexp9=val1{i}; else if dai1{i}=510 then hosloan0=val1{i}; * interest exp - house loan; else if dai1{i}=511 then hosloan1=val1{i}; else if dai1{i}=512 then hosloan2=val1{i}; else if dai1{i}=513 then hosloan3=val1{i}; else if dai1{i}=514 then hosloan4=val1{i}; else if dai1{i}=515 then hosloan5=val1{i}; else if dai1{i}=516 then hosloan6=val1{i}; else if dai1{i}=517 then hosloan7=val1{i}; else if dai1{i}=518 then hosloan8=val1{i}; else if dai1{i}=519 then hosloan9=val1{i}; else if dai1{i}=520 then othloan0=val1{i}; * interest exp - Others; else if dai1{i}=521 then othloan1=val1{i}; else if dai1{i}=522 then othloan2=val1{i}; else if dai1{i}=523 then othloan3=val1{i}; else if dai1{i}=524 then othloan4=val1{i}; else if dai1{i}=525 then othloan5=val1{i}; else if dai1{i}=526 then othloan6=val1{i}; else if dai1{i}=527 then othloan7=val1{i}; else if dai1{i}=528 then othloan8=val1{i}; else if dai1{i}=529 then othloan9=val1{i}; else if dai1{i}=560 then regtpay0=val1{i}; * regular trans/payments; else if dai1{i}=561 then regtpay1=val1{i}; else if dai1{i}=562 then regtpay2=val1{i}; else if dai1{i}=563 then regtpay3=val1{i}; else if dai1{i}=564 then regtpay4=val1{i}; else if dai1{i}=565 then regtpay5=val1{i}; else if dai1{i}=566 then regtpay6=val1{i}; else if dai1{i}=567 then regtpay7=val1{i}; else if dai1{i}=568 then regtpay8=val1{i}; else if dai1{i}=569 then regtpay9=val1{i}; else if dai1{i}=570 then pritpay0=val1{i}; * trans to individuals; else if dai1{i}=571 then pritpay1=val1{i}; else if dai1{i}=572 then pritpay2=val1{i}; else if dai1{i}=573 then pritpay3=val1{i}; else if dai1{i}=574 then pritpay4=val1{i}; else if dai1{i}=575 then pritpay5=val1{i}; else if dai1{i}=576 then pritpay6=val1{i}; else if dai1{i}=577 then pritpay7=val1{i}; else if dai1{i}=578 then pritpay8=val1{i}; else if dai1{i}=579 then pritpay9=val1{i}; else if dai1{i}=550 then pritmar0=val1{i}; * trans to individuals - mar and fun; else if dai1{i}=551 then pritmar1=val1{i}; else if dai1{i}=552 then pritmar2=val1{i}; else if dai1{i}=553 then pritmar3=val1{i}; else if dai1{i}=554 then pritmar4=val1{i}; else if dai1{i}=555 then pritmar5=val1{i}; else if dai1{i}=556 then pritmar6=val1{i}; else if dai1{i}=557 then pritmar7=val1{i}; else if dai1{i}=558 then pritmar8=val1{i}; else if dai1{i}=559 then pritmar9=val1{i}; else if dai1{i}=170 then pritchr0=val1{i}; * trans to individuals - charities; else if dai1{i}=171 then pritchr1=val1{i}; else if dai1{i}=172 then pritchr2=val1{i}; else if dai1{i}=173 then pritchr3=val1{i}; else if dai1{i}=174 then pritchr4=val1{i}; else if dai1{i}=175 then pritchr5=val1{i}; else if dai1{i}=176 then pritchr6=val1{i}; else if dai1{i}=177 then pritchr7=val1{i}; else if dai1{i}=178 then pritchr8=val1{i}; else if dai1{i}=179 then pritchr9=val1{i}; else if dai1{i}=180 then pritoth0=val1{i}; * trans to individuals - others; else if dai1{i}=181 then pritoth1=val1{i}; else if dai1{i}=182 then pritoth2=val1{i}; else if dai1{i}=183 then pritoth3=val1{i}; else if dai1{i}=184 then pritoth4=val1{i}; else if dai1{i}=185 then pritoth5=val1{i}; else if dai1{i}=186 then pritoth6=val1{i}; else if dai1{i}=187 then pritoth7=val1{i}; else if dai1{i}=188 then pritoth8=val1{i}; else if dai1{i}=189 then pritoth9=val1{i}; * For ROC 80 cells 580-9 have been dropped, so govtpay0-9 should be all missing values ; else if dai1{i}=580 then govtpay0=val1{i}; * payments to govt; else if dai1{i}=581 then govtpay1=val1{i}; else if dai1{i}=582 then govtpay2=val1{i}; else if dai1{i}=583 then govtpay3=val1{i}; else if dai1{i}=584 then govtpay4=val1{i}; else if dai1{i}=585 then govtpay5=val1{i}; else if dai1{i}=586 then govtpay6=val1{i}; else if dai1{i}=587 then govtpay7=val1{i}; else if dai1{i}=588 then govtpay8=val1{i}; else if dai1{i}=589 then govtpay9=val1{i}; else if dai1{i}=590 then proptax0=val1{i}; * building/land tax; else if dai1{i}=591 then proptax1=val1{i}; else if dai1{i}=592 then proptax2=val1{i}; else if dai1{i}=593 then proptax3=val1{i}; else if dai1{i}=594 then proptax4=val1{i}; else if dai1{i}=595 then proptax5=val1{i}; else if dai1{i}=596 then proptax6=val1{i}; else if dai1{i}=597 then proptax7=val1{i}; else if dai1{i}=598 then proptax8=val1{i}; else if dai1{i}=599 then proptax9=val1{i}; else if dai1{i}=610 then inctax0=val1{i}; * consolidated income tax; else if dai1{i}=611 then inctax1=val1{i}; else if dai1{i}=612 then inctax2=val1{i}; else if dai1{i}=613 then inctax3=val1{i}; else if dai1{i}=614 then inctax4=val1{i}; else if dai1{i}=615 then inctax5=val1{i}; else if dai1{i}=616 then inctax6=val1{i}; else if dai1{i}=617 then inctax7=val1{i}; else if dai1{i}=618 then inctax8=val1{i}; else if dai1{i}=619 then inctax9=val1{i}; else if dai1{i}=620 then othtax0=val1{i}; * other direct taxes; else if dai1{i}=621 then othtax1=val1{i}; else if dai1{i}=622 then othtax2=val1{i}; else if dai1{i}=623 then othtax3=val1{i}; else if dai1{i}=624 then othtax4=val1{i}; else if dai1{i}=625 then othtax5=val1{i}; else if dai1{i}=626 then othtax6=val1{i}; else if dai1{i}=627 then othtax7=val1{i}; else if dai1{i}=628 then othtax8=val1{i}; else if dai1{i}=629 then othtax9=val1{i}; else if dai1{i}=630 then othpayg0=val1{i}; * other payments to; else if dai1{i}=631 then othpayg1=val1{i}; * the government; else if dai1{i}=632 then othpayg2=val1{i}; else if dai1{i}=633 then othpayg3=val1{i}; else if dai1{i}=634 then othpayg4=val1{i}; else if dai1{i}=635 then othpayg5=val1{i}; else if dai1{i}=636 then othpayg6=val1{i}; else if dai1{i}=637 then othpayg7=val1{i}; else if dai1{i}=638 then othpayg8=val1{i}; else if dai1{i}=639 then othpayg9=val1{i}; * For ROC 80 cells 640-9 have been dropped, so buspay0-9 should be all missing values ; else if dai1{i}=640 then buspay0=val1{i}; * payments to enterprises; else if dai1{i}=641 then buspay1=val1{i}; else if dai1{i}=642 then buspay2=val1{i}; else if dai1{i}=643 then buspay3=val1{i}; else if dai1{i}=644 then buspay4=val1{i}; else if dai1{i}=645 then buspay5=val1{i}; else if dai1{i}=646 then buspay6=val1{i}; else if dai1{i}=647 then buspay7=val1{i}; else if dai1{i}=648 then buspay8=val1{i}; else if dai1{i}=649 then buspay9=val1{i}; else if dai1{i}=650 then pgeiins0=val1{i}; * expenditure on GEI; else if dai1{i}=651 then pgeiins1=val1{i}; else if dai1{i}=652 then pgeiins2=val1{i}; else if dai1{i}=653 then pgeiins3=val1{i}; else if dai1{i}=654 then pgeiins4=val1{i}; else if dai1{i}=655 then pgeiins5=val1{i}; else if dai1{i}=656 then pgeiins6=val1{i}; else if dai1{i}=657 then pgeiins7=val1{i}; else if dai1{i}=658 then pgeiins8=val1{i}; else if dai1{i}=659 then pgeiins9=val1{i}; else if dai1{i}=660 then pliins0=val1{i}; * expenditure o LI; else if dai1{i}=661 then pliins1=val1{i}; else if dai1{i}=662 then pliins2=val1{i}; else if dai1{i}=663 then pliins3=val1{i}; else if dai1{i}=664 then pliins4=val1{i}; else if dai1{i}=665 then pliins5=val1{i}; else if dai1{i}=666 then pliins6=val1{i}; else if dai1{i}=667 then pliins7=val1{i}; else if dai1{i}=668 then pliins8=val1{i}; else if dai1{i}=669 then pliins9=val1{i}; else if dai1{i}=670 then farmins0=val1{i}; * expenditure on farmer's health ins; else if dai1{i}=671 then farmins1=val1{i}; else if dai1{i}=672 then farmins2=val1{i}; else if dai1{i}=673 then farmins3=val1{i}; else if dai1{i}=674 then farmins4=val1{i}; else if dai1{i}=675 then farmins5=val1{i}; else if dai1{i}=676 then farmins6=val1{i}; else if dai1{i}=677 then farmins7=val1{i}; else if dai1{i}=678 then farmins8=val1{i}; else if dai1{i}=679 then farmins9=val1{i}; else if dai1{i}=850 then fishins0=val1{i}; * expenditure on fisherman's health ins; else if dai1{i}=851 then fishins1=val1{i}; else if dai1{i}=852 then fishins2=val1{i}; else if dai1{i}=853 then fishins3=val1{i}; else if dai1{i}=854 then fishins4=val1{i}; else if dai1{i}=855 then fishins5=val1{i}; else if dai1{i}=856 then fishins6=val1{i}; else if dai1{i}=857 then fishins7=val1{i}; else if dai1{i}=858 then fishins8=val1{i}; else if dai1{i}=859 then fishins9=val1{i}; else if dai1{i}=860 then psiins0=val1{i}; * expenditure on SI; else if dai1{i}=861 then psiins1=val1{i}; else if dai1{i}=862 then psiins2=val1{i}; else if dai1{i}=863 then psiins3=val1{i}; else if dai1{i}=864 then psiins4=val1{i}; else if dai1{i}=865 then psiins5=val1{i}; else if dai1{i}=866 then psiins6=val1{i}; else if dai1{i}=867 then psiins7=val1{i}; else if dai1{i}=868 then psiins8=val1{i}; else if dai1{i}=869 then psiins9=val1{i}; else if dai1{i}=680 then pnhiins0=val1{i}; * expenditure on NHI; else if dai1{i}=681 then pnhiins1=val1{i}; else if dai1{i}=682 then pnhiins2=val1{i}; else if dai1{i}=683 then pnhiins3=val1{i}; else if dai1{i}=684 then pnhiins4=val1{i}; else if dai1{i}=685 then pnhiins5=val1{i}; else if dai1{i}=686 then pnhiins6=val1{i}; else if dai1{i}=687 then pnhiins7=val1{i}; else if dai1{i}=688 then pnhiins8=val1{i}; else if dai1{i}=689 then pnhiins9=val1{i}; else if dai1{i}=690 then abrpay0=val1{i}; * payments abroad; else if dai1{i}=691 then abrpay1=val1{i}; else if dai1{i}=692 then abrpay2=val1{i}; else if dai1{i}=693 then abrpay3=val1{i}; else if dai1{i}=694 then abrpay4=val1{i}; else if dai1{i}=695 then abrpay5=val1{i}; else if dai1{i}=696 then abrpay6=val1{i}; else if dai1{i}=697 then abrpay7=val1{i}; else if dai1{i}=698 then abrpay8=val1{i}; else if dai1{i}=699 then abrpay9=val1{i}; * consumption expenditure; else if dai1{i}=800 then totcons=val1{i}; * total cons expenditure; else if dai1{i}=710 then foodstuf=val1{i}; * total foodstuffs; else if dai1{i}=711 then primary=val1{i}; * primary foodstuffs; else if dai1{i}=723 then milk=val1{i}; * milk; else if dai1{i}=724 then fruits=val1{i}; * fruits; else if dai1{i}=725 then othfood=val1{i}; * other foodstuffs; else if dai1{i}=726 then giftexp=val1{i}; * exp on gifts; else if dai1{i}=727 then boardexp=val1{i}; * exp on board; else if dai1{i}=730 then totdrink=val1{i}; * total drink expenditure; else if dai1{i}=731 then nonalcoh=val1{i}; * nonalcoholic drinks; else if dai1{i}=732 then alcohol=val1{i}; * alcoholoic drinks; else if dai1{i}=740 then tobacco=val1{i}; * tobacco; else if dai1{i}=750 then clotfoot=val1{i}; * total exp on clothing and footware; else if dai1{i}=751 then clothing=val1{i}; * clothing; else if dai1{i}=756 then shoes=val1{i}; * footware; else if dai1{i}=760 then totrent=val1{i}; * total rent & water exp; else if dai1{i}=761 then actrent=val1{i}; * actual rent payments; else if dai1{i}=762 then estown=val1{i}; * imputed rent - own home; else if dai1{i}=763 then estalloc=val1{i}; * imputed: allocated home; else if dai1{i}=764 then upkeep=val1{i}; * bldg upkeep/repair exp; else if dai1{i}=765 then waterexp=val1{i}; * water exp nonbusiness; else if dai1{i}=766 then hholdprm=val1{i}; * Household premiums; else if dai1{i}=770 then totfuel=val1{i}; * total fuel/lighting exp; else if dai1{i}=771 then electric=val1{i}; * electricity; else if dai1{i}=775 then gasfuel=val1{i}; * gaseous fuels; else if dai1{i}=777 then othfuel=val1{i}; * others fuel; else if dai1{i}=780 then totappl=val1{i}; * furniture & appliances; else if dai1{i}=781 then furnitur=val1{i}; * furniture; else if dai1{i}=782 then textile=val1{i}; * textile furnishing; else if dai1{i}=783 then durables=val1{i}; * durable goods; else if dai1{i}=784 then othappl=val1{i}; * other furn & appl; else if dai1{i}=790 then tothkeep=val1{i}; * total housekeeping exp; else if dai1{i}=791 then hhlabor=val1{i}; * hired hh labor/help; else if dai1{i}=792 then hhservic=val1{i}; * services for the hh; else if dai1{i}=793 then othhkeep=val1{i}; * other housekeeping exp; else if dai1{i}=810 then tothealt=val1{i}; * total health exp; else if dai1{i}=811 then medequip=val1{i}; * medical equipment, etc; else if dai1{i}=812 then inoutins=val1{i}; * in-/outpatient treatment & health insurance; else if dai1{i}=813 then medicine=val1{i}; * medical article; else if dai1{i}=814 then medprem=val1{i}; * pers accident & med prem; else if dai1{i}=816 then mednhi=val1{i}; * Medical consumption of NHI; else if dai1{i}=820 then totcomm=val1{i}; * total exp on transpor- tation, communication, & correspondence; else if dai1{i}=821 then equippur=val1{i}; * purchase of trans. & comm equipment for personal use; else if dai1{i}=822 then equiprun=val1{i}; * running/maintenance of personal use transport equipment; else if dai1{i}=823 then transuse=val1{i}; * exp for using transport; else if dai1{i}=824 then othcomm=val1{i}; * other communic. expend; else if dai1{i}=825 then motprem=val1{i}; * motor vehicle premiums; else if dai1{i}=830 then totrecr=val1{i}; * total exp on recreation education and culture; else if dai1{i}=831 then travexp=val1{i}; * travel/vacation exp; else if dai1{i}=832 then recrexp=val1{i}; * entertainment/recr exp; else if dai1{i}=833 then bookexp=val1{i}; * books, newspapers, etc; else if dai1{i}=834 then recequip=val1{i}; * recreation equipment; else if dai1{i}=835 then school=val1{i}; * educ, culture, research; else if dai1{i}=840 then miscexp=val1{i}; * total exp misc. items; else if dai1{i}=841 then othserv=val1{i}; * other commod/services; else if dai1{i}=842 then finserv=val1{i}; * financial services; else if dai1{i}=843 then hygiene=val1{i}; * personal upkeep/hygiene; else if dai1{i}=844 then hairexp=val1{i}; * hairstyling/bathing exp; else if dai1{i}=845 then foodhall=val1{i}; * food, beverage & tobacco in restaurant, ballroom; else if dai1{i}=846 then nonfmarr=val1{i}; * gifts (food exclusive); else if dai1{i}=847 then othmisc=val1{i}; * other misc exp; else if dai1{i}=848 then nonsprem=val1{i}; * other non-saving premiums; * capital loss/profit and fixed assets; else if dai1{i}=806 then cap_gain=val1{i}; * capital gain; else if dai1{i}=807 then cap_loss=val1{i}; * capital loss; else if dai1{i}=808 then captrec=val1{i}; * capital trasfers received; else if dai1{i}=809 then captpaid=val1{i}; * capital transfers paid; END; PROC CONTENTS; PROC DATASETS library=zh; DELETE data&q; RUN; %mend; %one(99); %one(00); %one(01); %one(02); %one(03);