26 %MACRO _sasunit_delTempFiles;
 
   28 %IF NOT %symexist(g_deltempfiles_debug) %THEN %DO;
 
   31    SET sashelp.vtable END=eof;
 
   32    WHERE libname = 
'WORK' AND memname LIKE 
'DATA%';
 
   34       CALL EXECUTE (
'PROC SQL NOPRINT;');
 
   35 %IF %symexist(l_first_temp) %THEN %DO;
 
   36    %IF &l_first_temp NE %THEN %DO;
 
   37    IF input(substr(memname,5),8.) >= &l_first_temp;
 
   40    CALL execute (
'DROP TABLE ' !! memname !! 
';');
 
   42       CALL execute (
'QUIT;');
 
   47 %MEND _sasunit_delTempFiles;