1%macro irm_get_vars_where_cond( ds_in=
9 length src_keep $3000 ;
11 do i=1 to countw(&where_vars_col.,
" ");
13 if i eq 1 and _N_ eq 1 then
do;
14 src_keep=scan(&where_vars_col.,1,
" ");
18 temp=scan(&where_vars_col.,i,
" ");
19 if findw(src_keep,temp,
' ',
'R')=0 then
do;
20 src_keep=catx(
" ",src_keep,temp);
25 temp=scan(&where_vars_col.,i,
" ");
26 temp=scan(temp,-1,
" ");
27 if findw(src_keep,temp,
' ',
'R')=0 then
do;
28 src_keep=catx(
" ",src_keep,trim(temp));
35 call symputx(
"&var_list.",trim(src_keep));