data dd;
input f e n d@@;
lgn=log(n);
cards;
1 1 240 216  1  0  100  63  2  1  60  48  2  0  210  84
;
proc genmod data=dd  order=data;
class f;
model d=e f/dist=poisson
link=log   type1 type3;
run;
proc genmod data=dd;
class f;
make 'obstats' out=outdata;
model d=f/dist=poisson link=log offset=lgn
type1 type3  obstats;
run;
proc print data=outdata;
run;
data k; set outdata;
set dd;
rate=exp(xbeta);run;proc print;
run;