09.12.2012 Views

Advanced Queuing - Oracle

Advanced Queuing - Oracle

Advanced Queuing - Oracle

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

tkaqdocp.sql: Examples of Operational Interfaces<br />

/<br />

show errors;<br />

Rem now create a procedure to dequeue rush orders for shipment<br />

create or replace procedure get_rushtitles(consumer in varchar2) as<br />

deq_cust_data BOLADM.customer_typ;<br />

deq_book_data BOLADM.book_typ;<br />

deq_item_data BOLADM.orderitem_typ;<br />

deq_msgid RAW(16);<br />

dopt dbms_aq.dequeue_options_t;<br />

mprop dbms_aq.message_properties_t;<br />

deq_order_data BOLADM.order_typ;<br />

qname varchar2(30);<br />

no_messages exception;<br />

pragma exception_init (no_messages, -25228);<br />

new_orders BOOLEAN := TRUE;<br />

begin<br />

dopt.consumer_name := consumer;<br />

dopt.wait := 1;<br />

dopt.correlation := 'RUSH';<br />

IF (consumer = 'West_Shipping') THEN<br />

qname := 'WS.WS_bookedorders_que';<br />

ELSIF (consumer = 'East_Shipping') THEN<br />

qname := 'ES.ES_bookedorders_que';<br />

ELSE<br />

qname := 'OS.OS_bookedorders_que';<br />

END IF;<br />

WHILE (new_orders) LOOP<br />

BEGIN<br />

dbms_aq.dequeue(<br />

queue_name => qname,<br />

dequeue_options => dopt,<br />

message_properties => mprop,<br />

payload => deq_order_data,<br />

msgid => deq_msgid);<br />

deq_item_data := deq_order_data.items(1);<br />

deq_book_data := deq_item_data.item;<br />

dbms_output.put_line(' rushorder book_title: ' ||<br />

C-26 <strong>Oracle</strong>9i Application Developer’s Guide - <strong>Advanced</strong> <strong>Queuing</strong>

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!