数据集我放在了二楼，麻烦您看一下

你好，这个有点复杂，我在我的电脑上修改了一下，很多error，我也不知道怎么回事呀。我想要按照datatype来把数据分类，然后每类创造出一个子集，单独保存。

Sorry there are some errors that were made during cleaning and Simplifying the code after testing.

Above line 2 seems having problems, it might be caused by copying and pasting the fonts from different computers.

the line 2 should be read as:
input id datatype $ ori_data $ cor_data $;

line 23 is not correct. it should be read as:
call execute('data '||ds||'; set test(where =(datatype="'||type||'")); run;');

The following is the corrected code.here is the log

235  data test;
236  input ID DATATYPE $ ORI_DATA $  COR_DATA $;
237  datalines;

NOTE: The data set WORK.TEST has 6 observations and 4 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds


244  ; run;
245
246  /* using call execute */
247  proc sql;
248       create table types as
249       select distinct datatype as type
250       from test;
NOTE: Table WORK.TYPES created, with 4 rows and 1 columns.

251  quit;
NOTE: PROCEDURE SQL used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


252
253  data _null_;
254     set types;
255     length ds $8.;
256     ds=cats('type_', compress(type));
257     call execute('data '||ds||'; set test(where =(datatype="'||type||'")); run;');
258  run;

NOTE: There were 4 observations read from the data set WORK.TYPES.
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


NOTE: CALL EXECUTE generated line.
1   + data type_A  ; set test(where =(datatype="A       ")); run;

NOTE: There were 3 observations read from the data set WORK.TEST.
      WHERE datatype='A       ';
NOTE: The data set WORK.TYPE_A has 3 observations and 4 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.00 seconds


2   + data type_B  ; set test(where =(datatype="B       ")); run;

NOTE: There were 1 observations read from the data set WORK.TEST.
      WHERE datatype='B       ';
NOTE: The data set WORK.TYPE_B has 1 observations and 4 variables.
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


3   + data type_C  ; set test(where =(datatype="C       ")); run;

NOTE: There were 1 observations read from the data set WORK.TEST.
      WHERE datatype='C       ';
NOTE: The data set WORK.TYPE_C has 1 observations and 4 variables.
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


4   + data type_D  ; set test(where =(datatype="D       ")); run;

NOTE: There were 1 observations read from the data set WORK.TEST.
      WHERE datatype='D       ';
NOTE: The data set WORK.TYPE_D has 1 observations and 4 variables.
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


259
260
261  /* using hash */
262  proc sort data=test out=test_sort;
263     by datatype;
264  run;

NOTE: There were 6 observations read from the data set WORK.TEST.
NOTE: The data set WORK.TEST_SORT has 6 observations and 4 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds


265
266  data _null_ ;
267   declare hash h (ordered: 'a') ;
268     h.definekey  ('datatype', '_n_') ;
269     h.definedata ('DATATYPE', 'ID', 'ORI_DATA', 'COR_DATA' ) ;
270     h.definedone ( ) ;
271    do _n_ = 1 by 1 until ( last.datatype ) ;
272      set test_sort;
273      by datatype ;
274      h.add() ;
275    end ;
276     h.output (dataset: 'Out_'|| compress(datatype)) ;
277  run ;

NOTE: The data set WORK.OUT_A has 3 observations and 4 variables.
NOTE: The data set WORK.OUT_B has 1 observations and 4 variables.
NOTE: The data set WORK.OUT_C has 1 observations and 4 variables.
NOTE: The data set WORK.OUT_D has 1 observations and 4 variables.
NOTE: There were 6 observations read from the data set WORK.TEST_SORT.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds

唔..我咋感觉这个东西我要是用VBA做的话会更顺手...

先占个座

proc sort data=data;                                                                                                                    
by data_type;                                                                                                                           
run;                                                                                                                                    
                                                                                                                                       
proc sql;                                                                                                                              
create table b as                                                                                                                       
select distinct data_type                                                                                                               
from data;                                                                                                                              
quit;                                                                                                                                   
run;                                                                                                                                    
                                                                                                                                       
