在sas中修改变量属性遇到的一个问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在合并多个数据集时，会遇到同一个变量在不同数据集里数据类型不同的情况，需要修改为一致再合并。为此，写了一个宏程序，但是在执行时发现一个奇怪的问题。程序如下：
%macro attrib;
data _null_;set dsn nobs=obsnum;      * 数据集dsn包含需要修改变量属性的数据集的名字，                                                       * 这些数据集有共同的变量：obs，但是属性有的是字符型，有的是数值型;
call symput('total',left(obsnum));
run;
%put &total.;

%do i=&total. %to 1 %by -1;
     data _null_;set dsn;
     if _n_=&i. then call symput('dsn',strip(dsn));
     run;

     proc contents data=&dsn. out=var(keep=name type where=(lowcase(name)="obs")) noprint;run;
     data _null_;set Var;
     if lowcase(name)="obs" & type=2 then call symput('obs',left(type));
     run;
     %if %symexist(obs) %then %do;
                                     data &dsn.(rename=(trans_obs=obs));set &dsn.;
                                     trans_obs=obs/1;drop obs;run;
                                 %end;
     %symdel obs/nowarn;
%end;

proc delete data=dsn var;run;
%mend attrib;

%attrib;


程序中红色部分如果修改为：%do i=1 %to &total.;则执行结果不同。反复测试也没有发现问题所在，不知道有无高手遇到过类似问题，或者能指出这个程序问题所在？
不同数据集中该变量：obs属性不同，设定为均修改为数值型变量。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：contents Content symput rename delete

a数据集长什么样子？

孤单的我们 发表于 2016-3-2 16:47
a数据集长什么样子？

data _null_;set dsn nobs=obsnum;

数据集dsn包含需要修改变量属性的数据集的名字，这些数据集有共同的变量：obs，但是属性有的是字符型，有的是数值型

试了一下，可以运行啊

1. data a;
   
2.         obs=1;z=1;
   
3. run;
   
4. 
   
5. data b;
   
6.         obs="3";x=1;
   
7. run;
   
8. 
   
9. data dsn;
   
10.         dsn="a";output;
    
11.         dsn="b";output;
    
12. run;
    
13. 
    
14. %macro attrib;
    
15. data _null_;set dsn nobs=obsnum;      * 数据集dsn包含需要修改变量属性的数据集的名字，                                                       * 这些数据集有共同的变量：obs，但是属性有的是字符型，有的是数值型;
    
16. call symput('total',left(obsnum));
    
17. run;
    
18. %put &total.;
    
19. 
    
20. %do i=&total. %to 1 %by -1;
    
21.      data _null_;set dsn;
    
22.      if _n_=&i. then call symput('dsn',strip(dsn));
    
23.      run;
    
24. 
    
25.      proc contents data=&dsn. out=var(keep=name type where=(lowcase(name)="obs")) noprint;run;
    
26.      data _null_;set Var;
    
27.      if lowcase(name)="obs" & type=2 then call symput('obs',left(type));
    
28.      run;
    
29.      %if %symexist(obs) %then %do;
    
30.                                      data &dsn.(rename=(trans_obs=obs));set &dsn.;
    
31.                                      trans_obs=obs/1;drop obs;run;
    
32.                                  %end;
    
33.      %symdel obs/nowarn;
    
34. %end;
    
35. 
    
36. proc delete data=dsn var;run;
    
37. %mend attrib;
    
38. 
    
39. %attrib;

复制代码

孤单的我们 发表于 2016-3-2 17:23
试了一下，可以运行啊

可以运行。只是运行时log中提示不同。红色语句不同，提示不一样。
一种提示obs未初始化，另外一种不提示。
我的是多个数据集，例如：a中该变量是字符型，b中是数值型，c中无该变量（对于c数据集的提示可能是：obs未初始化，或者是无任何异常提示，顺利运行）。感觉执行顺序不同，%if部分的编译结果不同，导致两种顺序的程序执行起来结果不同（提示不同）。我没有理解为何会这样？程序中特意删除了生成的宏变量：%symdel obs/nowarn;

if lowcase(name)="obs" & type=2 then call symput('obs',left(type));
call symputx产生的宏变量，在循环语句结束时应当删去。
未初始化的原因是：c中无该变量时，宏变量obs保留上一次b的结果，%if %symexist(obs) %then %do;判断为真。

孤单的我们 发表于 2016-3-3 09:18
if lowcase(name)="obs" & type=2 then call symput('obs',left(type));
call symputx产生的宏变量，在循环 ...

未初始化的原因是：c中无该变量时，宏变量obs保留上一次b的结果，%if %symexist(obs) %then %do;判断为真。

从执行结果和提示看，好像是保留了上一次的宏变量值，但是我在程序中加了：%symdel obs/nowarn;这个语句啊。还尝试过在不同位置添加（                       %do i=&total. %to 1 %by -1;之后；
                      前一句对应的%end;之前；
                      以及修改变量属性的那个循环中），
但是结果不变。

%SYMDEL：Deletes the specified variables(s) from the macro global symbol table.

孤单的我们 发表于 2016-3-3 13:13
%SYMDEL：Deletes the specified variables(s) from the macro global symbol table.

看来就是这里出问题了，只是不知道该如何修改？

1. data a;
   
2.         obs=1;z=1;
   
3. run;
   
4. 
   
5. data b;
   
6.         obs="3";x=1;
   
7. run;
   
8. 
   
9. data c;
   
10.         t=12;
    
11. run;
    
12. 
    
13. data dsn;
    
14.         dsn="a";output;
    
15.         dsn="b";output;
    
16.         dsn="c";output;
    
17. run;
    
18. 
    
19. %macro attrib;
    
20. data _null_;set dsn nobs=obsnum;
    
21. call symput('total',left(obsnum));
    
22. run;
    
23. %put &total.;
    
24. 
    
25. /*%do i=&total. %to 1 %by -1;*/
    
26. %do i=1 %to &total;
    
27.         %let obs=;
    
28.      data _null_;set dsn;
    
29.      if _n_=&i. then call symput('dsn',strip(dsn));
    
30.      run;
    
31. 
    
32.      proc contents data=&dsn. out=var(keep=name type where=(lowcase(name)="obs")) noprint;run;
    
33.      data _null_;set Var;
    
34.      if lowcase(name)="obs" & type=2 then call symput('obs',left(type));
    
35.      run;
    
36.          %if &obs> %then %do;%put "obs"=&obs;
    
37.              data &dsn.(rename=(trans_obs=obs));set &dsn.;
    
38.                 trans_obs=obs/1;drop obs;
    
39.                 run;
    
40.          %end;
    
41. %end;
    
42. 
    
43. proc delete data=dsn var;run;
    
44. %mend attrib;
    
45. 
    
46. %attrib;

复制代码