关于跳出%do %to 的命令

%macro ppp;
%do i=1 %to 5;
%judge;
%end;
%mend ppp;

%macro judge;
%do pp=0 %to 5;
data _null_;
if nobs ^= 0 then do;
call symput('line',%eval(&pp+10));
%return;
end;
else if nobs=0 then do;
call symput('line',%eval(&pp-10));
end;
set 数据集名称（空/非空）  nobs=nobs;
run;
%end;
%mend judge;
%ppp;

程序只是为了测试用，主要是想实现的目的是，如果set后面的数据集为空集，那么就在judge这个宏中循环，如果非空集，就跳出judge宏，跳到ppp这个宏中继续运行，现在的情况是%return无法使用，貌似是因为在data step中，%return不能用？请问有没有什么命令能跳出%do %to循环，或者，直接跳出当前宏而又可以在data _null_;中使用的
不知道我有没有表达清楚……
谢谢！

可以用call symput()来改变宏变量pp的值来控制：

1. %macro ppp;
   
2.         %do i=1 %to 5;
   
3.                 %judge;
   
4.         %end;
   
5. %mend ppp;
   
6. 
   
7. %macro judge;
   
8.     %put ;
   
9.     %put -----------i:&i-------------;
   
10.         %do pp=0 %to 5;
    
11.                 data _null_;
    
12.                         if nobs ^= 0 then do;
    
13.                                 call symputx('line',%eval(&pp+10));
    
14.                                 call symput("pp","99");
    
15.                         end;
    
16.                         else if nobs=0 then do;
    
17.                                 call symputx('line',%eval(&pp-10));
    
18.                         end;
    
19.                         set &ds  nobs=nobs;
    
20.                 run;
    
21.             %put pp=&pp  line= &line;
    
22.         %end;
    
23. %mend judge;
    
24. 
    
25. 
    
26. options nomprint;
    
27. *** when dataset is not empty;
    
28. %let ds=sashelp.class;
    
29. %ppp
    
30. 
    
31. 
    
32. *** when dataset is empty;
    
33. data test;
    
34.   x=1;
    
35.   stop;
    
36. run;
    
37. 
    
38. %let ds=test;
    
39. %ppp

复制代码

等我仔细看下，如发现了问题变告诉楼主！

没太明白你的CODE的意思
但是，我觉得%return 应该用在%if %then 里面吧

00810112 发表于 2013-1-10 10:45
没太明白你的CODE的意思
但是，我觉得%return 应该用在%if %then 里面吧

%if %then我也试过了。%return确实可以跳出当前宏，但是我是在里面的小宏用%return，当执行到%return的时候我希望程序跳出小宏接着运行外面的大宏，可是现在%return之后直接就出错了，无法接着运行大宏