How to Inscribe all the error messages into a single package ??

Question

Hi,
I want to Inscribe all the error messages into a single package., and call the concern package from the exception block in every sp by passing the error code to that package, which will return the Concern error message to the calling Sp.,
Can any one help me out how to accomplish this ., ?
regards
Raja

Answer 1

I want to Inscribe all the error messages into a single package., Why do you want to inscribe all the messages in a package?
I would suggest you to store them in a table instead and you can write a functin to retrive the error messages required.
But if your requirement is for 'Package' then assuming that you store all the error messages in a table 'error_table' (say) following code may help you .
CREATE TABLE Error_Table (
  Error_Code VARCHAR2(10),
  Error_Desc VARCHAR2(1024));Now insert your error codes and descriptions in this table.
CREATE OR REPLACE PACKAGE pkg_Error_Handler
AS
  FUNCTION f_Get_Error_Message(p_Error_Code  Error_Table.Error_Code%TYPE) RETURN VARCHAR2;
END pkg_Error_Handler;/
CREATE OR REPLACE PACKAGE BODY pkg_Error_Handler
AS
  FUNCTION f_Get_Error_Message
       (p_Error_Code  Error_Table.Error_Code%TYPE)
  RETURN VARCHAR2
  IS
    lv_Error_msg  Error_Table.Error_desc%TYPE;
  BEGIN
    BEGIN
      SELECT Error_desc
      INTO   lv_Error_msg
      FROM   Error_Table
      WHERE  Error_Code = p_Error_Code;
    EXCEPTION
      WHEN No_Data_Found THEN
        lv_Error_msg := 'No such error code '
                        ||p_Error_Code
                        ||' defined in the system';
      WHEN OTHERS THEN
        lv_Error_msg := p_Error_Code;
    END;
    RETURN lv_Error_msg;
  END f_Get_Error_Message;
END pkg_Error_Handler;
/and you can call this packaged funtion from any exception block to get the error description.
Regards,
Abhijit.
N.B.: Code not tested