_createtestsubfolder.sas

Go to the documentation of this file.

 
%macro _createTestSubfolder (i_assertType=
                            ,i_root      =%sysfunc(pathname(testout))
                            ,i_scnid     =
                            ,i_casid     =
                            ,i_tstid     =
                            ,r_path      =
                            );

   %local l_path_cts;
   %let l_path_cts=_ERROR_;

   %if %nrbquote (&r_path.) = %str() %then %do;
      %put &g_error.(SASUNIT): Please specify a value for r_path.;
      %RETURN;
   %end;
   %if not %symexist(&r_path.) %then %do;
      %put &g_error.(SASUNIT): Macrovariable for return of subfolder path was not declared by a %nrstr(%%)local-statement.;
      %RETURN;
   %end;
   %let &r_path.=_ERROR_;

   %_getTestSubfolder (i_assertType=&i_assertType.
                      ,i_root      =&i_root.
                      ,i_scnid     =&i_scnid.
                      ,i_casid     =&i_casid.
                      ,i_tstid     =&i_tstid.
                      ,r_path      =l_path_cts
                      );

   %if (%nrbquote(&l_path_cts.) = _ERROR_) %then %do;
      %RETURN;
   %end;

   %_mkdir (&l_path_cts.);

   %let &r_path.=&l_path_cts.;
%mend;