_sasunit_stdpath.sas

Go to the documentation of this file.

 
%MACRO _sasunit_stdPath(
    i_root
   ,i_path
);
%LET i_root = %sysfunc(translate(&i_root,/,\));
%IF "%substr(&i_root,%length(&i_root),1)" NE "/"
   %THEN %LET i_root = &i_root/;
%LET i_path = %sysfunc(translate(&i_path,/,\));
%IF "%substr(&i_path,%length(&i_path),1)" EQ "/"
   %THEN %LET i_path = %substr(&i_path,1,%eval(%length(&i_path)-1));

%IF %index(%upcase(&i_path)/, %upcase(&i_root)) %THEN %DO;
   %IF %length (&i_path) > %length(&i_root) %THEN %DO;
      %substr(&i_path,%eval(%length(&i_root)+1))
   %END;
%END;
%ELSE %DO;
      &i_path
%END;
%MEND _sasunit_stdPath;
/*
%put %_sasunit_stdPath(c:\temp,c:\temp\test\sas.log);
%put %_sasunit_stdPath(c:\temp,c:\temp\test\);
%put %_sasunit_stdPath(c:\temp,c:\temp\test);
%put %_sasunit_stdPath(c:\temp,c:\temp\);
%put %_sasunit_stdPath(c:\temp,c:\temp);
%put %_sasunit_stdPath(c:\temp,c:\tempo);
%put %_sasunit_stdPath(c:\temp,d:\temp);
*/