代码比较啰嗦...希望高手指点指点....
data a;
input stkcd year money;
dif=dif(money);
cards;
000001 2001 0
000001 2002 0
000001 2003 0
000001 2004 0
000001 2005 1
000001 2006 1
000001 2007 0
000001 2008 0
000001 2009 1
000005 2001 0
000005 2002 0
000005 2003 0
000005 2004 0
000005 2005 0
000005 2006 0
;
run;
data b;
set a;
if stkcd^=lag(stkcd) then dif=0;
run;
proc sort data=b out=c;
by stkcd decending year;
run;
data d;
set c;
if stkcd=lag(stkcd) and 1=lag(dif) then dif2=1;
if stkcd=lag(stkcd) and -1=lag(dif) then dif2=-1;
run;
proc sort data=d ;
by stkcd  year;
run;
data e;
set d;
if dif=1 or dif2=1 then output;
run;
data f;
set d;
if dif=-1 or dif2=-1 then output;
run;

试试这个

data a;
input stkcd year money;
cards;
000001 2001 0
000001 2002 0
000001 2003 0
000001 2004 0
000001 2005 1
000001 2006 1
000001 2007 0
000001 2008 0
000001 2009 1
000005 2001 0
000005 2002 0
000005 2003 0
000005 2004 0
000005 2005 0
000005 2006 0
;
run;

data b;
set a;
by stkcd;
lag_money=lag(money);
if first.stkcd then lag_money=money;
change=money-lag_money;
if change NE 0 then output;
drop lag_money;
proc print data=b;run;

8# ntsean
请教高手：
程序的运行结果，只是输出了变化后的那个观测，而没有实现：输出的是有变化的两个观测，也就是前后年的都要输出。
请大侠再帮我看看，谢谢！

7# 275769263
谢谢！这段代码可以用！非常感谢！

这个行吗?, 2组数据（升和降，分别存在increase和decrease)
data a;
input stkcd $ year money;
cards;
000001 2001 0
000001 2002 0
000001 2003 0
000001 2004 0
000001 2005 1
000001 2006 1
000001 2007 0
000001 2008 0
000001 2009 1
000005 2001 0
000005 2002 0
000005 2003 0
000005 2004 0
000005 2005 0
000005 2006 0
;
run;

proc expand data=a out=b method=none;
by stkcd;
convert money=money_lead /transformout=(lead 1);
convert money=money_lag /transformout=(lag 1);
run;

data increase decrease;
set b;
if money-money_lead=-1 or money-money_lag=1 then output increase;
if money-money_lead=1 or money-money_lag=-1 then output decrease;
drop time money_lead money_lag;

proc print data=decrease;run;
proc print data=increase;run;

10# tytyxiada
不客气...但是我发现一个小问题...可能是lag函数的原因..但是我想不明白...希望大侠们指点指点...
如果我使用下面这段代码..为什么2002年的dif是-1。
data a;
input stkcd year money;
if stkcd=lag(stkcd) then dif=dif(money);
cards;
000001 2001 0
000001 2002 1
000001 2003 0
000001 2004 0
000001 2005 1
000001 2006 1
000001 2007 0
000001 2008 0
000001 2009 1
000005 2001 0
000005 2002 0
000005 2003 0
000005 2004 0
000005 2005 0
000005 2006 0
;
run;

11# ntsean
这个好..

一般来说lag不要和if 用在一个语句，会有问题
你的代码可以用 last, first改写。

11# ntsean
感谢各路高手！！

data a;
input stkcd year money;
cards;
000001 2001 0
000001 2002 0
000001 2003 0
000001 2004 0
000001 2005 1
000001 2006 1
000001 2007 0
000001 2008 0
000001 2009 1
000005 2001 0
000005 2002 0
000005 2003 1
000005 2004 1
000005 2005 0
000005 2006 0
;
run;
proc expand data=a  out=aa(drop=time) method=none;
by stkcd;
convert money=_money1/transformout=(lead 1);
run;
data aaa;
do _n_=1 by 1 until(last.stkcd);
set aa;
by stkcd;
if  money=0 and _money1=1 then flag=1;
   else if money=1 and _money1=0 then flag=2;
        else flag=0;
output;
end;
run;
data aann aamm;
set aaa;
if flag=0 then delete;
    else if flag=1  then do;
     do i=_n_ to _n_+1;
  set aaa(keep=year money) point=i;
  output aann;
  end;
  end;
        else if flag=2 then do;
  do i=_n_ to _n_+1;
  set aaa(keep=year money) point=i;
  output aamm;
  end;
  end;
run;