Macro XDIR (from Fraktal SAS Programming)

Code executed	Function performed
%MACRO xdir(xpath);
%IF %LENGTH(&XPATH.) eq 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;