Delete external file

%macro macdelfile(filename=);
data _NULL_;
fname = "tobedel";
rc = filename(fname, "&filename");
if (rc eq 0) and (fexist(fname)) then rc=fdelete(fname);
rc = filename(fname, '');
run;
%mend;