%macro dd(n,s);
%do i=1 %to &n;
%let o=&s+%eval(&n-1)*35+&n;
%let e=&s+&n*35+&n;
%do j=o %to e;
data dd&n;
set dataset point=j;
output;
%end;
%end;
run;
%mend dd;
不晓得行不行~瞎搞的！

这是我写的例子，应该能满足你的要求

data work.a;
        do i = 1 to 152;
                output;
        end;
run;

data work.a1 work.a2 work.a3 work.a4;
        set work.a;
        if _n_ < 9 then do;
        end;else if _n_ < 45 then do;
                output work.a1;
        end;else if _n_ < 81 then do;
                output work.a2;
        end;else if _n_ < 117 then do;
                output work.a3;
        end;else if _n_ < 152 then do;
                output work.a4;
        end;

run;