请教一个MACRO程序

shiyiming

想写一个MACRO来随意改变group ID(由几个变量组成)的构成成分,即希望这个group ID能随意的增加或减少变量.比如:
data a;
input x1 x2 x3 x4 x5 x6 y;
group_id=cats(x1,x2,x3,x4);/*通常由x1,x2,x3,x4组成group_id*/
cards;
1 2 3 4 5 6 10000
...
;
run;
但有些情况下,要求能用不断的变化的group_id来分别计算一些结果.
e.g.,
%macro gpd(datain=,dataout=,include=,exclude=);
/*但有时候需要改变group_id,通过增加其他变量或减少其组成变量来实现*/
...
%mend;
比如要求:
1.要增加x5和x6进入group_id(此时group_id由x1,x2,x3,x4,x5,x6组成),可以通过下面来实现:
%gpd(datain=a,dataout=b, include=x5 x6, exclude=)
2.要从正常的group_id中减少x2和x3(此时group_id仅由x1,x4组成),可以通过下面来实现:
%g(datain=a,dataout=b,include=, exclude=x2 x3)

请问这个MACRO改如何写,从而能改变这个grouo_id?
谢谢!

shiyiming

group_id没有固定格式,或者group_id=catx(' ',x1,x2,x3,x4);
是不是要先建立一个gpd_list=x1 x2 x3 x4 &include;
然后gpd_list=prxchange(gpd_list,-1, &include);不知道是否可行,好像增加变量可以,但减少变量就不太容易了,希望大侠出手相助.
谢谢!

shiyiming

[code:3uawsan3]%macro gpd(datain=,dataout=,include=,exclude=);
        %let xs =x1 x2 x3 x4;
        data &dataOUT;        keep group_id;
                set &dataIN(keep =&xs &include);
                %if (&exclude ne) %then call missing(of &exclude);;
                group_id =cats(of &xs &include);
        run;
        data &dataOUT;
                merge &dataIN &dataOUT;
        run;
%mend gpd;

%gpd(datain=a,dataout=bb, include=x5 x6, exclude=x2 x3)[/code:3uawsan3]
什么叫没有固定格式？你总得把你的秘密透露一点给我们吧。。。
京剧

shiyiming

最后新生成的group_id中含有'.',请问能不能去掉?

ps:你的方法很巧妙,我一直在想通过prxchange来去x2 x3,不知道可行吗?

谢谢jingju11,牛人.

shiyiming

[code:31j5jfwk]options missing =" ";
%gpd()
..
;
options missing =.;[/code:31j5jfwk]
I assume x1 x2... are numerical missing.

JingJu

shiyiming

%if (&exclude ne) %then call missing(of &exclude) [u:2lzb1rux][b:2lzb1rux];;[/b:2lzb1rux][/u:2lzb1rux]----------------------------------------------------------------------
why should we use ';;' here instead of ';'?
Thx a lot.

shiyiming

[code:uk834y2f]%macro gpd(datain=,dataout=,include=,exclude=);
        %let origin=x1 X2 x3 x4;
        %let str=&origin &include;
        %if &exclude ne %then %do;
                %let id=%str(s/)%sysfunc(tranwrd(%cmpres(&exclude),%str( ),%str(|)))%str(//i);
                %let str=%sysfunc(prxchange(%sysfunc(prxparse(&id)),-1,&str));
        %end;
        data &dataout;
                set &datain;
                group_id=cats(of &str);
        run;
%mend;
%gpd(datain=a,dataout=result,include=x5,exclude=x1 x4);[/code:uk834y2f]

shiyiming

nice job, byes, thank you.