Hello Expperts,
Wanted to create a sas program that help creating new user profile [based on existing profile (template user for assigning same groups and roles) and if ever no template user is specified it assign a default group (group name we will define later it will a group to give basic seg access) to user].
Sas 9.4 M8
Can anyone help correcting below script as am getting error message when ruuning it:
ERROR 71-185: The METADATA_RESOLVE function call does not have enough arguments.
Thanking you in advance
/*=====================================================
SAS Metadata User Creation & Cloning Script with Logging
=======================================================*/
/* Securely handle metadata server credentials */
%let metaserver = "YourMetaServer";
%let metaport = 8561;
%let metauser = "Administrator";
%let metapass = "YourPassword"; /* Consider external configuration for security */
options metaserver=&metaserver
metarepository="Foundation"
metaport=&metaport
metauser=&metauser
metapass=&metapass;
%let new_user_id = 1; /* User ID for new user */
%let new_user_name = zz; /* Full name for new user */
%let template_user_id = 2; /* ID of template user (leave blank if none) */
%let default_group_name = "DefaultGroup"; /* Default group */
/*-------------------------------------------------------
Step 0: Initialize log dataset
--------------------------------------------------------*/
data user_creation_log;
length NewUserID $50 NewUserName $100 TemplateUserID $50 Groups $500 Roles $500 Status $50 Timestamp $20;
stop;
run;
/*-------------------------------------------------------
Step 1: Check if new user already exists
--------------------------------------------------------*/
data _null_;
length userUri $200 rc 8;
rc = metadata_resolve(cats("omsobj:Person?@UserId='&new_user_id'"), userUri);
if rc > 0 then call symputx("userExists", "1");
else call symputx("userExists", "0");
run;
%macro create_user_with_clone;
%if &userExists = 1 %then %do;
%put NOTE: User ID &new_user_id already exists. No action taken.;
/* Log existing user */
data user_creation_log;
NewUserID="&new_user_id";
NewUserName="&new_user_name";
TemplateUserID="&template_user_id";
Groups="NA";
Roles="NA";
Status="Already Exists";
Timestamp=datetime();
format Timestamp datetime.;
output;
run;
%end;
%else %do;
/*-------------------------------------------------------
Step 2: Create new user
--------------------------------------------------------*/
data _null_;
length newUserUri $200 rc 8;
rc = metadata_createobj("omsobj:Person",
cats("Name='&new_user_name' ",
"UserId='&new_user_id' "),
newUserUri);
if rc = 0 then do;
put "NOTE: New user &new_user_name created: " newUserUri;
call symputx("newUserUri", newUserUri);
call symputx("createStatus","Created");
end;
else do;
put "ERROR: Unable to create user, rc=" rc;
call symputx("createStatus","Error");
end;
run;
/*-------------------------------------------------------
Step 3: Assign groups and roles
--------------------------------------------------------*/
%macro assign_groups_roles_log(newUserUri=, templateUserId=, defaultGroup=);
%local templateUserUri groupsCount rolesCount i j groupUri roleUri groupsList rolesList;
%let groupsList=;
%let rolesList=;
%if &templateUserId ne %then %do;
/* Resolve template user URI */
data _null_;
length uri $200 rc 8;
rc = metadata_resolve(cats("omsobj:Person?@UserId='&templateUserId'"), uri);
if rc > 0 then call symputx("templateUserUri", uri);
else call symputx("templateUserUri", "");
run;
/* Clone Groups */
data _null_;
length rc 8 groupUri $200;
rc = metadata_getnasn("&templateUserUri", "Groups", groupUri, 1);
if rc > 0 then do i=1 to rc;
call symputx(cats("groupUri", i), groupUri);
end;
call symputx("groupsCount", rc);
run;
%if &groupsCount > 0 %then %do i=1 %to &groupsCount;
data _null_;
rc = metadata_setnasn("&newUserUri", "Groups", symget(cats("groupUri", &i)));
if rc = 0 then put "NOTE: Group &i assigned successfully.";
else put "ERROR: Failed to assign group &i, rc=" rc;
run;
/* Get group names for logging */
data _null_;
length groupName $100;
rc = metadata_getattr(symget(cats("groupUri", &i)), "Name", groupName);
call symputx(cats("gName", &i), groupName);
run;
%let groupsList=&groupsList &gName&i;
%end;
/* Clone Roles */
data _null_;
length rc 8 roleUri $200;
rc = metadata_getnasn("&templateUserUri", "Roles", roleUri, 1);
if rc > 0 then do j=1 to rc;
call symputx(cats("roleUri", j), roleUri);
end;
call symputx("rolesCount", rc);
run;
%if &rolesCount > 0 %then %do j=1 %to &rolesCount;
data _null_;
rc = metadata_setnasn("&newUserUri", "Roles", symget(cats("roleUri", &j)));
if rc = 0 then put "NOTE: Role &j assigned successfully.";
else put "ERROR: Failed to assign role &j, rc=" rc;
run;
/* Get role names for logging */
data _null_;
length roleName $100;
rc = metadata_getattr(symget(cats("roleUri", &j)), "Name", roleName);
call symputx(cats("rName", &j), roleName);
run;
%let rolesList=&rolesList &rName&j;
%end;
%end;
%else %do;
/* No template user: assign default group only */
data _null_;
length groupUri rc rc2 8;
rc = metadata_resolve(cats("omsobj:IdentityGroup?@Name='&defaultGroup'"), groupUri);
if rc > 0 then do;
rc2 = metadata_setnasn("&newUserUri", "Groups", groupUri);
if rc2 = 0 then put "NOTE: Default group assigned to new user.";
else put "ERROR: Failed to assign default group, rc=" rc2;
end;
else put "ERROR: Default group not found, rc=" rc;
run;
%let groupsList=&defaultGroup;
%let rolesList=;
%end;
/* Log the created user */
data user_creation_log;
length NewUserID $50 NewUserName $100 TemplateUserID $50 Groups $500 Roles $500 Status $50 Timestamp $20;
NewUserID="&new_user_id";
NewUserName="&new_user_name";
TemplateUserID="&template_user_id";
Groups="&groupsList";
Roles="&rolesList";
Status="&createStatus";
Timestamp=datetime();
format Timestamp datetime.;
output;
run;
%mend;
%assign_groups_roles_log(newUserUri=&newUserUri,
templateUserId=&template_user_id,
defaultGroup=&default_group_name);
%end;
%mend;
/* Run the macro */
%create_user_with_clone;
/* Optional: View log */
proc print data=user_creation_log; run;
