data test;
input name $ year policy;
cards;
A 2000 0
A 2001 0
A 2002 0
A 2003 0
A 2004 0
A 2005 1
A 2006 1
A 2007 1
A 2008 1
A 2009 1
B 2000 0
B 2001 0
B 2002 0
B 2003 0
B 2004 1
B 2005 1
B 2006 1
B 2007 1
B 2008 1
B 2009 1
C 2000 0
C 2001 0
C 2002 0
C 2003 0
D 2006 1
D 2007 1
D 2008 1
D 2009 1
;
run;

data want1;
   do i=1 to n;
      set test(rename=(name=tmp_name year=tmp_year policy=tmp_policy)) nobs=n;
      by tmp_policy notsorted;
      if tmp_policy=1 and first.tmp_policy then do;
         do j=i-3 to i+2;
            set test point=j;
            if not missing(policy) and tmp_name=name then output;
         end;
      end;
   end;
   keep name year policy;
run;

是这样，但是我有好多个company， 所以一个一个写好像不是很现实。。

谢谢！就是这个！