data a;
input x y@@;
cards;
1 2 3 4
;
run;
%macro bb;
%do i=1 %to 49;
data c;
set a _last_;
%end;run;
%mend bb;
%bb

这样可实现数据文件c中包含50个a的copy

data a;
input x y@@;
cards;
1 2 3 4
;
run;
data d1;
set a;
if _n_=1;
run;
%macro bb(c,a,n);
%do i=1 %to (&n-1);
data &c;
set &a _last_;
%end;run;
%mend bb;
%bb(data1,d1,100)
data d2;
set a;
if _n_=2;
run;
%bb(data2,d2,50)
data data3;
set data1 data2;
run;

此程序可实现第一条记录重复100遍，第二条记录重复50遍，最后合并保存于data3数据文件中

请求版主加分，初来乍到，穷啊~~~