/*方法一*/
data b1;
        do i=1 to 1000;
                do j=1 to 18;
/*18是数据集a记录数*/
                           set a point=j;
                        output;
                end;
        end;
        stop;
run;

/*方法二*/
%macro test1;
data b2;
        set
%do i=1 %to 1000;
a
%end;
;
run;
%mend;
%test1;

/*方法三*/
%macro test2;
%do i=1 %to 1000;
proc append base=b3  data=a;
run;
%end;
%mend;
%test2;

效率从高到低

这个最简单

{:3_42:}

data a;
  a=1;
run;
data b;
  if _n_=1 then set a;
  set b;
run;