data dd;

input f e n d@@;

lgn=log(n);

cards;

1 1 240216  1 0  100  63 2  1  60 48  2  0 210  84

;

proc genmod data=dd  order=data;

class f;

model d=ef/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; setoutdata;

set dd;

rate=exp(xbeta);run;proc print;

run;