Macro XEDIT (from Fraktal SAS Programming)

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