2026-03-12 20:23:15
This commit is contained in:
root
305
tpt/gsqlmon.sql
Normal file
305
tpt/gsqlmon.sql
Normal file
@@ -0,0 +1,305 @@
|
||||
-- sqlmon.sql
|
||||
--
|
||||
-- Copyright 2015 Gluent Inc. All rights reserved
|
||||
--
|
||||
|
||||
-- Backup sqlplus session settings...
|
||||
-- ------------------------------------------------------------------------------------------
|
||||
set termout off
|
||||
store set sqlplus_session_settings.sql replace
|
||||
|
||||
-- Sqlmon session settings...
|
||||
-- ------------------------------------------------------------------------------------------
|
||||
set heading off pagesize 0 linesize 32767 trimspool on trimout on long 9999999 verify off longchunksize 9999999 feedback off
|
||||
set serverout on size unlimited
|
||||
set timing off autotrace off feedback off
|
||||
set define on
|
||||
|
||||
-- Parameters section...
|
||||
-- ------------------------------------------------------------------------------------------
|
||||
undefine _sid
|
||||
undefine _sql_id
|
||||
undefine _sql_exec_id
|
||||
undefine _sql_exec_start
|
||||
undefine _sql_exec_start_format
|
||||
undefine _get_mode
|
||||
undefine _sqlmon_call_formats
|
||||
undefine _report_name
|
||||
undefine _report_data
|
||||
undefine _report_warnings
|
||||
|
||||
column 1 new_value 1
|
||||
column 2 new_value 2
|
||||
column 3 new_value 3
|
||||
column 4 new_value 4
|
||||
SELECT NULL as "1"
|
||||
, NULL as "2"
|
||||
, NULL as "3"
|
||||
, NULL as "4"
|
||||
FROM dual
|
||||
WHERE 1=2;
|
||||
|
||||
set termout on
|
||||
prompt
|
||||
prompt ================================================================================
|
||||
prompt Gluent Augmented SQL Monitoring Report v2.9.0
|
||||
prompt Copyright 2015-2018 Gluent Inc. All rights reserved.
|
||||
prompt ================================================================================
|
||||
set termout off
|
||||
|
||||
column _sid new_value _sid
|
||||
column _sql_id new_value _sql_id
|
||||
column _sql_exec_id new_value _sql_exec_id
|
||||
column _sql_exec_start new_value _sql_exec_start
|
||||
column _get_mode new_value _get_mode
|
||||
|
||||
SELECT CASE
|
||||
WHEN sid IS NOT NULL
|
||||
THEN sid
|
||||
WHEN arg_one IS NOT NULL AND INSTR(arg_one, '=') = 0
|
||||
THEN arg_one
|
||||
ELSE 'NULL'
|
||||
END AS "_sid"
|
||||
, NVL(sql_id, 'NULL') AS "_sql_id"
|
||||
, NVL(sql_exec_id, 'NULL') AS "_sql_exec_id"
|
||||
, NVL(sql_exec_start, 'NULL') AS "_sql_exec_start"
|
||||
, UPPER(NVL(get_mode, 'NULL')) AS "_get_mode"
|
||||
FROM (
|
||||
SELECT REGEXP_SUBSTR(args, '(sid=)([^\|;]+)', 1, 1, 'i', 2) AS sid
|
||||
, REGEXP_SUBSTR(args, '(sql_id=)([^\|;]+)', 1, 1, 'i', 2) AS sql_id
|
||||
, REGEXP_SUBSTR(args, '(sql_exec_id=)([^\|;]+)', 1, 1, 'i', 2) AS sql_exec_id
|
||||
, REGEXP_SUBSTR(args, '(sql_exec_start=)([^\|;]+)', 1, 1, 'i', 2) AS sql_exec_start
|
||||
, REGEXP_SUBSTR(args, '(get=)([^\|;]+)', 1, 1, 'i', 2) AS get_mode
|
||||
, REGEXP_SUBSTR(arg_one, '[^;]+') AS arg_one
|
||||
FROM (
|
||||
SELECT q'[&1]' AS arg_one
|
||||
, q'[&1|&2|&3|&4]' AS args
|
||||
FROM dual
|
||||
)
|
||||
);
|
||||
|
||||
define _sql_exec_start_format = "YYYYMMDD_HH24MISS"
|
||||
|
||||
var sid NUMBER
|
||||
var sql_id VARCHAR2(30)
|
||||
var sql_exec_id NUMBER
|
||||
var sql_exec_start VARCHAR2(30)
|
||||
var get_mode VARCHAR2(10)
|
||||
var sql_message VARCHAR2(1000)
|
||||
|
||||
DECLARE
|
||||
v_sid NUMBER;
|
||||
v_sql_id VARCHAR2(13);
|
||||
v_sql_exec_id NUMBER;
|
||||
v_sql_exec_start DATE;
|
||||
v_get_mode VARCHAR2(10);
|
||||
v_sqlmon_call_formats VARCHAR2(1000);
|
||||
e_terminate EXCEPTION;
|
||||
BEGIN
|
||||
-- Parameter validations...
|
||||
BEGIN
|
||||
v_sid := &_sid;
|
||||
EXCEPTION
|
||||
WHEN VALUE_ERROR THEN
|
||||
:sql_message := q'{SQLMON-01: Invalid value for SID [&_sid]. Use a numeric literal or a USERENV/SYS_CONTEXT expression}';
|
||||
RAISE e_terminate;
|
||||
END;
|
||||
BEGIN
|
||||
v_sql_id := NULLIF(TRIM('&_sql_id'),'NULL');
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
:sql_message := q'{SQLMON-02: Invalid value for SQL_ID [&_sql_id]}';
|
||||
RAISE e_terminate;
|
||||
END;
|
||||
BEGIN
|
||||
v_sql_exec_id := TO_NUMBER(NULLIF('&_sql_exec_id','NULL'));
|
||||
EXCEPTION
|
||||
WHEN VALUE_ERROR THEN
|
||||
:sql_message := q'{SQLMON-03: Invalid value for SQL_EXEC_ID [&_sql_exec_id]. Use a numeric literal}';
|
||||
RAISE e_terminate;
|
||||
END;
|
||||
BEGIN
|
||||
v_sql_exec_start := TO_DATE(NULLIF(q'{&_sql_exec_start.}','NULL'), '&_sql_exec_start_format');
|
||||
EXCEPTION
|
||||
WHEN OTHERS THEN
|
||||
:sql_message := q'{SQLMON-04: Invalid value or format for SQL_EXEC_START [&_sql_exec_start]. Format must be &_sql_exec_start_format.}';
|
||||
RAISE e_terminate;
|
||||
END;
|
||||
BEGIN
|
||||
v_get_mode := NULLIF('&_get_mode','NULL');
|
||||
IF v_get_mode IS NOT NULL AND v_get_mode NOT IN (offload_tools.gc_latest, offload_tools.gc_longest_running) THEN
|
||||
RAISE VALUE_ERROR;
|
||||
END IF;
|
||||
EXCEPTION
|
||||
WHEN VALUE_ERROR THEN
|
||||
:sql_message := q'{SQLMON-09: Invalid value for GET mode. Valid values are LATEST or LONGEST}';
|
||||
RAISE e_terminate;
|
||||
END;
|
||||
IF (v_sid IS NOT NULL AND (v_sql_id IS NOT NULL OR v_sql_exec_id IS NOT NULL OR v_sql_exec_start IS NOT NULL))
|
||||
OR (v_sid IS NOT NULL AND v_get_mode IS NOT NULL)
|
||||
OR (v_get_mode IS NOT NULL AND (v_sql_id IS NOT NULL OR v_sql_exec_id IS NOT NULL OR v_sql_exec_start IS NOT NULL))
|
||||
OR (v_sid IS NULL AND v_sql_id IS NULL AND v_get_mode IS NULL)
|
||||
THEN
|
||||
RAISE e_terminate;
|
||||
END IF;
|
||||
-- Set parameter binds...
|
||||
:sid := v_sid;
|
||||
:sql_id := v_sql_id;
|
||||
:sql_exec_id := v_sql_exec_id;
|
||||
:sql_exec_start := TO_CHAR(v_sql_exec_start, '&_sql_exec_start_format');
|
||||
:get_mode := v_get_mode;
|
||||
EXCEPTION
|
||||
WHEN e_terminate THEN
|
||||
IF :sql_message IS NULL THEN
|
||||
v_sqlmon_call_formats := '1. @sqlmon.sql sid=[n]' || CHR(10) ||
|
||||
'2. @sqlmon.sql sid=userenv(''sid'')' || CHR(10) ||
|
||||
'3. @sqlmon.sql sid=sys_context(''userenv'',''sid'')' || CHR(10) ||
|
||||
'4. @sqlmon.sql sql_id=[s]' || CHR(10) ||
|
||||
'5. @sqlmon.sql sql_id=[s] sql_exec_id=[n] sql_exec_start=[&_sql_exec_start_format.]' || CHR(10) ||
|
||||
'6. @sqlmon.sql get=[latest|longest]';
|
||||
:sql_message := 'SQLMON-05: Invalid or missing parameters specified. Valid call formats are: ' || CHR(10) || '<pre>' || CHR(10) || v_sqlmon_call_formats || CHR(10) || '</pre>';
|
||||
END IF;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
-- Report generation...
|
||||
-- ------------------------------------------------------------------------------------------
|
||||
set termout on
|
||||
|
||||
prompt
|
||||
prompt Generating report...
|
||||
|
||||
set termout off
|
||||
|
||||
var report_name VARCHAR2(1000)
|
||||
var report_data REFCURSOR
|
||||
var report_warnings VARCHAR2(30)
|
||||
|
||||
DECLARE
|
||||
v_sid NUMBER := :sid;
|
||||
v_sql_id VARCHAR2(13) := :sql_id;
|
||||
v_sql_exec_id NUMBER := :sql_exec_id;
|
||||
v_sql_exec_start DATE := TO_DATE(:sql_exec_start, '&_sql_exec_start_format');
|
||||
v_get_mode VARCHAR2(10) := :get_mode;
|
||||
v_sql_message VARCHAR2(1000) := :sql_message;
|
||||
v_rep_warnings VARCHAR2(20) := ' (with warnings)';
|
||||
v_rep_invalid VARCHAR2(20) := '%invalid_inputs%';
|
||||
BEGIN
|
||||
IF v_sql_message IS NOT NULL OR (v_sid IS NULL AND v_sql_id IS NULL AND v_get_mode IS NULL) THEN
|
||||
:report_warnings := v_rep_warnings;
|
||||
:report_name := offload_tools.sqlmon_report_name( p_sid => NULL );
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT NVL(v_sql_message, 'SQLMON-06: Unknown error or invalid user-inputs detected')
|
||||
FROM dual;
|
||||
ELSIF v_sid IS NOT NULL THEN
|
||||
:report_name := offload_tools.sqlmon_report_name( p_sid => v_sid );
|
||||
IF :report_name NOT LIKE v_rep_invalid THEN
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT report_text
|
||||
FROM TABLE( offload_tools.sqlmon( p_sid => v_sid ))
|
||||
ORDER BY
|
||||
report_id;
|
||||
ELSE
|
||||
:report_warnings := v_rep_warnings;
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT 'SQLMON-07: Non-existent SID detected'
|
||||
FROM dual;
|
||||
END IF;
|
||||
ELSIF v_sql_id IS NOT NULL THEN
|
||||
:report_name := offload_tools.sqlmon_report_name( p_sql_id => v_sql_id,
|
||||
p_sql_exec_id => v_sql_exec_id,
|
||||
p_sql_exec_start => v_sql_exec_start );
|
||||
IF :report_name NOT LIKE v_rep_invalid THEN
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT report_text
|
||||
FROM TABLE( offload_tools.sqlmon( p_sql_id => v_sql_id,
|
||||
p_sql_exec_id => v_sql_exec_id,
|
||||
p_sql_exec_start => v_sql_exec_start ))
|
||||
ORDER BY
|
||||
report_id;
|
||||
ELSE
|
||||
:report_warnings := v_rep_warnings;
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT 'SQLMON-08: Non-existent SQL_ID or combination of SQL_ID, SQL_EXEC_ID and SQL_EXEC_START detected'
|
||||
FROM dual;
|
||||
END IF;
|
||||
ELSE
|
||||
:report_name := offload_tools.sqlmon_report_name( p_mode => v_get_mode );
|
||||
IF :report_name NOT LIKE v_rep_invalid THEN
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT report_text
|
||||
FROM TABLE( offload_tools.sqlmon( p_mode => v_get_mode ))
|
||||
ORDER BY
|
||||
report_id;
|
||||
ELSE
|
||||
:report_warnings := v_rep_warnings;
|
||||
OPEN :report_data
|
||||
FOR
|
||||
SELECT 'SQLMON-10: No monitored hybrid SQL statements detected for ' || v_get_mode || ' get mode'
|
||||
FROM dual;
|
||||
END IF;
|
||||
END IF;
|
||||
END;
|
||||
/
|
||||
|
||||
column _report_name new_value _report_name
|
||||
column _report_warnings new_value _report_warnings
|
||||
SELECT :report_name AS "_report_name"
|
||||
, :report_warnings AS "_report_warnings"
|
||||
FROM dual;
|
||||
|
||||
spool &_report_name
|
||||
print :report_data
|
||||
spool off
|
||||
|
||||
set termout on
|
||||
prompt
|
||||
prompt Report saved to &_report_name.
|
||||
prompt
|
||||
prompt ================================================================================
|
||||
prompt Gluent Augmented SQL Monitoring Report completed&_report_warnings..
|
||||
prompt ================================================================================
|
||||
prompt
|
||||
set termout off
|
||||
|
||||
-- Open the report...
|
||||
-- ------------------------------------------------------------------------------------------
|
||||
host open &_report_name
|
||||
|
||||
-- Restore sqlplus settings...
|
||||
-- ------------------------------------------------------------------------------------------
|
||||
@sqlplus_session_settings.sql
|
||||
|
||||
BEGIN
|
||||
:report_name := NULL;
|
||||
:report_data := NULL;
|
||||
:report_warnings := NULL;
|
||||
:sid := NULL;
|
||||
:sql_id := NULL;
|
||||
:sql_exec_id := NULL;
|
||||
:sql_exec_start := NULL;
|
||||
:get_mode := NULL;
|
||||
:sql_message := NULL;
|
||||
END;
|
||||
/
|
||||
|
||||
set termout on
|
||||
|
||||
undefine 1 2 3 4
|
||||
undefine _sid
|
||||
undefine _sql_id
|
||||
undefine _sql_exec_id
|
||||
undefine _sql_exec_start
|
||||
undefine _sql_exec_start_format
|
||||
undefine _get_mode
|
||||
undefine _sqlmon_call_formats
|
||||
undefine _report_name
|
||||
undefine _report_data
|
||||
undefine _report_warnings
|
||||
Reference in New Issue
Block a user