DB2Command cmd = new DB2Command("insert into xt (id,xmlcomment) valuse(?,?)", connection);
cmd.Paremetres.Add( 1 );
cmd.Parametres.Add(xmldoc.ToString() );
cmd.ExecuteNonQuery();

'-- замена в потоке одинарных ковычек на двойные
s_v=Replace(strm_xml.ReadText,Chr(039),Chr(034))

qry.SQL = |insert into DB_TEST (doc_id, doc_xml) |+_
|values(?doc_id?, ?doc_xml?)|
		
Call result.SetParameter (1, "'docid_new'")
Call result.SetParameter (3, "'" & s_v & "'")		
		
result.Execute

CREATE PROCEDURE INSERT_XML(IN P_DOC_ID VARCHAR( 10 ), IN P_DOC_XML XML ) 
      LANGUAGE SQL
BEGIN

      INSERT INTO JCOLOR.DB_TEST (doc_id, doc_xml)  values (P_DOC_ID , P_DOC_XML);
END

Call JCOLOR.INSERT_XML('id_new', '<h1>text</h1>')

Call JCOLOR.INSERT_XML('id_new', XMLPARSE(DAOCUMENT '<root><h1>text</h1></root>'))

-- <ScriptOptions statementTerminator="@" />

CREATE PROCEDURE INSERT_XML(IN P_DOC_ID VARCHAR( 10 ), IN P_DOC_XML XML ) 
      LANGUAGE SQL
BEGIN

      INSERT INTO JCOLOR.DB_TEST (doc_id, doc_xml)  values (P_DOC_ID , P_DOC_XML);
END@

CREATE PROCEDURE INSERT_XML(IN P_DOC_ID VARCHAR( 10 ), IN P_DOC_XML XML ) LANGUAGE SQL
BEGIN
      INSERT INTO JCOLOR.DB_TEST (doc_id, doc_xml)  values (P_DOC_ID , P_DOC_XML);
END

	-текст из потока, в котором делаю замену кавычек
	text_xml=Replace(strm_xml.ReadText,Chr( 039 ),Chr( 034 ))

	qry.SQL = |Call JCOLOR.DB_TEST('id_new', XMLPARSE(DOCUMENT ?doc_xml?))|

	Call result.SetParameter ( 1 , "'"& text_xml &"'")