Not able to create an object using dbms_metadata.put function

Question

Hi,
I have the metadata of an object in one of my database table as xml. I failed to recreate the object in the other schema using metadata api. I developed a stored function to do the above job. My function doesn't throw any error meanwhile it doesn't create the object.
My code snippet is
CREATE OR REPLACE PROCEDURE DDI.move_table(
table_name in VARCHAR2,
from_schema in VARCHAR2,
to_schema in VARCHAR2 )
AUTHID CURRENT_USER
IS
-- Define local variables.
h1 NUMBER; -- handle returned by OPEN
h2 NUMBER; -- handle returned by OPENW
th1 NUMBER; -- handle returned by ADD_TRANSFORM for MODIFY
th2 NUMBER; -- handle returned by ADD_TRANSFORM for DDL
xml XMLTYPE; -- XML document
errs sys.ku$_SubmitResults := sys.ku$_SubmitResults();
err sys.ku$_SubmitResult;
result BOOLEAN;
BEGIN
SELECT REPOS INTO xml from ddi.ddi_repos_t where obj_id = '1801';
-- Specify the object type using OPENW (instead of OPEN).
h2 := DBMS_METADATA.OPENW('TABLE');
-- First, add the MODIFY transform.
th1 := DBMS_METADATA.ADD_TRANSFORM(h2,'MODIFY');
-- Specify the desired modification: remap the schema name.
DBMS_METADATA.SET_REMAP_PARAM(th1,'REMAP_SCHEMA',from_schema,to_schema);
-- Now add the DDL transform so that the modified XML can be
-- transformed into creation DDL.
th2 := DBMS_METADATA.ADD_TRANSFORM(h2,'DDL');
-- Call PUT to re-create the object.
result := DBMS_METADATA.PUT(h2,xml,0,errs);
DBMS_METADATA.CLOSE(h2);
IF NOT result THEN
-- Process the error information.
FOR i IN errs.FIRST..errs.LAST LOOP
err := errs(i);
FOR j IN err.errorLines.FIRST..err.errorLines.LAST LOOP
dbms_output.put_line(err.errorLines(j).errorText);
END LOOP;
END LOOP;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(-20510,'No xml is available as metadata');
END;
Could you tell me where is the probelm?
The schema where i created and execute my function having dba privilege also.
Regards,
Madhavi.

Answer 1

Hi Madhavi,
The below code works for me:
SQL> conn sys as sysdba
Connected.
SQL> select count(*) from dba_objects where object_name = 'DEPT' and owner = 'OE';
  COUNT(*)                                                                     
         0                                                                     
SQL> CREATE OR REPLACE PROCEDURE move_table(
  2  table_name in VARCHAR2,
  3  from_schema in VARCHAR2,
  4  to_schema in VARCHAR2 )
  5  AUTHID CURRENT_USER
  6  IS
  7  -- Define local variables.
  8  h1 NUMBER; -- handle returned by OPEN
  9  h2 NUMBER; -- handle returned by OPENW
10  th1 NUMBER; -- handle returned by ADD_TRANSFORM for MODIFY
11  th2 NUMBER; -- handle returned by ADD_TRANSFORM for DDL
12  xml clob; -- XML document
13  errs sys.ku$_SubmitResults := sys.ku$_SubmitResults();
14  err sys.ku$_SubmitResult;
15  result BOOLEAN;
16  BEGIN
17 
18  select DBMS_METADATA.GET_XML('TABLE','DEPT','SCOTT') into xml from dual;
19 
20  -- Specify the object type using OPENW (instead of OPEN).
21  h2 := DBMS_METADATA.OPENW('TABLE');
22 
23  -- First, add the MODIFY transform.
24  th1 := DBMS_METADATA.ADD_TRANSFORM(h2,'MODIFY');
25 
26  -- Specify the desired modification: remap the schema name.
27  DBMS_METADATA.SET_REMAP_PARAM(th1,'REMAP_SCHEMA',from_schema,to_schema);
28 
29  -- Now add the DDL transform so that the modified XML can be
30  -- transformed into creation DDL.
31  th2 := DBMS_METADATA.ADD_TRANSFORM(h2,'DDL');
32 
33  -- Call PUT to re-create the object.
34  result := DBMS_METADATA.PUT(h2,xml,0,errs);
35 
36  DBMS_METADATA.CLOSE(h2);
37  IF NOT result THEN
38 
39  -- Process the error information.
40  FOR i IN errs.FIRST..errs.LAST LOOP
41  err := errs(i);
42  FOR j IN err.errorLines.FIRST..err.errorLines.LAST LOOP
43  dbms_output.put_line(err.errorLines(j).errorText);
44  END LOOP;
45  END LOOP;
46  END IF;
47  EXCEPTION
48  WHEN NO_DATA_FOUND THEN
49  RAISE_APPLICATION_ERROR(-20510,'No xml is available as metadata');
50  END;
51  /
Procedure created.
SQL> exec move_table('DEPT','SCOTT','OE');
PL/SQL procedure successfully completed.
SQL> select count(*) from dba_objects where object_name = 'DEPT' and owner = 'OE';
  COUNT(*)                                                                     
         1                                                                     
SQL> spool off;The xml returned by the get_xml function contains the tablespace name and storage parameters of the schema in which the object is present.
Check these parameters for both your schemas.