Try this one please

data data1;
input company2008 $  value1;
datalines;
A 100
D  98
E  103
;

data data2;
input company2006 $  value2;
datalines;
B  99
C  102
F 110
G 89
;

proc sql;
create table match as select *, abs(value1-value2) as value

from data1, data2;

proc sort data=match; by value;
data match; set match;by value;
retain value;
if first.id then value=1; else value+1;
if value in (1,2);
drop value;
run;
quit;

2# lyceum

实在太感谢你了！！！太厉害了这么几句就给实现了~~~
有一个问题，就是请问first.id表示什么呢？id是什么？
这个以前的程序看懂了
但是为什么
if first.id then value=1; else value+1;
if value in (1,2);
就能实现我所说的过程呢

2# lyceum

嗯不好意思这个程序貌似还是有些问题吧。比如如果把E改成113，那按理说应该找到的匹配对象F是110，可运行这个程序，找不出来啊~~~

2# lyceum

请问我觉得是不是可以这样啊?

proc sort data=match; by company2008 value;
data match; set match;by company2008;
retain value;
if first.company2008;
drop value;
run;
quit;

不可以，你这value的差值正好是1，所以就对了，而且没有考虑重复的情况， 你可以测试我提供的数据
弱弱的问下，钱还在不？
-----------------------------
data data1;
input company2008 $  value1;
datalines;
A 100
D  98
E  113
;
data data2;
input company2006 $  value2;
datalines;
B  99
C  102
F 110
G 97
H 97
K 116
M 116
;
proc sql;
create table match as select *, abs(value1-value2) as value
from data1, data2;
create table youwant as
select distinct * from match
   group by company2008
   having value=min(value);
quit;