data a;
input id name$ time yymmdd8. cash;
cards;
1 xiaowang 20070216 1800
2 xiaozheng 20070216 1750
3 xiaowang 20070318 26500
;
run;
proc sql;
create table b as
select distinct name from a;
quit;
data b;
set b;
n=_n_;
run;
proc sql noprint;
create table a as
select a.*,b.n from a ,b where a.name=b.name;
quit;
proc sql noprint;
select count(distinct name) into:num from a;
quit;
%macro luijb;
%do i=1 %to #
data a&i;
set a;
drop n;
if n=&i then output a&i;
run;
%end;
%mend luijb;
%luijb;

需要怎么汇总可以接着在macro里接着写啊！~

后来又想了一下，这样似乎更简单些:

data a;
input id name$ time yymmdd8. cash;
cards;
1 xiaowang 20070216 1800
2 xiaozheng 20070216 1750
3 xiaowang 20070318 26500
;
run;
proc sort data=a;
by name;
run;

data a;
set a;
by name;
if first.name then n+1;
run;

proc sql noprint;
select count(distinct name) into:num from a;
quit;
%macro luijb;
%do i=1 %to #
data a&i;
set a;
drop n;
if n=&i then output a&i;
run;
%end;
%mend luijb;
%luijb;

data temp;
 input name $  withdraw  save ;
 cards;
Xiaowang 300 500
XiaoLi 100 200
XiaoZhang 400 500
XiaoLi 400 30
XiaoZhang 380 230
XiaoLi 440 30
;
run;

/*agrregate the dataset based on name*/
proc univariate data = temp noprint;
 class name;
 var withdraw;
 output out = name;
run;

/*save each customer name into marcro*/
data _null_;
 set name;
 suffix=put(_n_,5.);
 call symput (cats("name",suffix), trim(name));
 call symput ("total", _n_);
run;

/*create dataset for each customer*/
%macro createdata();
 %do i = 1 %to &total;
 data &&name&i;
  set temp;
  if name ne "&&name&i" then delete;
 run;
 %end;

%mend;

%createdata();

[此贴子已经被作者于2007-11-20 6:59:39编辑过]