Turn Autocommit off for JDBC Connection

Question

I'd like to control the commit for DBMS_XMLSave operations on my own instead of auto commit. The documentation says to "Turn Autocommit off for JDBC Connection", but I haven't found how to do that yet, any clues?

Answer 1

My apologies for how complicated this is, it was written to be a
generic xml processor for multiple tables. I narrowed it to one
table. It converts a long to clob, parses it, walks the dom to
find rows and processes each row. One InsertXML per row in the
XML.
CREATE OR REPLACE package whl_rtl_xml_pkg as
--Context definitions by table
HUDLINE_CTX_IND char(1) := 'N';
HUDLINE_Ctx DBMS_XMLSave.ctxType := null;
procedure accept_xml (in_long in long, out_sts out char, out_msg
out varchar2);
procedure updt_hudline(in_row_node in xmldom.DOMNode, in_clob
clob, out_sts out char, out_msg out varchar2);
procedure set_context(in_table_name in varchar2, out_sts out
char, out_msg out varchar2);
end whl_rtl_xml_pkg;
CREATE OR REPLACE package body whl_rtl_xml_pkg as
procedure accept_xml (in_long in long, out_sts out char, out_msg
out varchar2) is
begin
declare
-- Long to CLOB and Parse XML variables
v_in_clob clob; -- Entire long converted to clob
v_clob clob; -- One row written to clob from DOM
doc xmldom.domdocument; -- Parsed XML Document
v_long_lnth NUMBER;
v_nbr INTEGER := 500;
bbuf varchar2(500);
p xmlparser.parser;
retval xmldom.domdocument;
--LOANLOCK information
lock_list xmldom.DOMNodeList;
lock_node xmldom.DOMNODE;
lock_loan_nbr WHL_LOAN_TB.LOAN_NBR%TYPE;
lock_rcd_updt_ts WHL_LOAN_TB.RCD_UPDT_TS%TYPE;
lock_rcd_updt_user_id WHL_LOAN_TB.RCD_UPDT_USER_ID%TYPE;
V_RETURN char(2);
-- Rowset Info
rowset_nl xmldom.DOMNodeList;
rowset_len number;
rowset_node xmldom.DOMNode;
rowset_table varchar2(30);
-- Row Info
row_nl xmldom.DOMNodeList;
row_len number;
row_node xmldom.DOMNode;
-- General
v_table_name char(30);
v_time char(10);
v_ret_sts char(2);
v_ret_msg VARCHAR2(200);
function selected_nodes (in_xpath varchar2)
     return xmldom.domnodelist is
     retval xmldom.domnodelist;
begin
retval := xslprocessor.selectnodes (xmldom.makenode
(doc),in_xpath);
     RETURN retval;
end selected_nodes;
begin
--Connection.setAutoCommit(false);
v_long_lnth := length(in_long); -- Determine length of XML Input
-- Create Clob and convert long to CLOB
dbms_lob.createtemporary(v_in_clob,TRUE);
dbms_lob.createtemporary(v_clob,TRUE);
dbms_lob.write(v_in_clob,v_long_lnth,1,in_long);
-- Parse Clob, create DOM
p := xmlparser.newParser;
xmlparser.parseCLOB(p,v_in_clob);
doc := xmlparser.getDocument(p);
-- Loop through ROWSETS
rowset_nl := selected_nodes('/ROOT/ROWSET'); -- Find rowset
nodes
rowset_len := xmldom.getLength(rowset_nl);
for rs in 0..rowset_len-1 loop
rowset_node := xmldom.item(rowset_nl,rs);
rowset_table := xslprocessor.valueof
(rowset_node,'TABLE_NAME'); -- Determine which table the rowset
is for
-- set up context for this table
set_context(rtrim(rowset_table), v_ret_sts, v_ret_msg);
IF V_RET_STS != '00' THEN -- Update failed for row
     OUT_STS := '01';
     OUT_MSG:= 'WHL_RTL_TEMPLATE_SP ERROR from:'||rtrim
(v_ret_msg);
     RETURN;
END IF;
-- Loop through Row Nodes to process individual rows
row_nl := xslprocessor.selectnodes (rowset_node,'ROW');
row_len := xmldom.getLength(row_nl);
for i in 0..row_len-1 loop
row_node := xmldom.item(row_nl,i);
xmldom.writeToClob(row_node, v_clob);
-- DBMS_LOB.READ (v_clob, v_nbr, 1, Bbuf);
-- dbms_output.put_line(substr(bbuf,1,200));
-- Find elements of "ROW" -->Column Names needed for key
processing
     -- call function to process row for the table
     -- pulls column names needed and update row in database
as required
if rowset_table = 'WHL_HUDLINE_TB' then
     updt_hudline(row_node, v_clob, v_ret_sts, v_ret_msg);
          IF V_RET_STS != '00' THEN -- Update failed for
row
     OUT_STS := '01';
     OUT_MSG:= 'WHL_RTL_TEMPLATE_SP ERROR from:'||rtrim
(v_ret_msg);
          RETURN;
          END IF;
     end if;
end loop;
end loop;
-- Clean up
dbms_lob.FREETEMPORARY (v_in_clob);
dbms_lob.FREETEMPORARY (v_clob);
out_sts := '00';
out_msg := 'WHL_RTL_XML_PKG.ACCEPT_XML Finished without errors';
exception
when others then
out_sts := '99';
     out_msg := 'WHL_RTL_XML_PKG uncaught error:'|| SQLERRM;
