Macro XEDIT (from Fraktal SAS Programming)

%MACRO editx(entry,path);
options nonotes nosource;
%IF &PATH. eq %THEN %LET path = C:\users\&SYSUSERID.;
filename path "&PATH";
DM "PGM";
DM "inc path(&ENTRY.)";
options notes source;
%MEND editx;