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) plots(only)=none;
weight number;
ods output OneWayFreqs=inj_mold_out;
run;
data inj_mold_out;
set inj_mold_out;
Expected=200*TestPercent/100;
Pearson_res=(frequency-expected)/sqrt(expected);
run;
proc print data=inj_mold_out noobs;
 var reason frequency percent testpercent expected Pearson_res;
run;