**Proportional with minority preference**;

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. @12 geocomp $2. @14 chariter $3.
 @17 cifsn $2. @19 logrecno $7.  @26 var1 $char200. @225 var2 $char175.
 @401 (p0010001-p0010071) (9.) (p0020001-p0020073) (9.) (p0030001-p0030071) (9.)
 (p0040001-p0040073) (9.);



NL_WHITE=(P0020005);

NL_BLACK=ROUND((P0020006)+(P0020013)+(P0020018/2)+(P0020019/2)+(P0020020/2)+(P0020021/2)+(P0020029/2)
+(P0020030/2)+(P0020031/2)+(P0020032/2)+(P0020039/3)+(P0020040/3)+(P0020041/3)+(P0020042/3)+(P0020043/3)
+(P0020044/3)+(P0020050/3)+(P0020051/3)+(P0020052/3)+(P0020053/3)+(P0020054/3)+(P0020055/3)+(P0020060/4)
+(P0020061/4)+(P0020062/4)+(P0020063/4)+(P0020066/4)+(P0020067/4)+(P0020068/4)+(P0020069/4)+(P0020071/5)
+(P0020073/5));

NL_AMIND=ROUND((P0020007)+(P0020014)+(P0020022/2)+(P0020023/2)+(P0020024/2)+(P0020033/2)+(P0020034/2)
+(P0020035/2)+(P0020045/3)+(P0020046/3)+(P0020047/3)+(P0020056/3)+(P0020057/3)+(P0020058/3)+(P0020064/4)
+(P0020070/4)+(P0020018/2)+(P0020029/2)+(P0020039/3)+(P0020040/3)+(P0020041/3)+(P0020050/3)+(P0020051/3)
+(P0020052/3)+(P0020060/4)+(P0020061/4)+(P0020062/4)+(P0020066/4)+(P0020067/4)+(P0020068/4)+(P0020071/5)
+(P0020073/5));

NL_ASIAN=ROUND((P0020008)+(P0020015)+(P0020025/2)+(P0020026/2)+(P0020036/2)+(P0020037/2)+(P0020048/3)
+(P0020059/3)+(P0020019/2)+(P0020022/2)+(P0020030/2)+(P0020033/2)+(P0020042/3)+(P0020043/3)+(P0020045/3)
+(P0020046/3)+(P0020053/3)+(P0020054/3)+(P0020056/3)+(P0020057/3)+(P0020063/4)+(P0020064/4)+(P0020069/4)
+(P0020070/4)+(P0020039/3)+(P0020050/3)+(P0020060/4)+(P0020061/4)+(P0020066/4)+(P0020067/4)+(P0020071/5)
+(P0020073/5));

NL_HAW=ROUND((P0020009)+(P0020016)+(P0020027/2)+(P0020038/2)+(P0020020/2)+(P0020023/2)+(P0020025/2)
+(P0020031/2)+(P0020034/2)+(P0020036/2)+(P0020044/3)+(P0020047/3)+(P0020048/3)+(P0020055/3)+(P0020058/3)
+(P0020059/3)+(P0020040/3)+(P0020042/3)+(P0020045/3)+(P0020051/3)+(P0020053/3)+(P0020056/3)+(P0020062/4)
+(P0020063/4)+(P0020064/4)+(P0020068/4)+(P0020069/4)+(P0020070/4)+(P0020060/4)+(P0020066/4)+(P0020071/5)
+(P0020073/5));

NL_OTHER=ROUND((P0020010)+(P0020017)+(P0020021/2)+(P0020024/2)+(P0020026/2)+(P0020027/2)+(P0020032/2)
+(P0020035/2)+(P0020037/2)+(P0020038/2)+(P0020041/3)+(P0020043/3)+(P0020044/3)+(P0020046/3)+(P0020047/3)
+(P0020048/3)+(P0020052/3)+(P0020054/3)+(P0020055/3)+(P0020057/3)+(P0020058/3)+(P0020059/3)+(P0020061/4)
+(P0020062/4)+(P0020063/4)+(P0020064/4)+(P0020067/4)+(P0020068/4)+(P0020069/4)+(P0020070/4)+(P0020071/5)
+(P0020073/5));

LAT_WHIT=(P0010003)-(P0020005);

