auton_ddl.sql

来自「Oracle PLSQL for DBAs 源代码」· SQL 代码 · 共 33 行

REM Pass in -- for parameter to turn off autonomous transaction
REM Pass in /**/ to turn it on.

DROP TABLE temp_table;

CREATE OR REPLACE PROCEDURE execddl 
AUTHID CURRENT_USER
IS
   &1 PRAGMA AUTONOMOUS_TRANSACTION;                            
BEGIN
   EXECUTE IMMEDIATE 'create table temp_table (d date)';
END;
/

DROP TABLE emp_temp;

CREATE TABLE emp_temp AS SELECT * FROM emp;

SELECT COUNT (*)
  FROM emp_temp;

DELETE FROM emp_temp;

SELECT COUNT (*)
  FROM emp_temp;

EXEC execddl

ROLLBACK ;

SELECT COUNT (*)
  FROM emp_temp;