Advanced Queuing - Oracle

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
dbms_output.put_line(’ **** NEXT ORDER **** ’);
dbms_output.put_line(’order_num: ’ ||
deq_order_data.orderno);
dbms_output.put_line(’ship_state: ’ ||
deq_cust_data.state);
END IF;
dbms_output.put_line(’ ---- next book ---- ’);
dbms_output.put_line(’ book_title: ’ ||
deq_book_data.title ||
Dequeue Features
A Sample Application Using AQ 8-67