SELECT * FROM DBA_DDL_LOCKS WHERE NAME =UPPER('存儲過程名')

select t.sid, t.serial# from v$session t 
where t.sid in (
SELECT distinct SESSION_ID FROM DBA_DDL_LOCKS WHERE NAME =UPPER('存儲過程名')
) 

alter system kill session 'XXX,XXX';