mirror of
https://github.com/sasjs/core.git
synced 2026-01-03 15:40:05 +00:00
21 lines
450 B
SAS
21 lines
450 B
SAS
/**
|
|
@file
|
|
@brief Creates a Unique ID based on system time in a friendly format
|
|
@details format = YYYYMMDD_HHMMSSmmm_<sysjobid>_<3randomDigits>
|
|
|
|
%put %mf_uid();
|
|
|
|
@version 9.2
|
|
@author Allan Bowe
|
|
|
|
**/
|
|
|
|
%macro mf_uid(
|
|
)/*/STORE SOURCE*/;
|
|
%local today now;
|
|
%let today=%sysfunc(today(),yymmddn8.);
|
|
%let now=%sysfunc(compress(%sysfunc(time(),time12.3),:.));
|
|
|
|
&today._&now._&sysjobid._%sysevalf(%sysfunc(ranuni(0))*999,CEIL)
|
|
|
|
%mend; |