大家帮忙看看这段宏哪里有问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据集new里面有5个变量V1 V2 V3 V4 V5，现在想计算每个变量中数值大于0的观测数。

我先将变量名V1 V2 V3 V4 V5分别赋给5个宏

macro1

macro2

macro3

macro4

macro5

然后通过下面的代码，把每个变量中数值大于0的观测数赋给宏变量

number1

number2

number3

number4

number5

%macro test;
%do i=1 %to 5;
proc sql noprint;
select count(*) into :number&i
from new
where &&macro&i>0;
quit;
%end;
%mend test;


上面的程序在运行时没有报错，但是运行完了以后number1到number5都解析不了！！！！


哪位大侠帮忙看看是什么问题呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：哪里有 proc sql Number Select Macro

但是下面这段程序是可以的：

%let i=1;
proc sql noprint;
select count(*) into :number&i
from new
where &&macro&i>0;
quit;


这时候number1是可以解析的！！！

好奇怪！

data x;
input v1-v5;
cards;
0  1  2  3 4
-1 -3 4 5 -3
;
run;
proc contents data=x
out=y noprint; run;
proc sql noprint;
select distinct name
     into :names separated by ' '
     from y order by names;quit;
  
%macro test;
%do i=1 %to 5;
proc sql ;
   select count(*) into :names
    from x where v&i>0;
    quit; %put &names;
%end;
%mend;
%test;

哈哈，这样也可以。

1# flutter88

你是如何知道无法解析的？
就你的程序，如果在test之外解析，那不行，因为不是global的。但是，

1. %macro test;
   
2. %do i=1 %to 2;
   
3.    proc sql noprint;
   
4.       select count(*) into :number&i from new where &&macro&i>0;
   
5.    quit;
   
6. %end;
   
7. %put &number1 &number2;
   
8. %mend test;
   
9. 
   
10. %test
    
11. ;

复制代码

或者是用强制global

1. %macro test;
   
2. %global number1 number2;
   
3. %do i=1 %to 2;
   
4.    proc sql noprint;
   
5.       select count(*) into :number&i from new where &&macro&i>0;
   
6.    quit;
   
7. %end;
   
8. %mend test;
   
9. 
   
10. %test
    
11. ;
    
12. %put &number1 &number2;

复制代码

再开个玩笑，你的advanced test是怎么过的？

jingju11 发表于 2009-9-28 22:27
1# flutter88

你是如何知道无法解析的？
就你的程序，如果在test之外解析，那不行，因为不是global的。但是，

1. %macro test;
   
2. %do i=1 %to 2;
   
3.    proc sql noprint;
   
4.       select count(*) into :number&i from new where &¯o&i>0;
   
5.    quit;
   
6. %end;
   
7. %put &number1 &number2;
   
8. %mend test;
   
9. 
   
10. %test
    
11. ;

复制代码

或者是用强制global

1. %macro test;
   
2. %global number1 number2;
   
3. %do i=1 %to 2;
   
4.    proc sql noprint;
   
5.       select count(*) into :number&i from new where &¯o&i>0;
   
6.    quit;
   
7. %end;
   
8. %mend test;
   
9. 
   
10. %test
    
11. ;
    
12. %put &number1 &number2;

复制代码

再开个玩笑，你的advanced test是怎么过的？

多谢，哈哈！

我没有过advanced啊。