Macro XEDIT (from Fraktal SAS Programming)

Code executed	Function performed
%MACRO xedit(xentry,xpath);
%LOCAL xpath;
%IF %LENGTH(&XPATH.) = 0 %THEN %DO;
%XSET(homeshare);
%LET xpath = &HOMESHARE.;
%END;
filename path "&XPATH";
%IF %LENGTH(&XENTRY.) != 0 %THEN %DO;
DM "PGM";
DM "inc path(&XENTRY.)";
%END;
%ELSE %DO;
%XDIR(&HOMESHARE.);
%END;
filename path clear;
%MEND xedit;