mirror of
https://github.com/sasjs/core.git
synced 2026-01-17 05:20:05 +00:00
feat(*): recreate library as scoped package
This commit is contained in:
42
base/mp_perflog.sas
Normal file
42
base/mp_perflog.sas
Normal file
@@ -0,0 +1,42 @@
|
||||
/**
|
||||
@file
|
||||
@brief Logs the time the macro was executed in a control dataset.
|
||||
@details If the dataset does not exist, it is created. Usage:
|
||||
|
||||
%mp_perflog(started)
|
||||
%mp_perflog()
|
||||
%mp_perflog(startanew,libds=work.newdataset)
|
||||
%mp_perflog(finished,libds=work.newdataset)
|
||||
%mp_perflog(finished)
|
||||
|
||||
|
||||
@param label Provide label to go into the control dataset
|
||||
@param libds= Provide a dataset in which to store performance stats. Default
|
||||
name is <code>work.mp_perflog</code>;
|
||||
|
||||
@version 9.2
|
||||
@author Allan Bowe
|
||||
@source https://github.com/macropeople/macrocore
|
||||
|
||||
**/
|
||||
|
||||
%macro mp_perflog(label,libds=work.mp_perflog
|
||||
)/*/STORE SOURCE*/;
|
||||
|
||||
%if not (%mf_existds(&libds)) %then %do;
|
||||
data &libds;
|
||||
length sysjobid $10 label $256 dttm 8.;
|
||||
format dttm datetime19.3;
|
||||
call missing(of _all_);
|
||||
stop;
|
||||
run;
|
||||
%end;
|
||||
|
||||
proc sql;
|
||||
insert into &libds
|
||||
set sysjobid="&sysjobid"
|
||||
,label=symget('label')
|
||||
,dttm=%sysfunc(datetime());
|
||||
quit;
|
||||
|
||||
%mend;
|
||||
Reference in New Issue
Block a user