Post date: 01-Jun-2009 11:34:08
DECLARE
CURSOR lcobj_cur IS
select session_id
, oracle_username
, os_user_name
, object_id obj_id
, locked_mode
from V$LOCKED_OBJECT ;
CURSOR obj_cur(p_obj_id IN NUMBER) IS
select owner||'.'||object_name object_name
, object_type
from dba_objects
where object_id = p_obj_id;
BEGIN
DBMS_OUTPUT.PUT_LINE(RPAD('Sid',5)||
RPAD('O-User',10)||
RPAD('OS-User',10)||
RPAD('Owner.Object Name',45)||
RPAD('Object Type',35));
DBMS_OUTPUT.PUT_LINE(RPAD('-',1,'-')||
RPAD('-',6,'-')||
RPAD('-',6,'-')||
RPAD('-',41,'-')||
RPAD('-',31,'-'));
FOR lcobj IN lcobj_cur
LOOP
FOR obj IN obj_cur(lcobj.obj_id)
LOOP
DBMS_OUTPUT.PUT_LINE(RPAD(lcobj.session_id,5)||
RPAD(lcobj.oracle_username,10)||
RPAD(lcobj.os_user_name,10)||
RPAD(obj.object_name,45)||
RPAD(obj.object_type,35));
END LOOP;
END LOOP;
END;
/