sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-18 14:00:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: implementation of mf_fmtddtm()

Browse Source
This commit is contained in:
Allan Bowe
2022-05-07 18:02:00 +00:00
parent 1b013fbf1c
commit 4b450f2091
3 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
base/mf_fmtdttm.sas
View File

@@ -5,9 +5,21 @@
(https://datacontroller.io) deployments, the E8601DT26.6 datetime format has (https://datacontroller.io) deployments, the E8601DT26.6 datetime format has
the widest support when it comes to pass-through SQL queries. the widest support when it comes to pass-through SQL queries.
However, it is not supported in WPS or early versions of SAS 9 (M3 and below). However, it is not supported in WPS or early versions of SAS 9 (M3 and below)
when used as a datetime literal, eg:
This macro will therefore return the appropriate format based on the runtime. data _null_;
demo="%sysfunc(datetime(),E8601DT26.6)"dt;
demo=;
run;
This macro will therefore return DATEITME19.3 as an alternative format
based on the runtime environment so that it can be used in such cases, eg:
data _null_;
demo="%sysfunc(datetime(),%mf_fmtdttm())"dt;
demo=;
run;
<h4> Related Macros </h4> <h4> Related Macros </h4>
@li mf_fmtdttm.test.sas @li mf_fmtdttm.test.sas

7
base/mp_lockanytable.sas
View File

@@ -22,6 +22,7 @@
@param [in] loop_secs= (1) Seconds to wait between each lock attempt @param [in] loop_secs= (1) Seconds to wait between each lock attempt
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_fmtdttm.sas
@li mp_abort.sas @li mp_abort.sas
@li mp_lockfilecheck.sas @li mp_lockfilecheck.sas
@li mf_getuser.sas @li mf_getuser.sas
@@ -111,7 +112,7 @@ run;
LOCK_LIB ="&lib"; LOCK_LIB ="&lib";
LOCK_DS="&ds"; LOCK_DS="&ds";
LOCK_STATUS_CD='LOCKED'; LOCK_STATUS_CD='LOCKED';
LOCK_START_DTTM="%sysfunc(datetime(),E8601DT26.6)"dt; LOCK_START_DTTM="%sysfunc(datetime(),%mf_fmtdttm())"dt;
LOCK_USER_NM="&user"; LOCK_USER_NM="&user";
LOCK_PID="&sysjobid"; LOCK_PID="&sysjobid";
LOCK_REF="&ref"; LOCK_REF="&ref";
@@ -131,7 +132,7 @@ run;
proc sql; proc sql;
update &ctl_ds update &ctl_ds
set LOCK_STATUS_CD='LOCKED' set LOCK_STATUS_CD='LOCKED'
, LOCK_START_DTTM="%sysfunc(datetime(),E8601DT26.6)"dt , LOCK_START_DTTM="%sysfunc(datetime(),%mf_fmtdttm())"dt
, LOCK_USER_NM="&user" , LOCK_USER_NM="&user"
, LOCK_PID="&sysjobid" , LOCK_PID="&sysjobid"
, LOCK_REF="&ref" , LOCK_REF="&ref"
@@ -206,7 +207,7 @@ run;
proc sql; proc sql;
update &ctl_ds update &ctl_ds
set LOCK_STATUS_CD='UNLOCKED' set LOCK_STATUS_CD='UNLOCKED'
, LOCK_END_DTTM="%sysfunc(datetime(),E8601DT26.6)"dt , LOCK_END_DTTM="%sysfunc(datetime(),%mf_fmtdttm())"dt
, LOCK_USER_NM="&user" , LOCK_USER_NM="&user"
, LOCK_PID="&sysjobid" , LOCK_PID="&sysjobid"
, LOCK_REF="&ref" , LOCK_REF="&ref"

5
base/mp_retainedkey.sas
View File

@@ -58,6 +58,7 @@
<h4> SAS Macros </h4> <h4> SAS Macros </h4>
@li mf_existvar.sas @li mf_existvar.sas
@li mf_fmtdttm.sas
@li mf_getquotedstr.sas @li mf_getquotedstr.sas
@li mf_getuniquename.sas @li mf_getuniquename.sas
@li mf_nobs.sas @li mf_nobs.sas
@@ -217,12 +218,12 @@ quit;
set keytable="&base_libds" set keytable="&base_libds"
,keycolumn="&retained_key" ,keycolumn="&retained_key"
,max_key=%eval(&maxkey+&newkey_cnt) ,max_key=%eval(&maxkey+&newkey_cnt)
,processed_dttm="%sysfunc(datetime(),E8601DT26.6)"dt; ,processed_dttm="%sysfunc(datetime(),%mf_fmtdttm())"dt;
%end; %end;
%else %do; %else %do;
update &maxkeytable update &maxkeytable
set max_key=%eval(&maxkey+&newkey_cnt) set max_key=%eval(&maxkey+&newkey_cnt)
,processed_dttm="%sysfunc(datetime(),E8601DT26.6)"dt ,processed_dttm="%sysfunc(datetime(),%mf_fmtdttm())"dt
where keytable="&base_libds"; where keytable="&base_libds";
%end; %end;
%mp_lockanytable(UNLOCK %mp_lockanytable(UNLOCK