Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Otros Compiladores e IDE-s COBOL > GnuCOBOL (OpenCOBOL)
GnuCOBOL (OpenCOBOL) El compilador OpenSource que ya tiene un IDE.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Manejo OCX impresora Fiscal Epson nueva generación fastpho PowerCOBOL (ActiveX, v4 - v11) 99 1 de agosto de 2020 01:37
[Sintaxis] Obtener la dirección de una función PowerCOBOL Kuk PowerCOBOL V3L10 (Win32) 5 11 de octubre de 2018 20:06
La nueva estrategia de la robótica Kuk Espacio "Offtop" 0 20 de abril de 2017 15:31
Motocicletas de nueva generación Kuk Espacio "Offtop" 0 24 de diciembre de 2016 14:24
[Noticia] Nueva versión RM/COBOL 12.13 Kuk RM/COBOL 3 14 de noviembre de 2016 11:30
Respuesta
 
Herramientas

  #1
Antiguo 7 de marzo de 2017, 15:24
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
20.05.2022 11:26
PROCEDURE DIVISION
Posts: 1.990
Enviado: 687
Recibido: 850
Soluciones: 100
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado 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



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 7 de marzo de 2017, 19:34
IDENTIFICATION DIVISION
Dasije
 Forero
ENVIRONMENT DIVISION
Avatar de Dasije
DATA DIVISION
noviembre 2015
Jerez De La Frontera (cádiz)
06.03.2022 16:04
PROCEDURE DIVISION
Posts: 182
Enviado: 1
Recibido: 79
Soluciones: 7
Reputación: 14
Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road
Predeterminado

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.


Empresa de desarrollo de aplicaciones en COBOL.

DASIJE INFORMATICA, S.L.
C/ TOMAS BRETON 20
11406 JEREZ DE LA FRONTERA
CADIZ

Teléfono : 956 11 21 11
Web: http://www.dasije.es / DASIJE INFORMATICA
E-m@il: clientes(@)dasije.es
Dasije no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
cobol , function , gnu cobol , gnucobol , inspect , open , opencobol , substitute


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 14:17.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.