data type;                                                                                                                              
set b;                                                                                                                                 
no=_n_;                                                                                                                                 
run;                                                                                                                                    
                                                                                                                                       
data data1;                                                                                                                             
merge data type;                                                                                                                        
by data_type;                                                                                                                           
run;                                                                                                                                    
                                                                                                                                       
%macro newdataset;                                                                                                                     
%do i=1 %to 39;                                                                                                                        
data new&i;                                                                                                                             
set data1;                                                                                                                              
if no=&i;                                                                                                                              
run;                                                                                                                                    
%end;                                                                                                                                   
%mend;                                                                                                                                 
                                                                                                                                       
%newdataset;

您用的SAS是9.3的么？我的是9.2的版本，我的log里面说


109  data _null_;
110     set types;
111     length ds $8.;
112     ds=cats ('type_', compress(type));
113     call execute('data '||ds||'; set test(where =(datatype="'||type||'")); run;');
114  run;

ERROR: Unable to load/initialize the function CATS.
NOTE: The SAS System stopped processing this step because of errors.
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds

您这个方法适用于数据量少的情况下吧？如果数据量大的话，datatype的分类有上百种的话，这种方法可能有点困难呀。我的数据放在二楼了，不知道为什么不能重新再发给你们。麻烦您用那个数据看看。

您好，我的原始数据集在二楼，您能用那个做一下给我看看么？我的code还是会出现一些error。而且log不太看得懂，网上也没有找到相关的说明，希望您能帮我一下，谢谢啦

假设原数据集名为test，
%macro select;
proc sql;
select count (distinct datatype) into :kind from test;
quit;
%let kind=&kind;
proc sql ;
select distinct datatype into :type1-:type&kind from test;
quit;
%do i=1 %to &kind;
data &&type&i;
set test;
where datatype="&&type&i";
run;
%end;
%mend;
%select;

二楼数据中　data_type　的数据太过复杂. 会带来很多问题.　感觉需要进行整理.
要分类输出话, 需要一个新的变量来表示 data_type. 如楼上 yueCynthia 用了一个新变量 n0.  

将 data_sample duplicate_document.xlsx文件转存为 *.xls　文件，用下面的 code　运行没有问题. 但有的便变量长度太长，会有些 warning.
产生的宏变量　n　可以用来代替楼上 ％do　loop 中的数字 39.

..其实我也是个新人..上百种的话也没问题..但是我不会把数据集的名字改成对应的datatype的名字..你那个数据有39个type嘛，我已经把你那个都分成单独的了..不过数据名字叫new1..new2......new39...我在研究楼上牛人的hash

大大！好激动啊你还耐心地看我代码~我的太不成熟了..
今天上午在研究你的代码....自己不懂的地方还是太多了..
搜了关于call symput、call execute、hash的来看但是还是一知半解，哪本书里会有系统地讲这些的呢？

call symput后面的代码是把序号存在n这个宏变量里吧？那这个n在后面怎么调用呢？
还有call execute括号里的引号&双引号的问题~

还有hash那段..大大有没有空给解释一下
万分感谢！！！

唔..反正都分好了，给你打个包发上来吧..

谢谢啦

Q: 搜了关于call symput、call execute、hash的来看但是还是一知半解，哪本书里会有系统地讲这些的呢？
A:  google -> keyword (such as call symput)  ->  点击有 support.sas 的连接.

Q: call symput后面的代码是把序号存在n这个宏变量里吧？那这个n在后面怎么调用呢？
A: %do I = 1 %to &n;

Q: 还有call execute括号里的引号&双引号的问题~
A 引号: see https://support.sas.com/document ... .htm#a000543697.htm
A: 双引号:  字符形变量，等号后的字符串要加引号. 如  varA = “type_a”.

Q: 还有hash那段..大大有没有空给解释一下
1. Do until (last.type) loop 将每一组type从first.type到last.type全部读如到 hash object H 中.
2. h.output语句 将这组数据输出
3. 结束返回到　data　语句
4. data语句到 do until  前是重新定义一个新的hash.
5. Do until (last.type) 读下一组type.