Registration Of XML Schema

Question

Hi All,
Created below block for registration of the XML Schema in database.
Which is working fine.
But strange thing is happing, actually when i am creating below code as stored procedure and executing sql prompt getting insufficent privilage.
When running below code in form of unnamed block(Aynomanus Block) is working fine.
Can you please help me understand why strange thing is happing.
DECLARE
PROCEDURE register_xml(p_schema_url VARCHAR2,p_xmlfile_url VARCHAR2,p_dir_name VARCHAR2)
IS
l_folders VARCHAR2(32767);
PROCEDURE check_folders(p_folders VARCHAR2)
IS
v_return BOOLEAN;
folder_exists EXCEPTION;
PRAGMA EXCEPTION_INIT(folder_exists, -31003);
l_pass NUMBER;
BEGIN
FOR i IN 1..(LENGTH(p_folders)-LENGTH(REPLACE(p_folders,'/'))) LOOP
BEGIN
IF SUBSTR(p_folders,1,INSTR(p_folders,'/',1,i+1)) IS NOT NULL THEN
v_return := DBMS_XDB.CREATEFOLDER(SUBSTR(p_folders,1,INSTR(p_folders,'/',1,i+1)));
END IF;
EXCEPTION
WHEN folder_exists THEN
NULL;
END;
END LOOP;
Dbms_Output.put_line('Commit Executed');
COMMIT;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20001,'Error while creating folders',TRUE);
END check_folders;
PROCEDURE register_xml_schema(p_xsd_url VARCHAR2,p_dir VARCHAR2)
IS
l_ret BOOLEAN;
BEGIN
l_ret := DBMS_XDB.CREATERESOURCE(
abspath => SUBSTR(p_xsd_url,INSTR(p_xsd_url,'/',1,3)),
data => BFILENAME (p_dir,SUBSTR(p_xsd_url,INSTR(p_xsd_url,'/',-1)+1))
IF l_ret THEN
DBMS_XMLSCHEMA.REGISTERSCHEMA(
schemaurl => p_xsd_url,
schemadoc => sys.UriFactory.getUri(SUBSTR(p_xsd_url,INSTR(p_xsd_url,'/',1,3)))
COMMIT;
END IF;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20002,'Error while registring schema xsd file',TRUE);
END register_xml_schema;
PROCEDURE register_xml_file(p_xml_url VARCHAR2,p_dir VARCHAR2)
IS
v_return BOOLEAN;
l_folders VARCHAR2(32767);
BEGIN
l_folders := SUBSTR(p_xml_url,
INSTR(p_xml_url,'/',1,3),
(INSTR(p_xml_url,'/',1,(LENGTH(p_xml_url)-LENGTH(REPLACE(p_xml_url,'/'))))-INSTR(p_xml_url,'/',1,3))+1
DBMS_OUTPUT.PUT_LINE('Folders -->'||l_folders);
check_folders(l_folders);
v_return := DBMS_XDB.CREATERESOURCE(
abspath => SUBSTR(p_xml_url,INSTR(p_xml_url,'/',1,3)),
data => BFILENAME (p_dir,SUBSTR(p_xml_url,INSTR(p_xml_url,'/',-1)+1))
COMMIT;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20003,'Error while registring xml file',TRUE);
END register_xml_file;
PROCEDURE delete_schema(p_schema_url VARCHAR2,p_xml_url VARCHAR2)
IS
BEGIN
DBMS_XDB.DELETERESOURCE(
abspath => SUBSTR(p_xml_url,INSTR(p_xml_url,'/',1,3))
DBMS_XDB.DELETERESOURCE(
abspath => SUBSTR(p_schema_url,INSTR(p_schema_url,'/',1,3))
DBMS_XMLSCHEMA.DELETESCHEMA(
schemaurl => p_schema_url,
delete_option => 4
COMMIT;
EXCEPTION
WHEN OTHERS THEN
NULL;
END delete_schema;
BEGIN
l_folders := SUBSTR(p_schema_url,
INSTR(p_schema_url,'/',1,3),
(INSTR(p_schema_url,'/',1,(LENGTH(p_schema_url)-LENGTH(REPLACE(p_schema_url,'/'))))-INSTR(p_schema_url,'/',1,3))+1
check_folders(l_folders);
delete_schema(p_schema_url,p_xmlfile_url);
register_xml_schema(p_schema_url,p_dir_name);
register_xml_file(p_xmlfile_url,p_dir_name);
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20004,'Error while working with XML Schema Structure',TRUE);
END register_xml;
BEGIN
register_xml('http://localhost:8080/public/demo/xsd/db_objects.xsd','http://localhost:8080/public/demo/xsd/db_objects.xml','XML_DIR');
END;
Thanks
Sandeep

Answer 1

I cannot help you, but i can say that I have the same your problem, everything works fine if i run in an anonymous block, while gettin insufficient privileges when run it in a store procedure.