ttsbegin; while select forupdate RContractTableUpdate where RContractTableUpdate.RContractNumber == RContractTable.RContractNumber && RContractTableUpdate.RecId != RContractTable.RecId { ... ... RContractTableUpdate.update(); } ttscommit;