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 = .;