endtestcall.sas

Go to the documentation of this file.

 
%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 */
PROC PRINTTO 
   LOG="&g_log/%substr(00&g_scnid,%length(&g_scnid)).log"
   PRINT="&g_testout/%substr(00&g_scnid,%length(&g_scnid)).lst"
;
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;

---