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

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