RDBMS PLSQL Program 29 Program to handle User defined exception

 SET serveroutput On

DECLARE 

   veno emp.eno%type; 

   vename emp.ename%type; 

   ex_invalid_no  EXCEPTION; 

BEGIN 

   veno := '&veno';

   IF substr(veno,1,1) <> 'E' THEN 

      RAISE ex_invalid_no; 

   ELSE 

      SELECT  ename INTO  vename 

      FROM emp

      WHERE eno = veno;

      DBMS_OUTPUT.PUT_LINE ('Name: '||  vename);  

   END IF; 

EXCEPTION 

   WHEN ex_invalid_no THEN 

      dbms_output.put_line('ID must start with E'); 

END; 

/