then - raise_application_error oracle

Oracle PL/SQL: aumenta la excepción definida por el usuario con SQLERRM personalizado

Question

¿Es posible crear excepciones definidas por el usuario y poder cambiar el SQLERRM?

Por ejemplo:

DECLARE
    ex_custom       EXCEPTION;
BEGIN
    RAISE ex_custom;
EXCEPTION
    WHEN ex_custom THEN
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
/

El resultado es "Excepción definida por el usuario". ¿Es posible cambiar ese mensaje?

EDITAR: Aquí hay más detalles.

Espero que este ilustre lo que trato de hacer mejor.

DECLARE
    l_table_status      VARCHAR2(8);
    l_index_status      VARCHAR2(8);
    l_table_name        VARCHAR2(30) := ''TEST'';
    l_index_name        VARCHAR2(30) := ''IDX_TEST'';
    ex_no_metadata      EXCEPTION;
BEGIN

    BEGIN
        SELECT  STATUS
        INTO    l_table_status
        FROM    USER_TABLES
        WHERE   TABLE_NAME      = l_table_name;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
            -- raise exception here with message saying
            -- "Table metadata does not exist."
            RAISE ex_no_metadata;
    END;

    BEGIN
        SELECT  STATUS
        INTO    l_index_status
        FROM    USER_INDEXES
        WHERE   INDEX_NAME      = l_index_name;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
            -- raise exception here with message saying
            -- "Index metadata does not exist."
            RAISE ex_no_metadata;
    END;

EXCEPTION
    WHEN ex_no_metadata THEN
        DBMS_OUTPUT.PUT_LINE(''Exception will be handled by handle_no_metadata_exception(SQLERRM) procedure here.'');
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
/

En realidad, hay docenas de esos subbloques. Me pregunto si hay una forma de hacer que una única excepción definida por el usuario para cada uno de esos subbloques se eleve, pero que proporcione un mensaje diferente, en lugar de crear una excepción separada definida por el usuario para cada subbloque.

En .NET, sería algo así como tener una excepción personalizada como esta:

    public class ColorException : Exception
    {
        public ColorException(string message)
            : base(message)
        {
        }
    }

Y luego, un método tendría algo como esto:

        if (isRed)
        {
            throw new ColorException("Red is not allowed!");
        }

        if (isBlack)
        {
            throw new ColorException("Black is not allowed!");
        }

        if (isBlue)
        {
            throw new ColorException("Blue is not allowed!");
        }

Answer 1

Normalmente pierdo la pista de todos mis códigos de error de tipo -20001 , así que intento consolidar todos mis errores de aplicación en un buen paquete como este:

SET SERVEROUTPUT ON

CREATE OR REPLACE PACKAGE errors AS
  invalid_foo_err EXCEPTION;
  invalid_foo_num NUMBER := -20123;
  invalid_foo_msg VARCHAR2(32767) := ''Invalid Foo!'';
  PRAGMA EXCEPTION_INIT(invalid_foo_err, -20123);  -- can''t use var >:O

  illegal_bar_err EXCEPTION;
  illegal_bar_num NUMBER := -20156;
  illegal_bar_msg VARCHAR2(32767) := ''Illegal Bar!'';
  PRAGMA EXCEPTION_INIT(illegal_bar_err, -20156);  -- can''t use var >:O

  PROCEDURE raise_err(p_err NUMBER, p_msg VARCHAR2 DEFAULT NULL);
END;
/

CREATE OR REPLACE PACKAGE BODY errors AS
  unknown_err EXCEPTION;
  unknown_num NUMBER := -20001;
  unknown_msg VARCHAR2(32767) := ''Unknown Error Specified!'';

  PROCEDURE raise_err(p_err NUMBER, p_msg VARCHAR2 DEFAULT NULL) AS
    v_msg VARCHAR2(32767);
  BEGIN
    IF p_err = unknown_num THEN
      v_msg := unknown_msg;
    ELSIF p_err = invalid_foo_num THEN
      v_msg := invalid_foo_msg;
    ELSIF p_err = illegal_bar_num THEN
      v_msg := illegal_bar_msg;
    ELSE
      raise_err(unknown_num, ''USR'' || p_err || '': '' || p_msg);
    END IF;

    IF p_msg IS NOT NULL THEN
      v_msg := v_msg || '' - ''||p_msg;
    END IF;

    RAISE_APPLICATION_ERROR(p_err, v_msg);
  END;
END;
/

Luego llame a errors.raise_err(errors.invalid_foo_num, ''optional extra text'') para usarlo, como tal:

BEGIN
  BEGIN
    errors.raise_err(errors.invalid_foo_num, ''Insufficient Foo-age!'');
  EXCEPTION
    WHEN errors.invalid_foo_err THEN
      dbms_output.put_line(SQLERRM);
  END;

  BEGIN
    errors.raise_err(errors.illegal_bar_num, ''Insufficient Bar-age!'');
  EXCEPTION
    WHEN errors.illegal_bar_err THEN
      dbms_output.put_line(SQLERRM);
  END;

  BEGIN
    errors.raise_err(-10000, ''This Doesn''''t Exist!!'');
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line(SQLERRM);
  END;
END;
/

produce esta salida:

ORA-20123: Invalid Foo! - Insufficient Foo-age!
ORA-20156: Illegal Bar! - Insufficient Bar-age!
ORA-20001: Unknown Error Specified! - USR-10000: This Doesn''t Exist!!

Answer 2

Puede usar RAISE_APPLICATION_ERROR así:

DECLARE
    ex_custom       EXCEPTION;
BEGIN
    RAISE ex_custom;
EXCEPTION
    WHEN ex_custom THEN
        RAISE_APPLICATION_ERROR(-20001,''My exception was raised'');
END;
/

Eso levantará una excepción que se ve así:

ORA-20001: My exception was raised

El número de error puede ser cualquier cosa entre -20001 y -20999.

Answer 3

Sí. Solo tiene que usar la función RAISE_APPLICATION_ERROR . Si también desea nombrar su excepción, deberá usar el pragma EXCEPTION_INIT para asociar el número de error a la excepción especificada. Algo como

SQL> ed
Wrote file afiedt.buf

  1  declare
  2    ex_custom EXCEPTION;
  3    PRAGMA EXCEPTION_INIT( ex_custom, -20001 );
  4  begin
  5    raise_application_error( -20001, ''This is a custom error'' );
  6  exception
  7    when ex_custom
  8    then
  9      dbms_output.put_line( sqlerrm );
 10* end;
SQL> /
ORA-20001: This is a custom error

PL/SQL procedure successfully completed.

Answer 4

create or replace PROCEDURE PROC_USER_EXP 
AS
duplicate_exp EXCEPTION;
PRAGMA EXCEPTION_INIT( duplicate_exp, -20001 );
LVCOUNT NUMBER;
BEGIN
  SELECT COUNT(*) INTO LVCOUNT FROM JOBS WHERE JOB_TITLE=''President'';
  IF LVCOUNT >1 THEN 
   raise_application_error( -20001, ''Duplicate president customer excetpion'' );
  END IF;

  EXCEPTION 
  WHEN duplicate_exp THEN 
  DBMS_OUTPUT.PUT_LINE(sqlerrm);
END PROC_USER_EXP;

Answer 5

declare
   z exception;

begin
   if to_char(sysdate,''day'')=''sunday'' then
     raise z;
   end if;

   exception 
     when z then
        dbms_output.put_line(''to day is sunday'');
end;