_stdpath.sas

Go to the documentation of this file.

 
%MACRO _stdPath(i_root
               ,i_path
               );

%IF %LENGTH(&i_root) = 0 %THEN %DO;
  %PUT &g_error.(SASUNIT): i_root parameter must not be blank;
  %RETURN;
%END;

%LET i_root = %sysfunc(translate(&i_root,/,\));

%IF %LENGTH( %SYSFUNC(COMPRESS(&i_root,/)) ) = 0 %THEN %DO;
  %PUT &g_error.(SASUNIT): i_root parameter must not be blank;
  %RETURN;
%END;

%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 _stdPath;
/*
%put %_stdPath(c:\temp,c:\temp\test\sas.log);
%put %_stdPath(c:\temp,c:\temp\test\);
%put %_stdPath(c:\temp,c:\temp\test);
%put %_stdPath(c:\temp,c:\temp\);
%put %_stdPath(c:\temp,c:\temp);
%put %_stdPath(c:\temp,c:\tempo);
%put %_stdPath(c:\temp,d:\temp);
%put %_stdPath(i_root=,i_path=test);
%put %_stdPath(i_root=/,i_path=test);
%put %_stdPath(i_root=\,i_path=test);
*/