I use the following code (which is a simplified version of what happen on a server) :
tstartfor I=1:1:N {
set test = ##class(Test.Test).%New()
set test.ID = I
do test.%Save() //create a "Exclusive_e->Delock" lock on ^Test.TestD(..)
}
hang 5tcommit//locks are removed hereTest.Test is a persistent class that inherit from %Persistent :
Class Test.Test Extends %Persistent
{
Property ID As%Integer [ Required ];
Index IDKEY On ID [ IdKey ];//...
}