-- таблица блокировок
CREATE TABLE LOCKS(
  CLIENT_ID INTEGER NOT NULL,
  ITEM_ID INTEGER NOT NULL
);

CREATE UNIQUE INDEX IDX1 ON LOCKS(CLIENT_ID, ITEM_ID);

CREATE PROCEDURE READ_AND_INC(ITEM_ID INTEGER)
RETURNS(ITEM_NAME VARCHAR(48)) 
AS 
  DECLARE VARIABLE V_IDX INTEGER; 
  DECLARE VARIABLE V_NAME VARCHAR(40),
BEGIN
  SELECT FIRST 1 NM, TEK_IND + 1
  FROM NAMES
  WHERE ID = :ITEM_ID
  INTO :V_NAME, :V_IDX;

  UPDATE NAMES(TEK_IND)
  SET (:V_IDX)
  WHERE ID = :ITEM_ID;

  ITEM_NAME = :V_NAME || '-' || CAST(:V_IDX AS VARCHAR(8));
END;

-- на клиенте:

-- блокируем грязную серну
INSERT INTO LOCKS(CLIENT_ID, ITEM_ID)
VALUES (12345, 2); 
COMMIT; -- гарантирует уникальный замок

-- приватно инкрементируем серну по самые носороги
call READ_AND_INC...

-- беги, беги грязная серна, пока ещё можешь!
DELETE * FROM LOCKS
WHERE CLIENT_ID = 12345 AND ITEM_ID = 2;
COMMIT;

/*
-- на выходе из программы отпускаем всех неотпущенных животных
DELETE * FROM LOCKS
WHERE CLIENT_ID = 12345;
*/

CREATE UNIQUE INDEX IDX1 ON LOCKS(ITEM_ID);