PL/SQL Oracle: Ejemplo con el uso del "Pragma Exception_Init"

exception_init.sql

Create Or Replace Procedure do_something(pevc_codbanco In Varchar2) Is
  row_locked Exception;
  Pragma Exception_Init(row_locked, -54); -- ORA-00054: recurso ocupado y obtenido con NOWAIT especificado o timeout vencido
Begin
  For cc In (Select codbanco From sfcp005t Where codbanco = pevc_codbanco For Update Nowait) Loop
    Exit;
  End Loop;
Exception
  When row_locked Then
    raise_application_error(-20001, 'this row is locked...', False);
    -- Raise Application with True show the ORA-00054
    -- Raise Application with False hide the ORA-00054
End do_something;