Macro XEDIT (from Fraktal SAS Programming)

%MACRO xedit(xentry,xpath);
%IF &XPATH. eq %THEN %LET xpath = C:\users\&SYSUSERID.;
filename path "&XPATH";
DM "PGM";
DM "inc path(&XENTRY.)";
%MEND xedit;