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 05:46
[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
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad15.10.2019 07:24
PROCEDURE DIVISION
PostsPosts: 1.415
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 539
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, 19: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 Actividad30.09.2019 19:19
PROCEDURE DIVISION
PostsPosts: 163
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 70
Mejores respuestasSoluiones: 5
ReputaciónReputación: 10
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 10:28.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.