%macro mac ;
%do i=1 %to 30;
data capm.t&i.;
set capm.riraw1;
if data＞=&i. and data＜=79+&i.;
rif=ri-rf;
rmf=rm-rf;
run;
%end;
%mend mac;