qrp_report

****************************************************************************************************

*                                           PROGRAM OVERVIEW

****************************************************************************************************

*

* PROGRAM: ms_logchecker.sas  

*

* Created (mm/dd/yyyy): 09/23/2020

*

*--------------------------------------------------------------------------------------------------

* PURPOSE:

*   Reads in the SAS log and checks for concerning lines that may indicate an issue with program execution.                               

*   

*  Program inputs:                                                                                   

*   - Logs to be reviewed

*

*  Program outputs:  

*   - Log checker log = log_checker.log

*   - SAS dataset = log_checker

*

*  PARAMETERS:     

*   - LogDir       = The directory (full path) containing one or more logs to be scanned. 

*   - LogDir_Out   = This is the directory where outputs will be saved. 

*   - Logname      = The name of the specific log file(s) to be scanned, with the ".log" suffix. If specifying more than one log file, separate with a space. 

*   - Keywords     = Additional, user-specified keywords that the tool will scan and report on, separate with a pipe

*

*--------------------------------------------------------------------------------------------------

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

***************************************************************************************************;

  %macro ms_logchecker(logdir =

                      ,logdir_out =

                      ,logname =

                      ,keywords =);

​

    %put =====> MACRO CALLED: ms_logchecker v1.0;

  /*-----------------------------------------------------------------------------------------------------------

    Identify log(s) to read in

    -----------------------------------------------------------------------------------------------------------*/

    /* Capture run date and time */

    data _null_;

       call symput('curdate',strip(put(date(),worddate.) || ' @' || put(time(),hhmm.)));

    run;

    %let num_logs = 0;

    /* Search directory for all log files if no log file is specified */

    %if "&logname" = "%str()" %then %do;

       data _logfiles;

          keep file_name;

          length filref $8 file_name $80; 

          rc = filename(filref, "&logdir"); 

          if rc = 0 then do; 

             dir_id = dopen(filref); 

             rc = filename(filref);  

          end; 

          else do; 

             length msg $200.; 

             msg = sysmsg(); 

             put msg=; 

             dir_id = .; 

             putlog 'ERROR: (Sentinel) Unable to open directory.';

             abort cancel;

          end;

          n_files = dnum(dir_id);

          num_logs=0;

          do i = 1 to n_files; 

             file_name = dread(dir_id, i); 

             file_id = mopen(dir_id, file_name); 

             if file_id > 0 and reverse(compress(file_name)) =: 'gol.' 

                            and index(file_name,"log_checker") = 0 then do;

                num_logs=num_logs+1;

                output;

             end;

          end;

          rc = dclose(dir_id);

          call symputx('num_logs',strip(put(num_logs,5.)));

       run;

       proc sql noprint;

       select strip(file_name) into :logname separated by ' '

          from _logfiles;

       quit;

    %end;

    %else %do;

      %let num_logs = %sysfunc(countw("&logname",' '));

    %end;

  /*-----------------------------------------------------------------------------------------------------------