oralce 查询锁并生成解锁语句

select 'alter system kill session ''' || c.sid || '' || ',' || c.serial# ||
       ''';',
       a.object_id,
       a.session_id,
       b.object_name,
       c.*
  from v$locked_object a, dba_objects b, v$session c
 where a.object_id = b.object_id
   and a.session_id = c.sid(+)
   and schemaname = 'orcl'
 order by logon_time