存储过程

Question

----查询ORACLE表是否被锁
select sid,serial#,t2.logon_time, t2.MACHINE, t2.username||'   '||t2.sid||'   '||t2.serial#||'   '||t2.logon_time||'   '||t3.sql_text
from v$locked_object t1,v$session t2,v$sqltext t3
where t1.session_id=t2.sid 
and t2.sql_address=t3.address
order by t2.logon_time;
----ORACLE表解锁
ALTER SYSTEM KILL SESSION '查出的SID,查出的SERIAL#';
写个存储过程，求帮助，小弟谢谢