Macro XEDIT (from Fraktal SAS Programming)

%MACRO xedit(xentry,xpath);
%IF &XPATH. eq %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;
%MEND xedit;