ORA-04021: 等待对象锁超时

梦里梦外; 2022-07-11 08:16 209阅读 0赞

很多时候存储过程在跑，不巧编译了它，就会产生ORA-04021: 等待对象锁超时的错误。

**session1:**

create or replace procedure p\_test is                                          
begin                                                                          
  dbms\_lock.sleep(1000);                                                       
end;                                                                           
                                                                               
call p\_test();                                                                 
                                                                               
**session2:    **                                                                  
alter procedure p\_test compile;                                                
                                                                               
**session3:  **                                                                    
select \* from dba\_ddl\_locks where name='P\_TEST';                               
SESSION\_ID OWNER  NAME     TYPE                  MODE\_HELD    MODE\_REQU        
\---------- ------ ------- --------    --------------------- --------- -------  
       191 TEST   P\_TEST   Table/Procedure/Type  Null                 None     
       132 TEST   P\_TEST   Table/Procedure/Type  Exclusive            None     
select s.SID,s.SERIAL\# from v$session s where s.sid=191;                       
       SID    SERIAL\#                                                          
\---------- ----------                                                          
       191         14                                                          
alter system kill session '191,14';                                            
alter system kill session '191,14'                                             
\*                                                                              
第 1 行出现错误:                                                               
ORA-00031: 标记要终止的会话                                                    
                                                                               
SQL> select spid                                                               
    from gv$process p, gv$session s                                            
   where p.INST\_ID = s.INST\_ID                                                 
     and p.INST\_ID = 1                                                         
     and s.SID = 191                                                           
     and s.SERIAL\# = 14                                                        
     and p.ADDR = s.PADDR;                                                     
SPID                                                                           
\------------------------                                                       
7484                                                                           
                                                                               
linux:kill -9 7484                                                             
windows:orakill ora11 7484                                                     
                                                                               
也可以通过来验证                                                               
select  a.INST\_ID,                                                             
       'alter system kill session   ' || '''' || b.sid || ',' || b.SERIAL\# ||  
       ''';' kill\_command                                                      
  from gV$ACCESS a, gV$session b                                               
 where a.type = 'PROCEDURE'                                                    
   and a.OBJECT  in ('P\_TEST')                                                 
   and a.sid = b.sid                                                           
   and a.INST\_ID = b.INST\_ID;                                                  
                                                                               
select a.INST\_ID,'kill -9 '||p.SPID                                            
  from gV$ACCESS a, gV$session b,gv$process p                                  
 where a.type = 'PROCEDURE'                                                    
   and a.OBJECT  in ('P\_TEST')                                                 
   and a.sid = b.sid                                                           
   and p.ADDR = b.PADDR                                                        
   and a.INST\_ID = b.INST\_ID                                                   
   and b.INST\_ID = p.INST\_ID;