How about this:
[pre]
data original;
input (Column1 Column2 TYPE Column4 ) ($);
cards;
x x A x
x x G x
x x B x
x x D x
x x C x
;
run;
data database;
input variables $;
cards;
A,
B,
C,
;
run;
proc sql;
create table filtered as
select a.*
from original as a, database as b
where b.variables contains strip(a.type)
;
quit;
[/pre]