如何编写求数据集中几个变量的和的宏程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教各位朋友，如何编写这样的宏程序？
如有一数据集A，其中有n个变量，但事先并不知道有几个变量，现要求生成一个新变量，新变量的值为其中指定的几个变量的和，此程序如何编写？谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：宏程序 数据集 求数据 新变量 不知道 朋友 程序 如何

*首先查看头文件信息，将数据A中的变量放在数据集VariableDat中，其中NAME 这一列就是数据集A中的所有变量;
proc contents data=A noprint out=VariableDat;
run;
*将变量写成宏变量;
proc Sql noprint;
select Name,count(*) into : Var_Name descrite by ' ',Var_count from VariableDat;
quit;
%put &Var_Name. ;
%put &Var_count. ;

*求和;
data New;
set A;
Sum_Var=sum(of &Var_Name.);
run;


希望对你有帮助;

关于楼上代码：
1、中文注释写得很好，好的编程习惯；
2、 descrite by应修改为separated by；
3、Var_count之前应加：。顺便说一下，在执行SQL语句时，会生成自动宏变量&sqlobs表示观测个数，直接使用即可。
4、楼上代码执行之前，首先需要保证数据集A中所有变量为数值变量，如果有字符存在，代码执行失败。

很好，对于我这样的初级选手有帮助！！

谢谢各位的赐教，出差几天未能查看！
还有些疑问，想请教：如果我写的宏程序格式如下，怎么编写呢？
%macro hc(datain,varname,varS);
...

%mend;
其中datain为数据集名称，varname为需要合并的变量名称，如：a1 a2 a3 a4 等等，但事先并不知道有多少个变量，现要求在数据集datain中生成新变量为a,其值为a1、a2、a3、...的和。
谢谢！

谢谢各位的赐教，出差几天未能查看！
还有些疑问，想请教：如果我写的宏程序格式如下，怎么编写呢？
%macro hc(datain,varname,varS);
...

%mend;
其中datain为数据集名称，varname为需要合并的变量名称，如：a1 a2 a3 a4 等等，但事先并不知道有多少个变量，现要求在数据集datain中生成新变量为vars,其值为a1、a2、a3、...的和。
谢谢！

fxf258 发表于 2012-3-25 11:02
谢谢各位的赐教，出差几天未能查看！
还有些疑问，想请教：如果我写的宏程序格式如下，怎么编写呢？
%m ...

I think I got what you need.

You have a list of variables that is available at running time. It is stored in mavro variable varname.

for example varname contains a1 a2 a3 ... and you want to define a sum variable as
sumvar=sum(a1,a2,a3,....);

Here is a simple macro which will do it at running time.

For some macro string manipulating you can read my post

'shape' a macro variable into a desired look  

https://bbs.pinggu.org/thread-699918-1-1.html


***********************************************************

data t1;
retain an 1 bnj 2 avf 3 ah 4 a n b c 1;
output;
run;

%macro sum(dsin, dsout, varlist);

   %let sumvar=;

   %let n= %eval(%sysfunc(countc(%cmpres(&varlist),%str( )))+ (%length(&varlist)>0) );

   %do i = 1 %to &n;
     %let cur_var=%scan(&varlist,&i);
     %if &i=1 %then %let sumvar=&sumvar &cur_var;
     %else         %let sumvar=&sumvar , &cur_var;
   %end;

         data &dsout;
            set &dsin;
                sumvar=sum(&sumvar);
         run;
%mend;

option mprint;
%sum(t1, t1out, an bnj avf);
proc print;run;

%sum(t1, t1out, a n b c);
proc print;run;

%let v=an  avf  a  c;
%sum(t1, t1out, &v);
proc print;run;

非常感谢bobguy的答复，我的需要已经得到圆满答复！

学习了~~~