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

Version vom 4. August 2014, 13:12 Uhr

Code executed	Function performed
%MACRO xdir(xpath);	Start macro definition with name and positional parameter xpath.
%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
%WINDOW path
irow = 20 rows = 14 icolumn = 30 columns = 64
#4 @5 'Enter path: ' xpath 40 attr = underline
;
%DISPLAY path;
%END;
filename path pipe "dir /b ""&XPATH.""" lrecl = 256;
data _NULL_;
length entry $256;
infile path length = lrecl;
input entry $varying256. lrecl;
put entry;
run;
filename path clear;
%MEND xdir;	END macro definition with name

@@ Zeile 15: / Zeile 15: @@
 |
 ;%MACRO xdir(xpath);
-|
+|Start macro definition with name and positional parameter ''xpath''.
 |-
 |
@@ Zeile 79: / Zeile 79: @@
 |
 ;%MEND xdir;
+|END macro definition with name
 |}