запуск цикла по списку элементов, разделенных запятыми progress 4GL

def var cList as char no-undo.
assign cList = "one,two,three,four".
<Loop> cList
logic...
</Loop>

Как лучше всего пройтись по списку с разделителями-запятыми в переменной char, чтобы в этом примере я получить один, затем два, затем три, затем четыре.