endtestcall.sas

Go to the documentation of this file.

 
/* change history
   29.01.2013 KL  changed link from _sasunit_doc.sas to Sourceforge SASUnit User's Guide
   09.02.2011 KL  added two macro variables for re-redirecting log- and printfile in testcases
*/ 

%MACRO endTestcall();

%GLOBAL g_inTestcase;
%IF &g_inTestcase NE 1 %THEN %DO;
   %PUT &g_error: endTestcall muss nach InitTestcase aufgerufen werden;
   %RETURN;
%END;
%LET g_inTestcase=2;

/* restore log and listing of test scenario */
%LET g_logfile  =&g_log/%substr(00&g_scnid,%length(&g_scnid)).log;
%LET g_printfile=&&g_testout/%substr(00&g_scnid,%length(&g_scnid)).lst;

PROC PRINTTO 
   LOG="&g_logfile."
   PRINT="&g_printfile."
;
RUN;

/* determine and store end time */
PROC SQL NOPRINT;
%LOCAL l_casid;
   SELECT max(cas_id) INTO :l_casid FROM target.cas WHERE cas_scnid=&g_scnid;
%LET l_casid = &l_casid;
PROC SQL NOPRINT;
   UPDATE target.cas
   SET 
      cas_end = %sysfunc(datetime())
   WHERE 
      cas_scnid = &g_scnid AND
      cas_id    = &l_casid;
QUIT;

/* delete listing if empty */
%LOCAL l_casid;
PROC SQL NOPRINT;
   SELECT max(cas_id) INTO :l_casid FROM target.cas WHERE cas_scnid=&g_scnid;
QUIT;
%LET l_casid = &l_casid;
%LOCAL l_filled l_lstfile; 
%LET l_filled=0;
%LET l_lstfile=&g_testout/%substr(00&g_scnid,%length(&g_scnid))_%substr(00&l_casid,%length(&l_casid)).lst;
DATA _null_;
   INFILE "&l_lstfile";
   INPUT;
   CALL symput ('l_filled','1');
   STOP;
RUN;
%IF NOT &l_filled %THEN %DO;
   %LET l_filled=%_sasunit_delfile(&l_lstfile);
%END;

ODS _ALL_ CLOSE;

%MEND endTestcall;