SAS（十）DATA步--控制语句

SAS（十）DATA步--控制语句

怎样选择使用不同的控制语句

• DO:多次执行同样的代码块
• DO while：当while条件为真时，多次执行同样的代码块
• DO until:　多次执行同样的代码块，直到until条件为真，代码块总会执行一次
• SELECT：知道明确的离散选择项时使用
• IF：希望从2个或多个可能的事件中完成一个，允许连续选择项
• 跳转代码（go to,link)：需要暂停主代码，执行“标签”指明的其它代码
• 中止代码（return,continue,leave)：负责某种形式的中止。

 

DO语句

• DO语句规定，在DO后面直到出现END语句之前的这些语句作为一个单元被执行。
• 简单DO语句，常用在if-then/else语句里
• 循环DO语句，用下标变量规定重复次数

do i=1 to 10;
do i=1 to exit;
do i=2 to 8 by 2;

data a;                                                                                                                                 
   input x @@;                                                                                                                          
   do i=1 to 4;/*把i改成其他字符同样可行*/                                                                                              
   y=4*x;                                                                                                                               
   output; /*如果略去output，则只输出最后一次循环的结果*/                                                                               
   end;                                                                                                                                 
   cards;                                                                                                                               
   11 22 33 44 55 66                                                                                                                    
   ;                                                                                                                                    
   run;                                                                                                                                 
proc print data=a;                                                                                                                      
run;

 部分结果输出

 

data iteratel;                                                                                                                          
  input x @@;                                                                                                                           
  exit=10;                                                                                                                              
  do i=1 to exit;                                                                                                                       
    seed=1; /*初始种子值*/                                                                                                              
    call ranuni(seed,y);                                                                                                                
    z=x*y;                                                                                                                              
        if z>25 then i=exit;                                                                                                            
        output;                                                                                                                         
  end;                                                                                                                                  
cards;                                                                                                                                  
5 1000 2500                                                                                                                             
;                                                                                                                                       
proc print data=iteratel;                                                                                                               
run;