查看oracle数据是不是被锁

查看oracle数据是否被锁
select   substr(object_name,1,30),substr(os_user_name,1,20)   from   v$locked_object,user_objects
where   v$locked_object.object_id   =   user_objects.object_id