Advanced Queuing - Oracle

Enqueuing and Dequeuing Of Messages
queue_name => ’msggroup_queue’);
/* Enqueue three messages in each transaction */
DECLARE
enqueue_options DBMS_AQ.enqueue_options_t;
message_properties DBMS_AQ.message_properties_t;
message_handle RAW(16);
message aq.message_typ;
BEGIN
/* Loop through three times, committing after every iteration */
FOR txnno in 1..3 LOOP
/* Loop through three times, enqueuing each iteration */
FOR mesgno in 1..3 LOOP
message := message_typ(’GROUP#’ || txnno,
’Message#’ || mesgno || ’ in group’ || txnno);
DBMS_AQ.ENQUEUE(queue_name => ’msggroup_queue’,
enqueue_options => enqueue_options,
message_properties => message_properties,
payload => message,
msgid => message_handle);
END LOOP;
/* Commit the transaction */
COMMIT;
END LOOP;
END;
/* Now dequeue the messages as groups */
DECLARE
dequeue_options DBMS_AQ.dequeue_options_t;
message_properties DBMS_AQ.message_properties_t;
message_handle RAW(16);
message aq.message_typ;
no_messages exception;
end_of_group exception;
PRAGMA EXCEPTION_INIT (no_messages, -25228);
PRAGMA EXCEPTION_INIT (end_of_group, -25235);
BEGIN
dequeue_options.wait := DBMS_AQ.NO_WAIT;
A-52 Oracle9i Application Developer’s Guide - Advanced Queuing