topic Re: How to extract sas log and still have it on sas program in SAS Enterprise Guide

How to extract sas log and still have it on sas program

rodrichiez — Tue, 20 Nov 2018 14:15:10 GMT

Hi,

I need some help, I am building a code that extract errors from sas log and send it out by email, by now the program is working good but I need to do some adjustments. The first one is that I need to have the log both in sas program and in the external file, I put the code below but when I send the log back to the default location the external file return in blank.

PROC PRINTTO LOG="/sasdata/user_Data/log.log" NEW;
RUN;

PROC PRINTTO; /*Routing back the log the default location*/
RUN;

The second approach is how could I do for just to send the email when an error is found:

 filename mylog "/sasdata/user_Data/log.log";       

 filename report "/sasdata/user_Data/reportlog.txt" ;   

 data _null_;

   infile mylog;
   input;

   lineno+1;  

   file report;  

   rec = _infile_;

  

   foundit = index(rec,"ERROR:");                                                                                       
                                                                                                                                        
   if ( foundit > 0 ) then do; 

     put lineno " " rec;
   end;

    
                                                                                                                                                                                                                                  
   foundit = index(rec,"ERROR ");                                                                                       
                                                                                                                                        
   if ( foundit > 0 ) then do; 

     rec=substr(rec,foundit);

     if length(rec) > 15 then do;

        tempstr=substr(rec,1,15);
	
        if  (substr(tempstr,7,1) >= "0" and substr(tempstr,7,1) <= "9"
             and index(tempstr,"-") > 0 and index(tempstr,":") > 0    ) then do;

               put lineno " " rec;
	end;
     end;
   end; 

      

   foundit = index(rec,"WARNING:");                                                                                       
                                                                                                                                        
   if ( foundit > 0 ) then do; 

     put lineno " " rec;
   end;

     
                                                                                                                                                                                                                                  
   foundit = index(rec,"WARNING ");                                                                                       
                                                                                                                                        
   if ( foundit > 0 ) then do; 

     rec=substr(rec,foundit);

     if length(rec) > 15 then do;

        tempstr=substr(rec,1,15);
	
        if  (substr(tempstr,9,1) >= "0" and substr(tempstr,9,1) <= "9"
             and index(tempstr,"-") > 0 and index(tempstr,":") > 0    ) then do;

               put lineno " " rec;
	end;
     end;
   end; 


   foundit = index(rec,"ERROR [");                                                                                       
                                                                                                                                        
   if ( foundit > 0 ) then do; 

     put lineno " " rec;
   end;


   foundit = index(rec,"WARN  [");                                                                                       
                                                                                                                                        
   if ( foundit > 0 ) then do; 

     put lineno " " rec;
   end;

run;


/*SEND E-MAIL*/

filename outbox email attach=("/sasdata/u24807_Data/reportlog.txt")

       to='chrodriguez@'
       type='text/html' 
       subject= "Log ETL"
       from='example@';

DATA _NULL_;
FILE outbox;
PUT "<body>";
PUT "<p>Hello, </p>";
PUT "<p>Program executed with errors.</p>";
PUT "<p>Regards.</p>";
PUT "</body>";

RUN;

Any help will be pretty appreciated.

Re: How to extract sas log and still have it on sas program

Astounding — Tue, 20 Nov 2018 14:31:57 GMT

For your first question, you are using the wrong tool. PROC PRINTTO can redirect the log to a different destination. But you still only get one copy of the log (as you have seen). To get an additional copy of the log in another location, take a look at the ALTLOG option.

Re: How to extract sas log and still have it on sas program

rodrichiez — Tue, 20 Nov 2018 14:43:24 GMT

Thank you @Astounding I'll read about the ALTLOG option.

Re: How to extract sas log and still have it on sas program

data_null__ — Tue, 20 Nov 2018 18:00:36 GMT

Why not just "replay" it back to the log after you close it.

filename mylog "/sasdata/user_Data/log.log";       
data _null_; *Replay captured log;
   infile mylog;
   input;
   put _infile_;
   run;

Re: How to extract sas log and still have it on sas program

rodrichiez — Tue, 20 Nov 2018 19:10:54 GMT

Hi Astounding. I just read about altlog and seems to be a command for use in the config file not in a sas program. When I try to run the code with -ALTLOG /sasdata/User_Data/log.log , SAS doesn't recognize the command.

Re: How to extract sas log and still have it on sas program

rodrichiez — Tue, 20 Nov 2018 19:18:49 GMT

Hi data_null. I tried your example but code seems to stuck in a loop.

Re: How to extract sas log and still have it on sas program

rodrichiez — Tue, 20 Nov 2018 20:54:09 GMT

Update: I kept trying the code sent by data_null and actually is working fine. Thanks @Data_null_. But I;m still haven't found solution for my 2nd question.

Re: How to extract sas log and still have it on sas program

data_null__ — Tue, 20 Nov 2018 21:08:34 GMT

@rodrichiez wrote:
But I;m still haven't found solution for my 2nd question.

The second approach is how could I do for just to send the email when an error is found:

You can check SYSRC and SYSCC. Also automatic variables

AUTOMATIC SYSERRORTEXT 180-322: Statement is not valid or it is used out of proper order.
AUTOMATIC SYSWARNINGTEXT Data set WORK.WANT was not replaced because this step was stopped.

Re: How to extract sas log and still have it on sas program

rodrichiez — Wed, 21 Nov 2018 13:48:38 GMT

@data_null__ Ok, I'll search about it. But I was thinking in add to the code something like:

 if ( foundit <= 0 ) then do; 
   break;
   end;

Yet I don't know if there is something similar to break in SAS to stop job execution.

Re: How to extract sas log and still have it on sas program

rodrichiez — Fri, 23 Nov 2018 14:58:33 GMT

Thank you @Data_null_ . I have been reading about it and I have done a significant advance to accomplish what I want using SYSERR and SYSCC.