谢谢~~~

/* define which libname.member table, and by which column */
%let TABLE=sashelp.cars;
%let COLUMN=origin;

proc sort data=&table out=b nodupkey;
by &COLUMN;
run;

data _null_;
set b;
call execute ('data out_'||strip(&COLUMN)||';');
call execute ("set &table (where=(origin='"||&COLUMN||"'));");
call execute ('run;');
run;

you can compare these two methods. I think the former one is more efficient. Maybe the later one (mine) is more readable, you know what you are doing all the time.

为什么不是data d1...dn;用if output来做，就一次
1000个分类值的话原始数据全表遍历1000次也是醉了

good point

/* define which libname.member table, and by which column */
options mprint mlogic;
%let TABLE=sashelp.cars;
%let COLUMN=origin;

proc sort data=&table out=b nodupkey;
by &COLUMN;
run;

data _null_;
set b end=eof;
call symputx("&COLUMN"||left(_n_),&COLUMN);
call symputx('num'||left(_n_),_n_);
if eof then call symputx('totalnum',_n_);
run;

%macro test;
data %do i=1 %to &totalnum; d&&num&i %end;;
set &table;
%do i= 1 %to &totalnum;
%if &i > 1 %then else;
if &COLUMN = "&&&column&i." then output d&&num&i;
%end;
run;
%mend test;
%test


How about in this way?

哥们,我看你回复了N个这样的帖子了,你倒是把详细过程说一下啊