data x;
input code$ b;
cards;
001 3
001 4
002 1
002 3
002 3
002 8
002 9
002 8
002 4
002 6
002 6
002 3
002 1
;run;
proc sort; by code;run;
data b;set x;by code;if first.code then m=0;m+1;run;
proc sql;
select code ,b from b having min(m)+5<=m<=max(m)-5 ;run;