Macro XDIR (from Fraktal SAS Programming)

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