Macro XSET (from Fraktal SAS Programming)

%MACRO xset;
filename path pipe "set" lrecl = 2048;
data _NULL_;
length xvar $256 xval $1024;
infile path dlm = '=';
input xvar $ xval $;
xvar = translate(xvar,'_','(-)');
call symput(compress(xvar),compress(xval));
run;
%MEND xset;