oracle - 有没有一种快速的方法可以从 Oracle AQ 中清除异常队列？

Question

AQ$_MESSAGES_EXCEPTION首先我知道有这个问题:How to clear a queue in Oracle AQ但它没有答案。

我在 Oracle AQ 的异常队列中有很多消息 (500k)(我不知道过期的消息会移到另一个队列，所以我没有为这些消息创建消费者)。我现在需要的是能够快速删除这些消息。我读过通过删除清除队列表不是一个好主意，因为它可能导致不一致的状态。所以我整理了以下程序，但它只清除了大约 50 条消息/秒

EXECUTE dbms_aqadm.start_queue(queue_name => 'AQ$_MESSAGES_EXCEPTION', 
                               enqueue => FALSE, dequeue => TRUE);

DECLARE
   dequeue_options     DBMS_AQ.dequeue_options_t;
   message_properties  DBMS_AQ.message_properties_t;
   message_handle      RAW(16);
   message             SYS.AQ$_JMS_MESSAGE;
   no_messages         EXCEPTION;
   pragma exception_init (no_messages, -25228);
BEGIN
   dequeue_options.wait := DBMS_AQ.NO_WAIT;
   dequeue_options.navigation := DBMS_AQ.FIRST_MESSAGE;
   LOOP
   DBMS_AQ.DEQUEUE(
      queue_name          =>     'AQ$_MESSAGES_EXCEPTION',
      dequeue_options     =>     dequeue_options,
      message_properties  =>     message_properties,
      payload             =>     message,
      msgid               =>     message_handle);
  DBMS_OUTPUT.put_line ('Message: ' || message_handle || ' dequeued');
  END LOOP;
  EXCEPTION
    WHEN no_messages THEN
      DBMS_OUTPUT.put_line (' ---- NO MORE MESSAGES  ---- ');
    WHEN others then
      DBMS_OUTPUT.put_line ('Exception queue not started for dequeue.');
END;

/

考虑到它在数据库机器上运行，它看起来真的很慢。对于 50 万条消息，此过程大约需要三个小时。 我能以更有效的方式做到这一点吗？

编辑:

我从这里的链接尝试了 dequeue_array:http://www.oracle-developer.net/display.php?id=319但我无法创建表格，所以我试图创建一个数组来“存储”结果。这是我得到的:

DECLARE
    type messages_type  is varray(500) of SYS.AQ$_JMS_MESSAGE;
    messages            messages_type;
    dequeue_options     DBMS_AQ.dequeue_options_t;
    msg_properties      DBMS_AQ.message_properties_array_t;
    msg_ids             DBMS_AQ.MSGID_ARRAY_T;
    x_timeout           EXCEPTION;
    no_messages         EXCEPTION;
    dequeue_batch       PLS_INTEGER := 500;
    pragma exception_init (no_messages, -25228);
BEGIN        
    messages := messages_type();
    msg_properties := DBMS_AQ.MESSAGE_PROPERTIES_ARRAY_T();
    msg_properties.EXTEND(dequeue_batch);      
    msg_ids := DBMS_AQ.MSGID_ARRAY_T();   
    dequeue_options.wait := 5;   
LOOP
    DBMS_AQ.DEQUEUE_ARRAY(
    queue_name          =>     'AQ$_MESSAGES_EXCEPTION',
    dequeue_options     =>     dequeue_options,
    array_size          =>     dequeue_batch,
    message_properties_array  =>     msg_properties,
    payload_array             =>     messages,
    msgid_array               =>     msg_ids); 
...

我收到这个错误:

wrong number or types of arguments in call to 'DEQUEUE_ARRAY'

我认为问题出在消息数组中，但我不知道该怎么做才能使其正常工作。此外，根据 oracle doc( http://docs.oracle.com/cd/B19306_01/appdev.102/b14258/d_aq.htm#i1000850 )，应该还有另一个参数:

error_array               OUT  error_array_t

但是这个参数的解释是“Currently not implemented”。这是什么意思？可以不加吗？是否应该设置为空？这真的很令人困惑，谷歌在这里没有帮助:(

Answer 1

如果你真的想出列，你可以使用 dequeue_array(n) 函数。那应该快得多。

但是您提供的链接确实有解决方案:

-- purge queue
DECLARE
 po_t dbms_aqadm.aq$_purge_options_t;
BEGIN
  dbms_aqadm.purge_queue_table('MY_QUEUE_TABLE', NULL, po_t);
END;

否则，由于这个异常队列是自动创建的，我猜你可以把它扔掉，但我不确定这是否安全

BEGIN
  DBMS_AQADM.STOP_QUEUE(
     queue_name => 'demo_queue'
     );
  DBMS_AQADM.DROP_QUEUE(
     queue_name => 'demo_queue'
     );
  DBMS_AQADM.DROP_QUEUE_TABLE(
     queue_table => 'demo_queue_table'
     );
END;