Procedure for creating a user and assigning him a role

Question

Hi folks,
has anyone of you a procedure for creating a user and then assigning him a spezial role?
The procedure has 2 arguments username and password. I think that its an easy one but I
have not found the right packages.
Thanks

Answer 1

create or replace procedure new_user(username_in IN VARCHAR2, password_in IN VARCHAR2) is
  C_TEMP_TSP     CONSTANT VARCHAR2(30) := 'TEMP';
  C_DEFAULT_TSP  CONSTANT VARCHAR2(30) := 'USERS';
  C_DEFAULT_ROLE CONSTANT VARCHAR2(30) := 'SPECIALROLE';
begin
  execute immediate 'create user ' || username_in ||
                    ' identified by ' || password_in ||
                    ' default tablespace ' || C_DEFAULT_TSP ||
                    ' temporary tablespace ' || C_TEMP_TSP;
  execute immediate  'grant '|| C_DEFAULT_ROLE ||' to '||username_in;
end new_user;