LAT_BLAC=ROUND((P0010004)-(P0020006)+(P0010011)-(P0020013)+(P0010016/2)-(P0020018/2)+(P0010017/2)-(P0020019/2)+(P0010018/2)-(P0020020/2)
+(P0010019/2)-(P0020021/2)+(P0010027/2)-(P0020029/2)+(P0010028/2)-(P0020030/2)+(P0010029/2)-(P0020031/2)+(P0010030/2)-(P0020032/2)
+(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/3)-(P0020050/3)+(P0010049/3)-(P0020051/3)+(P0010050/3)-(P0020052/3)+(P0010051/3)-(P0020053/3)
+(P0010052/3)-(P0020054/3)+(P0010053/3)-(P0020055/3)+(P0010058/4)-(P0020060/4)+(P0010059/4)-(P0020061/4)+(P0010060/4)-(P0020062/4)
+(P0010061/4)-(P0020063/4)+(P0010064/4)-(P0020066/4)+(P0010065/4)-(P0020067/4)+(P0010066/4)-(P0020068/4)+(P0010067/4)-(P0020069/4)
+(P0010069/5)-(P0020071/5)+(P0010071/5)-(P0020073/5));

LAT_AMIN=ROUND((P0010005)-(P0020007)+(P0010012)-(P0020014)+(P0010020/2)-(P0020022/2)+(P0010021/2)-(P0020023/2)+(P0010022/2)-(P0020024/2)
+(P0010031/2)-(P0020033/2)+(P0010032/2)-(P0020034/2)+(P0010033/2)-(P0020035/2)+(P0010043/3)-(P0020045/3)+(P0010044/3)-(P0020046/3)
+(P0010045/3)-(P0020047/3)+(P0010054/3)-(P0020056/3)+(P0010055/3)-(P0020057/3)+(P0010056/3)-(P0020058/3)+(P0010062/4)-(P0020064/4)
+(P0010068/4)-(P0020070/4)+(P0010016/2)-(P0020018/2)+(P0010027/2)-(P0020029/2)+(P0010037/3)-(P0020039/3)+(P0010038/3)-(P0020040/3)
+(P0010039/3)-(P0020041/3)+(P0010048/3)-(P0020050/3)+(P0010049/3)-(P0020051/3)+(P0010050/3)-(P0020052/3)+(P0010058/4)-(P0020060/4)
+(P0010059/4)-(P0020061/4)+(P0010060/4)-(P0020062/4)+(P0010064/4)-(P0020066/4)+(P0010065/4)-(P0020067/4)+(P0010066/4)-(P0020068/4)
+(P0010069/5)-(P0020071/5)+(P0010071/5)-(P0020073/5));

LAT_ASIA=ROUND((P0010006)-(P0020008)+(P0010013)-(P0020015)+(P0010023/2)-(P0020025/2)+(P0010024/2)-(P0020026/2)+(P0010034/2)-(P0020036/2)
+(P0010035/2)-(P0020037/2)+(P0010046/3)-(P0020048/3)+(P0010057/3)-(P0020059/3)+(P0010017/2)-(P0020019/2)+(P0010020/2)-(P0020022/2)
+(P0010028/2)-(P0020030/2)+(P0010031/2)-(P0020033/2)+(P0010040/3)-(P0020042/3)+(P0010041/3)-(P0020043/3)+(P0010043/3)-(P0020045/3)
+(P0010044/3)-(P0020046/3)+(P0010051/3)-(P0020053/3)+(P0010052/3)-(P0020054/3)+(P0010054/3)-(P0020056/3)+(P0010055/3)-(P0020057/3)
+(P0010061/4)-(P0020063/4)+(P0010062/4)-(P0020064/4)+(P0010067/4)-(P0020069/4)+(P0010068/4)-(P0020070/4)+(P0010037/3)-(P0020039/3)
+(P0010048/3)-(P0020050/3)+(P0010058/4)-(P0020060/4)+(P0010059/4)-(P0020061/4)+(P0010064/4)-(P0020066/4)+(P0010065/4)-(P0020067/4)
+(P0010069/5)-(P0020071/5)+(P0010071/5)-(P0020073/5));

