Eliminación de espacios en COBOL

benidrar -  
blux Mensajes publicados 5028 Fecha de registro   Estado Moderador Última intervención   -
Hola

¿Cómo eliminar los espacios a la derecha en una cadena de caracteres con COBOL?
por ejemplo 'abcd ' se convertiría en 'abcd'

Gracias.

7 respuestas

blux Mensajes publicados 5028 Fecha de registro   Estado Moderador Última intervención   3 455
 
Hola,

UNSTRING ... DELIMITED BY ALL SPACES INTO ...

Debería funcionar...

¡Hasta luego, Blux!
 "Los imbéciles se atreven a todo. Es incluso por eso que los reconocemos"
1
benidrar
 
Gracias, he intentado
pero aparentemente no funciona!
Siempre hay espacios
que quiero eliminar solo a la derecha
por ejemplo:
'DE SEVRES '
no eliminar el espacio entre 'de' y 'sevres'
Hasta luego
0
blux Mensajes publicados 5028 Fecha de registro   Estado Moderador Última intervención   3 455
 
Ok, así que en este caso, la única solución es redefinir tu zona de entrada en tabla:

05 toto ocurre 200.
10 str pic x.

mueve tavariable a toto.

Y luego haces un bucle que decremente i de 200 a 1 y pruebas x(i) hasta que x(i) sea diferente de espacio. Tan pronto como tu condición sea verdadera, copias la secuencia en otra variable (con 'string').

--
A+ Blux
 "Los tontos se atreven a todo. Es incluso por eso que los reconocemos"
0
KAIDI
 
Hola
Si a priori no sabes dónde poner los espacios, parece difícil!!
'DE SEVRES " ¿Cómo saber que hay que dejar el espacio entre DE y
SEVRES???
Una vez resuelto este problema, el resto está resuelto...
KAIDI
0
blux Mensajes publicados 5028 Fecha de registro   Estado Moderador Última intervención   3 455
 
Euh bien sí, dijo 'eliminar los espacios a la derecha'... ;-)

--
A+ Blux
 "Los idiotas, se atreven a todo. Es precisamente por eso que los reconocemos"
0
KAIDI
 
Non, "DE SEVRES" ne doit pas devenir "DESEVRES".
0
blux Mensajes publicados 5028 Fecha de registro   Estado Moderador Última intervención   3 455
 
No, solo quiere eliminar los espacios a la derecha...

--
A+ Blux
 "Los idiotas se atreven a todo. Es incluso por eso que los reconocemos"
0
KAIDI
 
solo puede hacerlo si conoce de antemano las palabras (o las longitudes) de las que debe eliminar los espacios.
0
benidrar
 
Hola,

¡les agradezco a todos por su ayuda tan valiosa!
0
claudius51 Mensajes publicados 1 Estado Miembro
 
hola

creo que hay que usar un occurs y probar el valor carácter por carácter

pero no hacer la supresión si val (I) = espacios y val (i + 1) no = espacios

cordialmente
0
blux Mensajes publicados 5028 Fecha de registro   Estado Moderador Última intervención   3 455 > claudius51 Mensajes publicados 1 Estado Miembro
 
Hace 3 años que el problema está resuelto...

--

A+ Blux
 "Los idiotas osan todo. Es incluso por eso que se les reconoce"
0