CREATE OR REPLACE PROCEDURE autonfail

IS

PRAGMA AUTONOMOUS_TRANSACTION;

BEGIN

DELETE FROM emp;

RAISE VALUE_ERROR;

COMMIT;

EXCEPTION

WHEN OTHERS THEN ROLLBACK TO out_here;

END;

/

BEGIN

SAVEPOINT out_here;

autonfail;

END;

/

/*======================================================================

| Supplement to the fifth edition of Oracle PL/SQL Programming by Steven

| Feuerstein with Bill Pribyl, Copyright (c) 1997-2009 O'Reilly Media, Inc.

| To submit corrections or find more code samples visit

| http://oreilly.com/catalog/9780596514464/

*/