根据SAS中的条件从主表创建表

时间:2015-11-17 17:41:26

标签: sas sas-macro proc-sql

数据如下所示:

ID Var1 Var2

A 1 2

A 3 4

B 5 6

B 7 8

C 9 10

D 11 12

我正在尝试从SAS中的上述主表创建子集表,以便每个子集表都包含来自主表的所有记录,其中ID等于每个不同的值。因此,在这个特定的例子中,我想动态创建4个不同的表Tab_A,Tab_B,Tab_C,Tab_D,其中Tab_A包含来自主表的所有记录,其中ID = A,依此类推。要创建的表总数= ID的不同值。

1 个答案:

答案 0 :(得分:1)

这是创建宏的好例子。 SAS Macros动态编写SAS代码。

此宏读取不同的ID值,然后生成数据步骤以执行子集。它使用mprint选项,因此您可以查看它创建的代码。

data have;
input ID $ Var1 Var2;
datalines;
A 1 2
A 3 4
B 5 6
B 7 8
C 9 10
D 11 12
;
run;

%macro subset();
proc sql noprint;
select count(distinct id)
    into :nIDs TRIMMED
    from have;

select distinct ID
    into :ID1 - :ID&nIDs
    from have;
quit;

data 
%do i=1 %to &nIDs;
    tab_&&id&i
%end;
;
set have;

select (ID);
    %do i=1 %to &nIDs;
        when ("&&id&i") output tab_&&id&i;
    %end;
    otherwise put "PROBLEM";
end;
run;
%mend;

options mprint;
%subset;

以下是显示实际执行子集的SAS数据步骤的日志。

MPRINT(SUBSET):   data tab_A tab_B tab_C tab_D ;
MPRINT(SUBSET):   set have;
MPRINT(SUBSET):   select (ID);
MPRINT(SUBSET):   when ("A") output tab_A;
MPRINT(SUBSET):   when ("B") output tab_B;
MPRINT(SUBSET):   when ("C") output tab_C;
MPRINT(SUBSET):   when ("D") output tab_D;
MPRINT(SUBSET):   otherwise put "PROBLEM";
MPRINT(SUBSET):   end;
MPRINT(SUBSET):   run;