我现在对那个retain 开始小心了

我先谢了。明天聊！有可能的话，帮我看看我的那堆垃圾 主要错在那里！我又死不瞑目的感觉！哭死。。。

data a;
input price time_record;
cards;
51        41334               
51        41336           
51        41337            
51        41342        
51        41344        
51        41351            
51        41361              
51        41368
52        41372
51        41383
53        41383  
;
run;

%macro RMrecords(s=5);*s should be an integer;
%local i;
%let i=1;
proc sort data=a out=As; by Time_record; run;
%do%while(&i le &s.);
data As;
set As;
lagTradeTime=dif(Time_record);
if missing(lagTradeTime) then lagTradeTime=999;
run;
proc sql noprint;
select min(lagTradeTime) into :i  from As;
quit;
%put &i;
%if &i gt &s. %then %goto EndL;
data As;
set As;
Lag2TradeTime=lag(LagTradeTime);
if ^(Lag2TradeTime gt &s. & LagTradeTime le &s.);
drop Lag2TradeTime;
run;
%EndL: ;
%end;
%mend RMrecords;
%RMrecords
;
proc print;run;

32# tagv

data a;
do time_record=1 to 1000;
output;
end;
run;

%macro RMrecords(s=5);*s should be an integer;
%local i;%let i=1;
proc sort data=a out=As nodupkey; by Time_record; run;
%do%while(&i le &s.);
data As;
set As;
retain s 0;
m=dif(Time_record);
if missing(m) or m>5 then m=0;
if m then s+m;  else s=0;
if ^s or s>5 ;*keep those s>5,保证正确地的删除；
drop  m s;
run;
data final;
set As;
lagTradeTime=dif(Time_record);
run;
proc sql noprint;
select min(lagTradeTime) into :i  from Final;
quit; *不断地估计i，保证循环；
%put &i;
%end;
%mend RMrecords;
%RMrecords
;
proc print;run;

从sushe的程序而来 这个应该有效些；

非常感激！我正在读。有问题接着请教 ，，，

再出个新的动态的难题。。。