如何用macro实现？

1. data aaa;
   
2. infile cards missover;
   
3. input no a1$ b1 c1 a2$ b2 c2 a3$ b3 c3;
   
4. cards;
   
5. 1 x1 1 1 z1 2 1 y1 1 2
   
6. 2 x2 1 2 y2 1 2
   
7. 3 x3 2 2
   
8. ;
   
9. run;
   
10. 
    
11. proc format;
    
12. value b1fmt 1="a" 2="b";
    
13. value c1fmt 1="m" 2="f";
    
14. run;
    
15. 
    
16. 
    
17. data bbb;
    
18. infile cards missover;
    
19. input no a1$ b1 a2$ b2 a3$ b3;
    
20. cards;
    
21. 1 x1 1 z1 2 y1 1
    
22. 2 x2 1 y2 1
    
23. 3 x3 2
    
24. ;
    
25. run;
    
26. 
    
27. proc format;
    
28. value b1fmt 1="a" 2="b";
    
29. run;

复制代码

如何用macro实现？
%aaa(dsin=aaa,
         vars=a1 b1 c1 a2 b2 c2 a3 b3 c3,
         invars=a1 b1 c1,
         keepvars=no,
         dsout=aaa1);
希望得到的数据集
no a1 b1 c1
1 x1 a m
1 z1 b m
1 y1 a f
2 x2 a f
2 y2 a f
3 x3 b f


%aaa(dsin=bbb,
         vars=a1 b1 a2 b2 a3 b3,
         invars=a1 b1,
         keepvars=no,
         dsout=bbb1);


希望得到的数据集
no a1 b1
1 x1 a
1 z1 b
1 y1 a
2 x2 a
2 y2 a
3 x3 b

1. %macro aaa(dsin=,
   
2.            vars=,
   
3.            invars=,
   
4.            keepvars=,
   
5.            dsout=);
   
6.         %let vars_num=%sysfunc(countw(&vars.,' '));
   
7.         %let invars_num=%sysfunc(countw(&invars.,' '));
   
8.         %let i_num=%eval(&vars_num/&invars_num);
   
9.         %do i=1 %to &vars_num.;
   
10.                 %let value&i=%SYSFUNC(SCAN(&vars.,&i,' '));
    
11.         %end;
    
12.         %do j=1 %to &invars_num.;
    
13.                 %let name&j=%SYSFUNC(SCAN(&invars.,&j,' '));
    
14.         %end;
    
15.         data &dsout.;
    
16.                 set        &dsin.;
    
17.                 keep &keepvars. &invars;
    
18.                 %do i=1 %to &i_num;
    
19.                         %do j=1 %to &invars_num;
    
20.                                 %let k=%eval(&j+(&i-1)*&invars_num);
    
21.                                 &&name&j=&&value&k;
    
22.                         %end;
    
23.                         output;
    
24.                 %end;
    
25.         run;
    
26. %mend;

复制代码

我根据他的思路写成了宏，输出数据集需要进行处理，删除空值观测，添加format

我没有用宏，直接用的过程步，我想这个问题的关键是把一个观测拆分成几个观测吧。当然，你要把它改写成宏业是相当简单的啦。希望能解决您的问题。
data aaa1;
set aaa;
keep no a b c;
do;
a=a1;b=b1;c=c1;
output;
end;
do;
a=a2;b=b2;c=c2;
output;
end;
do;
a=a3;b=b3;c=c3;
output;
end;
run;
data aaa1;
set aaa1;
format b b1fmt. c c1fmt.;
if a='' then delete;
run;

为什么不以解决问题为目的呢？我稍微改了下，算是用了宏了吧。
%macro aaa(dsin=aaa,vars=a1 b1 c1 a2 b2 c2 a3 b3 c3，invars=a1 b1 c1,keepvars=no,dsout=aaa1);
data &dsout.;
set &dsin.;
keep &keepvars. a b c;
do;
a=a1;b=b1;c=c1;
output;
end;
do;
a=a2;b=b2;c=c2;
output;
end;
do;
a=a3;b=b3;c=c3;
output;
end;
run;
data &dsout.;
set &dsout.;
format b b1fmt. c c1fmt.;
if a='' then delete;
run;
%mend aaa;
%aaa;

weitingkoala 发表于 2014-2-20 09:59
为什么不以解决问题为目的呢？我稍微改了下，算是用了宏了吧。
%macro aaa(dsin=aaa,vars=a1 b1 c1 a2 b2  ...

不通用啊！

dxystata 发表于 2014-2-20 10:17
不通用啊！

好吧

牵你↗左手 发表于 2014-2-20 11:18
我根据他的思路写成了宏，输出数据集需要进行处理，删除空值观测，添加format

请问老师，如何把数据
no a1 b1 c1
1 x1 1 1
1 z1 2 1
1 y1 1 2
2 x2 1 2
2 y2 1 2
3 x3 2 2
变成
1 x1 1 1 z1 2 1 y1 1 2
2 x2 1 2 y2 1 2
3 x3 2 2
我尝试改写你这个宏，但是没有成功！谢谢了

龙潭丰乐 发表于 2014-2-27 20:06
请问老师，如何把数据
no a1 b1 c1
1 x1 1 1

直接用proc transpose, 或者用array 都可以.

龙潭丰乐 发表于 2014-2-27 20:06
请问老师，如何把数据
no a1 b1 c1
1 x1 1 1

1. data b;
   
2.         set a(rename=(a1=a b1=b c1=c));
   
3.         by no;
   
4.         retain sum a1 b1 c1 a2 b2 c2 a3 b3 c3;
   
5.         if first.no then sum=1;
   
6.         else sum=sum+1;
   
7.         if sum=1 then do;a1=a;b1=b;c1=c;end;
   
8.         else if sum=2 then do;a2=a;b2=b;c2=c;end;
   
9.         else if sum=3 then do;a3=a;b3=b;c3=c;end;
   
10.         if last.no;
    
11.         keep no a1 b1 c1 a2 b2 c2 a3 b3 c3;
    
12. run;

复制代码

这是我的一个思路，可以改成宏的。

weitingkoala 发表于 2014-2-20 09:23
我没有用宏，直接用的过程步，我想这个问题的关键是把一个观测拆分成几个观测吧。当然，你要把它改写成宏业 ...

可以尝试array来简化你这个代码：

1. data aaa1;
   
2.   set aaa;
   
3.   do i=1 to 3;
   
4.    array a[3]$ a1-a3;
   
5.     array b[3] b1-b3;
   
6.          array c[3] c1-c3;
   
7.         aa=a(i);
   
8.         bb=b(i);
   
9.         cc=c(i);
   
10.         output;
    
11. end;
    
12. keep no aa bb cc;
    
13. run;

复制代码