DATA a;
INPUT  Gender Dose Denom NDead_30 NDead_60 ; /* male=1 */
lines;
1  0  8  0  0
1  1 10  0  0
1  2  8  1  1
1  3 10  1  5
1  4  8  4  5
1  5 10  7  7
1  6 10  7  9
1  7 10  9  9
1  8  8  7  8
1 16  8  8  8
0  0  8  0  0
0  1 10  0  0
0  2  8  0  0
0  3 10  1  1
0  4  8  2  2
0  5 10  3  6
0  6 10  7  8
0  7 10  9  9
0  8  8  7  8
0 16  8  8  8
;

DATA sasuser.cadmium3 (KEEP = Gender Dose Dead number)
     sasuser.cadmium6 (KEEP = Gender Dose Dead number);
  SET a;

  Dead = 1; number = NDead_30;
  IF Number > 0 THEN OUTPUT sasuser.cadmium3;
  Dead = 0; Number = Denom - NDead_30;
  IF Number > 0 THEN OUTPUT sasuser.cadmium3;

  Dead = 1; Number = NDead_60;
  IF Number > 0 THEN OUTPUT sasuser.cadmium6;
  Dead = 0; Number = Denom - NDead_60;
  IF Number > 0 THEN OUTPUT sasuser.cadmium6;

PROC LOGIST descending data=sasuser.cadmium3;
  MODEL Dead = Gender Dose;
  FREQ number;

RUN;