data _null_;
set a;
where name="haha";
call symput("obs",obs);
run;
%let obs1=%eval(&obs-1);
%let obs2=%=%eval(&obs+1);
data b;
set a;
where obs in(&obs1,&obs,&obs2);
run;

但是有几百个"haha" 2# wb8686

自连吧，obs_no +1或者-1等于 haha 的obs_no......

data a;
input obs    name$;
cards;
1        5
2        7
3        haha
4        0
5        
6        6
7        4
8        3
9        haha
10        1
11        23
12         23
13       haha
14        14
;
run;
proc  sql;
select count(*) into:nbr_haha from a
where name="haha";
select obs into:obs1-:obs%left(&nbr_haha) from a
where name="haha";
quit;
%put &nbr_haha &obs2;
%macro a;
data b;
%do i=1 %to &nbr_haha;
set a;
where obs in(%eval(&&obs&i-1),&&obs&i,%eval(&&obs&i+1));
output;
%end;
run;
%mend;
%a
proc sort data=b;
by obs;
run;