如何提取各个股票代码对应的数据到数据集

l请问论坛高手：假设有一个数据集，有三个变量，一个是股票的代码，另一个是收盘价和日期，分别记为dm,spj date，并且事先知道这个数据集中股票的所有代码取值，例如有三个股票，代码是000001、000002、000003。虚拟数据集如下：
dm           spj          date
000001   10.2       2016-01-02
000001   10.3       2016-01-03
000001   10.7       2016-01-04
000002   9.2        2016-01-02
000002   9.3        2016-01-03
000002   9.7        2016-01-04
000004   8.2        2016-01-02
000004   8.3        2016-01-03
000004   8.7        2016-01-04
现在的问题，如何通过编程把各自股票代码指定观测输出到各自的数据集中，最好比如以字母a开头，以股指代码为后缀形成数据集命名。例如上述数据集内容就要形成数据a000001、a000002、a000004。期待大神指导！

1. proc sort data=test;
   
2. by dm;
   
3. run;
   
4. data test1 ;
   
5. set test;
   
6. by dm;
   
7. if first.dm then num+1;
   
8. run;
   
9. proc sql noprint;
   
10.   select max(num) into:num  from test1;
    
11. quit;
    
12. 
    
13. %macro exportfile(ds,n);
    
14.            %do i=1 %to &n;
    
15.               data tmp&i (drop=num);
    
16.                      set &ds;
    
17.                          where num=&i;
    
18.                   run;
    
19.                   proc sql noprint;
    
20.                     select distinct(dm) into :filename from tmp&i;
    
21.           quit;
    
22.           %put &filename;
    
23.                   proc export data=tmp&i dbms=dlm replace outfile="d:tmp&filename..txt";
    
24.                   run;
    
25.            %end;
    
26. %mend exportfile;
    
27. %exportfile(test1,&num);

复制代码

*Assume your dataset name is "have";

proc sql;
select distinct dm into:key separated by ' '
from have;
quit;


%macro dist;
%do i=1 %to %sysfunc(countw(&key));
%let hat=%scan(&key,&i);               
data a&hat;
set have;
where dm="&hat";
run;
proc export outfile="C:\a&hat..CSV" DBMS=CSV replace;    /*optional: export all these files */
run;
%end;
%mend;

%dist

proc sql;
create table dmlist as
select distinct dm from test;
quit;

data _null_;
set dmlist;
call execute('data a'||strip(dm)||'; set test; where dm='||quote(strip(dm))||';run;');
run;

wwang111 发表于 2017-2-28 08:22
proc sql;
create table dmlist as
select distinct dm from test;

感觉你非常是擅于用call execute语句啊