0
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, elCOBOL Código:
DISPLAY FUNCTION UPPER-CASE( FUNCTION SUBSTITUTE( "This is the orginal string."; "original"; "new"; "string"; "text" ) ) END-DISPLAY
Dará como resultado:CODE Código:
THIS IS THE NEW TEXT.
Fuente: OpenCOBOL FAQ
Marcadores