DM 'LOG;CLEAR;OUT;CLEAR';
OPTIONS PAGENO = 1 LINESIZE = 74 PAGESIZE = 64;
* Program to compute the Odds Ratio and the 95% CI;
data odds;
	input outcome $ exposure $ count;
datalines;
case 1-Yes 50
case 2-No 100
control 1-Yes 20
control 2-No 130
;
proc freq data=odds;
	title 'Program to compute an Odds Ratio';
	tables exposure*outcome / chisq cmh;
	weight count;
run;