Download this file
1 2 3 4 5
ClaimNextFreeDataSetType := DataSetTypesPool[DataSetTypesPoolFreeIndex]; DataSetTypesPoolFreeIndex := DataSetTypesPoolFreeIndex +1; ELSE eError := ERROR.PayloadNotEnoughDataSetTypesPool; END_IF