filENAME ok PIPE 'zcat /usr/data/public/us/government/stf/2000/PL94-171/wv.dat .Z'; Data _null_; INFILE ok LRECL=30000 MISSOVER; INPUT @1 fileid $6. @7 state $2. @9 sumlev $CHAR3. geocomp 12-13 chariter 14-16 cifsn 17-18 @19 logrecno $7. @26 var1 $char200. @225 var2 $char175. @401 (p0010001-p0010071) (9.) (p0020001-p0020073) (9.) (p0030001-p0030071) (9.) (p0040001-p0040073) (9.); **STRAIGHT PROPORTIONAL**; NL_WHITE=(P0020005)+(P0020013/2)+(P0020014/2)+(P0020015/2)+(P0020016/2)+(P0020017/2)+(P0020029/3) +(P0020030/3)+(P0020031/3)+(P0020032/3)+(P0020033/3)+(P0020034/3)+(P0020035/3)+(P0020036/3) +(P0020037/3)+(P0020038/3)+(P0020050/4)+(P0020051/4)+(P0020052/4)+(P0020053/4)+(P0020054/4) +(P0020055/4)+(P0020056/4)+(P0020057/4)+(P0020058/4)+(P0020059/4)+(P0020066/5)+(P0020067/5) +(P0020068/5)+(P0020069/5)+(P0020070/5)+(P0020073/6); NL_BLACK=(P0020006)+(P0020013/2)+(P0020018/2)+(P0020019/2)+(P0020020/2)+(P0020021/2)+(P0020029/3) + (P0020030/3)+(P0020031/3)+(P0020032/3)+(P0020039/3)+(P0020040/3)+(P0020041/3)+(P0020042/3)+(P0020043/3) +(P0020044/3)+(P0020050/4)+(P0020051/4)+(P0020052/4)+(P0020053/4)+(P0020054/4)+(P0020055/4)+(P0020060/4) +(P0020061/4)+(P0020062/4)+(P0020063/4)+(P0020066/5)+(P0020067/5)+(P0020068/5)+(P0020069/5)+(P0020071/5) +(P0020073/6); NL_AMIND=(P0020007)+(P0020014/2)+(P0020022/2)+(P0020023/2)+(P0020024/2)+(P0020033/3)+(P0020034/3) +(P0020035/3)+(P0020045/3)+(P0020046/3)+(P0020047/3)+(P0020056/4)+(P0020057/4)+(P0020058/4)+(P0020064/4) +(P0020070/5)+(P0020018/2)+(P0020029/3)+(P0020039/3)+(P0020040/3)+(P0020041/3)+(P0020050/4)+(P0020051/4) +(P0020052/4)+(P0020060/4)+(P0020061/4)+(P0020062/4)+(P0020066/5)+(P0020067/5)+(P0020068/5)+(P0020071/5) +(P0020073/6); NL_ASIAN=(P0020008)+(P0020015/2)+(P0020025/2)+(P0020026/2)+(P0020036/3)+(P0020037/3)+(P0020048/3) +(P0020059/4)+(P0020019/2)+(P0020022/2)+(P0020030/3)+(P0020033/3)+(P0020042/3)+(P0020043/3)+(P0020045/3) +(P0020046/3)+(P0020053/4)+(P0020054/4)+(P0020056/4)+(P0020057/4)+(P0020063/4)+(P0020064/4)+(P0020069/5) +(P0020070/5)+(P0020039/3)+(P0020050/4)+(P0020060/4)+(P0020061/4)+(P0020066/5)+(P0020067/5)+(P0020071/5) +(P0020073/6); NL_HAW=(P0020009)+(P0020016/2)+(P0020027/2)+(P0020038/3)+(P0020020/2)+(P0020023/2)+(P0020025/2) +(P0020031/3)+(P0020034/3)+(P0020036/3)+(P0020044/3)+(P0020047/3)+(P0020048/3)+(P0020055/4)+(P0020058/4) +(P0020059/4)+(P0020040/3)+(P0020042/3)+(P0020045/3)+(P0020051/4)+(P0020053/4)+(P0020056/4)+(P0020062/4) +(P0020063/4)+(P0020064/4)+(P0020068/5)+(P0020069/5)+(P0020070/5)+(P0020060/4)+(P0020066/5)+(P0020071/5) +(P0020073/6); NL_OTHER=(P0020010)+(P0020017/2)+(P0020021/2)+(P0020024/2)+(P0020026/2)+(P0020027/2)+(P0020032/3) +(P0020035/3)+(P0020037/3)+(P0020038/3)+(P0020041/3)+(P0020043/3)+(P0020044/3)+(P0020046/3)+(P0020047/3) +(P0020048/3)+(P0020052/4)+(P0020054/4)+(P0020055/4)+(P0020057/4)+(P0020058/4)+(P0020059/4)+(P0020061/4) +(P0020062/4)+(P0020063/4)+(P0020064/4)+(P0020067/5)+(P0020068/5)+(P0020069/5)+(P0020070/5)+(P0020071/5) +(P0020073/6); LAT_WHIT=(P0010003)-(P0020005)+(P0010011/2)-(P0020013/2)+(P0010012/2)-(P0020014/2) +(P0010013/2)-(P0020015/2)+(P0010014/2)-(P0020016/2)+(P0010015/2)-(P0020017/2) +(P0010027/3)-(P0020029/3)+(P0010028/3)-(P0020030/3)+(P0010029/3)-(P0020031/3) +(P0010030/3)-(P0020032/3)+(P0010031/3)-(P0020033/3)+(P0010032/3)-(P0020034/3) +(P0010033/3)-(P0020035/3)+(P0010034/3)-(P0020036/3)+(P0010035/3)-(P0020037/3) +(P0010036/3)-(P0020038/3)+(P0010048/4)-(P0020050/4)+(P0010049/4)-(P0020051/4) +(P0010050/4)-(P0020052/4)+(P0010051/4)-(P0020053/4)+(P0010052/4)-(P0020054/4) +(P0010053/4)-(P0020055/4)+(P0010054/4)-(P0020056/4)+(P0010055/4)-(P0020057/4) +(P0010056/4)-(P0020058/4)+(P0010057/4)-(P0020059/4)+(P0010064/5)-(P0020066/5) +(P0010065/5)-(P0020067/5)+(P0010066/5)-(P0020068/5)+(P0010067/5)-(P0020069/5) +(P0010068/5)-(P0020070/5)+(P0010071/6)-(P0020073/6); LAT_BLAC=(P0010004)-(P0020006)+(P0010011/2)-(P0020013/2)+(P0010016/2)-(P0020018/2)+(P0010017/2)-(P0020019/2)+(P0010018/2)-(P0020020/2) +(P0010019/2)-(P0020021/2)+(P0010027/3)-(P0020029/3)+(P0010028/3)-(P0020030/3)+(P0010029/3)-(P0020031/3)+(P0010030/3)-(P0020032/3) +(P0010037/3)-(P0020039/3)+(P0010038/3)-(P0020040/3)+(P0010039/3)-(P0020041/3)+(P0010040/3)-(P0020042/3)+(P0010041/3)-(P0020043/3) +(P0010042/3)-(P0020044/3)+(P0010048/4)-(P0020050/4)+(P0010049/4)-(P0020051/4)+(P0010050/4)-(P0020052/4)+(P0010051/4)-(P0020053/4) +(P0010052/4)-(P0020054/4)+(P0010053/4)-(P0020055/4)+(P0010058/4)-(P0020060/4)+(P0010059/4)-(P0020061/4)+(P0010060/4)-(P0020062/4) +(P0010061/4)-(P0020063/4)+(P0010064/5)-(P0020066/5)+(P0010065/5)-(P0020067/5)+(P0010066/5)-(P0020068/5)+(P0010067/5)-(P0020069/5) +(P0010069/5)-(P0020071/5)+(P0010071/6)-(P0020073/6); LAT_AMIN=(P0010005)-(P0020007)+(P0010012/2)-(P0020014/2)+(P0010020/2)-(P0020022/2)+(P0010021/2)-(P0020023/2)+(P0010022/2)-(P0020024/2) +(P0010031/3)-(P0020033/3)+(P0010032/3)-(P0020034/3)+(P0010033/3)-(P0020035/3)+(P0010043/3)-(P0020045/3)+(P0010044/3)-(P0020046/3) +(P0010045/3)-(P0020047/3)+(P0010054/4)-(P0020056/4)+(P0010055/4)-(P0020057/4)+(P0010056/4)-(P0020058/4)+(P0010062/4)-(P0020064/4) +(P0010068/5)-(P0020070/5)+(P0010016/2)-(P0020018/2)+(P0010027/3)-(P0020029/3)+(P0010037/3)-(P0020039/3)+(P0010038/3)-(P0020040/3) +(P0010039/3)-(P0020041/3)+(P0010048/4)-(P0020050/4)+(P0010049/4)-(P0020051/4)+(P0010050/4)-(P0020052/4)+(P0010058/4)-(P0020060/4) +(P0010059/4)-(P0020061/4)+(P0010060/4)-(P0020062/4)+(P0010064/5)-(P0020066/5)+(P0010065/5)-(P0020067/5)+(P0010066/5)-(P0020068/5) +(P0010069/5)-(P0020071/5)+(P0010071/6)-(P0020073/5); LAT_ASIA=(P0010006)-(P0020008)+(P0010013/2)-(P0020015/2)+(P0010023/2)-(P0020025/2)+(P0010024/2)-(P0020026/2)+(P0010034/3)-(P0020036/3) +(P0010035/3)-(P0020037/3)+(P0010046/3)-(P0020048/3)+(P0010057/4)-(P0020059/4)+(P0010017/2)-(P0020019/2)+(P0010020/2)-(P0020022/2) +(P0010028/3)-(P0020030/3)+(P0010031/3)-(P0020033/3)+(P0010040/3)-(P0020042/3)+(P0010041/3)-(P0020043/3)+(P0010043/3)-(P0020045/3) +(P0010044/3)-(P0020046/3)+(P0010051/4)-(P0020053/4)+(P0010052/4)-(P0020054/4)+(P0010054/4)-(P0020056/4)+(P0010055/4)-(P0020057/4) +(P0010061/4)-(P0020063/4)+(P0010062/4)-(P0020064/4)+(P0010067/5)-(P0020069/5)+(P0010068/5)-(P0020070/5)+(P0010037/3)-(P0020039/3) +(P0010048/4)-(P0020050/4)+(P0010058/4)-(P0020060/4)+(P0010059/4)-(P0020061/4)+(P0010064/5)-(P0020066/5)+(P0010065/5)-(P0020067/5) +(P0010069/5)-(P0020071/5)+(P0010071/6)-(P0020073/6); LAT_HAW=(P0010007)-(P0020009)+(P0010014/2)-(P0020016/2)+(P0010025/2)-(P0020027/2) +(P0010036/3)-(P0020038/3)+(P0010018/2)-(P0020020/2)+(P0010021/2)-(P0020023/2)+(P0010023/2)-(P0020025/2)+(P0010029/3)-(P0020031/3) +(P0010032/3)-(P0020034/3)+(P0010034/3)-(P0020036/3)+(P0010042/3)-(P0020044/3)+(P0010045/3)-(P0020047/3)+(P0010046/3)-(P0020048/3) +(P0010053/4)-(P0020055/4)+(P0010056/4)-(P0020058/4)+(P0010057/4)-(P0020059/4)+(P0010038/3)-(P0020040/3)+(P0010040/3)-(P0020042/3) +(P0010043/3)-(P0020045/3)+(P0010049/4)-(P0020051/4)+(P0010051/4)-(P0020053/4)+(P0010054/4)-(P0020056/4)+(P0010060/4)-(P0020062/4) +(P0010061/4)-(P0020063/4)+(P0010062/4)-(P0020064/4)+(P0010066/5)-(P0020068/5)+(P0010067/5)-(P0020069/5)+(P0010068/5)-(P0020070/5) +(P0010058/4)-(P0020060/4)+(P0010064/5)-(P0020066/5)+(P0010069/5)-(P0020071/5)+(P0010071/6)-(P0020073/6); LAT_OTHR=(P0010008)-(P0020010)+(P0010015/2)-(P0020017/2)+(P0010019/2)-(P0020021/2)+(P0010022/2)-(P0020024/2) +(P0010024/2)-(P0020026/2)+(P0010025/2)-(P0020027/2)+(P0010030/3)-(P0020032/3)+(P0010033/3)-(P0020035/3) +(P0010035/3)-(P0020037/3)+(P0010036/3)-(P0020038/3)+(P0010039/3)-(P0020041/3)+(P0010041/3)-(P0020043/3) +(P0010042/3)-(P0020044/3)+(P0010044/3)-(P0020046/3)+(P0010045/3)-(P0020047/3)+(P0010046/3)-(P0020048/3) +(P0010050/4)-(P0020052/4)+(P0010052/4)-(P0020054/4)+(P0010053/4)-(P0020055/4)+(P0010055/4)-(P0020057/4) +(P0010056/4)-(P0020058/4)+(P0010057/4)-(P0020059/4)+(P0010059/4)-(P0020061/4)+(P0010060/4)-(P0020062/4) +(P0010061/4)-(P0020063/4)+(P0010062/4)-(P0020064/4)+(P0010065/5)-(P0020067/5)+(P0010066/5)-(P0020068/5) +(P0010067/5)-(P0020069/5)+(P0010068/5)-(P0020070/5)+(P0010069/5)-(P0020071/5)+(P0010071/6)-(P0020073/6); NL_WHI18=(P0040005)+(P0040013/2)+(P0040014/2)+(P0040015/2)+(P0040016/2)+(P0040017/2)+(P0040029/3) +(P0040030/3)+(P0040031/3)+(P0040032/3)+(P0040033/3)+(P0040034/3)+(P0040035/3)+(P0040036/3) +(P0040037/3)+(P0040038/3)+(P0040050/4)+(P0040051/4)+(P0040052/4)+(P0040053/4)+(P0040054/4) +(P0040055/4)+(P0040056/4)+(P0040057/4)+(P0040058/4)+(P0040059/4)+(P0040066/5)+(P0040067/5) +(P0040068/5)+(P0040069/5)+(P0040070/5)+(P0040073/6); NL_BLA18=(P0040006)+(P0040013/2)+(P0040018/2)+(P0040019/2)+(P0040020/2)+(P0040021/2)+(P0040029/3) + (P0040030/3)+(P0040031/3)+(P0040032/3)+(P0040039/3)+(P0040040/3)+(P0040041/3)+(P0040042/3)+(P0040043/3) +(P0040044/3)+(P0040050/4)+(P0040051/4)+(P0040052/4)+(P0040053/4)+(P0040054/4)+(P0040055/4)+(P0040060/4) +(P0040061/4)+(P0040062/4)+(P0040063/4)+(P0040066/5)+(P0040067/5)+(P0040068/5)+(P0040069/5)+(P0040071/5) +(P0040073/6); NL_AMI18=(P0040007)+(P0040014/2)+(P0040022/2)+(P0040023/2)+(P0040024/2)+(P0040033/3)+(P0040034/3) +(P0040035/3)+(P0040045/3)+(P0040046/3)+(P0040047/3)+(P0040056/4)+(P0040057/4)+(P0040058/4)+(P0040064/4) +(P0040070/5)+(P0040018/2)+(P0040029/3)+(P0040039/3)+(P0040040/3)+(P0040041/3)+(P0040050/4)+(P0040051/4) +(P0040052/4)+(P0040060/4)+(P0040061/4)+(P0040062/4)+(P0040066/5)+(P0040067/5)+(P0040068/5)+(P0040071/5) +(P0040073/6); NL_ASI18=(P0040008)+(P0040015/2)+(P0040025/2)+(P0040026/2)+(P0040036/3)+(P0040037/3)+(P0040048/3) +(P0040059/4)+(P0040019/2)+(P0040022/2)+(P0040030/3)+(P0040033/3)+(P0040042/3)+(P0040043/3)+(P0040045/3) +(P0040046/3)+(P0040053/4)+(P0040054/4)+(P0040056/4)+(P0040057/4)+(P0040063/4)+(P0040064/4)+(P0040069/5) +(P0040070/5)+(P0040039/3)+(P0040050/4)+(P0040060/4)+(P0040061/4)+(P0040066/5)+(P0040067/5)+(P0040071/5) +(P0040073/6); NL_HAW18=(P0040009)+(P0040016/2)+(P0040027/2)+(P0040038/3)+(P0040020/2)+(P0040023/2)+(P0040025/2) +(P0040031/3)+(P0040034/3)+(P0040036/3)+(P0040044/3)+(P0040047/3)+(P0040048/3)+(P0040055/4)+(P0040058/4) +(P0040059/4)+(P0040040/3)+(P0040042/3)+(P0040045/3)+(P0040051/4)+(P0040053/4)+(P0040056/4)+(P0040062/4) +(P0040063/4)+(P0040064/4)+(P0040068/5)+(P0040069/5)+(P0040070/5)+(P0040060/4)+(P0040066/5)+(P0040071/5) +(P0040073/6); NL_OTH18=(P0040010)+(P0040017/2)+(P0040021/2)+(P0040024/2)+(P0040026/2)+(P0040027/2)+(P0040032/3) +(P0040035/3)+(P0040037/3)+(P0040038/3)+(P0040041/3)+(P0040043/3)+(P0040044/3)+(P0040046/3)+(P0040047/3) +(P0040048/3)+(P0040052/4)+(P0040054/4)+(P0040055/4)+(P0040057/4)+(P0040058/4)+(P0040059/4)+(P0040061/4) +(P0040062/4)+(P0040063/4)+(P0040064/4)+(P0040067/5)+(P0040068/5)+(P0040069/5)+(P0040070/5)+(P0040071/5) +(P0040073/6); LA_WHI18=(P0030003)-(P0040005)+(P0030011/2)-(P0040013/2)+(P0030012/2)-(P0040014/2) +(P0030013/2)-(P0040015/2)+(P0030014/2)-(P0040016/2)+(P0030015/2)-(P0040017/2) +(P0030027/3)-(P0040029/3)+(P0030028/3)-(P0040030/3)+(P0030029/3)-(P0040031/3) +(P0030030/3)-(P0040032/3)+(P0030031/3)-(P0040033/3)+(P0030032/3)-(P0040034/3) +(P0030033/3)-(P0040035/3)+(P0030034/3)-(P0040036/3)+(P0030035/3)-(P0040037/3) +(P0030036/3)-(P0040038/3)+(P0030048/4)-(P0040050/4)+(P0030049/4)-(P0040051/4) +(P0030050/4)-(P0040052/4)+(P0030051/4)-(P0040053/4)+(P0030052/4)-(P0040054/4) +(P0030053/4)-(P0040055/4)+(P0030054/4)-(P0040056/4)+(P0030055/4)-(P0040057/4) +(P0030056/4)-(P0040058/4)+(P0030057/4)-(P0040059/4)+(P0030064/5)-(P0040066/5) +(P0030065/5)-(P0040067/5)+(P0030066/5)-(P0040068/5)+(P0030067/5)-(P0040069/5) +(P0030068/5)-(P0040070/5)+(P0030071/6)-(P0040073/6); LA_BLA18=(P0030004)-(P0040006)+(P0030011/2)-(P0040013/2)+(P0030016/2)-(P0040018/2)+(P0030017/2)-(P0040019/2)+(P0030018/2)-(P0040020/2) +(P0030019/2)-(P0040021/2)+(P0030027/3)-(P0040029/3)+(P0030028/3)-(P0040030/3)+(P0030029/3)-(P0040031/3)+(P0030030/3)-(P0040032/3) +(P0030037/3)-(P0040039/3)+(P0030038/3)-(P0040040/3)+(P0030039/3)-(P0040041/3)+(P0030040/3)-(P0040042/3)+(P0030041/3)-(P0040043/3) +(P0030042/3)-(P0040044/3)+(P0030048/4)-(P0040050/4)+(P0030049/4)-(P0040051/4)+(P0030050/4)-(P0040052/4)+(P0030051/4)-(P0040053/4) +(P0030052/4)-(P0040054/4)+(P0030053/4)-(P0040055/4)+(P0030058/4)-(P0040060/4)+(P0030059/4)-(P0040061/4)+(P0030060/4)-(P0040062/4) +(P0030061/4)-(P0040063/4)+(P0030064/5)-(P0040066/5)+(P0030065/5)-(P0040067/5)+(P0030066/5)-(P0040068/5)+(P0030067/5)-(P0040069/5) +(P0030069/5)-(P0040071/5)+(P0030071/6)-(P0040073/6); LA_AMI18=(P0030005)-(P0040007)+(P0030012/2)-(P0040014/2)+(P0030020/2)-(P0040022/2)+(P0030021/2)-(P0040023/2)+(P0030022/2)-(P0040024/2) +(P0030031/3)-(P0040033/3)+(P0030032/3)-(P0040034/3)+(P0030033/3)-(P0040035/3)+(P0030043/3)-(P0040045/3)+(P0030044/3)-(P0040046/3) +(P0030045/3)-(P0040047/3)+(P0030054/4)-(P0040056/4)+(P0030055/4)-(P0040057/4)+(P0030056/4)-(P0040058/4)+(P0030062/4)-(P0040064/4) +(P0030068/5)-(P0040070/5)+(P0030016/2)-(P0040018/2)+(P0030027/3)-(P0040029/3)+(P0030037/3)-(P0040039/3)+(P0030038/3)-(P0040040/3) +(P0030039/3)-(P0040041/3)+(P0030048/4)-(P0040050/4)+(P0030049/4)-(P0040051/4)+(P0030050/4)-(P0040052/4)+(P0030058/4)-(P0040060/4) +(P0030059/4)-(P0040061/4)+(P0030060/4)-(P0040062/4)+(P0030064/5)-(P0040066/5)+(P0030065/5)-(P0040067/5)+(P0030066/5)-(P0040068/5) +(P0030069/5)-(P0040071/5)+(P0030071/6)-(P0040073/5); LA_ASI18=(P0030006)-(P0040008)+(P0030013/2)-(P0040015/2)+(P0030023/2)-(P0040025/2)+(P0030024/2)-(P0040026/2)+(P0030034/3)-(P0040036/3) +(P0030035/3)-(P0040037/3)+(P0030046/3)-(P0040048/3)+(P0030057/4)-(P0040059/4)+(P0030017/2)-(P0040019/2)+(P0030020/2)-(P0040022/2) +(P0030028/3)-(P0040030/3)+(P0030031/3)-(P0040033/3)+(P0030040/3)-(P0040042/3)+(P0030041/3)-(P0040043/3)+(P0030043/3)-(P0040045/3) +(P0030044/3)-(P0040046/3)+(P0030051/4)-(P0040053/4)+(P0030052/4)-(P0040054/4)+(P0030054/4)-(P0040056/4)+(P0030055/4)-(P0040057/4) +(P0030061/4)-(P0040063/4)+(P0030062/4)-(P0040064/4)+(P0030067/5)-(P0040069/5)+(P0030068/5)-(P0040070/5)+(P0030037/3)-(P0040039/3) +(P0030048/4)-(P0040050/4)+(P0030058/4)-(P0040060/4)+(P0030059/4)-(P0040061/4)+(P0030064/5)-(P0040066/5)+(P0030065/5)-(P0040067/5) +(P0030069/5)-(P0040071/5)+(P0030071/6)-(P0040073/6); LA_HAW18=(P0030007)-(P0040009)+(P0030014/2)-(P0040016/2)+(P0030025/2)-(P0040027/2) +(P0030036/3)-(P0040038/3)+(P0030018/2)-(P0040020/2)+(P0030021/2)-(P0040023/2)+(P0030023/2)-(P0040025/2)+(P0030029/3)-(P0040031/3) +(P0030032/3)-(P0040034/3)+(P0030034/3)-(P0040036/3)+(P0030042/3)-(P0040044/3)+(P0030045/3)-(P0040047/3)+(P0030046/3)-(P0040048/3) +(P0030053/4)-(P0040055/4)+(P0030056/4)-(P0040058/4)+(P0030057/4)-(P0040059/4)+(P0030038/3)-(P0040040/3)+(P0030040/3)-(P0040042/3) +(P0030043/3)-(P0040045/3)+(P0030049/4)-(P0040051/4)+(P0030051/4)-(P0040053/4)+(P0030054/4)-(P0040056/4)+(P0030060/4)-(P0040062/4) +(P0030061/4)-(P0040063/4)+(P0030062/4)-(P0040064/4)+(P0030066/5)-(P0040068/5)+(P0030067/5)-(P0040069/5)+(P0030068/5)-(P0040070/5) +(P0030058/4)-(P0040060/4)+(P0030064/5)-(P0040066/5)+(P0030069/5)-(P0040071/5)+(P0030071/6)-(P0040073/6); LA_OTH18=(P0030008)-(P0040010)+(P0030015/2)-(P0040017/2)+(P0030019/2)-(P0040021/2)+(P0030022/2)-(P0040024/2) +(P0030024/2)-(P0040026/2)+(P0030025/2)-(P0040027/2)+(P0030030/3)-(P0040032/3)+(P0030033/3)-(P0040035/3) +(P0030035/3)-(P0040037/3)+(P0030036/3)-(P0040038/3)+(P0030039/3)-(P0040041/3)+(P0030041/3)-(P0040043/3) +(P0030042/3)-(P0040044/3)+(P0030044/3)-(P0040046/3)+(P0030045/3)-(P0040047/3)+(P0030046/3)-(P0040048/3) +(P0030050/4)-(P0040052/4)+(P0030052/4)-(P0040054/4)+(P0030053/4)-(P0040055/4)+(P0030055/4)-(P0040057/4) +(P0030056/4)-(P0040058/4)+(P0030057/4)-(P0040059/4)+(P0030059/4)-(P0040061/4)+(P0030060/4)-(P0040062/4) +(P0030061/4)-(P0040063/4)+(P0030062/4)-(P0040064/4)+(P0030065/5)-(P0040067/5)+(P0030066/5)-(P0040068/5) +(P0030067/5)-(P0040069/5)+(P0030068/5)-(P0040070/5)+(P0030069/5)-(P0040071/5)+(P0030071/6)-(P0040073/6); TOTAL=NL_WHITE + NL_BLACK + NL_AMIND + NL_ASIAN + NL_HAW + NL_OTHER + LAT_WHIT + LAT_BLAC + LAT_AMIN + LAT_ASIA + LAT_HAW + LAT_OTHR ; WHITET= NL_WHITE + LAT_WHIT; BLACKT= NL_BLACK + LAT_BLAC; AMINDT= NL_AMIND + LAT_AMIN; ASIANT=NL_ASIAN + LAT_ASIA; HAWT = NL_HAW + LAT_HAW; OTHERT = NL_OTHER + LAT_OTHR; WHITE18 = NL_WHI18 + LA_WHI18; BLACK18 = NL_BLA18 + LA_BLA18; AMIND18 = NL_AMI18 + LA_AMI18; ASIAN18 = NL_ASI18 + LA_ASI18; HAW18 = NL_HAW18 + LA_HAW18; OTHER18 = NL_OTH18 + LA_OTH18; KEEP logrecno total NL_WHITE NL_BLACK NL_AMIND NL_ASIAN NL_HAW NL_OTHER LAT_WHIT LAT_BLAC LAT_AMIN LAT_ASIA LAT_HAW LAT_OTHR WHITET BLACKT AMINDT ASIANT HAWT OTHERT WHITE18 BLACK18 AMIND18 ASIAN18 HAW18 OTHER18; file outallC lrecl=3000; put logrecno 1-7 (WHITET BLACKT AMINDT ASIANT HAWT OTHERT NL_WHITE NL_BLACK NL_AMIND NL_ASIAN NL_HAW NL_OTHER WHITE18 BLACK18 AMIND18 ASIAN18 HAW18 OTHER18 NL_WHI18 NL_BLA18 NL_AMI18 NL_AMI18 NL_HAW18 NL_OTH18) (9.); run;