主事务和自治事务在会话级共享上下文,上文给出了一个共享包中变量的例子,这里再描述临时表的情况。
首先看看会话级的临时表:
| SQL> CREATE GLOBAL TEMPORARY TABLE T_SESSION_STAT 2 (ID NUMBER, NAME VARCHAR2(100), VALUE NUMBER) 3 ON COMMIT PRESERVE ROWS; |
表已创建。
| SQL> CREATE OR REPLACE PROCEDURE P_TEST AS 2 BEGIN 3 INSERT INTO T_SESSION_STAT VALUES (1, 'P_TEST', 1); 4 FOR I IN (SELECT ID, NAME FROM T_SESSION_STAT) LOOP 5 DBMS_OUTPUT.PUT_LINE('ID:' || I.ID || ', NAME:' || I.NAME); 6 END LOOP; 7 END; 8 / |
过程已创建。
| SQL> CREATE OR REPLACE PROCEDURE P_TEST_AUTO AS 2 PRAGMA AUTONOMOUS_TRANSACTION; 3 BEGIN 4 INSERT INTO T_SESSION_STAT VALUES (2, 'P_TEST_AUTO', 1); 5 FOR I IN (SELECT ID, NAME FROM T_SESSION_STAT) LOOP 6 DBMS_OUTPUT.PUT_LINE('ID:' || I.ID || ', NAME:' || I.NAME); 7 END LOOP; 8 COMMIT; 9 END; 10 / |
过程已创建。
| SQL> SET SERVEROUT ON SQL> INSERT INTO T_SESSION_STAT VALUES (0, 'SQL', 1); |
已创建 1 行。
| SQL> EXEC P_TEST ID:0, NAME:SQL ID:1, NAME:P_TEST |
PL/SQL 过程已成功完成。
| SQL> EXEC P_TEST_AUTO ID:2, NAME:P_TEST_AUTO |
PL/SQL 过程已成功完成。
| SQL> EXEC P_TEST ID:0, NAME:SQL ID:1, NAME:P_TEST ID:2, NAME:P_TEST_AUTO ID:1, NAME:P_TEST |

