Access to schema objects

Question

Guys,
I am on 10g R2 and have this requirement.
We refresh our QA environment from PROD every day ( exp/imp and schema refresh ). App team now have a requirement where by they want to create few objects including tables every day and load those tables with static data. This in a way doesn't need to be refreshed every day.. So, could place this in another schema. But we do not want to grant access on that schema to the user.
Alternatively, we can get them to send the us a script, that can be run as POST refresh script on completion of the refresh. But this would mean that any changes to the script will involve us copying the file, which could be a hassle.
I am wondering, if there is better way to handle this.. BTW, the app team do not have access to the database host and we don't plan to grant it either..
What is the best alternative ?

Answer 1

You can use DBMS_METADATA and EXECUTE IMMEDIATE
SQL> create user u1 identified by u1;
User created.
SQL> create or replace type u1.type1 as object (a number, b date);
  2  /
Type created.
SQL> declare
  2  stat varchar2(32000):= dbms_metadata.get_ddl('TYPE','TYPE1','U1');
  3  begin
  4    execute immediate replace(stat,'"U1".','');
  5  end;
  6  /
PL/SQL procedure successfully completed.
SQL> desc type1
Name                                                        Null?    Type
A                                                                    NUMBER
B                                                                    DATEYou can loop on all schema objects selected from dba_objecs to manage all objects with a single statement:
SQL> create function u1.f1 return number is
  2  begin
  3    return 0;
  4  end;
  5  /
Function created.
SQL> declare
  2  stat varchar2(32000);
  3  begin
  4    for r in (select object_type, object_name from dba_objects where owner='U1') loop
  5      stat := dbms_metadata.get_ddl(r.object_type,r.object_name,'U1');
  6      dbms_output.put_line(stat);
  7      execute immediate replace(stat,'"U1".','');
  8    end loop;
  9  end;
10  /
  CREATE OR REPLACE TYPE "U1"."TYPE1" as object (a number, b date);
  CREATE OR REPLACE FUNCTION "U1"."F1" return number is
begin
  return 0;
end;
PL/SQL procedure successfully completed.
SQL> desc f1
FUNCTION f1 RETURNS NUMBER
SQL> desc type1
Name                                                        Null?    Type
A                                                                    NUMBER
B                                                                    DATEMax
[My Italian Oracle blog| http://oracleitalia.wordpress.com/2010/02/07/aggiornare-una-tabella-con-listruzione-merge/]