%macro px(data);
proc sort data=&data; by name;run;
%mend px;
data _null_;
  %do i=1 %to i=31;
%px(old_&i);
  %end;
run;
/*数据集的命名规则为：old_1 old_2 old_3等*/