Macro XSET (from Fraktal SAS Programming): Unterschied zwischen den Versionen

Aus phenixxenia.org
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

Zurück

Übersicht

Vorwärts

%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;

Zurück

Übersicht

Vorwärts