mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
32 lines
690 B
SAS
32 lines
690 B
SAS
/**
|
|
@file
|
|
@brief Deletes a physical file, if it exists
|
|
@details Usage:
|
|
|
|
%mf_writefile(&sasjswork/myfile.txt,l1=some content)
|
|
|
|
%mf_deletefile(&sasjswork/myfile.txt)
|
|
|
|
%mf_deletefile(&sasjswork/myfile.txt)
|
|
|
|
|
|
@param [in] file Full path to the target file
|
|
|
|
@returns The return code from the fdelete() invocation
|
|
|
|
<h4> Related Macros </h4>
|
|
@li mf_deletefile.test.sas
|
|
@li mf_writefile.sas
|
|
|
|
@version 9.2
|
|
@author Allan Bowe
|
|
**/
|
|
|
|
%macro mf_deletefile(file
|
|
)/*/STORE SOURCE*/;
|
|
%local rc fref;
|
|
%let rc= %sysfunc(filename(fref,&file));
|
|
%if %sysfunc(fdelete(&fref)) ne 0 %then %put %sysfunc(sysmsg());
|
|
%let rc= %sysfunc(filename(fref));
|
|
%mend mf_deletefile;
|