Dbms_Output.Put_Line de uma coluna com datatype CLOB

[Anônimo]

Consegui mostrar o conteúdo de uma coluna do tipo objeto com o código abaixo:

— %%%%%%%%%%%%%%%%%%%%%%%%
— Created on 05/08/09 by João Corvetto
/*
* SQL> DESC teste_xml;
* Name Type Nullable Default Comments
* —– ———– ——– ——- ——–
* C_XML SYS.XMLTYPE Y
*/
DECLARE
— Local variables here
v_ds_xml CLOB;
BEGIN
— Coluna do tipo objeto.
— Para inserção, invocar o método CreateXML.
INSERT INTO teste_xml (c_xml)
VALUES ( SYS.XMLType.CreateXML (
‘
Rua K. Britto
1928
5
Jardim do Bosque
Touro Valente
XX
‘ ) );
— Mostrar o conteúdo de coluna XMLType
Dbms_LOB.CreateTemporary(v_ds_xml, TRUE, Dbms_LOB.Call);
— SYS_XMLAgg agrega todos os documentos XML
— Adiciona novo elemento default chamado ROWSET
SELECT SYS_XMLAgg(SYS_XMLGen(t1.c_xml)).GetClobVal()
INTO v_ds_xml
FROM teste_xml t1;
— Mostra o conteúdo; máximo de 255 bytes de comprimento
Dbms_Output.Put_Line ( SUBSTR(v_ds_xml,1,255) );
Dbms_LOB.FreeTemporary(v_ds_xml);

END;

— %%%%%%%%%%%%%%%%%%%%%%%%

TKS