SAS MACRO循環

Question

我上具有以下結構的數據集工作：

Color Apple Orange Grape Avocado Blueberry 
Yellow 1  .  .  .  . 
Orange .  1  .  .  . 
Purple .  .  1  .  1 

我想寫每個果型創建表，選擇所有的顏色（行）的宏有一個值爲1.例如，蘋果TBL_APPLE的表格將有如下4行：

目前我正在考慮循環遍歷行和列。作爲弗里斯特一步，我打開所有的行和列變量引入宏：

/*rows*/ 
    proc sql noprint; 
    select count(*) into :Nobs 
    from work.fruit; 
    select Color into :Attr1-:Attr%left(&Nobs) 
    from work.fruit;quit; 

    /*columns*/ 
    proc contents data=work.fruit out=contents noprint; run; 
    %let n=&sqlobs; 
    proc sql; select name into :fruit1-fruit%left(&n) from contents; quit; 

    %macro fruit; 
    %do i=1 %to &NObs; 
    %do j=1 %to &n; 
    proc sql; 
    create table tlb_&&fruit&j as 
    select * 
    from work.fruit 
    where &n = &n; 
    quit; 
    %end; 
    %end; 
    %mend fruit; 
    %fruit; 

Answer 1

我會首先定義執行要重複的簡單任務的宏：

%macro fruitds(fruit); 
data &fruit.(keep=color); 
    set fruit; 
    where &fruit eq 1; 
run; 
%mend fruitds; 

然後使用數據步驟從sashelp.vcolumns和call execute爲每列名的宏不Color

data _null; 
    set sashelp.vcolumn; 
    call execute(cats('%fruitds(',name,')')); 
    where libname eq 'WORK' 
    and memname eq 'FRUIT' 
    and name ne 'Color'; 
run; 

Answer 2

不知道讀書的列名，如果它是什麼你想要的，但我的理解這個問題可能 被如下簡化：

%macro fruit(type);  
    data &type ; 
    set dataset; 
    where &type = 1; 
    run; 
%mend fruit; 

Answer 3

%color_fruit; 
proc sql; 
     select name into:fruit_name separated by ' ' from dictionary.columns 
     where libname='WORK' and memname='FRUIT' and upcase(name)^='COLOR'; 
quit; 
%let nums_fruit=%sysfunc(countw(&fruit_name)); 
%do i=1 %to &nums_fruit; 
    %let fruit=%scan(&fruit_name,&i,%str()); 
    data tab_&fruit; 
      set fruit(keep=color &fruit); 
      if &fruit=1 then output; 
     run; 
%end; 
run; 
%mend;