Macro XAMINE (from Fraktal SAS Programming)

%MACRO xamine(xpath,etype);
%GLOBAL ne ie dir;
%LOCAL xpath xentry entry etype;
filename entries pipe "dir /b &XPATH." lrecl = 256;
filename dirs pipe "dir /b /ad &XPATH." lrecl = 256; 
data entries;
length entry $256;
infile entries length = lrecl end = EOF;
input entry $varying256. lrecl;
if EOF then call symput('ne',trim(left(put(_N_,8.))));
run;
data dirs;
length dir $256;
infile dirs length = lrecl end = EOF;
input dir $varying256. lrecl;
run;
%DO ie = 1 %TO &NE.;
data _NULL_;
set entries(firstobs = &IE. obs = &IE.);
call symput('entry',compress(translate(entry,'_','(-)')));
call symput('xentry',trim(left(entry)));
run;
%PUT |;
%PUT &XPATH.&XENTRY.;
data _NULL_;
 set dirs(where = (dir = "&XENTRY.")) end = EOF;
if EOF then call symput('dir',trim(left(put(_N_,8.))));
run;
%IF &DIR. = 1 %THEN %DO;
%PUT +----;
%XDIR(&XPATH.&XENTRY.);
%PUT +----;
%END;
%ELSE %DO;
%IF %LENGTH(&ETYPE.) ne 0 %THEN %DO;
%IF %INDEX(%SCAN(&ETYPE.,2,_),%SCAN(&XENTRY,2,.)) <> 0 %THEN %DO;
%GLOBAL windir;
%XSET(windir);
%PUT +----;
%PUT | File &XENTRY. opened in external editor WordPad.;
SYSTASK command "&WINDIR.\write.exe ""&XPATH.\&XENTRY.""";
%PUT +----;
%END;
%IF %INDEX(%SCAN(&ETYPE.,1,_),%SCAN(&XENTRY,2,.)) <> 0 %THEN %DO;
%PUT +----;
%PUT | File &XENTRY. opened in SAS program editor window.;
%XEDIT(&XENTRY.,&XPATH.);
%PUT +----;
%END;
%END;
%END;
%LET dir =;
%END;
proc sql;
drop table dirs;
drop table entries;
quit;
filename entries clear;
filename dirs clear;
%MEND xamine;