bcquality/microsoft/knowledge/performance/split-read-only-and-write-paths-to-avoid-locktable.good.al

codeunit 51204 "Perf Sample LockTable Good"
{
    procedure GetOrCreate(var AgentStatus: Record "Integer"): Boolean
    begin
        // Read path: consistent read on this record instance only.
        AgentStatus.ReadIsolation := IsolationLevel::ReadCommitted;
        if AgentStatus.Get(1) then
            exit(true);

        // Write path: lock only when we are about to insert.
        AgentStatus.LockTable();
        if not AgentStatus.Get(1) then begin
            AgentStatus.Number := 1;
            AgentStatus.Insert();
        end;
        exit(true);
    end;
}