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 &XVAR. ne %THEN if trim(xvar) = "%UPCASE(&XVAR.)";;
+
  %IF %LENGTH(&XVAR.) <> 0 %THEN if trim(xvar) = "%UPCASE(&XVAR.)";;
 
  call symput(compress(xvar),compress(xval));
 
  call symput(compress(xvar),compress(xval));
 
  run;
 
  run;

Version vom 29. Juli 2014, 11:42 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 if trim(xvar) = "%UPCASE(&XVAR.)";;
call symput(compress(xvar),compress(xval));
run;
filename path clear;
%MEND xset;

Zurück

Übersicht

Vorwärts

Abgerufen von „https://phenixxenia.org/w/index.php?title=Macro_XSET_(from_Fraktal_SAS_Programming)&oldid=3975“