BUG : CLOB or XML.

Question

Hi! I was playing with XML and CLOB and I think I found a bug with clobs. I would like a DEV to try this.
=========================================================================================================
First, you create the following function :
=========================================================================================================
function clob_bug return clob
as
sdo mdsys.sdo_geometry := mdsys.sdo_geometry(123, 123, null, mdsys.sdo_elem_info_array(1, 2, 3), null);
xml sys.xmltype;
text clob;
str varchar2(32000);
begin
xml := xmltype.createXML(sdo);
text := xml.getClobVal();
-- This doesnt work.
return text;
-- But this will work. (But the XML text cannot exceed 32000 chars, or so);
-- str := text;
-- return str;
end;
=========================================================================================================
Then try the following VB.NET code.
=========================================================================================================
'Fill in the datasource.
Dim connection As New Oracle.DataAccess.Client.OracleConnection("User Id=SCOTT;Password=TIGER")
Try
connection.Open()
Dim cmd As Oracle.DataAccess.Client.OracleCommand = connection.CreateCommand()
cmd.CommandText = "SELECT CLOB_BUG() FROM DUAL"
Dim o As Object = cmd.ExecuteScalar()
Catch e As Oracle.DataAccess.Client.OracleException
Console.WriteLine(e.Message)
End Try
=========================================================================================================
Then you should get the following error :
"ORA-00000: normal, successful completion"
With an internal error code of -3000 (dont know what it means, but you guys should!).
Mathieu Gauthier
JCMB Technology Inc.

Answer 1

I found a much easier way to reproduce the bug. forget about the PL/SQL function.
Dim connection As New Oracle.DataAccess.Client.OracleConnection("User Id=SCOTT;Password=TIGER;")
Try
connection.Open()
Dim cmd As Oracle.DataAccess.Client.OracleCommand = connection.CreateCommand()
cmd.CommandText = "select SYS_XMLGEN(2).getclobval() from dual"
Dim o As Object = cmd.ExecuteScalar()
Catch e As Oracle.DataAccess.Client.OracleException
Console.WriteLine(e.Message)
End Try