METHOD ClaimNextFreeKey : REFERENCE TO LinkedListWStringElement
VAR_OUTPUT
eError : ERROR;
END_VAR
VAR
pObject : POINTER TO LinkedListWStringElement;
initData : DummyData;
//Try and get an Object from the existing pool
KeysPool.ItterateNext( itfElement => _COL_Element,
HasNext => );
IF _COL_Element <> 0 THEN
IF __QUERYPOINTER( _COL_Element,
pObject ) THEN
ClaimNextFreeKey REF= pObject^;
ClaimNextFreeKey.WStringValue := "";
ELSE
eError := ERROR.PayloadNotACollectionOfStorage;
END_IF
ELSE
//No free object? No worries, we will just create one
//Better add it to the Pool and "itterate" it, so future generations of payload can use it
KeysPool.AppendElem(itfElement := ClaimNextFreeKey);
KeysPool.ItterateNext();
END_IF