SAS - Dictionary Columns - how to filter a variable list to match pattern

SAS_dictionary_columns_filter_selective.sas

*How to selectively filter your list of variables in a SAS data set with a pattern but not one that uses SAS variable shortcuts;

 options mprint symbolgen;

%macro select(lib =, ds_in=, pattern=, ds_out=);

proc sql noprint;
select nliteral(name) into :var_list separated by ' '
from dictionary.columns
where libname = upcase("&lib")
and memname = upcase("&ds_in")
and find(name,  "&pattern.", 'it')>0;
quit;


data &ds_out;
set &lib..&ds_in.;
keep &var_list.;
run;

%mend;

%select(lib=sashelp, ds_in=cars, pattern=mpg, ds_out=demo);