How to output CLOB/XML?

Question

The stored procedure is this,
BEGIN
queue_options.dequeue_mode := DBMS_AQ.browse;
queue_options.consumer_name := NULL;
queue_options.msgid := msg_id;
DBMS_AQ.dequeue (queue_name => 'AQ$_TEST',
dequeue_options => queue_options,
message_properties => message_properties,
payload => my_message,
msgid => message_id
DBMS_OUTPUT.ENABLE (100000);
DBMS_OUTPUT.put_line ('Dequeued message id is ' || RAWTOHEX (message_id));
DBMS_OUTPUT.put_line (SUBSTR (my_message.text_lob, 256, 255));
npos := 1;
c_noutputlimit := 255;
WHILE (npos <= LENGTH (my_message.text_lob))
LOOP
DBMS_OUTPUT.put_line (SUBSTR (my_message.text_lob, npos, c_noutputlimit));
npos := npos + c_noutputlimit;
END LOOP;
COMMIT;
END aqdequeue;
The procedure is to print the contents of an Oracle AQ message. The message is a XML message. The problem I have is that I am using DBMS_OUTPUT to print the message, but it is limited to 255 characters. I got around that limitation by getting substrings of the XML message in a loop. I still have a problem because each DBMS_OUTPUT is producing a linefeed each time it is called. Any solutions that would allow me to display the XML in the correct format?

Answer 1

Never mind. I got the solution. To search chr(10) with instr() and break lines from there.