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/tpt/tools/collectors/plancap_collector.sql
+++ b/tpt/tools/collectors/plancap_collector.sql
@@ -0,0 +1,109 @@
+-- Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
+-- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
+
+CREATE OR REPLACE PACKAGE plancap_collector AS
+
+    PROCEDURE snap_data_files;
+    PROCEDURE snap_free_space;
+    PROCEDURE snap_segment_space;
+    PROCEDURE snap_service_stats;
+
+END plancap_collector;
+/
+
+CREATE OR REPLACE PACKAGE BODY plancap_collector AS
+
+    PROCEDURE snap_data_files AS
+    BEGIN
+        INSERT INTO plancap$data_files
+        SELECT 
+            sysdate 
+          , tablespace_name
+          , file_id
+          , SUM(bytes)
+          , SUM(blocks)
+          , relative_fno
+        FROM
+            dba_data_files
+        GROUP BY
+            sysdate, tablespace_name, file_id, relative_fno;
+        COMMIT;
+    END snap_data_files;
+
+    PROCEDURE snap_free_space AS
+    BEGIN
+        INSERT INTO plancap$free_space
+        SELECT 
+            sysdate 
+          , tablespace_name
+          , file_id
+          , SUM(bytes)
+          , SUM(blocks)
+          , relative_fno
+        FROM
+            dba_free_space
+        GROUP BY
+            sysdate, tablespace_name, file_id, relative_fno;
+        COMMIT;
+    END snap_free_space;
+
+    PROCEDURE snap_segment_space AS
+    BEGIN
+        INSERT INTO plancap$segment_space
+        SELECT 
+            sysdate 
+          , owner          
+          , segment_name   
+          , NVL(partition_name,'-') partition_name 
+          , segment_type
+          , tablespace_name   
+          , SUM(bytes)   bytes        
+          , SUM(blocks)  blocks  
+          , SUM(extents) extents       
+        FROM
+            dba_segments
+        GROUP BY
+            sysdate, owner, segment_name, NVL(partition_name,'-'), tablespace_name, segment_type;
+        COMMIT;
+    END snap_segment_space;
+
+
+    PROCEDURE snap_service_stats AS
+    BEGIN
+        INSERT INTO plancap$service_stats
+        WITH sq AS (
+            SELECT service_name,stat_name,value FROM v$service_stats
+        )
+        SELECT
+            sysdate
+          , a.service_name
+          , a.value DB_CPU
+          , b.value EXECUTE_COUNT
+          , c.value USER_COMMITS
+          , d.value USER_CALLS
+        FROM
+            sq a
+          , sq b
+          , sq c
+          , sq d
+        WHERE
+            a.service_name = b.service_name
+        AND b.service_name = c.service_name
+        AND c.service_name = d.service_name
+        AND a.stat_name = 'DB CPU'
+        AND b.stat_name = 'execute count'
+        AND c.stat_name = 'user commits'
+        AND d.stat_name = 'user calls';
+        COMMIT;
+    END;
+
+
+END plancap_collector;
+/
+
+SHOW ERR
+
+
+
+
+