Advanced Queuing - Oracle

tkaqdocp.sql: Examples of Operational Interfaces
end;
/
show errors;
grant execute on new_order_enq to OE;
grant execute on same_order_enq to OE;
Rem now create a procedure to get new orders by dequeuing
create or replace procedure get_new_orders as
deq_cust_data BOLADM.customer_typ;
deq_book_data BOLADM.book_typ;
deq_item_data BOLADM.orderitem_typ;
deq_msgid RAW(16);
dopt dbms_aq.dequeue_options_t;
mprop dbms_aq.message_properties_t;
deq_order_data BOLADM.order_typ;
qname varchar2(30);
no_messages exception;
end_of_group exception;
pragma exception_init (no_messages, -25228);
pragma exception_init (end_of_group, -25235);
new_orders BOOLEAN := TRUE;
begin
dopt.wait := 1;
dopt.navigation := DBMS_AQ.FIRST_MESSAGE;
qname := 'OE.OE_neworders_que';
WHILE (new_orders) LOOP
BEGIN
LOOP
BEGIN
dbms_aq.dequeue(
queue_name => qname,
dequeue_options => dopt,
message_properties => mprop,
payload => deq_order_data,
msgid => deq_msgid);
deq_item_data := deq_order_data.items(1);
deq_book_data := deq_item_data.item;
deq_cust_data := deq_order_data.customer;
IF (deq_cust_data IS NOT NULL) THEN
C-34 Oracle9i Application Developer’s Guide - Advanced Queuing