DM 'LOG;CLEAR;OUT;CLEAR';
OPTIONS PAGENO = 1;

DATA PROBLEM6;
  INPUT OUTCOME $ EXPOSURE $ COUNT;
DATALINES;
CASE 1-YES 93
CASE 2-NO 174
CONTROL 1-YES 6
CONTROL 2-NO 180
;

PROC FREQ DATA=PROBLEM6;
  TITLE 'Program to compute the odds ratio';
  TABLES EXPOSURE*OUTCOME / CHISQ CMH;
  WEIGHT COUNT;
RUN;