data a;
 input a$ b code$;
 datalines;
a 10000 000001
b 2600 000001
c 670 000001
t2a 70 000001
t2b 6 000001
t2c 400 000001
a 690 000002
b 110 000002
c 2500 000002
t2a 450 000002
t2b 160 000002
t2c 8 000002
q   8  000003
q   8  000003
q   8  000003
q   8  000003
;
run;
proc sort data=a out=a;
 by code;
run;
data _null_;
 set a end=last;
 by code;
 retain s 0;
 if first.code=1 then  s+1;
 if last then call symput('nobs',s);
run;
%put _user_;
options mprint mlogic=1 symbolgen=1;
%macro mm;
 data _null_;
  %local tem;
  do i=1 to &nobs;
   do until(last);
    set a end=last;
    by code;
    if first.code  then call symput('var'||compress(i),code);
    if last.code=1 then leave;
   end;
  end;
 run;
 %do i=1 %to &nobs;
  %let tem=&tem code_&&var&i;
 %end;
 data &tem;
  %do i=1 %to &nobs;
   do until(last&i);
    set a end=last&i;
    if code="&&var&i" then output code_&&var&i;
   end;
  %end;
 run;
 %put _user_;
%mend mm;

%mm

[此贴子已经被作者于2008-4-28 20:38:42编辑过]

data a;
 input a$ b code$;
 datalines;
a 10000 000001
b 2600 000001
c 670 000001
t2a 70 000001
t2b 6 000001
t2c 400 000001
a 690 000002
b 110 000002
c 2500 000002
t2a 450 000002
t2b 160 000002
t2c 8 000002
q   8  000003
q   8  000003
q   8  000003
q   8  000003
;
run;

proc sql noprint;
 select count(distinct code) into: count from a ;
 select distinct code into :code separated by " " from a group by code;
quit;

%macro table();
%do i = 1 %to &count;
 %let tempcode = %scan(&code,&i," ");
 proc sql;
 create table code_&tempcode as select * from a where code = "&tempcode";
quit;
%end;
%mend;

%table();

多谢楼上的，sql居然也能建宏，太强了。

我也一向比较喜欢用sql，写出来的程序比较简练，可惜学的不够。

以后希望能与大家多交流。