Power Builder - ELIMINAR CARACTER "ENTER" DE BASE DATOS SYBASE

//Función de Reemplazar...

// f_reemplazar(a_texto,a_busca,a_cambia)

//	a_texto= string     ... el dato donde buscar.

//	a_busca= string  ... lo que va a buscar (en este caso NewLine (Hex=A, Dec=10)

//      a_cambia=string ... como lo va a dejar en este caso = cadena vacia...

integer a_ubica=0

// Entra a proceso si la cadena contiene datos...

  if len(a_texto)>0 then

// Busca la primera ocurrencia ...

   a_ubica=Pos(a_texto,a_busca)

// Unicamente entra al loop si encuentra ...

//if left(a_busca,1)='@' then Messagebox('f_reemplazar',string(a_ubica)) 

    do while a_ubica>0

// Reemplaza 

      a_texto=Replace(a_texto,a_ubica,len(a_busca),a_cambia);

// Se desplaza 'a_ubica' con longitud del reemplazo... 

// Ejemplo: reemplazar 'CALLE' por 'CALLEJON'

      a_ubica = a_ubica + len(a_cambia);

// Busca la siguiente ocurrencia y repite el ciclo si la hay...

      a_ubica=Pos(a_texto,a_busca,a_ubica)

	LOOP

  end if;

//if left(a_busca,1)='@' then Messagebox('f_reemplazar',a_texto) 

  return(a_texto)

//Ejecución del proceso...

string ls_texto   // Resultado del proceso..

// ls_columna = datos de la columna que quieras manejar...

ls_texto=f_reemplazar(ls_columna,'\xA','')