同求。但是目测，得用到宏！

是每行生成一个数据集吗？
%macro getdata(dsn);
        %let dsid=%sysfunc(open(&dsn,i));  
        %let nobs=%sysfunc(attrn(&dsid,nobs));
        %let rc=%sysfunc(close(&dsid));
        %do i=1 %to &nobs;
                data getdsn&i.;
                set &dsn (firstobs=&i obs=&i);
                run;
        %end;
%mend getdata(dsn);
%getdata(dsn)

data test;
  do id=1 to 10;
     do b=1 to 3;
             a=int(ranuni(0)*10);
                 output;
         end;
   end;
run;

proc sort data=test;
   by id a;
run;


data _null_;
   set test;
   by id a;
   length code $1000;
   if first.a then code= "data "||catx("_","ds",id,a)||";"
                             || "set test;"
                                                         ||cat("where id=", cats(id),  " and a=", cats(a),";")
                                                         || "run;";
        call execute(code);
run;