easiest way is to use temp-tables
define temp-table tt NO-UNDO
field name as character
index i0 is primary name.
do i = 1 to num-entries (cstr2)
create tt.
tt.name = entry(i,cstr2).
end.
var newstr as character.
for each tt:
display tt.name.
if newstr = "" then newstr = tt.name.
else newstr = newstr + ''," + tt.name.
end.