查询正执行的procedure的session

SELECT 'alter system kill session '''||s.sid||','||s.serial#||''';',s.* FROM dba_ddl_locks a,v$session s
where a.name = upper('p_procedurename')
  and a.session_id = s.SID
;

alter system kill session '17,2315';