LAT_HAW=ROUND((P0010007)-(P0020009)+(P0010014)-(P0020016)+(P0010025/2)-(P0020027/2)
+(P0010036/2)-(P0020038/2)+(P0010018/2)-(P0020020/2)+(P0010021/2)-(P0020023/2)+(P0010023/2)-(P0020025/2)+(P0010029/2)-(P0020031/2)
+(P0010032/2)-(P0020034/2)+(P0010034/2)-(P0020036/2)+(P0010042/3)-(P0020044/3)+(P0010045/3)-(P0020047/3)+(P0010046/3)-(P0020048/3)
+(P0010053/3)-(P0020055/3)+(P0010056/3)-(P0020058/3)+(P0010057/3)-(P0020059/3)+(P0010038/3)-(P0020040/3)+(P0010040/3)-(P0020042/3)
+(P0010043/3)-(P0020045/3)+(P0010049/3)-(P0020051/3)+(P0010051/3)-(P0020053/3)+(P0010054/3)-(P0020056/3)+(P0010060/4)-(P0020062/4)
+(P0010061/4)-(P0020063/4)+(P0010062/4)-(P0020064/4)+(P0010066/4)-(P0020068/4)+(P0010067/4)-(P0020069/4)+(P0010068/4)-(P0020070/4)
+(P0010058/4)-(P0020060/4)+(P0010064/4)-(P0020066/4)+(P0010069/5)-(P0020071/5)+(P0010071/5)-(P0020073/5));

LAT_OTHR=ROUND((P0010008)-(P0020010)+(P0010015)-(P0020017)+(P0010019/2)-(P0020021/2)+(P0010022/2)-(P0020024/2)
+(P0010024/2)-(P0020026/2)+(P0010025/2)-(P0020027/2)+(P0010030/2)-(P0020032/2)+(P0010033/2)-(P0020035/2)
+(P0010035/2)-(P0020037/2)+(P0010036/2)-(P0020038/2)+(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/3)-(P0020052/3)+(P0010052/3)-(P0020054/3)+(P0010053/3)-(P0020055/3)+(P0010055/3)-(P0020057/3)
+(P0010056/3)-(P0020058/3)+(P0010057/3)-(P0020059/3)+(P0010059/4)-(P0020061/4)+(P0010060/4)-(P0020062/4)
+(P0010061/4)-(P0020063/4)+(P0010062/4)-(P0020064/4)+(P0010065/4)-(P0020067/4)+(P0010066/4)-(P0020068/4)
+(P0010067/4)-(P0020069/4)+(P0010068/4)-(P0020070/4)+(P0010069/5)-(P0020071/5)+(P0010071/5)-(P0020073/5));


******;
*Calculate 18+ counts;
******;

NL_WHI18=(P0040005);

NL_BLA18=ROUND((P0040006)+(P0040013)+(P0040018/2)+(P0040019/2)+(P0040020/2)+(P0040021/2)+(P0040029/2)
+(P0040030/2)+(P0040031/2)+(P0040032/2)+(P0040039/3)+(P0040040/3)+(P0040041/3)+(P0040042/3)+(P0040043/3)
+(P0040044/3)+(P0040050/3)+(P0040051/3)+(P0040052/3)+(P0040053/3)+(P0040054/3)+(P0040055/3)+(P0040060/4)
+(P0040061/4)+(P0040062/4)+(P0040063/4)+(P0040066/4)+(P0040067/4)+(P0040068/4)+(P0040069/4)+(P0040071/5)
+(P0040073/5));

NL_AMI18=ROUND((P0040007)+(P0040014)+(P0040022/2)+(P0040023/2)+(P0040024/2)+(P0040033/2)+(P0040034/2)
+(P0040035/2)+(P0040045/3)+(P0040046/3)+(P0040047/3)+(P0040056/3)+(P0040057/3)+(P0040058/3)+(P0040064/4)
+(P0040070/4)+(P0040018/2)+(P0040029/2)+(P0040039/3)+(P0040040/3)+(P0040041/3)+(P0040050/3)+(P0040051/3)
+(P0040052/3)+(P0040060/4)+(P0040061/4)+(P0040062/4)+(P0040066/4)+(P0040067/4)+(P0040068/4)+(P0040071/5)
+(P0040073/5));

NL_ASI18=ROUND((P0040008)+(P0040015)+(P0040025/2)+(P0040026/2)+(P0040036/2)+(P0040037/2)+(P0040048/3)
+(P0040059/3)+(P0040019/2)+(P0040022/2)+(P0040030/2)+(P0040033/2)+(P0040042/3)+(P0040043/3)+(P0040045/3)
+(P0040046/3)+(P0040053/3)+(P0040054/3)+(P0040056/3)+(P0040057/3)+(P0040063/4)+(P0040064/4)+(P0040069/4)
+(P0040070/4)+(P0040039/3)+(P0040050/3)+(P0040060/4)+(P0040061/4)+(P0040066/4)+(P0040067/4)+(P0040071/5)
+(P0040073/5));

