Oracle 18c

By using db<>fiddle, you agree to license everything you submit by Creative Commons CC0.

CREATE TABLE table1 (col1 int);
CREATE PROCEDURE raise_error AS
BEGIN
  INSERT INTO table1 VALUES (1/0);
END;
/
BEGIN
  INSERT INTO table1 VALUES (1);
  raise_error();
END;
/
ORA-01476: divisor is equal to zero
ORA-06512: at "FIDDLE_QBYLLPNAZSOMRBOIJRHJ.RAISE_ERROR", line 3
ORA-06512: at line 3

COMMIT;
SELECT * FROM table1;
INSERT INTO table1 VALUES (1);
1 rows affected

DECLARE
  divide_by_zero EXCEPTION;
  PRAGMA EXCEPTION_INIT( divide_by_zero, -1476 );
BEGIN
  raise_error();
EXCEPTION
  WHEN DIVIDE_BY_ZERO THEN
    ROLLBACK;
END;
/
1 rows affected

SELECT * FROM table1;