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

Download this file

12 lines (11 with data), 1.7 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
METHOD INTERNAL ClaimNextFreeRow : REFERENCE TO FB_PayloadRow
VAR_IN_OUT
	RowsPool         : ARRAY [*] OF FB_PayloadRow;
END_VAR
VAR_OUTPUT
IF RowsPoolFreeIndex <= UPPER_BOUND(RowsPool,1) THEN
	ClaimNextFreeRow := RowsPool[RowsPoolFreeIndex];
	RowsPoolFreeIndex := RowsPoolFreeIndex +1;
ELSE
	eError := ERROR.PayloadNotEnoughRowsPool;
END_IF