删除用户下的队列名称及其队列表
BEGIN
FOR cur_rec IN (select name,queue_table from USER_QUEUES where queue_type='NORMAL_QUEUE')
LOOP
BEGIN
DBMS_AQADM.STOP_QUEUE(queue_name => cur_rec.name);
DBMS_AQADM.DROP_QUEUE(queue_name => cur_rec.name);
DBMS_AQADM.DROP_QUEUE_TABLE(queue_table => cur_rec.queue_table);
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ( 'FAILED: '
|| cur_rec.name
|| ' "'
|| cur_rec.queue_table
|| '"'
);
END;
END LOOP;
END;
参考文档:
https://docs.oracle.com/en/database/oracle/oracle-database/21/adque/index.html