proc sort data=a out=b;
        by x;
run;

data c(drop=z);
        set b;
        by x;
        z+y;
        if first.x then do;
        z=y;
        end;
        if z>0 ;
run;

更新了下 原来程序有个错误

3# 醉_清风
我又仔细地看了一下，这种方法是基于数据的，如果数据太多没法弄清数据的特点就会出现问题，怎么样找到第一个非零的点才可能是比较好的方法，比如下面的例子就会出现问题：
data a;
input x y @@;
cards;
1 0
1 0
1 -1
1 0
1 1
2 0
2 0
2 6
2 7
2 0
2 9
;
run;

错了。。。编辑掉

7# 醉_清风
可以处理好了，把您的z+y换成z+abs(y)即可

是忘记分组了。
proc sort data=a;
     by x;
run;

data a1;
   set a;
   by x;
   if first.x then z=0;
   z+abs(y);
   if z^=0;
   keep x y;
run;
现在好像可以了。

7# 醉_清风
您好，有没有兴趣看一下这个帖子，我现在还没有找到非常好的方法，有人解了一下，但是可能运行比较费时，而且其中也有一些小问题，我觉得可以从另外的思路想一下。谢谢哈！
http://www.pinggu.org/bbs/thread-700990-1-1.html

10# wdxmahone

不错 学习了

12# wdxmahone
不好意思 这个帖子之前我就看过了 暂时没有更好的想法

proc sort data=a out=b nodup;
by x y ;
run;

proc print data=b noobs; run;


*** For your data input, you don't need @@  ***;

15# gzjb

谢谢哈，这个可能就是进行了排序，删除了一些重复的观察值，如果观察值之间不重复的话就没有结论了，比如我就加入一个变量（num），这样就删减不了了，而且实际情况中确实是有很多变量的，而且这种情况有时候会删掉一些本不该删掉的东西。不过这个思想也是挺好的，可以改进一下使用，比如先提取出一些变量来改变，然后再merge一下就应该可以了。

另外，谢谢您提醒，特别严谨。我先前加上@@本来不想分行写的，后来觉得分开写比较清晰，就懒得改回来了。。。

学习了，呵呵

完全不明白 呵呵 不好意思了 呵呵

ding!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

proc sort data=a nodupkey;
  by x y;
run;

try this:
data a;
input x y @@;
cards;
1 0
1 0
1 -1
1 0
1 1
2 0
2 0
2 6
2 7
2 0
2 9
;
run;
data a;
do _n_=1  by  1 until(last.x);
set a;
by x;
k=_n_;
output;
end;
run;
proc sql;
create table new
as select x,min(k)as k
from a
where y ne 0
group by x
order by x;
quit;
proc sql;
create table result as
select a.x,a.y from a inner join new
on a.x=new.x and a.k ge new.k;
quit;