XML insert from forms

Question

Hi Guys,
I have an xml file that I want to insert into a table using the database stored objects in Forms6i on Windows2000 server.
I am using Oracle 8i DB with XSU package.
My insert script is written in PL/SQL and saved as a stored procedure in the database.
My script is running fine if I call it from SQL Plus. However, if I call it from forms (as a stored procedure with input parameters) the script runs well for the first time and if run again, the whole application freezes and I have to suppress it with CTRL-ALT-DEL. Even if I enter another time, I can't access the stored procedure or run my script again.
The code I am using is the following:
declare
charString varchar2(80);
finalStr varchar2(4000) := null;
rowsp integer;
v_FileHandle UTL_FILE.FILE_TYPE;
begin
-- the name of the table as specified in our DTD
xmlgen.setRowsetTag('BILC_IMP_LC_MVTS');
-- the name of the data set as specified in our DTD
xmlgen.setRowTag('mappings');
-- for getting the output on the screen
dbms_output.enable(1000000);
-- open the XML document in read only mode
v_FileHandle := utl_file.fopen('E:\oracle\ora81\bin','okay.xml', 'r');
loop
BEGIN
     utl_file.get_line(v_FileHandle, charString);
exception
     when no_data_found then
     utl_file.fclose(v_FileHandle);
     exit;
END;
dbms_output.put_line(charString);
if finalStr is not null then
     finalStr := finalStr || charString;
else
     finalStr := charString;
end if;
end loop;
-- for inserting the XML data into the table
rowsp := xmlgen.insertXML('BILC_IMP_LC_MVTS',finalStr);
dbms_output.put_line('INSERT DONE '||TO_CHAR(rowsp));
xmlgen.resetOptions;
end;

Answer 1

Lets take for example you are having the response in following format
response := '<Response>
<r><name></name><r>
<r><name></name><r>
</Response>'
Convert it to XMLTYPE using the following
xml_type := XMLTYPE(response);
select extractvalue(xml_type,'/Response/r[1]/name') into result from dual;
'1' in [1] refers to the index of the similiar node.(r node)