Comments on: Trick #1 – Copying Users the Right Way

By: User-DLL extrahieren « Oracle DBA’s Weblog

User-DLL extrahieren « Oracle DBA’s Weblog — Tue, 03 Nov 2009 15:21:49 +0000

[...] Wie man das o.g. Script so ergänzen kann, dass diese Meldung vorher abgefangen werden, erfährt man bspw. hier und hier. [...]

By: Niall

Niall — Mon, 17 Nov 2008 14:40:58 +0000

Not to come across as picky but are you sure the sql above works on all versions?
I had to do this for an Oracle 9i database and the code I came up with was.
set head off
set pages 0
set long 9999999
spool user_script.sql
SELECT DBMS_METADATA.GET_DDL(‘USER’, USERNAME) || ‘;’ DDL
FROM DBA_USERS;
SELECT DBMS_METADATA.GET_DDL(‘ROLE’, role)||’;’ DDL
FROM dba_roles;
SELECT DBMS_METADATA.GET_GRANTED_DDL(‘ROLE_GRANT’, role) || ‘;’ DDL
FROM role_role_privs;
SELECT DBMS_METADATA.GET_GRANTED_DDL(‘SYSTEM_GRANT’, role) || ‘;’ DDL
FROM role_sys_privs;
SELECT DBMS_METADATA.GET_GRANTED_DDL(‘OBJECT_GRANT’, role) || ‘;’ DDL
FROM role_tab_privs;
spool off;

By: Charlie

Charlie — Fri, 05 Sep 2008 09:57:25 +0000

You probably have this by now, but anyhow….

SELECT DBMS_METADATA.GET_granted_DDL(‘TABLESPACE_QUOTA’, ‘SYSTEM’) || ‘/’ DDL
FROM dual;

As observed earlier, you’ll want to wrap this to avoid the instance where there is no quota for that user. If you find you can’t get this to work, try using a ‘real’ user rather than SYS or SYSTEM in the function call.

By: m

Fri, 12 Oct 2007 02:24:04 +0000

# Ravinder Says:
#It is helpful to others to add one more proc.
#GET_DEPENDENT_DDL to get the space quota in tablespaces.

Thanks for this tidbit — I am currently trying to extract it through the GET_DEPENDENT_DDL proc but I couldn’t figure out the correct syntax. Do you specify the user or the tablespace? Either way, I couldn’t get it to run:

SQL> select DBMS_METADATA.GET_DEPENDENT_DDL(‘TABLESPACE_QUOTA’,'SYSTEM’) FROM DUAL;
ERROR:
ORA-31604: invalid NAME parameter “BASE_OBJECT_NAME” for object type TABLESPACE_QUOTA in function
SET_FILTER
ORA-06512: at “SYS.DBMS_SYS_ERROR”, line 116
ORA-06512: at “SYS.DBMS_METADATA_INT”, line 4676
ORA-06512: at “SYS.DBMS_METADATA_INT”, line 8552
ORA-06512: at “SYS.DBMS_METADATA”, line 2881
ORA-06512: at “SYS.DBMS_METADATA”, line 2757
ORA-06512: at “SYS.DBMS_METADATA”, line 4394
ORA-06512: at line 1

Any thoughts?

By: John G

John G — Thu, 06 Sep 2007 19:29:33 +0000

Still one hangup, setting default role(s) for the users. If there are multiple roles to be set as default for a user they must all be declared in the same ALTER USER statement. The statment can be generated with the function below:

create or replace
FUNCTION f_default_roles(p_usr varchar2) RETURN VARCHAR2 IS
v_list VARCHAR2(2000);
v_first boolean;
CURSOR c_def_roles(v_userid varchar2) IS
SELECT granted_role
FROM dba_role_privs
WHERE grantee = v_userid
AND default_role = ‘YES’
ORDER BY granted_role;
BEGIN
v_first := true;
FOR c_rec IN c_def_roles(p_usr)
LOOP
if v_first then
v_list := c_rec.granted_role ;
v_first := false ;
else
v_list := v_list || ‘, ‘ || c_rec.granted_role;
end if;
END LOOP;
if v_first then
v_list := ‘– no default role for ‘ || p_usr ;
else
v_list := ‘alter user ‘ || p_usr || ‘ default role ‘ || v_list || ‘ ;’;
end if;
RETURN v_list;
END f_default_roles;

By: Dave M

Dave M — Sun, 17 Dec 2006 20:50:52 +0000

This will help Bob’s code out and stop the package from issuing errors, where users have no system privlidges.

SELECT DBMS_METADATA.GET_GRANTED_DDL(‘SYSTEM_GRANT’, USERNAME) || ‘/’ DDL
FROM DBA_USERS
where exists (select ‘x’ from dba_role_privs drp, dba_sys_privs dsp
where drp.grantee = dba_users.username
and drp.granted_role = dsp.privilege)

By: The Oracle Alchemist

The Oracle Alchemist — Wed, 29 Nov 2006 02:19:35 +0000

Good call Bob, without this is can make for a painful output script.

By: Bob Wylie

Bob Wylie — Tue, 28 Nov 2006 21:50:08 +0000

I had to add some qualifiers on the statements so that if a user has not bee issued a grant the procedure does not fail. Here is my additions: Note the ‘exists’ statements.

SELECT DBMS_METADATA.GET_GRANTED_DDL(‘ROLE_GRANT’, USERNAME) || ‘/’ DDL
FROM DBA_USERS where exists (select ‘x’ from dba_role_privs drp where
drp.grantee = dba_users.username)
UNION ALL
SELECT DBMS_METADATA.GET_GRANTED_DDL(‘SYSTEM_GRANT’, USERNAME) || ‘/’ DDL FROM D
BA_USERS where exists (select ‘x’ from dba_role_privs drp where
drp.grantee = dba_users.username)
UNION ALL
SELECT DBMS_METADATA.GET_GRANTED_DDL(‘OBJECT_GRANT’, USERNAME) || ‘/’ DDL FROM D
BA_USERS where exists (select ‘x’ from dba_tab_privs dtp where
dtp.grantee = dba_users.username);

By: steve

steve — Fri, 29 Sep 2006 06:11:51 +0000

You’re absolutely right, it helps very much. Quota information is vital to copy a user verbatim.

By: Ravinder

Ravinder — Thu, 28 Sep 2006 19:17:49 +0000

Hello ,

It is helpful to others to add one more proc.
GET_DEPENDENT_DDL to get the space quota in tablespaces.

Hope this helps.
Ravinder