Question

我有一个带有循环(for i in 1 to n)的宏程序。每个i我有一个包含许多列的表 - 变量。在这些列中，我们有一个名为var的人（有3个可能的值：a b和c）。

因此，对于每个表i，我想检查其列var是否存在值“c”。如果是，我想将此表导出到一张excel表中。否则，我会将此表与其他表连接起来。

你能告诉我怎么办？

Answer 1

好的，在步骤i的宏中你必须做这样的事情

proc sql;
select min(sum(case when var = 'c' then 1 else 0 end),1) into :trigger from table_i;
quit;

然后，如果你必须进行导出，你将获得宏变量 trigger 等于1，如果你必须进行连接，你将获得0。接下来，你必须编写类似这样的代码

%if &trigger = 1 %then %do;
proc export data = table_i blah-blah-blah;
run;
%end;
%else %do;
data concate_data;
set concate_data table_i;
run;
%end;

Answer 2

如果你不介意输出.CSV而不是原生的xls或xlsx，那么在不知道问题的整个九码的情况下，我可能会说你可能根本不需要Macro。恕我直言，如果你做'Proc Export'，意味着无论如何都不能嵌入花哨的格式，你最好只在大多数设置中使用.CSV。如果需要包含列标题，则需要使用元数据（字典表）并添加几行。

filename outcsv '/share/test/'; /*define the destination for CSV, change it to fit your real settings*/

/*This is to Cat all of the tables first, use VIEW to save space if you must*/
data want1;
set table: indsname=_dsn;
dsn=_dsn;
run;

/*Belowing is a classic 2XDOW implementation*/
data want;
file outcsv(test.csv) dsd; /*This is your output CSV file, comma delimed with quotes*/
do until (last.dsn);
  set want1;
   by dsn notsorted; /*Use this as long as your group is clustered*/
   if var='c' then _flag=1; /*_flag value will be carried on to the next DOW, only reset when back to top*/
end;

do until (last.dsn);
  set want1;
   by dsn notsorted;
   if _flag=1 then put (_all_) (~); /*if condition meets, output to CSV file*/
   else output; /*Otherwise remaining in the Cat*/
end;
drop dsn _flag;
run;

检查数据集或列中是否存在值

2 个答案: