请教大家一个判断数据集里变量中数值大小，然后赋值给局部宏变量

data a;
input b;
cards;
3
4
6
1
3
;
run;
proc sort data=a out=b (rename=(b=b_ordered));
  by b ;
run;
data _null_ ;
  merge a b end=eof;
   if b= b_ordered then do;
     if eof then call symputx("maxvar", b);
   end;
   else do;
   call symputx("maxvar", 'NOT by ascending order!!!!');
   stop;
   end;
run;

%put &maxvar ;

建立_null_数据集；
set 表(保留b变量)  数据集到底标记设定；
retain 临时变量1 临时变量2  临时变量3;
若是第一条记录那么临时变量1和2均为b的值临时变量3=1；
否则判断临时变量1
是否小于b，若真，则临时变量3=0，将临时变量3赋给红变量(是否按照升徐排列)，跳出data步。
判断是否数据集到底，且临时变量3=1，若是将临时变量3赋给红变量(是否按照升徐排列)，且将临时变量2赋给红变量c(最大值)

二楼是冒泡法么?不过对楼主有个疑问,与其花时间去判断是否是按升序排列,你为什么不直接运行个
proc sort data=; by; run;呢?

复制代码

freerunning_sky 发表于 2014-8-1 16:46

你这个逻辑有问题的，如果最后一行正好是最大值，而前面没有按照升序排列就不对了

不是冒泡法，类似于反证法。假设降序排列，所以不可能前面观测小于后面观测，若第一次出现了这种情况，就说明原数据未按降序排。

试试如下的方法：
data a;
input b;
cards;
8
9
3
4
;

%let c;

proc sql noprint outobs=1;
select  b into: c from a order by b desc;
quit;

%put &c;

sas9.4 发表于 2014-8-1 20:27
你这个逻辑有问题的，如果最后一行正好是最大值，而前面没有按照升序排列就不对了

1. data a;
   
2.         input b;
   
3.         cards;
   
4.     8
   
5.     9
   
6.     3
   
7.     4
   
8.     ;
   
9. run;
   
10. data b;
    
11.         set a end=last;
    
12.         retain max_value index;
    
13.         max_value=max(b,max_value);
    
14.         if max_value>b then index=1;
    
15.         if last & index~=1 then call symput('max_value',max_value);
    
16. run;
    
17. 
    
18. %put &max_value;

复制代码

奇怪，昨天我明明抢到的是沙发，今天怎么变成往后一个了。为什么我的不是最佳答案？想不通……55555