Macro XDIR (from Fraktal SAS Programming)

%MACRO xdir(xpath);
%IF &XPATH. eq %THEN %DO;
%WINDOW path irow = 20 icolumn = 30 rows = 15 columns = 60        
  #5 @5 'Enter path:'       
  #5 @20 xpath 32 attr = underline                
;
%DISPLAY path;
%END;
filename path pipe "dir /b &XPATH." lrecl = 256;
data _NULL_;
infile path;
input entries $ 1-256;
  put entries;
run;
%MEND xdir;