%macro table;
%let disd=%sysfunc(open(A));
%let nobs=%sysfunc(attrn(&disd,nobs));
%if  &nobs<=20 %then %do;
data B;
set A;
run;
%end;
%else  %do;
proc  sql outobs=20;
create table c as
select * from a order by ranuni(0);
quit;
%end;
%mend;

%table

%let ds=sashelp.company;
%let sampsize=20;

data _null_;
    length code $1000;
    *** decide the number of observations;
    if 0 then set &Ds nobs=obsnum;
   
        *** when less than or equal to 20;
        if obsnum<=20 then do
       code ="data c; set &ds; run;";
           call execute(code);
           stop;
        end;

        *** when more than 20;
        else do ;
     code="data d(drop=sampsize obsleft);
                      sampsize=&sampsize;
                        obsleft=totobs;
                        do while(sampsize>0);
                                pickit+1;"
           ||         "if ranuni(0)<sampsize/obsleft then do;
                                        set &ds point=pickit nobs=totobs;
                                        output;
                                        sampsize=sampsize-1;
                                end;
                                obsleft=obsleft-1;
                        end;
                        stop;
                run;";
           call execute(code);
           stop;
        end;
run;

%macro test(dsn);
        proc sql noprint;
                select count(*) into: obsnum
                        from &dsn;
        quit;
        %if &obsnum le 20 %then %do;
                data test1;
                        set &dsn;
        run;
        %end;
        %else %do;
        proc surveyselect data=&dsn
                                        method=srs
                                        n=20
                                        out=test2;
        run;
        %end;
%mend test(dsn);
%test(rawdsn)

谢谢这位神！
我运行后为什么显示 “指定的查询涉及按其 SELECT 子句中没出现的一项排序。”呢？
是不是ranuni(0)的原因？
其他都可以，大神再看看，这种情况正常不？

没什么影响，只不过随机数ranuni(0)没有在select中出现;
不放心可以改成这样
proc  sql outobs=20;
create table c as
select a.*,ranuni(0) as random from a  order by random;
quit;