MINI MINI MANI MO

Rem
Rem $Header: rdbms/admin/catemini.sql /main/4 2014/02/20 12:45:41 surman Exp $
Rem
Rem catemini.sql
Rem
Rem Copyright (c) 2003, 2014, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      catemini.sql - emon notify initialization script
Rem
Rem    DESCRIPTION
Rem      creates queue used by emnotify, should be run as sys at db init time.
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem
Rem BEGIN SQL_FILE_METADATA
Rem SQL_SOURCE_FILE: rdbms/admin/catemini.sql
Rem SQL_SHIPPED_FILE: rdbms/admin/catemini.sql
Rem SQL_PHASE: CATEMINI
Rem SQL_STARTUP_MODE: NORMAL
Rem SQL_IGNORABLE_ERRORS: NONE
Rem SQL_CALLING_FILE: rdbms/admin/catpexec.sql
Rem END SQL_FILE_METADATA
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    surman      12/29/13 - 13922626: Update SQL metadata
Rem    surman      03/27/12 - 13615447: Add SQL patching tags
Rem    sgollapu    06/28/03 - Change agent from TAF to TAFTSM
Rem    abegueli    06/11/03 - abegueli_emnotify
Rem    abegueli    05/09/03 - Created
Rem

@@?/rdbms/admin/sqlsessstart.sql

REM  create a multiple consumer queue table and queue        

DECLARE
  multiple_found        EXCEPTION;
  PRAGMA                EXCEPTION_INIT(multiple_found, -24006);

BEGIN

   DBMS_AQADM.CREATE_NP_QUEUE(                        
           QUEUE_NAME      => 'srvqueue',                 
           MULTIPLE_CONSUMERS => TRUE);                    
EXCEPTION
  WHEN multiple_found THEN
    NULL;

END;
/

execute dbms_aqadm.start_queue ( queue_name              => 'SRVQUEUE');

REM Add subscribers to the multi-consumer queues 

DECLARE
  subscriber_exists     EXCEPTION;
  PRAGMA                EXCEPTION_INIT(subscriber_exists, -24034);
  subs                  SYS.AQ$_AGENT;

BEGIN

   subs := SYS.AQ$_AGENT('TAFTSM', NULL, NULL);
   DBMS_AQADM.ADD_SUBSCRIBER('srvqueue', subs);

EXCEPTION
  WHEN subscriber_exists THEN
    NULL;

END;
/

REM set the permissions for the queue

execute dbms_aqadm.grant_queue_privilege('DEQUEUE','SRVQUEUE','PUBLIC',TRUE);

@?/rdbms/admin/sqlsessend.sql