2026-03-12 20:23:15

tpt/aot/06_self_deadlock.sql

@@ -0,0 +1,23 @@
+-- Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
+-- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
+
+SET TIMING ON
+
+DROP TABLE t_lock;
+CREATE TABLE t_lock AS SELECT * FROM dual;
+
+@pd enqueue_deadlock
+
+DECLARE
+    PROCEDURE p IS
+        PRAGMA AUTONOMOUS_TRANSACTION;
+        j VARCHAR2(100);
+    BEGIN
+        --UPDATE t_lock SET dummy = 'Z';
+        SELECT dummy INTO j FROM t_lock FOR UPDATE WAIT 6;
+    END;
+BEGIN
+    UPDATE t_lock SET dummy = 'Z';
+    p();
+END;
+/