Pl/SQL procedure runs successfully but no output generated

Hi All,
I really need help. My problem definition:
1. I have a database table "testcase" in oracle 10g which has a column "testdata" of type clob. "testdata" column has xml data in it. I want to fetch the value of taga <Match> under <Expected_After> tag, concatinate the values if more than one <Match> tag exists and later
insert this value into a column "EXPECTAFTER"  in the same DB table i.e "testcase".

2. I wrote a procedure to do the xml parsing and insertion of data into table which I is under procedure1 in the code snippet below.

3. I wrote a procedure to call the above procedure with "testdata" column value of each row.

4. The first procedure is called xml_proc and the second procedure is called tcupdate.

whne I run "Exec tcupdate", the procudure runs fine and say " PL/SQL Procedure ran successfully", but I don't get any result.

Any help is appreciated.

Procedure1:
 
CREATE OR REPLACE PROCEDURE HITOOLS2.xml_proc (p_xml IN CLOB,tid IN NUMBER) AS
      l_parser    dbms_xmlparser.Parser;
      l_doc       dbms_xmldom.DOMDocument;
      l_nl        dbms_xmldom.DOMNodeList;
      l_n         dbms_xmldom.DOMNode;
      
     
      
      
      l_expa VARCHAR2(100) :='';
      f_expa VARCHAR2(500) :='';
      
      
    BEGIN
 
      -- Create a parser.
      l_parser := dbms_xmlparser.newParser;
 
      -- Parse the document and create a new DOM document.
      dbms_xmlparser.parseClob(l_parser, p_xml);
      l_doc := dbms_xmlparser.getDocument(l_parser);
 
      -- Get a list of all the TABLE nodes in the document using the XPATH syntax.
      l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/Test/Expected_After/Match');
 
      -- Loop through the list and display the contents
      FOR cur_tab IN 0 .. dbms_xmldom.getLength(l_nl) - 1 LOOP
        l_n := dbms_xmldom.item(l_nl, cur_tab);
        
        --prc status and prc mode
 
        dbms_xslprocessor.valueOf(l_n,'text()',l_expa);
        
        f_expa := f_expa || ',' || l_expa;
        
      END LOOP;
      
      UPDATE TESTCASE SET EXPECTAFTER = f_expa where testcase_id = tid;
 
      -- Free resources.
      dbms_xmldom.freeDocument(l_doc);
      dbms_xmlparser.freeParser(l_parser);
    EXCEPTION
      WHEN OTHERS THEN
        dbms_xmldom.freeDocument(l_doc);
        dbms_xmlparser.freeParser(l_parser);
        RAISE;
    END;
/
 
-----------------------------------------------------------------------------------------------------------------
Procedure 2:
 
CREATE OR REPLACE PROCEDURE HITOOLS2.tcupdate AS
 
   cursor c is
    select testdata,testcase_id FROM TESTCASE;
 
BEGIN
   FOR r IN c loop
      xml_proc(r.testdata,r.testcase_id);
   END LOOP;
exception when others then
   dbms_output.put_line('error: '||sqlerrm);
END;
/

Select allOpen in new window