我感觉你的数据不会很多,所以随便写了一个代码,如果数据比较多的话,就需要优化一下代码.
data work.a;
        input surg $30.;
        datalines;
左上肺切除
子宫切除术
乳腺癌根治术
;
run;

data work.b;
        length id 8. organ $100.;
        input id organ $;
        datalines;
1 脑
2 肾
3 肝脏
4 子宫
5 肺
6 乳腺
7 胃
8 肠
9 淋巴瘤
10 白血病
;
run;

proc sql noprint;
        create table work.c as
                select a.*,
                        b.*
                from work.a as a,work.b as b;
quit;

data work.d;
        set work.c;
        flag = kindex(surg,organ);
run;

data work.e;
        set work.d;
        where flag > 0 ;
run;

flag=kindex(surg,strip(organ))

高手啊，膜拜中，我一直在想怎么用数组,scan,和substr函数实现呢，没想到这样也行