Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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.
Noticias y Avisos
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) 82 28 de agosto de 2019 06:46
[Sintaxis] Obtener la dirección de una función PowerCOBOL Kuk PowerCOBOL V3L10 (Win32) 5 11 de octubre de 2018 21:06
La nueva estrategia de la robótica Kuk Espacio "Offtop" 0 20 de abril de 2017 16:31
Motocicletas de nueva generación Kuk Espacio "Offtop" 0 24 de diciembre de 2016 15:24
[Noticia] Nueva versión RM/COBOL 12.13 Kuk RM/COBOL 3 14 de noviembre de 2016 12:30
Respuesta
 
Herramientas

  #1
Antiguo 7 de marzo de 2017, 16:24
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad11.12.2019 23:28
PROCEDURE DIVISION
PostsPosts: 1.428
Ha dicho GraciasEnviado: 319
Ha recibido agradecimientosRecibido: 547
Mejores respuestasSoluiones: 87
ReputaciónReputació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 - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 7 de marzo de 2017, 20:34
IDENTIFICATION DIVISION
Dasije
Novato Senior
ENVIRONMENT DIVISION
Avatar de Dasije
DATA DIVISION
Forero desde (Registrado)noviembre 2015
Reino Unido
UbicaciónJerez De La Frontera (cádiz)
Última Actividad03.11.2019 23:38
PROCEDURE DIVISION
PostsPosts: 163
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 70
Mejores respuestasSoluiones: 5
ReputaciónReputación: 11
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 23:40.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.