Download this file
1 2 3 4 5 6
IF MetricsPoolFreeIndex <= UPPER_BOUND(MetricsPool,1) THEN ClaimNextFreeMetric := MetricsPool[MetricsPoolFreeIndex]; MetricsPoolFreeIndex := MetricsPoolFreeIndex +1; ELSE eError := ERROR.PayloadNotEnoughMetricsPool; END_IF