[r100]: / branches / i-campbell / mqttsparkplugb / mqttsparkplugb / SparkplugB / Function Blocks / FB_Payload_1 / FB_Payload / Pool / ClaimNextFreeKey / svnobj  Maximize  Restore  History

Download this file

7 lines (6 with data), 1.7 kB 

1
2
3
4
5
6
IF KeysPoolFreeIndex <= UPPER_BOUND(KeysPool,1) THEN
	ClaimNextFreeKey := KeysPool[KeysPoolFreeIndex];
	KeysPoolFreeIndex := KeysPoolFreeIndex +1;
ELSE
	eError := ERROR.PayloadNotEnoughKeysPool;
END_IF