Nueva función SUBSTITUTE

[Kuk]

Me ha parecido interesante la FUNCTION SUBSTITUTE que aparec en GnuCOBOL. El INSPECT de toda la vida no permite sustituciones de cadenas de caracteres de tamaños diferentes. En este caso sí es posible.

Aparentemente, el


DISPLAY
FUNCTION UPPER-CASE(
FUNCTION SUBSTITUTE(
"This is the orginal string.";
"original"; "new"; "string"; "text"
)
)
END-DISPLAY


Dará como resultado:


THIS IS THE NEW TEXT.


Fuente: OpenCOBOL FAQ (http://opencobol.add1tocobol.com/#how-complete-is-opencobol)

[Dasije]

En PowerCOBOL tuve dificultades para usar la función INSPECT para reemplazar textos para las variables de diferentes tamaños, como única solución, me hice un activex en visual-basic utilizando las intrucciones propias intercambiando valores.