Advanced Queuing - Oracle

Dequeue Features
COMMIT;
EXCEPTION
WHEN OTHERS THEN /* change to no data found */
/* First update for the order: */
INSERT INTO order_status_table(customer_order, status)
VALUES (order_msg, new_status);
COMMIT;
END;
END;
/
/* Dequeues message from 'QUEUE' for 'CONSUMER': */
CREATE OR REPLACE PROCEDURE DEQUEUE_MESSAGE(
queue IN VARCHAR2,
consumer IN VARCHAR2,
message OUT BOLADM.order_typ)
IS
dopt dbms_aq.dequeue_options_t;
mprop dbms_aq.message_properties_t;
deq_msgid RAW(16);
BEGIN
dopt.dequeue_mode := dbms_aq.REMOVE;
dopt.navigation := dbms_aq.FIRST_MESSAGE;
dopt.consumer_name := consumer;
dbms_aq.dequeue(
queue_name => queue,
dequeue_options => dopt,
message_properties => mprop,
payload => message,
msgid => deq_msgid);
commit;
END;
/
/* Monitor the queues in the customer service databse for 'time' seconds: */
CREATE OR REPLACE PROCEDURE MONITOR_STATUS_QUEUE(time IN NUMBER)
IS
agent_w_message aq$_agent;
agent_list dbms_aq.agent_list_t;
wait_time INTEGER := 120;
8-92 Oracle9i Application Developer’s Guide - Advanced Queuing