_sasunit_abspath.sas

Go to the documentation of this file.

 
%MACRO _sasunit_abspath (
    i_root
   ,i_path 
);

%IF "&i_path" EQ "" %THEN %RETURN;

%IF %length(&i_root) %THEN %DO;
   %LET i_root = %qsysfunc(translate(&i_root,/,\));
   %IF "%substr(&i_root,%length(&i_root),1)" = "/" %THEN 
      %LET i_root=%substr(&i_root,1,%eval(%length(&i_root)-1));
%END;

%LET i_path = %qsysfunc(translate(&i_path,/,\));
%IF "%substr(&i_path,1,1)" = "/" OR "%substr(&i_path,2,2)" = ":/" %THEN &i_path;
%ELSE %IF %length(&i_root) %THEN &i_root/&i_path;
%ELSE &i_path;

%MEND _sasunit_abspath;