proc freq data=a;   /*a为你要分析的数据集*/   
table t*c;              /*t为试验组结果，c为对照组结果*/
test kappa wtkap;    /*两个kappa ，一个加权一个不加权，一般都是很靠近的两个结果*/
run;