Macro XSET (from Fraktal SAS Programming)
Version vom 29. Juli 2014, 11:42 Uhr von Wolf-Dieter Batz (Diskussion | Beiträge)
%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 %LENGTH(&XVAR.) <> 0 %THEN if trim(xvar) = "%UPCASE(&XVAR.)";; call symput(compress(xvar),compress(xval)); run; filename path clear; %MEND xset;