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