mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
118 lines
3.1 KiB
SAS
118 lines
3.1 KiB
SAS
/**
|
|
@file mv_getusers.sas
|
|
@brief Creates a dataset with a list of users
|
|
@details First, be sure you have an access token (which requires an app token)
|
|
|
|
Using the macros here:
|
|
|
|
filename mc url
|
|
"https://raw.githubusercontent.com/sasjs/core/main/all.sas";
|
|
%inc mc;
|
|
|
|
An administrator needs to set you up with an access code:
|
|
|
|
%mv_registerclient(outds=client)
|
|
|
|
Navigate to the url from the log (opting in to the groups) and paste the
|
|
access code below:
|
|
|
|
%mv_tokenauth(inds=client,code=wKDZYTEPK6)
|
|
|
|
Now we can run the macro!
|
|
|
|
%mv_getusers(outds=users)
|
|
|
|
Output (lengths are dynamic):
|
|
|
|
ordinal_root num,
|
|
ordinal_items num,
|
|
version num,
|
|
id char(20),
|
|
name char(23),
|
|
providerId char(4),
|
|
type char(4),
|
|
creationTimeStamp char(24),
|
|
modifiedTimeStamp char(24),
|
|
state char(6)
|
|
|
|
@param [in] access_token_var= (ACCESS_TOKEN)
|
|
The global macro variable to contain the access token
|
|
@param [in] grant_type= (sas_services) Valid values:
|
|
* password
|
|
* authorization_code
|
|
* detect - will check if access_token exists, if not will use sas_services
|
|
if a SASStudioV session else authorization_code.
|
|
* sas_services - will use oauth_bearer=sas_services
|
|
|
|
@param [out] outds= (work.mv_getusers)
|
|
The library.dataset to be created that contains the list of groups
|
|
|
|
|
|
@version VIYA V.03.04
|
|
@author Allan Bowe, source: https://github.com/sasjs/core
|
|
|
|
<h4> SAS Macros </h4>
|
|
@li mp_abort.sas
|
|
@li mf_getplatform.sas
|
|
@li mf_getuniquefileref.sas
|
|
@li mf_getuniquelibref.sas
|
|
|
|
**/
|
|
|
|
%macro mv_getusers(outds=work.mv_getusers
|
|
,access_token_var=ACCESS_TOKEN
|
|
,grant_type=sas_services
|
|
);
|
|
%local oauth_bearer;
|
|
%if &grant_type=detect %then %do;
|
|
%if %symexist(&access_token_var) %then %let grant_type=authorization_code;
|
|
%else %let grant_type=sas_services;
|
|
%end;
|
|
%if &grant_type=sas_services %then %do;
|
|
%let oauth_bearer=oauth_bearer=sas_services;
|
|
%let &access_token_var=;
|
|
%end;
|
|
%put &sysmacroname: grant_type=&grant_type;
|
|
%mp_abort(iftrue=(&grant_type ne authorization_code and &grant_type ne password
|
|
and &grant_type ne sas_services
|
|
)
|
|
,mac=&sysmacroname
|
|
,msg=%str(Invalid value for grant_type: &grant_type)
|
|
)
|
|
|
|
options noquotelenmax;
|
|
|
|
%local base_uri; /* location of rest apis */
|
|
%let base_uri=%mf_getplatform(VIYARESTAPI);
|
|
|
|
/* fetching folder details for provided path */
|
|
%local fname1;
|
|
%let fname1=%mf_getuniquefileref();
|
|
%let libref1=%mf_getuniquelibref();
|
|
|
|
proc http method='GET' out=&fname1 &oauth_bearer
|
|
url="&base_uri/identities/users?limit=10000";
|
|
%if &grant_type=authorization_code %then %do;
|
|
headers "Authorization"="Bearer &&&access_token_var"
|
|
"Accept"="application/json";
|
|
%end;
|
|
%else %do;
|
|
headers "Accept"="application/json";
|
|
%end;
|
|
run;
|
|
/*data _null_;infile &fname1;input;putlog _infile_;run;*/
|
|
%mp_abort(iftrue=(&SYS_PROCHTTP_STATUS_CODE ne 200)
|
|
,mac=&sysmacroname
|
|
,msg=%str(&SYS_PROCHTTP_STATUS_CODE &SYS_PROCHTTP_STATUS_PHRASE)
|
|
)
|
|
libname &libref1 JSON fileref=&fname1;
|
|
|
|
data &outds;
|
|
set &libref1..items;
|
|
run;
|
|
|
|
/* clear refs */
|
|
filename &fname1 clear;
|
|
libname &libref1 clear;
|
|
|
|
%mend mv_getusers; |