RDBMS PLSQL Program 28 Program to handle User named exception

DECLARE

   resource_busy_nowait   EXCEPTION;

   PRAGMA EXCEPTION_INIT (resource_busy_nowait, -00054);

   veno emp.eno%type;

   vename emp.ename%type;

BEGIN

   veno := '&veno';

   vename := '&vename';

   

   SELECT eno, ename into veno, vename

   FROM emp

   Where eno = veno

   FOR UPDATE NOWAIT;

  

   UPDATE emp SET ename = vename WHERE eno = veno;

EXCEPTION

   WHEN resource_busy_nowait THEN

        Dbms_output.Put_line('emp is locked - please try later');

END;

/