DECLARE
   n1 NUMBER :=7369;
BEGIN
  SYS.DBMS_SCHEDULER.CREATE_JOB
    (
       job_name        => 'APPS.SCHE_JOB_TEST'
      ,start_date      => SYSDATE
      ,repeat_interval => 'FREQ=WEEKLY;BYDAY=SAT;BYHOUR=0'
      ,job_class       => 'DEFAULT_JOB_CLASS'
      ,job_type        => 'STORED_PROCEDURE'
      ,job_action      => 'APPS.DEL_EMP_PROC'
       ,number_of_arguments   =>1
      ,comments        => 'Run at 12 A.M.every Saturday'
    );
   DBMS_SCHEDULER.SET_JOB_ARGUMENT_VALUE (job_name            => 'SCHE_JOB_TEST',
                                          argument_position   => 1,
                                          argument_value      => n1);
  SYS.DBMS_SCHEDULER.ENABLE
    (name                  => 'APPS.SCHE_JOB_TEST');
END;
/

CREATE OR REPLACE PROCEDURE del_emp_proc
(p_empno NUMBER)
IS
v_sal NUMBER;
BEGIN
DELETE FROM EMPLOYEE WHERE EMPNO=P_EMPNO;
COMMIT;
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END;
/

JOBNAME		RECORDS_DELETED   JOB_START_TIME	JOB_END_TIME	    JOB_STATUS	ERROR_MSG
SCHE_JOB_TEST    1                02/02/2013 00:00:00  02/02/2013 00:05:00   completed  null

WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);

CREATE OR REPLACE PROCEDURE del_emp_proc
(p_deptno NUMBER)
IS
v_sal NUMBER;
BEGIN
DELETE FROM EMPLOYEE WHERE EMPNO=P_deptno;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
send_mail_proc(par1_val,par2_value....);
END;
/

PROCEDURE p_error
IS
  v_from        VARCHAR2(80) := 'scott@aol.com';
  v_subject     VARCHAR2(80) := 'refresh status';
  l_error_msg   VARCHAR2(200):='refresh failed.';
  l_success_msg VARCHAR2(200):='Refreshed successfully.';
  l_rcpt_list   VARCHAR2(20);
BEGIN
  l_rcpt_list:='miller@aol.com';
  BEGIN
    dbms_mview.REFRESH('mv_refresh');
    send_email(l_rcpt_list, v_from,v_subject,l_success_msg);
  EXCEPTION
  WHEN OTHERS THEN
    IF SQLCODE=-20000 THEN
      ERROR_LOG( v_package_name, 'error_track', 'Error while sending email.'||SQLCODE||sqlerrm, SYSTIMESTAMP );
    ELSE
      ERROR_LOG( v_package_name, 'error_track', 'Error while mv refreshing.'||SQLCODE||sqlerrm, SYSTIMESTAMP );
    END IF;
    BEGIN
      send_email(l_rcpt_list, v_from,v_subject,l_error_msg);
    EXCEPTION
    WHEN OTHERS THEN
      ERROR_LOG( v_package_name, 'error_track', 'Error while sending email.'||SQLCODE||sqlerrm, SYSTIMESTAMP );
    END;
  END;
END p_error;

PROCEDURE p_error
IS
  v_from        VARCHAR2(80) := 'scott@aol.com';
  v_subject     VARCHAR2(80) := 'refresh status';
  l_error_msg   VARCHAR2(200):='refresh failed.';
  l_success_msg VARCHAR2(200):='Refreshed successfully.';
  l_rcpt_list   VARCHAR2(20);
  l_status      NUMBER;
BEGIN
  l_rcpt_list:='miller@aol.com';
  BEGIN
    dbms_mview.REFRESH('mv_refresh');
    l_status:=1;
  EXCEPTION
  WHEN OTHERS THEN
    ERROR_LOG( v_package_name, 'error_track', 'Error while mv refreshing.'||SQLCODE||sqlerrm, SYSTIMESTAMP );
    l_status:=0;
    RAISE;
  END;
  BEGIN
    IF l_status=1 THEN
      send_email(l_rcpt_list, v_from,v_subject,l_success_msg);
    ELSE
      send_email(l_rcpt_list, v_from,v_subject,l_error_msg);
    END IF;
  EXCEPTION
  WHEN OTHERS THEN
    ERROR_LOG( v_package_name, 'error_track', 'Error while sending email.'||SQLCODE||sqlerrm, SYSTIMESTAMP );
    RAISE;
  END;
END;
END p_error;

DECLARE
  excpt1 exception;
  excpt2 exception;
  PRAGMA EXCEPTION_INIT (excpt2, -20000);
BEGIN
  ...
  RAISE excpt1; -- exception with no number
  ...
  <calling something that may raise -20000 error>
  ...
EXCEPTION
  WHEN excpt1 THEN ...
  WHEN excpt2 THEN ...
END;