Export Project Log

[#1]

There are several posts about export the project log and I came up with this solution that exports all the logs of the run tasks, which is quite close to being the project log.  No automation or VB needed.

Using these 2 macros:

%macro printlog(path=,program=&_CLIENTTASKLABEL);

%let dateymd = %sysfunc(date(),yymmddn8.) ;
%put &dateymd;

%let Timehm = %sysfunc(time(),tod5.) ; %*HHMM;
%let Timehm = %sysfunc(compress(&Timehm,":")) ; %*HHMM;
%put &Timehm;

%let logfile=&program.-&dateymd.-&Timehm..log;
%put &logfile;

filename proglog "&path.&logfile";

proc printto log="&path.&logfile" new;
run;

%mend printlog;

%macro pdflog(path=,program=&_CLIENTTASKLABEL);

proc printto; run;

proc document name=mydoc(write);
import textfile= proglog to logfile;
run;

ods listing;

/* Take a look at the entry in MYDOC */
proc document name=mydoc;
list;
run;

ods listing close;

/* Replay the output to the PDF destination */

%let dateymd = %sysfunc(date(),yymmddn8.) ;
%put &dateymd;

%let Timehm = %sysfunc(time(),tod5.) ; %*HHMM;
%let Timehm = %sysfunc(compress(&Timehm,":")) ; %*HHMM;
%put &Timehm;

%let pdffile=&program.-&dateymd.-&Timehm..pdf;
%put &pdffile;

filename progpdf "&path.&pdffile";

ods pdf file="&path.&pdffile" notoc;
replay;
run;
ods pdf close;

/*options center date number;*/
run;
quit;

%mend pdflog;

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

I then put this at the end of the autoexec:

%global project;

%let project = &_CLIENTPROJECTNAME;
%Let project = %SysFunc( TranWrd( %qleft(%superq(project)) ,%str(%'),%Str( ) ) ) ;
%let posit = %sysfunc(FINDC(%qleft(%superq(project)), %str(.), b) );
%Let project = %Substr(%qleft(%superq(project)),1,&posit - 1);
%put &=project;

%printlog(path=&qc,program=&project);

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

so that resolves to (substitute &qc for your path of choice):

filename proglog "(path)/(project name)-20190311-1050.log";

proc printto log="(path)/(project name)-20190311-1050.log" new;
run;

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

so that each run of the project generates a date- and time-stamped log file.

now, at the end of the last task, I add this:

%pdflog(path=&qc,program=&project);

which generates (path)/(project name)-20190311-1142.pdf, which is half the size of the log file.

This is especially handy for production runs using ordered lists.

A nice side benefit is that you can see that the entire project started at 1050 and ended at 1142.