PL/SQL Parameterized Exceptions?

Question

I develop on the Oracle EBS platform and so I have to develop using multiple general purpose programming languages.  Mainly PL/SQL and Java but we also use Ruby and Korn Shell for example.  One thing I have trouble with in PL/SQL is exception handling.  I would really like to be able to provide additional information in an Exception in PL/SQL but don't know how to do so.  One way would be to define an exception with parameters.  Thus providing some slots to stick information into when raising an exception and then using the information when the exception is caught.  I've used raise_application_error that provides slots for a number and text but that's not really my idea of a good solution to this issue.  I like the Ruby Exception object approach myself that allows you to define the slots yourself via sub-classing an Exception class.  I've used OO PL/SQL successfully in certain solutions and I know it works but there are some serious shortcomings that make OO PL/SQL a bit of a no-mans land in my opinion so I think an Exception class in PL/SQL is probably not the way to go at this point but I could be wrong.  So I thought how about defining exceptions with parameters much like a procedure or function.  Is this coming or are there ways to provide additional information in an exception that you have used successfully?
Thank you

Answer 1

I got an error when I compiled your procedure
SQL> create or replace procedure myexception (v  number) is
  2    v1   emp.empno%type;
  3    begin
  4    select empno into v1 from emp where empno=v;
  5    exception when no_data_found then
  6    dbms_output.put_line('No data found');
  7    Do first thing----
  8    when too_many_rows then
  9    dbms_output.put_line('Too many rows');
10    Do second thing----
11    when others then
12    --Do third thing
13    end;
14    .
15   /
Warning: Procedure created with compilation errors.
SQL> sho err
Errors for PROCEDURE MYEXCEPTION:
LINE/COL ERROR
13/3     PLS-00103: Encountered the symbol "END" when expecting one of the
         following:
         begin case declare exit for goto if loop mod null pragma
         raise return select update while with <an identifier>
         <a double-quoted delimited-identifier> <a bind variable> <<
         close current delete fetch lock insert open rollback
         savepoint set sql execute commit forall merge pipe
SQL> create or replace procedure myexception (v  number) is
  2    v1   emp.empno%type;
  3  begin
  4    select empno into v1 from emp where empno=v;
  5  exception when no_data_found then
  6    dbms_output.put_line('No data found');
  7    Do first thing----
  8  when too_many_rows then
  9    dbms_output.put_line('Too many rows');
10    Do second thing----
11  when others then
12    --Do third thing
13 dbms_output.put_line(SQLERRM);
14  end;
15  /
Procedure created.
SQL>