Macro XSET (from Fraktal SAS Programming): Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
K |
K |
||
| Zeile 16: | Zeile 16: | ||
input xvar $ xval $; | input xvar $ xval $; | ||
xvar = upcase(translate(xvar,'_','(-)')); | xvar = upcase(translate(xvar,'_','(-)')); | ||
| − | %IF %LENGTH(&XVAR.) <> 0 %THEN if trim(xvar) = "%UPCASE(&XVAR.)";; | + | %IF %LENGTH(&XVAR.) <> 0 %THEN %DO; |
| + | if trim(xvar) = "%UPCASE(&XVAR.)"; | ||
| + | %END; | ||
call symput(compress(xvar),compress(xval)); | call symput(compress(xvar),compress(xval)); | ||
run; | run; | ||
Version vom 29. Juli 2014, 15:20 Uhr
|
|
|
|
%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;
|
|
|
|
