如何通过macro得到数据集

1. data aaa;
   
2. attrib x1 label='group';
   
3. attrib x2 label='sex';
   
4. attrib a  label='age';
   
5. attrib b  label='weight';
   
6. input x1 x2 a b@@;
   
7. cards;
   
8. 1 2 23 60
   
9. ;
   
10. run;

复制代码

%macro (vars=x1 x2 x1*b x1*x2 b);




%mend;

如何通过macro得到数据集
k varible vlabel
1   x1    group
2   x2    sex
3   x1*b  group×weight
4   x1*x2 group×sex
5   b       weight

谢谢！

1. data aaa;
   
2. attrib x1 label='group';
   
3. attrib x2 label='sex';
   
4. attrib a  label='age';
   
5. attrib b  label='weight';
   
6. input x1 x2 a b@@;
   
7. cards;
   
8. 1 2 23 60
   
9. ;
   
10. %macro a(vars=x1 x2 x1*b x1*x2 b);
    
11. data bbb;
    
12.         if 0 then set aaa;
    
13. 
    
14.         do k=1 to countw("&vars", " ");
    
15.                 length variable $ 32 vlabel $ 255;
    
16.                 variable = scan("&vars", k, ' ');
    
17.                 vlabel = ' ';
    
18.                 do _n_=1 to countw(variable, '*');
    
19.                         vlabel = catx('×', vlabel, vlabelx(scan(variable,_n_,'*')));
    
20.                 end;
    
21.                 output;
    
22.         end;
    
23.         stop;
    
24.         keep k variable vlabel;
    
25. run;
    
26. %mend;
    
27. %a;

复制代码

邓贵大 发表于 2013-12-25 07:07

如果变量的label是空，用变量名代替。比如x2的label为空  则x1*x2  为group×x2

dxystata 发表于 2013-12-26 18:24
如果变量的label是空，用变量名代替。比如x2的label为空  则x1*x2  为group×x2

replace

1. vlabel = catx('×', vlabel, vlabelx(scan(variable,_n_,'*')));

复制代码

with

1. vlabel = catx('×', vlabel, coalescec(vlabelx(scan(variable,_n_,'*')), scan(variable,_n_,'*')));

复制代码