如何识别一列里的每一行是否含有另一列的任意一行的字符并返回该字符

我自己编了一个小程序，可以实现我的目的。但是当VAR2数据太多时，下面的程序据不能用了。因为宏变量有字符限制。我想请教一下，如果var2数据很多，比如有十万个观测，这时如何实现下面程序同样的效果？
我用自己的数据时，因为数据量太大出现报错。报错的图见下面。


1    /*我自己编了一个小程序，可以实现我的目的。但是当VAR2数据太多时，下面的程序据不能用了。因为宏变量有字符限制。我想请教一下，如果var2数据很多，比如有十万个观测，这时如何实现下面程序同样的效果？*/
2
3    data test;
4    input var1$ var2$ ;
5    cards;

NOTE: 数据集 WORK.TEST 有 5 个观测和 2 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.04 秒
      CPU 时间          0.06 秒


11   ;
12   run;
13   data test1;
14    set test;
15    keep var1;
16   run;

NOTE: 从数据集 WORK.TEST. 读取了 5 个观测
NOTE: 数据集 WORK.TEST1 有 5 个观测和 1 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.04 秒
      CPU 时间          0.03 秒


17   data test2;
18    set test;
19    keep var2;
20   run;

NOTE: 从数据集 WORK.TEST. 读取了 5 个观测
NOTE: 数据集 WORK.TEST2 有 5 个观测和 1 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.04 秒
      CPU 时间          0.04 秒


21
22   %Macro recog(objecet,list,var1,var2);
23   proc sql noprint;
24        select distinct &var2 into :chkvar separated by '|'
25        from &list;
26   quit;
27
28   data &objecet;
29       set &objecet;
30           retain pattern n;
31           if _n_=1 then do;
32               pattern=prxparse("/(&chkvar)/");
33                   n=count("&chkvar",'|')+1;
34           end;
35       if prxmatch(pattern,&var1) then
36           do i=1 to n;
37                           match=scan("&chkvar",i,'|');
38                           if index(&var1,strip(match)) then output;
39                   end;
40           else
41                   do;
42                       delete; /*match="无匹配信息";*/
43                       output;
44                   end;
45           drop pattern n i;
46   run;
47   %mend recog;
48   %recog(test1,test2,var1,var2);
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.01 秒
      CPU 时间          0.03 秒



NOTE: 从数据集 WORK.TEST1. 读取了 5 个观测
NOTE: 数据集 WORK.TEST1 有 7 个观测和 2 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.02 秒
      CPU 时间          0.03 秒

1. data test;
   
2. input
   
3. var1 $
   
4. var2 $ ;
   
5. cards;
   
6. aab a
   
7. aac b
   
8. def ac
   
9. efg ab
   
10. bfc aac
    
11. ;
    
12. run;
    
13. 
    
14. proc sort data=test(keep=var2) out=test2;
    
15.    by var2;
    
16. run;
    
17. 
    
18. data test1;
    
19.    set test(keep=var1);
    
20.    do i=1 to n;
    
21.       set test2 nobs=n point=i;
    
22.       if find(trim(var1),trim(var2)) then output;
    
23.    end;
    
24. run;

复制代码

为便于大家指教，我附上完整程序。
data test;
input var1$ var2$ ;
cards;
aab a
aac b
def ac
efg ab
bfc aac
;
run;
data test1;
set test;
keep var1;
run;
data test2;
set test;
keep var2;
run;

%Macro recog(objecet,list,var1,var2);
proc sql noprint;
     select distinct &var2 into :chkvar separated by '|'
     from &list;
quit;

data &objecet;
    set &objecet;
        retain pattern n;
        if _n_=1 then do;
            pattern=prxparse("/(&chkvar)/");
                n=count("&chkvar",'|')+1;
        end;
    if prxmatch(pattern,&var1) then
        do i=1 to n;
                        match=scan("&chkvar",i,'|');
                        if index(&var1,strip(match)) then output;
                end;
        else
                do;
                    delete; /*match="无匹配信息";*/
                    output;
                end;
        drop pattern n i;
run;
%mend recog;
%recog(test1,test2,var1,var2);

1. data a;
   
2. input var1$ var2$ ;
   
3. cards;
   
4. aab a
   
5. aac b
   
6. def ac
   
7. efg ab
   
8. bfc aac
   
9. ;
   
10. run;
    
11. 
    
12. proc sql noprint;
    
13.     select count(distinct var2) into :n     from a;
    
14.      select distinct var2 into :v1 - :v%sysfunc(strip(&n)) from a;
    
15. quit;
    
16. 
    
17. data b1(keep=var1 want1) b2(keep= var: want2);
    
18. set a;
    
19. length ch1-ch%sysfunc(strip(&n)) $50. want1 want2 $2000.;
    
20. %macro jj;
    
21. %do i=1 %to &n;
    
22.    if prxmatch("/&&v&i./",var1) then do;ch&i="&&v&i";end;
    
23. if prxmatch("/&&v&i./",var1) then do;want1="&&v&i";output b1;end;
    
24. %end;
    
25. want2=catx('#',of ch1 - ch%sysfunc(strip(&n)));output b2;
    
26. %mend jj;
    
27. %jj;
    
28. run;

复制代码