http://sqle.ru/index.php?action=history&feed=atom&title=Oracle_PL%2FSQL_Tutorial%2FSystem_Packages%2Fdbms_aqadm
Oracle PL/SQL Tutorial/System Packages/dbms aqadm - История изменений
2026-04-07T04:49:49Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://sqle.ru/index.php?title=Oracle_PL/SQL_Tutorial/System_Packages/dbms_aqadm&diff=3308&oldid=prev
в 13:45, 26 мая 2010
2010-05-26T13:45:46Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 13:45, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://sqle.ru/index.php?title=Oracle_PL/SQL_Tutorial/System_Packages/dbms_aqadm&diff=3309&oldid=prev
Admin: 1 версия
2010-05-26T10:05:57Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>== dbms_aqadm.create_queue_table==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="sql"><br />
SQL><br />
SQL><br />
SQL> create or replace type myTable as object (<br />
2 msg_identifier VARCHAR2(25),<br />
3 msg_body VARCHAR2(100),<br />
4 msg_date DATE);<br />
5 /<br />
Type created.<br />
SQL><br />
SQL> BEGIN<br />
2 dbms_aqadm.create_queue_table(<br />
3 queue_table => "test_q_table",<br />
4 queue_payload_type => "myTable",<br />
5 comment => "Test Queue Table") ;<br />
6 dbms_aqadm.create_queue(<br />
7 queue_name => "test_q",<br />
8 queue_table => "test_q_table",<br />
9 comment => "Test Queue") ;<br />
10<br />
11 dbms_aqadm.start_queue("test_q");<br />
12<br />
13 END ;<br />
14 /<br />
PL/SQL procedure successfully completed.<br />
SQL></source><br />
<br />
<br />
<br />
== DBMS_AQADM.STOP_QUEUE==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="sql"><br />
SQL><br />
SQL><br />
SQL> create or replace type myTable as object (<br />
2 msg_identifier VARCHAR2(25),<br />
3 msg_body VARCHAR2(100),<br />
4 msg_date DATE);<br />
5 /<br />
<br />
SQL><br />
SQL> DECLARE<br />
2 v_msg myTable;<br />
3 v_deqopts DBMS_AQ.DEQUEUE_OPTIONS_T;<br />
4 v_msg_prop DBMS_AQ.MESSAGE_PROPERTIES_T;<br />
5 v_msgid RAW(16);<br />
6 dq_timeout EXCEPTION;<br />
7 PRAGMA EXCEPTION_INIT(dq_timeout, -25228) ;<br />
8<br />
9 BEGIN<br />
10 LOOP<br />
11 v_deqopts.wait := 1 ;<br />
12 DBMS_AQ.DEQUEUE(queue_name => "test_q",<br />
13 dequeue_options => v_deqopts,<br />
14 message_properties => v_msg_prop,<br />
15 payload => v_msg,<br />
16 msgid => v_msgid);<br />
17 DBMS_OUTPUT.PUT_LINE(v_msg.msg_identifier ||" Data: "<br />
18 ||v_msg.msg_body||" Date: "||v_msg.msg_date);<br />
19 END LOOP;<br />
20<br />
21 COMMIT ;<br />
22<br />
23 EXCEPTION<br />
24 WHEN dq_timeout THEN NULL ;<br />
25 END ;<br />
26 /<br />
Message 1 Data: test message data 1 Date: 24-JUL-08<br />
Message 2 Data: test message data 2 Date: 24-JUL-08<br />
Message 3 Data: test message data 3 Date: 24-JUL-08<br />
Message 4 Data: test message data 4 Date: 24-JUL-08<br />
Message 5 Data: test message data 5 Date: 24-JUL-08<br />
Message 6 Data: test message data 6 Date: 24-JUL-08<br />
Message 7 Data: test message data 7 Date: 24-JUL-08<br />
Message 8 Data: test message data 8 Date: 24-JUL-08<br />
Message 9 Data: test message data 9 Date: 24-JUL-08<br />
Message 10 Data: test message data 10 Date: 24-JUL-08<br />
PL/SQL procedure successfully completed.<br />
SQL><br />
SQL><br />
SQL> BEGIN<br />
2 DBMS_AQADM.STOP_QUEUE(queue_name => "test_q");<br />
3 DBMS_AQADM.DROP_QUEUE(queue_name => "test_q");<br />
4 DBMS_AQADM.DROP_QUEUE_TABLE(queue_table => "test_q_table");<br />
5 END;<br />
6 /<br />
PL/SQL procedure successfully completed.<br />
SQL><br />
SQL> drop type myTable ;<br />
Type dropped.<br />
SQL></source></div>
Admin