declare
pragma exception_init( UNABLE_TO_LOCK_EXCEPTION, <номера на грешката за неуспешно заключване на ред>);
BEGIN
select 1 from tbl2 where id=100 for update nowait ;
exception when UNABLE_TO_LOCK_EXCEPTION then raise;
END;