2026-03-12 20:23:15

2026-03-12 21:23:47 +01:00
parent eab4b36eca
commit 93039b8489
3332 changed files with 699614 additions and 0 deletions
--- a/vg/queues.sql
+++ b/vg/queues.sql
@@ -0,0 +1,98 @@
+@@header
+
+/*
+*
+*  Author     : Vishal Gupta
+*  Purpose    : Search for Queues
+*  Parameters : 1 - owner         (% - wildchar, \ - escape char) , this could also be passed as OWNER.queue_name
+*               2 - Queue name    (% - wildchar, \ - escape char)
+*               3 - Where Clause
+*
+*  Revision History:
+*  ===================
+*  Date       Author        Description
+*  ---------  ------------  -----------------------------------------
+*  10-Aug-16  Vishal Gupta  Created
+*
+*/
+
+
+/************************************
+*  INPUT PARAMETERS
+************************************/
+UNDEFINE owner
+UNDEFINE queue_name
+UNDEFINE WHERECLAUSE
+
+DEFINE owner="&&1"
+DEFINE queue_name="&&2"
+DEFINE WHERECLAUSE="&&3"
+
+
+COLUMN  _owner           NEW_VALUE owner            NOPRINT
+COLUMN  _queue_name     NEW_VALUE queue_name      NOPRINT
+COLUMN  _subqueue_name  NEW_VALUE subqueue_name   NOPRINT
+COLUMN  _object_type     NEW_VALUE object_type      NOPRINT
+COLUMN  _object_status   NEW_VALUE object_status    NOPRINT
+
+set term off
+
+SELECT DECODE(UPPER('&&owner'),'','%','&&owner')                 "_owner"
+     , DECODE(UPPER('&&queue_name'),'','%','&&queue_name')       "_queue_name"
+FROM DUAL;
+
+SELECT CASE 
+           WHEN INSTR('&&owner','.') != 0 THEN SUBSTR(UPPER('&&owner'),1,INSTR('&&owner','.')-1) 
+           ELSE DECODE(UPPER('&&owner'),'','%',UPPER('&&owner')) 
+       END                                                          "_owner"
+     , CASE 
+           WHEN INSTR('&&owner','.') != 0 THEN SUBSTR(UPPER('&&owner'),INSTR('&&owner','.')+1) 
+           ELSE DECODE(UPPER('&&queue_name'),'','%',UPPER('&&queue_name')) 
+       END    "_queue_name"
+FROM DUAL;
+set term on
+
+
+PROMPT *****************************************************************
+PROMPT * O B J E C T S     L I S T  
+PROMPT * 
+PROMPT * Input Parameters 
+PROMPT *  - Owner          = '&&owner'
+PROMPT *  - Queue Name    = '&&queue_name'
+PROMPT *  - Where Clause   = '&&WHERECLAUSE'
+PROMPT *****************************************************************
+
+
+
+COLUMN queue                     HEADING "Queue"                        FORMAT a50
+COLUMN queue_type                HEADING "QueueType"                    FORMAT a15
+COLUMN retention                 HEADING "Retention|(sec)"              FORMAT a10
+COLUMN enqueue_enabled           HEADING "Enqueue|Enabled"              FORMAT a7
+COLUMN dequeue_enabled           HEADING "Dequeue|Enabled"              FORMAT a7
+COLUMN retry_delay               HEADING "Retry|Delay"                  FORMAT 999999
+COLUMN max_retries               HEADING "Max|Retries"                  FORMAT 999999
+COLUMN queue_table               HEADING "Queue Table"                  FORMAT a25
+COLUMN user_comment              HEADING "User Comment"                 FORMAT a25
+
+
+SELECT q.owner || '.' || q.name queue
+     , q.queue_type     
+     , q.enqueue_enabled
+     , q.dequeue_enabled
+     , q.retention
+     , q.retry_delay
+     , q.max_retries
+     , q.queue_table
+     , q.user_comment
+  FROM dba_queues q
+WHERE 1=1
+  AND q.owner LIKE '&&owner'
+  AND q.name  LIKE '&&queue_name'
+  &&WHERECLAUSE
+ORDER BY q.owner
+       , q.name  
+;
+
+
+@@footer
+