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 > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Tamaño y formato de Icono Gatomalo PowerCOBOL V3L10 (Win32) 2 16 de marzo de 2017 23:02
[Información] Tamaño de campo Josber PowerFORM 2 16 de diciembre de 2015 18:47
[Información] Tamaño de pantalla Roger PowerCOBOL (ActiveX, v4 - v11) 4 12 de julio de 2015 22:51
[Sintaxis] Reducir tamaño de imagen Roger PowerCOBOL (ActiveX, v4 - v11) 4 15 de mayo de 2015 14:36
[Sintaxis] Campo numerico como texto en Excell Conection Breew PowerCOBOL (ActiveX, v4 - v11) 7 5 de mayo de 2015 07:43
Respuesta
 
Herramientas

  #1
Antiguo 20 de noviembre de 2017, 20:19
IDENTIFICATION DIVISION
Gatomalo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
Forero desde (Registrado)abril 2015
Perú
UbicaciónPanama
Última Actividad02.12.2018 18:12
PROCEDURE DIVISION
PostsPosts: 60
Ha dicho GraciasEnviado: 5
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 1
ReputaciónReputación: 5
Gatomalo is on a distinguished road
Configuración Reducir tamaño campo

Bueno siguiendo la politica del foro

Código COBOL:
  1.  01 DATOS-DET.
  2.      02 MED-ITEM PIC X(3).
  3.      02 FILLER PIC X VALUE ",".
  4.      02 CANT PIC ZZZ,ZZ9.99.
  5.       02 FILLER PIC X VALUE ",".
  6.      02 COD-PROD PIC ZZZ,ZZ9.99.
  7.       02 FILLER PIC X VALUE ",".

este codigo se registra como "NUI, 10.15, 105.30".
para que se ponga de esta manera "NUI,10.15,105.30".

compilador rmcobolv7
Gatomalo no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 21 de noviembre de 2017, 13:52
IDENTIFICATION DIVISION
Fito
Novato Senior
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónCórdoba, Villa María
Edad48 años
Última Actividad24.06.2019 13:44
PROCEDURE DIVISION
PostsPosts: 177
Ha dicho GraciasEnviado: 66
Ha recibido agradecimientosRecibido: 53
Mejores respuestasSoluiones: 9
ReputaciónReputación: 9
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

Hola:

A lo mejor hay una mejor manera, pero ahora se me ocurre hacer un bucle con un inspect reemplazando ", " por "," hasta que no haya más nada que reemplazar...

Saludos.

Fito...
Fito no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 21 de noviembre de 2017, 14:34
IDENTIFICATION DIVISION
Joseg
Novato Senior
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad19.06.2019 15:26
PROCEDURE DIVISION
PostsPosts: 160
Ha dicho GraciasEnviado: 35
Ha recibido agradecimientosRecibido: 46
Mejores respuestasSoluiones: 9
Medallas recibidas: 1Medallas: Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ReputaciónReputación: 9
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de Gatomalo Ver Mensaje
Bueno siguiendo la politica del foro

Código COBOL:
  1.  01 DATOS-DET.
  2.      02 MED-ITEM PIC X(3).
  3.      02 FILLER PIC X VALUE ",".
  4.      02 CANT PIC ZZZ,ZZ9.99.
  5.       02 FILLER PIC X VALUE ",".
  6.      02 COD-PROD PIC ZZZ,ZZ9.99.
  7.       02 FILLER PIC X VALUE ",".

este codigo se registra como "NUI, 10.15, 105.30".
para que se ponga de esta manera "NUI,10.15,105.30".

compilador rmcobolv7


Tirar os espaços de uma string:

Código COBOL:
  1.  working-storage section.
  2.  01  source-field    pic x(100).
  3.  01  source-index    pic 9(004).
  4.  01  source-size     pic 9(004) value 999.
  5.        
  6.  01  target-field    pic x(100).
  7.  01  target-index    pic 9(004).
  8.  
  9.  procedure division.
  10.  move 100 to source-index              *> (depende do tamanos máximo da string)
  11.  move "NUI,    10.15,   105.30"  to source-field
  12.  perform remove-spaces

target-field fica = a "NUI,10.15,105.30"

Código COBOL:
  1.  remove-space.
  2.           move spaces to target-field.
  3.            move zeroes to target-index
  4.            perform varying source-index from 1 by 1
  5.                    until source-index > source-size
  6.                if source-field(source-index:1) > space
  7.                   add 1 to target-index
  8.                   move source-field(source-index:1) to
  9.                        target-field(target-index:1)
  10.                end-if
  11.           end-perform.
Joseg no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 24 de noviembre de 2017, 02:30
IDENTIFICATION DIVISION
Eslopes
Guru de OO COBOL
ENVIRONMENT DIVISION
Avatar de Eslopes
DATA DIVISION
Forero desde (Registrado)agosto 2015
Brasil
Última Actividad11.05.2019 20:19
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 17
Ha recibido agradecimientosRecibido: 29
Mejores respuestasSoluiones: 2
ReputaciónReputación: 6
Eslopes is on a distinguished road Eslopes is on a distinguished road Eslopes is on a distinguished road
Predeterminado

Código COBOL:
  1. 01 DATOS-DET.
  2.      02 MED-ITEM PIC X(3).
  3.      02 FILLER PIC X VALUE ",".
  4.      02 CANT PIC ZZZ,ZZ9.99.
  5.       02 FILLER PIC X VALUE ",".
  6.      02 COD-PROD PIC ZZZ,ZZ9.99.
  7.       02 FILLER PIC X VALUE ",".
  8. 01 resultado pic x(50).
  9.  
  10.  
  11. procedure division.
  12.  
  13.     string MED-ITEM ", " CANT  ", " COD-PROD ", " delimited all by spaces into  resultado
  14.  
  15.     display resultado

algo assim...estou ficando velho, posso ter esquecido a sintaxe correta

Saludos, Emerson
Eslopes no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 24 de noviembre de 2017, 03:30
IDENTIFICATION DIVISION
Gatomalo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
Forero desde (Registrado)abril 2015
Perú
UbicaciónPanama
Última Actividad02.12.2018 18:12
PROCEDURE DIVISION
PostsPosts: 60
Ha dicho GraciasEnviado: 5
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 1
ReputaciónReputación: 5
Gatomalo is on a distinguished road
Configuración

eso faltaba gracias
Gatomalo no ha iniciado sesión   Responder Con Cita
Respuesta


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:37.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.