Macro XDIR (from Fraktal SAS Programming)

%MACRO dir(path);
options nonotes nosource;
filename path pipe "dir /b &PATH." lrecl = 256;
data _NULL_;
infile path;
input entries $ 1-256;
  put entries;
run;
options notes source;
%MEND dir;