Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   GnuCOBOL (OpenCOBOL) (https://www.cobolforo.es/forumdisplay.php?f=90)
-   -   [Sintaxis] Nueva función SUBSTITUTE (https://www.cobolforo.es/showthread.php?t=584)

Kuk 7 de marzo de 2017 16:24

Nueva función SUBSTITUTE
 
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

Código COBOL:
  1. DISPLAY
  2.     FUNCTION UPPER-CASE(
  3.         FUNCTION SUBSTITUTE(
  4.             "This is the orginal string.";
  5.             "original"; "new"; "string"; "text"
  6.         )
  7.     )
  8. END-DISPLAY

Dará como resultado:

Código:

THIS IS THE NEW TEXT.
Fuente: OpenCOBOL FAQ

Dasije 7 de marzo de 2017 20:34

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.


La franja horaria es GMT +2. Ahora son las 09:29.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.