NL_HAW18=ROUND((P0040009)+(P0040016)+(P0040027/2)+(P0040038/2)+(P0040020/2)+(P0040023/2)+(P0040025/2)
+(P0040031/2)+(P0040034/2)+(P0040036/2)+(P0040044/3)+(P0040047/3)+(P0040048/3)+(P0040055/3)+(P0040058/3)
+(P0040059/3)+(P0040040/3)+(P0040042/3)+(P0040045/3)+(P0040051/3)+(P0040053/3)+(P0040056/3)+(P0040062/4)
+(P0040063/4)+(P0040064/4)+(P0040068/4)+(P0040069/4)+(P0040070/4)+(P0040060/4)+(P0040066/4)+(P0040071/5)
+(P0040073/5));

NL_OTH18=ROUND((P0040010)+(P0040017)+(P0040021/2)+(P0040024/2)+(P0040026/2)+(P0040027/2)+(P0040032/2)
+(P0040035/2)+(P0040037/2)+(P0040038/2)+(P0040041/3)+(P0040043/3)+(P0040044/3)+(P0040046/3)+(P0040047/3)
+(P0040048/3)+(P0040052/3)+(P0040054/3)+(P0040055/3)+(P0040057/3)+(P0040058/3)+(P0040059/3)+(P0040061/4)
+(P0040062/4)+(P0040063/4)+(P0040064/4)+(P0040067/4)+(P0040068/4)+(P0040069/4)+(P0040070/4)+(P0040071/5)
+(P0040073/5));

LA_WHI18=(P0030003)-(P0040005);

LA_BLA18=ROUND((P0030004)-(P0040006)+(P0030011)-(P0040013)+(P0030016/2)-(P0040018/2)+(P0030017/2)-(P0040019/2)+(P0030018/2)-(P0040020/2)
+(P0030019/2)-(P0040021/2)+(P0030027/2)-(P0040029/2)+(P0030028/2)-(P0040030/2)+(P0030029/2)-(P0040031/2)+(P0030030/2)-(P0040032/2)
+(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/3)-(P0040050/3)+(P0030049/3)-(P0040051/3)+(P0030050/3)-(P0040052/3)+(P0030051/3)-(P0040053/3)
+(P0030052/3)-(P0040054/3)+(P0030053/3)-(P0040055/3)+(P0030058/4)-(P0040060/4)+(P0030059/4)-(P0040061/4)+(P0030060/4)-(P0040062/4)
+(P0030061/4)-(P0040063/4)+(P0030064/4)-(P0040066/4)+(P0030065/4)-(P0040067/4)+(P0030066/4)-(P0040068/4)+(P0030067/4)-(P0040069/4)
+(P0030069/5)-(P0040071/5)+(P0030071/5)-(P0040073/5));

LA_AMI18=ROUND((P0030005)-(P0040007)+(P0030012)-(P0040014)+(P0030020/2)-(P0040022/2)+(P0030021/2)-(P0040023/2)+(P0030022/2)-(P0040024/2)
+(P0030031/2)-(P0040033/2)+(P0030032/2)-(P0040034/2)+(P0030033/2)-(P0040035/2)+(P0030043/3)-(P0040045/3)+(P0030044/3)-(P0040046/3)
+(P0030045/3)-(P0040047/3)+(P0030054/3)-(P0040056/3)+(P0030055/3)-(P0040057/3)+(P0030056/3)-(P0040058/3)+(P0030062/4)-(P0040064/4)
+(P0030068/4)-(P0040070/4)+(P0030016/2)-(P0040018/2)+(P0030027/2)-(P0040029/2)+(P0030037/3)-(P0040039/3)+(P0030038/3)-(P0040040/3)
+(P0030039/3)-(P0040041/3)+(P0030048/3)-(P0040050/3)+(P0030049/3)-(P0040051/3)+(P0030050/3)-(P0040052/3)+(P0030058/4)-(P0040060/4)
+(P0030059/4)-(P0040061/4)+(P0030060/4)-(P0040062/4)+(P0030064/4)-(P0040066/4)+(P0030065/4)-(P0040067/4)+(P0030066/4)-(P0040068/4)
+(P0030069/5)-(P0040071/5)+(P0030071/5)-(P0040073/5));

