data inj_mold;
input reason $ 1-11 number;
datalines;
Black Spots 88
Scratches   47
Splay       31
Sinks       29
Flow Lines   5
;
run;
proc freq data=inj_mold order=data;
tables reason/nocum chisq testp=(50 20 15 10 5);
weight number;
ods output OneWayFreqs=inj_mold_out;
run;
data inj_mold_out;
set inj_mold_out;
Expected=200*TestPercent/100;
run;
proc print data=inj_mold_out noobs;
run;