%RegisteredObject APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk 1 %Integer Werkstuk:APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk,SplitsPerAantal:%Integer 1 1 %Status 1 TECH.Iterator ELEMENTTYPE="APPS.Halux.PPS.ALUFrees.dto.Werkstuk" GesplitsteAantallen:%ListOfDataTypes %ListOfObjects Splitst aantallen volgens het gekozen algoritme 1 %ListOfDataTypes GesplitsteAantal:%Integer 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk Splitst bvb. 13 in 5+5+3 AantalTeSplitsen:%Integer 1 %ListOfDataTypes SplitsPerAantal) { Do GesplitsteAantallen.Insert(SplitsPerAantal) Set AantalTeSplitsen=AantalTeSplitsen-SplitsPerAantal } If AantalTeSplitsen>0 { Do GesplitsteAantallen.Insert(AantalTeSplitsen) } Quit GesplitsteAantallen ]]> Splitst bvb. 13 in 5+4+4 AantalTeSplitsen:%Integer 1 %ListOfDataTypes