2026-03-12 20:23:15

tpt/kglbroken.sql

@@ -0,0 +1,42 @@
+-- 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.
+
+--------------------------------------------------------------------------------
+--
+-- File name:   kglbroken.sql
+-- Purpose:     
+-- Purpose:     Report broken kgl locks for an object this can be used for 
+--              identifying which sessions would get ORA-04068 "existing state 
+--              of packages has been discarded" errors due a change
+--              in some object definition (such pl/sql package recompilation)
+--
+-- Author:      Tanel Poder
+-- Copyright:   (c) http://www.tanelpoder.com
+--              
+-- Usage:       @kglbroken <owner> <object>
+--
+--
+--------------------------------------------------------------------------------
+
+
+select decode(substr(banner, instr(banner, 'Release ')+8,1), '1', 256,  1) kglbroken_flg 
+from v$version 
+where rownum = 1
+
+select 
+   sid,serial#,username,program 
+from 
+   v$session 
+where 
+   saddr in (select /*+ no_unnest */ kgllkuse 
+             from x$kgllk 
+             where 
+                 kglnahsh in (select /*+ no_unnest */ kglnahsh 
+                              from x$kglob 
+                              where 
+                                   upper(kglnaown) like upper('&1') 
+                              and  upper(kglnaobj) like upper('&2')
+                             ) 
+             and bitand(kgllkflg,256)=256
+   )
+/