监控锁表

declare
v_sql varchar(500);
v_sql2 varchar(500);
v_date1 varchar(500);
v_date2 varchar(500);
begin

loop
v_date2:='2021-02-07 9:00:00';
v_sql:='INSERT INTO TEST.TT SELECT B.NAME,SF_GET_SESSION_SQL(C.SESS_ID) FULL_SQL,A.* FROM V$LOCK A,SYSOBJECTS B,V$SESSIONS C 
WHERE A.TABLE_ID=B.ID AND A.TRX_ID=C.TRX_ID AND BLOCKED=1;';
EXECUTE IMMEDIATE v_sql;
v_sql2:='select sysdate';
EXECUTE IMMEDIATE v_sql2 into v_date1;
if v_date1>v_date2 then
    return;
end if;
COMMIT;

end loop;
EXCEPTION
       WHEN OTHERS THEN NULL;
       PRINT 'ERROR';
END;