Advanced Queuing - Oracle

end;
/
show errors;
tkaqdocp.sql: Examples of Operational Interfaces
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 ||
' quantity: ' || deq_item_data.quantity);
EXCEPTION
WHEN end_of_group THEN
dbms_output.put_line ('*** END OF ORDER ***');
commit;
dopt.navigation := DBMS_AQ.NEXT_TRANSACTION;
END;
END LOOP;
EXCEPTION
WHEN no_messages THEN
dbms_output.put_line (' ---- NO MORE NEW ORDERS ---- ');
new_orders := FALSE;
END;
END LOOP;
grant execute on get_new_orders to OE;
Rem Login into OE account
connect OE/OE;
set serveroutput on;
Rem
Rem Enqueue some orders using message grouping into OE_neworders_que
Rem
Rem First Order
execute BOLADM.new_order_enq('My First Book', 1, 1001, 'CA');
execute BOLADM.same_order_enq('My Second Book', 2);
commit;
/
Scripts for Implementing BooksOnLine C-35