1
0
mirror of https://github.com/sasjs/core.git synced 2026-01-04 16:10:06 +00:00

feat: mf_existfileref macro

This commit is contained in:
2021-01-26 16:00:23 +01:00
parent bbbcf7d550
commit 79c81aa8a4

31
base/mf_existfileref.sas Normal file
View File

@@ -0,0 +1,31 @@
/**
@file
@brief Checks whether a fileref exists
@details You can probably do without this macro as it is just a one liner.
Mainly it is here as a convenient way to remember the syntax!
For this macro, if the fileref exists but the underlying file does not exist
@param fref the fileref to detect
@return output returns 1 if found AND the file exists. 0 is returned if not
found, and -1 is returned if the fileref is found but the file does not exist.
@version 8
@author [Allan Bowe](https://www.linkedin.com/in/allanbowe/)
**/
%macro mf_existfileref(fref
)/*/STORE SOURCE*/;
%local result;
%let result=%sysfunc(fileref(&fref));
%if &result>0 %then %do;
0
%end;
%else %if &result=0 %then %do;
1
%end;
%else %do;
-1
%end;
%mend;