LA_ASI18=ROUND((P0030006)-(P0040008)+(P0030013)-(P0040015)+(P0030023/2)-(P0040025/2)+(P0030024/2)-(P0040026/2)+(P0030034/2)-(P0040036/2)
+(P0030035/2)-(P0040037/2)+(P0030046/3)-(P0040048/3)+(P0030057/3)-(P0040059/3)+(P0030017/2)-(P0040019/2)+(P0030020/2)-(P0040022/2)
+(P0030028/2)-(P0040030/2)+(P0030031/2)-(P0040033/2)+(P0030040/3)-(P0040042/3)+(P0030041/3)-(P0040043/3)+(P0030043/3)-(P0040045/3)
+(P0030044/3)-(P0040046/3)+(P0030051/3)-(P0040053/3)+(P0030052/3)-(P0040054/3)+(P0030054/3)-(P0040056/3)+(P0030055/3)-(P0040057/3)
+(P0030061/4)-(P0040063/4)+(P0030062/4)-(P0040064/4)+(P0030067/4)-(P0040069/4)+(P0030068/4)-(P0040070/4)+(P0030037/3)-(P0040039/3)
+(P0030048/3)-(P0040050/3)+(P0030058/4)-(P0040060/4)+(P0030059/4)-(P0040061/4)+(P0030064/4)-(P0040066/4)+(P0030065/4)-(P0040067/4)
+(P0030069/5)-(P0040071/5)+(P0030071/5)-(P0040073/5));

LA_HAW18=ROUND((P0030007)-(P0040009)+(P0030014)-(P0040016)+(P0030025/2)-(P0040027/2)
+(P0030036/2)-(P0040038/2)+(P0030018/2)-(P0040020/2)+(P0030021/2)-(P0040023/2)+(P0030023/2)-(P0040025/2)+(P0030029/2)-(P0040031/2)
+(P0030032/2)-(P0040034/2)+(P0030034/2)-(P0040036/2)+(P0030042/3)-(P0040044/3)+(P0030045/3)-(P0040047/3)+(P0030046/3)-(P0040048/3)
+(P0030053/3)-(P0040055/3)+(P0030056/3)-(P0040058/3)+(P0030057/3)-(P0040059/3)+(P0030038/3)-(P0040040/3)+(P0030040/3)-(P0040042/3)
+(P0030043/3)-(P0040045/3)+(P0030049/3)-(P0040051/3)+(P0030051/3)-(P0040053/3)+(P0030054/3)-(P0040056/3)+(P0030060/4)-(P0040062/4)
+(P0030061/4)-(P0040063/4)+(P0030062/4)-(P0040064/4)+(P0030066/4)-(P0040068/4)+(P0030067/4)-(P0040069/4)+(P0030068/4)-(P0040070/4)
+(P0030058/4)-(P0040060/4)+(P0030064/4)-(P0040066/4)+(P0030069/5)-(P0040071/5)+(P0030071/5)-(P0040073/5));

LA_OTH18=ROUND((P0030008)-(P0040010)+(P0030015)-(P0040017)+(P0030019/2)-(P0040021/2)+(P0030022/2)-(P0040024/2)
+(P0030024/2)-(P0040026/2)+(P0030025/2)-(P0040027/2)+(P0030030/2)-(P0040032/2)+(P0030033/2)-(P0040035/2)
+(P0030035/2)-(P0040037/2)+(P0030036/2)-(P0040038/2)+(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/3)-(P0040052/3)+(P0030052/3)-(P0040054/3)+(P0030053/3)-(P0040055/3)+(P0030055/3)-(P0040057/3)
+(P0030056/3)-(P0040058/3)+(P0030057/3)-(P0040059/3)+(P0030059/4)-(P0040061/4)+(P0030060/4)-(P0040062/4)
+(P0030061/4)-(P0040063/4)+(P0030062/4)-(P0040064/4)+(P0030065/4)-(P0040067/4)+(P0030066/4)-(P0040068/4)
+(P0030067/4)-(P0040069/4)+(P0030068/4)-(P0040070/4)+(P0030069/5)-(P0040071/5)+(P0030071/5)-(P0040073/5));

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 outallA lrecl=600;
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_ASI18 NL_HAW18 NL_OTH18 ) (9.);
  RUN;