end;
end accept_xml;
procedure updt_hudline(in_row_node in xmldom.DOMNode, in_clob
clob, out_sts out char, out_msg out varchar2) is
begin
declare
V_LOAN_NBR WHL_LOAN_TB.LOAN_NBR%TYPE;
V_HUDLINE_NBR WHL_HUDLINE_TB.HUDLINE_NBR%TYPE;
V_KEY_EXISTS NUMBER;
v_rows_updt number;
v_nbr number;
v_msg varchar2(200);
begin
v_loan_nbr := xslprocessor.valueof(in_row_node,'LOAN_NBR');
v_hudline_nbr := xslprocessor.valueof
(in_row_node,'HUDLINE_NBR');
select count(*) into v_key_exists from whl_hudline_tb
where loan_nbr = v_loan_nbr
and hudline_nbr = v_hudline_nbr;
if v_key_exists > 0 then
v_rows_updt := DBMS_XMLSave.updateXML
(hudline_Ctx,in_clob);
else
     v_rows_updt := DBMS_XMLSave.insertXML
(hudline_Ctx,in_clob);
     END IF;
     if v_rows_updt = 0 then -- Error no rows were inserted
or updated
out_sts := '01';
     out_msg := 'UPDT_HUDLINE - insert/update did not
update any rows for:'||V_LOAN_NBR||':'||
V_HUDLINE_NBR||':'||V_KEY_EXISTS;
else
out_sts := '00';
end if;
exception
when others then
-- get the original exception
DBMS_XMLQuery.getExceptionContent(HUDLINE_Ctx,v_nbr,
v_msg);
dbms_output.put_line('updt_hudline Exception caught ' ||
TO_CHAR(v_nbr)
|| out_msg );
out_sts := '99';
     out_msg := 'updt_hudline:'||v_msg;
end;
end updt_hudline;
procedure set_context(in_table_name in varchar2, out_sts out
char, out_msg out varchar2) is
begin
declare
v_nbr number;
v_msg varchar2(200);
begin
if in_table_name = 'WHL_HUDLINE_TB' then
if HUDLINE_CTX_IND = 'N' THEN -- Context has not been created
for the table
HUDLINE_Ctx := DBMS_XMLSave.newContext('WHL_HUDLINE_TB');
     DBMS_XMLSave.clearUpdateColumnList(HUDLINE_Ctx); -- To
test
     DBMS_XMLSave.clearKeyColumnList(HUDLINE_Ctx);
     DBMS_XMLSave.setKeyColumn(HUDLINE_Ctx,'LOAN_NBR');
     DBMS_XMLSave.setKeyColumn(HUDLINE_Ctx,'HUDLINE_NBR');
     DBMS_XMLSave.setCommitBatch(HUDLINE_Ctx, 0);
     HUDLINE_CTX_IND := 'Y';
END IF;
END IF;
out_sts := '00';
exception
when others then
-- get the original exception
DBMS_XMLQuery.getExceptionContent(HUDLINE_Ctx,v_nbr,
v_msg);
dbms_output.put_line('set_context Exception caught ' ||
TO_CHAR(v_nbr)
|| out_msg );
out_sts := '99';
     out_msg := 'set_context error:'||v_msg;
end;
end set_context;
end whl_rtl_xml_pkg;
procedure kim_test as
begin
declare
in_long long := '<ROOT>
<ROWSET>
<TABLE_NAME>WHL_HUDLINE_TB</TABLE_NAME>
     <ROW num="3">
          <LOAN_NBR>6000012</LOAN_NBR>
          <HUDLINE_NBR>104.3</HUDLINE_NBR>
          <HUDLINE_AMT>700</HUDLINE_AMT>
          <HUDLINE_PYMNT_MTHD_CD>A</HUDLINE_PYMNT_MTHD_CD>
          <HUDLINE_COMMENT_TXT>THIS IS A
COMMENT</HUDLINE_COMMENT_TXT>
     </ROW>
<ROW num="4">
          <LOAN_NBR>6000012</LOAN_NBR>
          <HUDLINE_NBR>104.4</HUDLINE_NBR>
          <HUDLINE_AMT>700</HUDLINE_AMT>
          <HUDLINE_PYMNT_MTHD_CD>A</HUDLINE_PYMNT_MTHD_CD>
          <HUDLINE_COMMENT_TXT>THIS IS A
COMMENT</HUDLINE_COMMENT_TXT>
</ROWSET>
</ROOT>';
out_err_sts char(2);
out_err_msg varchar2(200);
begin
WHL_rtl_xml_pkg.accept_xml (in_long, out_err_sts, out_err_msg);
dbms_output.put_line(out_err_msg);
end;
end;
Output from running it
SQL> edit
Wrote file afiedt.buf
1 delete from whl_hudline_tb
2* where loan_nbr = '6606665'
SQL> /
2 rows deleted.
SQL> commit;
Commit complete.
SQL> set serveroutput on
SQL> execute kim_test
WHL_RTL_XML_PKG.ACCEPT_XML Finished without errors
PL/SQL procedure successfully completed.
SQL> select loan_nbr, hudline_nbr, hudline_amt
2 from whl_hudline_tb
3 where loan_nbr = '6606665';
LOAN_NB HUDLIN HUDLINE_AMT
6606665 104.3 700
6606665 104.4 700
SQL> rollback;
Rollback complete.
SQL> select loan_nbr, hudline_nbr, hudline_amt
2 from whl_hudline_tb
3 where loan_nbr = '6606665';
LOAN_NB HUDLIN HUDLINE_AMT
6606665 104.3 700
6606665 104.4 700