Inserting xml from url to table

Question

What I need to do is to get the xml returned from a web service (complex type - dom style) and to insert it into a Database table trhough a plsql procedure. Then parsing the dom to get the single values (tag).
Anybody can help me?
Thank you
Davide

Answer 1

gave one example which worked for me in Oracle 8.1.7
I dont know whether u have seen my post ,,but here is the sample code again ,,which worked for me in an other manner.
CREATE OR REPLACE PACKAGE XRATESDLOAD AS
PROCEDURE XRATESDLOADP;
END XRATESDLOAD;
CREATE OR REPLACE PACKAGE BODY XRATESDLOAD AS
PROCEDURE XRATESDLOADP
IS
v_parser xmlparser.Parser;
v_doc xmldom.DOMDocument;
v_nl xmldom.DOMNodeList;
v_n xmldom.DOMNode;
TYPE tab_type IS TABLE OF CNA_XRATES_TEXT%ROWTYPE;
t_tab tab_type := tab_type();
BEGIN
-- Create a parser.
v_parser := xmlparser.newParser;
-- Parse the document and create a new DOM document.
xmlparser.parse(v_parser, 'http://www.xe.com/dfs/sample-gbp.xml');
v_doc := xmlparser.getDocument(v_parser);
-- Free resources associated with the Parser now it is no longer needed.
xmlparser.freeParser(v_parser);
-- Get a list of all the EMP nodes in the document using the XPATH syntax.
v_nl := xslprocessor.selectNodes(xmldom.makeNode(v_doc),'/xe-datafeed/currency');
dbms_output.put_line( 'Currency rates processed on '||to_char(sysdate, 'YYYY-MON-DD'));
-- Loop through the list and create a new record in a tble collection
-- for each EMP record.
FOR cur_emp IN 0 .. xmldom.getLength(v_nl) - 1 LOOP
v_n := xmldom.item(v_nl, cur_emp);
t_tab.extend;
-- Use XPATH syntax to assign values to he elements of the collection.
t_tab(t_tab.last).CURRENCY_SYMBOL := xslprocessor.valueOf(v_n,'csymbol');
t_tab(t_tab.last).CURRENCY_NAME := xslprocessor.valueOf(v_n,'cname');
t_tab(t_tab.last).CURRENCY_RATE := xslprocessor.valueOf(v_n,'crate');
-- t_tab(t_tab.last).mgr := TO_NUMBER(xslprocessor.valueOf(v_n,'MGR'));
-- t_tab(t_tab.last).hiredate := TO_DATE(xslprocessor.valueOf(v_n,'HIREDATE'), 'DD-MON-YYYY');
-- t_tab(t_tab.last).sal := TO_NUMBER(xslprocessor.valueOf(v_n,'SAL'));
-- t_tab(t_tab.last).comm := TO_NUMBER(xslprocessor.valueOf(v_n,'COMM'));
-- t_tab(t_tab.last).deptno := TO_NUMBER(xslprocessor.valueOf(v_n,'DEPTNO'));
END LOOP;
-- Insert data into the real EMP table from the table collection.
-- Form better performance multiple collections should be used to allow
-- bulk binding using the FORALL construct but this would make the code
-- too long-winded for this example.
FOR cur_emp IN t_tab.first .. t_tab.last LOOP
INSERT INTO CNA_XRATES_TEXT
(CURRENCY_SYMBOL,
CURRENCY_NAME,
CURRENCY_RATE)
VALUES
(t_tab(cur_emp).CURRENCY_SYMBOL,
t_tab(cur_emp).CURRENCY_NAME,
t_tab(cur_emp).CURRENCY_RATE);
END LOOP;
dbms_output.put_line( 'Currency rates inserted into CNA_XRATES_TEXT table on '||to_char(sysdate));
COMMIT;
-- Free any resources associated with the document now it
-- is no longer needed.
xmldom.freeDocument(v_doc);
END XRATESDLOADP;
END XRATESDLOAD;
/