%macro input_data(inname,outname);
%do i=1 %to 85;

data _null_;
if &i<10 then call symput("k","0"||"&i.");
else if &i>=10  then call symput("k","&i.");
run;

proc sql;
create table  &outname.&k.  as
select
  h._ric,
  h.date_l_,
  h.rbas,
  h.basdp,
  ( select std(s.rbas)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as stddev_rbas,
  ( select mean(s.rbas)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as mean_rbas,
( select std(s.basdp)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as stddev_basdp,
  ( select mean(s.basdp)
    from  &inname.&k. s
    where h.gdate between s.gdate-15 and s.gdate+15) as mean_basdp
from  &inname.&k. h;

quit;

%end;
%mend;

%input_data(BAS,out);

先看看。{:2_26:}