在SAS中使用proc sql通过数组进行简单迭代

Question

我只想遍历列表，并使用列表中的'i'元素运行一个过程，并用结果创建一些名为'i'的表。 我已经尝试过从我可以找到的每个资源中获取语法，但是无法使它正常工作。 这是一些说明我需要的代码/伪代码。 提前谢谢了！

array itemlist[*] (100,101,102);

proc sql;
    do i=1 to dim(itemlist);
    create table somelibname.[itemlist(i)] as
        select * from somelibname.sometable
        where item=itemlist(i);
    end;
quit;

Answer 1

您需要使用宏为您“编写” SAS代码。

这应该做您想要的。 它采用空格分隔的值列表，并按照您的代码指定的方式遍历它们。 如果您有任何疑问，请发表评论。

%macro doit(list);
proc sql noprint;
%let n=%sysfunc(countw(&list));
    %do i=1 %to &n;
        %let val = %scan(&list,&i);
        create table somlib._&val as
            select * from somlib.somtable
            where item=&val;
    %end;
quit;
%mend;

%doit(100 101 102);

请注意，数据集不能以数字开头，因此我将其以“ _”开头