程序错在哪里，谢谢！

data have;
input name $;
cards;
rbc1_1
rb1c1_1
rbc1
rbc2_1
;
run;
%let LabTestIdx=1 1_1;
proc sql noprint;
select name into:vars separated by ' '
from have
where prxchange('s/\b(\w*[^_\d])(\d*_*\d*)\b/$2/',-1,name) in (%str(&LabTestIdx.));   
quit;
想把末尾为1_1 1的name的值放入宏(应为rbc1_1 rb1c1_1 rbc1)中，帮忙看看程序错在哪里？谢谢！

1. %let LabTestIdx=1 1_1;
   
2. 
   
3. %let prxpn=%sysfunc(prxparse(s/ /|/));
   
4. %let vartmp=%sysfunc(prxchange(&prxpn.,-1,&LabTestIdx));
   
5. 
   
6. data _null_;
   
7.         set have end=eof;
   
8.         length vars $ 10000;
   
9.         retain vars "";
   
10.         if prxmatch("m/[^\d\_]((&vartmp.)+$)/",strip(name)) then vars=catx(" ",vars,name);
    
11.         if eof then call symputx ("vars",vars);
    
12. run;

复制代码

%let LabTestIdx=%str("1","1_1");
proc sql noprint;
select name into:vars2 separated by ' '
from have  where  prxchange('s/\b(\w*[^_\d])(\d*_*\d*)\b/$2/',-1,name) in (&LabTestIdx);   
quit;