data raw;
input nbr code;
datalines;
13900000000 10102345
13900000000 10102346
13900000000 10102347
13900000000 10102348
13900000001 10102345
13900000001 10102346
13900000001 10102349
13900000002 10102345
13900000002 10102347
13900000002 10102349
13900000003 10102345
13900000003 10102346
13900000003 10102348
13900000003 10102349
;
run;
proc sort data=raw nodup;
by code nbr;
run;
proc summary data=raw nway;
var nbr;
class code;
output out=nbr_cnt(drop=_:) n=cnt;
run;
data cnt_2;
set nbr_cnt;
where cnt=2;
run;