AQ XMLType : Example to Enqueue an XMLType message in 10g AQ

Question

I am looking for an example to enqueue a XMLType message in AQ oracle 10g version : I need the actual payload example,
When I enqueue a payload the queue rejects the message.
any Help would be appreciated
Thanks
stan

Answer 1

Create Queue Table
EXECUTE DBMS_AQADM.CREATE_QUEUE_TABLE (queue_table=> 'fraudxml_qtab', queue_payload_type => 'sys.XMLTYPE');
Create Queue
EXECUTE DBMS_AQADM.CREATE_QUEUE (queue_name => 'fraudxml_queue', queue_table => 'fraudxml_qtab');
EXECUTE DBMS_AQADM.START_QUEUE (queue_name => 'fraudxml_queue');
This is the Enqueue
SET TIMING ON
DECLARE
enqueue_options dbms_aq.enqueue_options_t;
indoc VARCHAR2(2000);
indomdoc dbms_xmldom.domdocument;
innode dbms_xmldom.domnode;
myParser dbms_xmlparser.Parser;
message_properties dbms_aq.message_properties_t;
message_handle RAW(16);
message sys.XMLTYPE;
BEGIN
FOR j IN 1 ..100000
loop
indoc := '<emp><name> Stan </name></emp>';
myParser := dbms_xmlparser.newParser;
dbms_xmlparser.parseBuffer(myParser, indoc);
indomdoc := dbms_xmlparser.getDocument(myParser);
message := XMLTYPE(indomdoc);
-- message := XMLTYPE('<test><name>Stan Kumar</name><ID>11111111</ID></test>');
dbms_aq.enqueue(queue_name => 'msg_queue',
enqueue_options => enqueue_options,
message_properties => message_properties,
payload => message,
msgid => message_handle);
COMMIT;
end loop;
END;