diff --git a/all.sas b/all.sas index 59d4742..4fb9750 100644 --- a/all.sas +++ b/all.sas @@ -1141,18 +1141,19 @@ or %index(&pgm,/tests/testteardown) @author Allan Bowe **/ -%macro mf_getuser(type=META +%macro mf_getuser( )/*/STORE SOURCE*/; - %local user metavar; - %if &type=OS %then %let metavar=_secureusername; - %else %let metavar=_metaperson; + %local user; - %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; - %else %if %symexist(&metavar) %then %do; - %if %length(&&&metavar)=0 %then %let user=&sysuserid; + %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; + %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; + %let user=&SYS_COMPUTE_SESSION_OWNER; + %end; + %else %if %symexist(_metaperson) %then %do; + %if %length(&_metaperson)=0 %then %let user=&sysuserid; /* sometimes SAS will add @domain extension - remove for consistency */ /* but be sure to quote in case of usernames with commas */ - %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); + %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); %end; %else %let user=&sysuserid; @@ -15243,18 +15244,19 @@ data _null_; put '%end; '; put '%mend mp_jsonout; '; put ' '; - put '%macro mf_getuser(type=META '; + put '%macro mf_getuser( '; put ')/*/STORE SOURCE*/; '; - put ' %local user metavar; '; - put ' %if &type=OS %then %let metavar=_secureusername; '; - put ' %else %let metavar=_metaperson; '; + put ' %local user; '; put ' '; - put ' %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; '; - put ' %else %if %symexist(&metavar) %then %do; '; - put ' %if %length(&&&metavar)=0 %then %let user=&sysuserid; '; + put ' %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; '; + put ' %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; '; + put ' %let user=&SYS_COMPUTE_SESSION_OWNER; '; + put ' %end; '; + put ' %else %if %symexist(_metaperson) %then %do; '; + put ' %if %length(&_metaperson)=0 %then %let user=&sysuserid; '; put ' /* sometimes SAS will add @domain extension - remove for consistency */ '; put ' /* but be sure to quote in case of usernames with commas */ '; - put ' %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); '; + put ' %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); '; put ' %end; '; put ' %else %let user=&sysuserid; '; put ' '; @@ -19952,18 +19954,19 @@ data _null_; put '%end; '; put '%mend mp_jsonout; '; put ' '; - put '%macro mf_getuser(type=META '; + put '%macro mf_getuser( '; put ')/*/STORE SOURCE*/; '; - put ' %local user metavar; '; - put ' %if &type=OS %then %let metavar=_secureusername; '; - put ' %else %let metavar=_metaperson; '; + put ' %local user; '; put ' '; - put ' %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; '; - put ' %else %if %symexist(&metavar) %then %do; '; - put ' %if %length(&&&metavar)=0 %then %let user=&sysuserid; '; + put ' %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; '; + put ' %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; '; + put ' %let user=&SYS_COMPUTE_SESSION_OWNER; '; + put ' %end; '; + put ' %else %if %symexist(_metaperson) %then %do; '; + put ' %if %length(&_metaperson)=0 %then %let user=&sysuserid; '; put ' /* sometimes SAS will add @domain extension - remove for consistency */ '; put ' /* but be sure to quote in case of usernames with commas */ '; - put ' %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); '; + put ' %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); '; put ' %end; '; put ' %else %let user=&sysuserid; '; put ' '; @@ -22294,18 +22297,19 @@ data _null_; put '%end; '; put '%mend mp_jsonout; '; put ' '; - put '%macro mf_getuser(type=META '; + put '%macro mf_getuser( '; put ')/*/STORE SOURCE*/; '; - put ' %local user metavar; '; - put ' %if &type=OS %then %let metavar=_secureusername; '; - put ' %else %let metavar=_metaperson; '; + put ' %local user; '; put ' '; - put ' %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; '; - put ' %else %if %symexist(&metavar) %then %do; '; - put ' %if %length(&&&metavar)=0 %then %let user=&sysuserid; '; + put ' %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; '; + put ' %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; '; + put ' %let user=&SYS_COMPUTE_SESSION_OWNER; '; + put ' %end; '; + put ' %else %if %symexist(_metaperson) %then %do; '; + put ' %if %length(&_metaperson)=0 %then %let user=&sysuserid; '; put ' /* sometimes SAS will add @domain extension - remove for consistency */ '; put ' /* but be sure to quote in case of usernames with commas */ '; - put ' %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); '; + put ' %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); '; put ' %end; '; put ' %else %let user=&sysuserid; '; put ' '; diff --git a/base/mf_getuser.sas b/base/mf_getuser.sas index 338950c..8172acb 100755 --- a/base/mf_getuser.sas +++ b/base/mf_getuser.sas @@ -23,18 +23,19 @@ @author Allan Bowe **/ -%macro mf_getuser(type=META +%macro mf_getuser( )/*/STORE SOURCE*/; - %local user metavar; - %if &type=OS %then %let metavar=_secureusername; - %else %let metavar=_metaperson; + %local user; - %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; - %else %if %symexist(&metavar) %then %do; - %if %length(&&&metavar)=0 %then %let user=&sysuserid; + %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; + %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; + %let user=&SYS_COMPUTE_SESSION_OWNER; + %end; + %else %if %symexist(_metaperson) %then %do; + %if %length(&_metaperson)=0 %then %let user=&sysuserid; /* sometimes SAS will add @domain extension - remove for consistency */ /* but be sure to quote in case of usernames with commas */ - %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); + %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); %end; %else %let user=&sysuserid; diff --git a/meta/mm_createwebservice.sas b/meta/mm_createwebservice.sas index 984e04c..3b28565 100644 --- a/meta/mm_createwebservice.sas +++ b/meta/mm_createwebservice.sas @@ -315,18 +315,19 @@ data _null_; put '%end; '; put '%mend mp_jsonout; '; put ' '; - put '%macro mf_getuser(type=META '; + put '%macro mf_getuser( '; put ')/*/STORE SOURCE*/; '; - put ' %local user metavar; '; - put ' %if &type=OS %then %let metavar=_secureusername; '; - put ' %else %let metavar=_metaperson; '; + put ' %local user; '; put ' '; - put ' %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; '; - put ' %else %if %symexist(&metavar) %then %do; '; - put ' %if %length(&&&metavar)=0 %then %let user=&sysuserid; '; + put ' %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; '; + put ' %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; '; + put ' %let user=&SYS_COMPUTE_SESSION_OWNER; '; + put ' %end; '; + put ' %else %if %symexist(_metaperson) %then %do; '; + put ' %if %length(&_metaperson)=0 %then %let user=&sysuserid; '; put ' /* sometimes SAS will add @domain extension - remove for consistency */ '; put ' /* but be sure to quote in case of usernames with commas */ '; - put ' %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); '; + put ' %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); '; put ' %end; '; put ' %else %let user=&sysuserid; '; put ' '; diff --git a/server/ms_createwebservice.sas b/server/ms_createwebservice.sas index ea678ce..0896d9c 100644 --- a/server/ms_createwebservice.sas +++ b/server/ms_createwebservice.sas @@ -317,18 +317,19 @@ data _null_; put '%end; '; put '%mend mp_jsonout; '; put ' '; - put '%macro mf_getuser(type=META '; + put '%macro mf_getuser( '; put ')/*/STORE SOURCE*/; '; - put ' %local user metavar; '; - put ' %if &type=OS %then %let metavar=_secureusername; '; - put ' %else %let metavar=_metaperson; '; + put ' %local user; '; put ' '; - put ' %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; '; - put ' %else %if %symexist(&metavar) %then %do; '; - put ' %if %length(&&&metavar)=0 %then %let user=&sysuserid; '; + put ' %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; '; + put ' %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; '; + put ' %let user=&SYS_COMPUTE_SESSION_OWNER; '; + put ' %end; '; + put ' %else %if %symexist(_metaperson) %then %do; '; + put ' %if %length(&_metaperson)=0 %then %let user=&sysuserid; '; put ' /* sometimes SAS will add @domain extension - remove for consistency */ '; put ' /* but be sure to quote in case of usernames with commas */ '; - put ' %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); '; + put ' %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); '; put ' %end; '; put ' %else %let user=&sysuserid; '; put ' '; diff --git a/viya/mv_createwebservice.sas b/viya/mv_createwebservice.sas index c71c69a..a398e87 100644 --- a/viya/mv_createwebservice.sas +++ b/viya/mv_createwebservice.sas @@ -459,18 +459,19 @@ data _null_; put '%end; '; put '%mend mp_jsonout; '; put ' '; - put '%macro mf_getuser(type=META '; + put '%macro mf_getuser( '; put ')/*/STORE SOURCE*/; '; - put ' %local user metavar; '; - put ' %if &type=OS %then %let metavar=_secureusername; '; - put ' %else %let metavar=_metaperson; '; + put ' %local user; '; put ' '; - put ' %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %let user=&SYS_COMPUTE_SESSION_OWNER; '; - put ' %else %if %symexist(&metavar) %then %do; '; - put ' %if %length(&&&metavar)=0 %then %let user=&sysuserid; '; + put ' %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; '; + put ' %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; '; + put ' %let user=&SYS_COMPUTE_SESSION_OWNER; '; + put ' %end; '; + put ' %else %if %symexist(_metaperson) %then %do; '; + put ' %if %length(&_metaperson)=0 %then %let user=&sysuserid; '; put ' /* sometimes SAS will add @domain extension - remove for consistency */ '; put ' /* but be sure to quote in case of usernames with commas */ '; - put ' %else %let user=%unquote(%scan(%quote(&&&metavar),1,@)); '; + put ' %else %let user=%unquote(%scan(%quote(&_metaperson),1,@)); '; put ' %end; '; put ' %else %let user=&sysuserid; '; put ' ';