Macro rXDIR (from Fraktal SAS Programming)

What it does

This SAS Macro provides the function from XDIR in an interactive mode.

• The recursive use of macro invocation keeps the macro "alive" until no further user input is made.
• It might be of some interest to the novice user, how easy it is, to turn a simple "home-grew" function into an interactive tool.

Code executed	Function performed
%MACRO rxdir(xpath);
%GLOBAL rpath;
%LET xpath = ;
%WINDOW path
irow = 20 rows = 14 icolumn = 130 columns = 64
#3 @5 "Current Path: &RPATH."
#5 @5 'Enter path: ' xpath 40 attr = blink
;
%DISPLAY path;
%IF %LENGTH(&XPATH.) = 0 %THEN %GOTO leave;
%LET rpath = &RPATH.&XPATH.\;
filename path pipe "dir /b ""&RPATH.""" lrecl = 256;
%PUT ---&RPATH.---;
data _NULL_;
length entry $256;
infile path length = lrecl;
input entry $varying256. lrecl;
put entry;
run;
%RXDIR(&RPATH.)
%LEAVE:
filename path clear;
%LET rpath = ;
%MEND rxdir;	END macro definition with name