For example:
DEF VAR i AS INT.
DEF VAR lv-temp AS CHAR.
DEF VAR cad AS CHAR INIT "one,two,three,four".
DEF TEMP-TABLE res FIELD r-field AS CHAR.
i = 1.
REPEAT:
lv-temp = ENTRY(i,cad,",") NO-ERROR.
IF ERROR-STATUS:ERROR THEN
LEAVE.
CREATE res.
ASSIGN...