data test;
input id   year     entry  ;
cards;
1          2002        0
1          2003        1
1          2004        0
1          2005        0
1          2006        1
1          2007        0
1          2008        0
1          2009        0
2          2002        0
2          2003        1
2          2004        0
2          2005        0
2          2006        1
2          2007        0
2          2008        1
2          2009        0
;
run;

proc sort data=test; by id descending year; run;

data test01;
set test;
by id descending year;
retain flag;
if first.id then flag=.;
if entry=1 then flag=1;
run;

proc sort data=test01 out=test02; by id year; where flag=1; run;

求帮助

2004那条观测应该也没有吧。我觉得可以用lag函数，lag值小于当前值的条件不就是你想要的数据吗

2004那条观测值是有的。只要后面有1，就保留前面的所有0.所以，不能用lag呢

初学者，供参考：
proc sql;
        select sum(entry) into :max
        from a;
quit;
data b;
        set a;
        retain x;
        x+entry;
        if x=&max and entry=0 then delete;
        drop x;
run;