Storing XML Data in a Table

Question

I wan to store some XML Data in a table. The sole purpose is to break the big XML in smaller chunks so that I only work with what I need to. I am a newbie at this so any help will be appreciated.
Sample XML:
<root>
   <row id="1">
      <node1>hello</node1>
      <node2>hola</node2>
   </row>
   <row id="2">
      <node1>hello</node1>
      <node2>hola</node2>
   </row>
</root>Expected Result in the table:
ID             Data
1             <row id="1"><node1>hello</node1><node2>hola</node2></row>
2             <row id="2"><node1>hello</node1><node2>hola</node2></row>My file is pretty big, so if I can do this with SQL Loader or another similar process it would be handy.
Thanks.

Answer 1

If anyone needs this by any chnace:
DECLARE
   PROCEDURE load_xml (
      p_dir        IN   VARCHAR2
    , p_filename   IN   VARCHAR2
   AS
      l_bfile           BFILE                       := BFILENAME (p_dir, p_filename);
      l_clob_xml        CLOB;
      l_xml_doc         DBMS_XMLDOM.domdocument;
      l_top_node        DBMS_XMLDOM.domnode;
      l_top_node_list   DBMS_XMLDOM.domnodelist;
      l_claim_node      DBMS_XMLDOM.domnode;
      l_attr_node       DBMS_XMLDOM.domnode;
      l_attr_map        DBMS_XMLDOM.domnamednodemap;
      l_clob_data       CLOB;
      l_claim_id        VARCHAR2 (500);
      l_root_node       DBMS_XMLDOM.domnode;
      l_new_node        DBMS_XMLDOM.domnode;
   BEGIN
      -- Open a file and store the data as CLOB
      DBMS_LOB.createtemporary (l_clob_xml, TRUE);
      DBMS_LOB.fileopen (l_bfile, DBMS_LOB.file_readonly);
      DBMS_LOB.loadfromfile (l_clob_xml
                           , l_bfile
                           , DBMS_LOB.getlength (l_bfile)
      DBMS_LOB.fileclose (l_bfile);
      -- Close file
      -- Create DOMDocument handle
      l_xml_doc := DBMS_XMLDOM.newdomdocument (l_clob_xml);
      l_top_node := DBMS_XMLDOM.makenode (DBMS_XMLDOM.getdocumentelement (l_xml_doc));
      l_top_node_list := DBMS_XMLDOM.getchildnodes (l_top_node);
      FOR x IN 0 .. DBMS_XMLDOM.getlength (l_top_node_list) - 1
      LOOP
         DBMS_LOB.createtemporary (l_clob_data, TRUE);
         l_claim_node := DBMS_XMLDOM.item (l_top_node_list, x);
         l_attr_map := DBMS_XMLDOM.getattributes (l_claim_node);
         l_attr_node := DBMS_XMLDOM.getnameditem (l_attr_map, 'id');
         l_claim_id := DBMS_XMLDOM.getnodevalue (l_attr_node);
         l_root_node := DBMS_XMLDOM.clonenode (n         => l_top_node, deep => FALSE);
         l_new_node := DBMS_XMLDOM.appendchild (n             => l_root_node, newchild => l_claim_node);
         DBMS_XMLDOM.writetoclob (l_root_node, l_clob_data);
--         DBMS_OUTPUT.put_line (l_claim_id);
--         DBMS_OUTPUT.put_line (l_clob_data);
--         DBMS_OUTPUT.put_line ('---------------------------');
         INSERT INTO temp_xml_test
                     (claim_id
                    , xml_doc
              VALUES (l_claim_id
                    , l_clob_data
         DBMS_LOB.freetemporary (l_clob_data);
      END LOOP;
      COMMIT;
      DBMS_LOB.freetemporary (l_clob_xml);
   EXCEPTION
      WHEN OTHERS
      THEN
         ROLLBACK;
         DBMS_OUTPUT.put_line (SQLCODE);
         DBMS_OUTPUT.put_line (SQLERRM);
         DBMS_LOB.freetemporary (l_clob_xml);
         DBMS_LOB.freetemporary (l_clob_data);
         RAISE;
   END;
BEGIN
   load_xml ('INPUT_DIR', 'Audit_082008.xml');
END;