SAS：宏生成数据驱动的子集数据文件答案

【问题标题】：SAS: macro generating data driven subset data filesSAS：宏生成数据驱动的子集数据文件
【发布时间】：2012-03-05 18:49:29
【问题描述】：

使用 SAS 宏，我想使用数据驱动方法生成文件子集。有人可以指导我从哪里开始吗？例如，我有一个如下数据集：

data student;
 var v1 $ v2 $ v3;
 datalines ;
 f j 20
 f j 20
 f j 22
 f s 18
 f s 18
 m j 19
 m j 19
 m s 20;

我希望 SAS 宏识别变量中的每个值并生成数据子集，而不是对每个变量类别使用“if”语句。我是否需要查看循环函数或 symput（在制作 proc freq 之后）？谢谢你，KKK

【问题讨论】：

我编辑了帖子...上面会生成一个真实的样本数据集吗？您能说明如何处理这些样本数据吗？
我想生成 5 个由变量值组成的子集数据，例如 1)f,j,20 2)f,j,22 3)m,j,19 4)m,s,20, 5）f，f，s，18。因为 v1 和 v2 是字符变量，所以很难使用循环（或者我可以使用 do group 吗？）。我在考虑是否应该使用 %scan 来识别字符值，然后对 v3 使用循环。

标签： sas sas-macro

【解决方案1】：

这是一种相当直接的方式：

data student;
   input v1 $ v2 $ v3;
   cards ;
   f j 20
   f j 20
   f j 22
   f s 18
   f s 18
   m j 19
   m j 19
   m s 20
   ;
run;

%macro make_dsns;

   proc sql;
      create table dsn_list as
         select distinct
            v1,
            v2,
            v3
         from student
      ;
   run;

   data _null_;
      retain count 0;
      set dsn_list  end=last;
      count = count + 1;
      dsn_name = trim(left(v1)) || trim(left(v2)) || trim(left(v3));
      dsn_reference = "dsn" || trim(left(count));
      call symput(dsn_reference , dsn_name);
      if last then do;
         call symput("max_count" , count);
      end;
   run;

   data
      %do count = 1 %to &max_count;
         &&dsn&count
      %end;
      ;
      set student;
      drop reference;
      reference = trim(left(v1)) || trim(left(v2)) || trim(left(v3));
      %do count = 1 %to &max_count;
         if trim(left(reference)) eq trim(left("&&dsn&count")) then output &&dsn&count;
     %end;
   run;

%mend make_dsns;

%make_dsns;

【讨论】：

【解决方案2】：

没有宏你可以这样做：

data _null_;

declare hash group;
group = _new_ hash(ordered: 'ascending');
group.definekey('_unique_Key');
group.definedata('v1', 'v2', 'v3');
group.definedone();

do until (last.v3);
 set student;
  by v1 v2 v3 notsorted;
  _unique_key + 1;
  group.add();
end;

 group.output(dataset: cats(v1,v2,v3));
rc = group.delete();
run;

【讨论】：