 CREATE OR REPLACE PROCEDURE raise_app_error (inval NUMBER) IS
  evenno EXCEPTION;
  oddno  EXCEPTION;
 BEGIN
   IF MOD(inval, 2) = 1 THEN
     RAISE oddno;
   ELSE
     RAISE evenno;
   END IF;
 EXCEPTION
   WHEN evenno THEN
     RAISE_APPLICATION_ERROR(-20001, 'Even Number Entered');
   WHEN oddno THEN
     RAISE_APPLICATION_ERROR(-20999, 'Odd Number Entered');
 END raise_app_error;
/
