Download this file
1 2 3 4 5
ClaimNextFreeColumn := DataSetColumnsPool[DataSetColumnsPoolFreeIndex]; DataSetColumnsPoolFreeIndex := DataSetColumnsPoolFreeIndex +1; ELSE eError := ERROR.PayloadNotEnoughDataSetColumnsPool; END_IF