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