>>>

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