数据集（data）概貌：
代码（id）  日期（Tradate）  成交量（Volume）  换手率（Rate）
000001        2011-01-01         1000                      1
000001        2011-01-02          200                      0.5
                                     .
                                     .
600000        2011-01-01           500                     0.1
600000        2011-01-02          3000                    0.3

data test;
set data;
if id='000001' then output;
run;
proc sort data=test;
run;
%macro test3;
data test1;
set test;
by id tradate;
array Tavg(30);
array Hrate(30);
Tavg1=Volume;
Hrate1=Rate;
%do i=2 %to 30;
           Tavg(&i.)=lag(Tavg(&i.-1));
          Hrate(&i.)=lag(Hrate(&i.-1));
%end;
/*求10、20、30天的成交量及换手率移动平均值*/
%do j=10 %to 30 %by 10;
           Avg_T&j.=round(mean(of Tavg1-Tavg&j.),1);
           Avg_H&j.=round(mean(of Hrate1-Hrate&j.),0.01);
%end;
run;
%mend test3;
%test3;
-------------------------------------------------------
问题：对求单ID=‘000001’对应的移动平均值会求，但不会对ID等于多值时进行批量处理（即，根据ID进行分组球Volume及Rate的移动平均值），请各位大虾指导，谢谢！