Advanced Queuing - Oracle

tkaqdocp.sql: Examples of Operational Interfaces
end;
/
show errors;
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.country = 'Canada' OR
deq_cust_data.country = 'Mexico' ) THEN
dopt.dequeue_mode := dbms_aq.REMOVE_NODATA;
dopt.msgid := deq_msgid;
dbms_aq.dequeue(
queue_name => qname,
dequeue_options => dopt,
message_properties => mprop,
payload => deq_order_nodata,
msgid => deq_msgid);
C-28 Oracle9i Application Developer’s Guide - Advanced Queuing
dbms_output.put_line(' **** next booked order **** ');
dbms_output.put_line('order_no: ' || deq_order_data.orderno ||
' book_title: ' || deq_book_data.title ||
' quantity: ' || deq_item_data.quantity);
dbms_output.put_line('ship_state: ' || deq_cust_data.state ||
' ship_country: ' || deq_cust_data.country ||
' ship_order_type: ' || deq_order_data.ordertype);
END IF;
commit;
dopt.dequeue_mode := DBMS_AQ.LOCKED;
dopt.msgid := NULL;
dopt.navigation := dbms_aq.NEXT_MESSAGE;
EXCEPTION
WHEN no_messages THEN
dbms_output.put_line (' ---- NO MORE BOOKED ORDERS ---- ');
new_orders := FALSE;
END;
END LOOP;
grant execute on shipping_bookedorder_deq to WS;