DECLARE
   e_1013 EXCEPTION;
   PRAGMA EXCEPTION_INIT(e_1013, -1013);
BEGIN
    BEGIN
          RAISE e_1013;
    EXCEPTION WHEN OTHERS THEN
          DBMS_OUTPUT.PUT_LINE('сюда не попадем');
    END;

EXCEPTION WHEN e_1013 THEN
    DBMS_OUTPUT.PUT_LINE('но попадем сюда');
END;
/

EXCEPTION WHEN e_1013 THEN
     dbms_lock.release ...
                 WHEN OTHERS THEN
     dbms_lock.release ...
END;

declare
   res number;
   hndl varchar2(2000);
begin
   dbms_lock.allocate_unique('dolbannaya_user_lock',
                             lockhandle      => hndl);
   --dbms_output.put_line(hndl);                            
   res := dbms_lock.request(hndl,
                            dbms_lock.x_mode,
                            timeout => 0);
   rollback;
   ROLLBACK;
   RoLlBaCk;
exception when others then
   rollback;                           
end;

declare
   res number;
   hndl varchar2(2000);
   pragma autonomous_transaction;
begin
   dbms_lock.allocate_unique('dolbannaya_user_lock',
                             lockhandle      => hndl);
   --dbms_output.put_line(hndl);                            
   res := dbms_lock.request(hndl,
                            dbms_lock.x_mode,
                            timeout => 0);
   rollback;
   ROLLBACK;
   RoLlBaCk;
exception when others then
   rollback;                           
end;

select * from sys.dbms_lock_allocated nm, v$lock lck where nm.name ='dolbannaya_user_lock' and nm.lockid=lck.id1;

declare
e_tst exception;
pragma exception_init(e_tst,-01013);
begin
  --dbms_output.put_line(sqlerrm(-10237));
  for ii in 1 .. 100 loop
    dbms_lock.sleep(5);
  end loop;
--exception when e_tst then null;
end;