>>>>

lcString="ABC,DEF,GHI,JKL"
>>>>lcString2=""
>>>>x=0
>>>>do while x<len(m.lcString)
>>>>  x=m.x+1
>>>>  IF SUBSTR(m.lcString,m.x,1)<>","
>>>>    lcString2=m.lcString2+substr(m.lcString,m.x,1)
>>>>  ENDIF
>>>>enddo X
>>>>?m.lcString2

>>>
>>>Why not just:
>>>
>>>

>>>lcString="ABC,DEF,GHI,JKL"
>>>lcString2 = STRTRAN(m.lcString, ',', '')
>>>?lcString2
>>>

>>
>>Why use STRTRAN to do the job of CHRTRAN?
>
>There is more then one way to skin the fox.
>

>lcString="ABC,DEF,GHI,JKL"
>lcString2 = lcString
>Do While Occurs(',',lcString2)>0
>	lcString2 = Substr(lcString2,1,At(',',lcString2)-1)+Substr(lcString2,At(',',lcString2)+1)
>Enddo &&OCCURS(',',lcString2)>0
>?lcString2
>

>or
>

>lcString="ABC,DEF,GHI,JKL"
>lcString2 = lcString
>Do While Occurs(',',lcString2)>0
>	lcString2 = STUFF(lcString2,At(',',lcString2),1,'')
>Enddo &&OCCURS(',',lcString2)>0
>?lcString2
>

>edit:
>or
>

>lcString="ABC,DEF,GHI,JKL"
>lcString2 = lcString
>FOR i = Occurs(',',lcString2) TO 1 STEP -1
>	lcString2 = STUFF(lcString2,At(',',lcString2,i),1,'')
>endfor
>?lcString2
>

If I were going to use a loop, I'd parse first with ALINES() and then process the elements. In this case, that's more work than needed.

Tamar