你可以参考如下的查询：

SQL> create table t as select * from all_objects

2  /

Table created.

SQL> alter table t add constraint t_pk primary key(object_id)

2  /

Table altered.

SQL> exec dbms_stats.gather_table_stats(user,'t',cascade=>true)

PL/SQL procedure successfully completed.

SQL> update t set created = sysdate

2  where object_id = 116

3  /

1 row updated.

SQL> column type format a4

SQL> column name format a16

SQL> column table_name format a10

SQL> select type,name,id1,id2,lmode,

2         decode(type,'TM',(select object_name

3                            from dba_objects

4                           where object_id = id1)) table_name

5  from v$lock join v$lock_type using(type)

6  where sid = (select sid

7                from v$session

8               where audsid = userenv('sessionid'))

9    and type <> 'AE'

10  /

TYPE NAME                    ID1        ID2      LMODE TABLE_NAME

---- ---------------- ---------- ---------- ---------- ----------

TM   DML                   15955          0          3 T

TX   Transaction          262167       1177          6

SQL> column object_owner format a10

SQL> column object_name format a10

SQL> column locked_mode format a15

SQL> select b.session_id as sid,

2         a.owner as object_owner,

3         a.object_name,

4         decode(b.locked_mode, 0, 'None',

5                               1, 'Null (NULL)',

6                               2, 'Row-S (SS)',

7                               3, 'Row-X (SX)',

8                               4, 'Share (S)',

9                               5, 'S/Row-X (SSX)',

10                               6, 'Exclusive (X)',

11                               b.locked_mode) locked_mode

12  from   dba_objects a,

13         v$locked_object b

14  where  a.object_id = b.object_id

15  /

SID OBJECT_OWN OBJECT_NAM LOCKED_MODE

---------- ---------- ---------- ---------------

235 DJP01      T          Row-X (SX)

SQL>