Download this file
1 2 3 4 5
ClaimNextFreePropertySet := PropertySetsPool[PropertySetsPoolFreeIndex]; PropertySetsPoolFreeIndex := PropertySetsPoolFreeIndex +1; ELSE eError := ERROR.PayloadNotEnoughPropertySetsPool; END_IF