Advanced Queuing - Oracle

Asynchronous Notifications
First define a PL/SQL procedure that will be invoked on notification.
connect ws/ws;
set echo on;
set serveroutput on;
-- notifyCB callback
create or replace procedure notifyCB(
context raw, reginfo sys.aq$_reg_info, descr sys.aq$_descriptor,
payload raw, payloadl number)
AS
dequeue_options DBMS_AQ.dequeue_options_t;
message_properies DBMS_AQ.message_properties_t;
message_handle RAW(16);
message BOLADM.order_typ;
BEGIN
-- get the consumer name and msg_id from the descriptor
dequeue_options.msgid := descr.msg_id;
dequeue_options.consumer_name := descr.consumer_name;
-- Dequeue the message
DBMS_AQ.DEQUEUE(queue_name => descr.queue_name,
dequeue_options => dequeue_options,
message_properties => message_properties,
payload => message,
msgid => message_handle);
END;
/
commit;
DBMS_OUTPUT.PUTLINE(’Received Order: ’ || message.orderno);
The PL/SQL procedure, e-mail address, and HTTP URL can be registered as
follows:
connect ws/ws;
set echo on;
set serveroutput on;
DECLARE
reginfo1 sys.aq$_reg_info;
reginfo2 sys.aq$_reg_info;
reginfo3 sys.aq$_reg_info;
reginfolist sys.aq$_reg_info_list;
8-104 Oracle9i Application Developer’s Guide - Advanced Queuing