Macro XSET (from Fraktal SAS Programming)

%MACRO xset(xvar);
filename path pipe "set" lrecl = 2048;
data _NULL_;
length xvar $256 xval $1024;
infile path dlm = '=';
input xvar $ xval $;
xvar = upcase(translate(xvar,'_','(-)'));
%IF &XVAR. ne %THEN if trim(xvar) = "%UPCASE(&XVAR.)";;
call symput(compress(xvar),compress(xval));
run;
filename path clear;
%MEND xset;