自己顶下~

这个合适么？
data a;
input var1 var2;
cards;
1 .
2 .
3 0
4 .
5 .
6 .
7 0
8 .
9 .
10 .
;
run;

data b;
        set a;
        if var2=0 then do;
                need=_n_;
                do i=need-1 to need+1;
                set a point=i;
                output;
                end;
        end;
run;

hi, 我也有个办法。

data temp1; set a;
retain calln 0;
calln+1;
run;

data temp2; set a;
where var2=0;

proc sql;
create table final
as select a.*, b.var1 as var1_picked
from temp2 as a left join temp1 as b
on a.calln+1=b.calln or a.calln-1=b.calln;
quit;

对，这个太牛了~非常感谢！我得多向您学习才是啊~

谢谢您的回复，貌似这个段程序有问题：日志如下：

34   proc sql;
35   create table final
36   as select a.*, b.var1 as var1_picked
37   from temp2 as a left join temp1 as b
38   on a.calln+1=b.calln or a.calln-1=b.calln;
ERROR: 列 calln 在表/视图中未找到，其相关名为 A.
ERROR: 列 calln 在表/视图中未找到，其相关名为 A.
ERROR: 列 calln 在表/视图中未找到，其相关名为 A.
ERROR: 列 calln 在表/视图中未找到，其相关名为 A.
39   quit;
NOTE: SAS 系统由于错误而停止了该步的处理。
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.13 秒
      CPU 时间          0.01 秒

上面的老师的做法是我心仪的做法。谢谢您的指导！