Resultados 1 al 5 de 5

Tema: Reducir tamaño campo

  1. #1
      Junior
    G

    Registrado
    abril de 2015
    Mensajes
    61
    Ciudad
    Panama

    Agradecimientos
     
    Recibidos
    2
    Enviados
    6

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    8

    Configuración Reducir tamaño campo

    Bueno siguiendo la politica del foro

    COBOL Código:
    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

    0 Not allowed!

  2. #2
      Guardián del Foro
    Avatar de Fito

    Registrado
    febrero de 2015
    Edad
    51
    Mensajes
    331
    Ciudad
    Córdoba, Villa María

    Agradecimientos
     
    Recibidos
    171
    Enviados
    176

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    24
    Agradecimientos / Point Value: 0 Guardián del Foro / Point Value: 0 Activista del Foro / Point Value: 0

    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...

    0 Not allowed!

  3. #3
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    272

    Agradecimientos
     
    Recibidos
    114
    Enviados
    71

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    Cita Iniciado por Gatomalo Ver Mensaje
    Bueno siguiendo la politica del foro

    COBOL Código:
    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:

    COBOL Código:
    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"

    COBOL Código:
    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.

    0 Not allowed!

  4. #4
      Guru de OO COBOL
    E

    Registrado
    agosto de 2015
    Mensajes
    78

    Agradecimientos
     
    Recibidos
    48
    Enviados
    22

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    10
    Concurso: Tercer puesto / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    COBOL Código:
    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

    0 Not allowed!

  5. #5
      Junior
    G

    Registrado
    abril de 2015
    Mensajes
    61
    Ciudad
    Panama

    Agradecimientos
     
    Recibidos
    2
    Enviados
    6

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    8

    Configuración

    eso faltaba gracias

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Información] Tamaño y formato de Icono
    Por Gatomalo en el foro PowerCOBOL V3L10 (Win32)
    Respuestas: 2
    Último Mensaje: 17.03.2017, 00:02
  2. [Información] Tamaño de campo
    Por Josber en el foro PowerFORM
    Respuestas: 2
    Último Mensaje: 16.12.2015, 19:47
  3. [Información] Tamaño de pantalla
    Por Roger en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 4
    Último Mensaje: 12.07.2015, 23:51
  4. [Sintaxis] Reducir tamaño de imagen
    Por Roger en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 4
    Último Mensaje: 15.05.2015, 15:36
  5. [Sintaxis] Campo numerico como texto en Excell Conection
    Por Breew en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 7
    Último Mensaje: 05.05.2015, 08:43

User Tag List

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •