Tema: Configuración Regional númerica
Ver Mensaje Individual
  #2
Antiguo 26 de julio de 2016, 02:05
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por implicación en la vida del Foro 
Última Actividad 01.03.2022 02:59
Posts Posts: 323
Likes enviados Enviados: 102
Likes recibidos Recibidos: 120
Predeterminado
0
Likes

None...

Inactivo Inactivo
Hola Roger, yo uso esto para cambiar de punto y coma --> coma a punto

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  caracter   pic x(255).
  5.  01  buffer pic s9(9) comp-5.
  6.  01  retcode    pic s9(9) comp-5.
  7.  01  errval pic 9.
  8.  PROCEDURE       DIVISION.
  9.  
  10.  
  11.       MOVE "." TO JRH-SGLI-MIL
  12.       MOVE "," TO JRH-SGLI-DEC
  13.       MOVE  0  TO retcode errval
  14.  
  15.  *>   Setear separador de decimales (numeros)
  16.          move spaces to caracter
  17.          move JRH-SGLI-DEC to caracter(1:1)
  18.          move X"00" to caracter(2:1)
  19.          CALL "SetLocaleInfoA" with stdcall linkage
  20.             using by value 1024
  21.                   by value 14
  22.                   by reference caracter
  23.             RETURNING     RETCODE
  24.          end-call
  25.          if retcode > 0
  26.             add 1 to errval
  27.          end-if
  28.  
  29.        
  30.          
  31.  *>        Setear separador de miles (numeros)
  32.          move spaces to caracter
  33.          move JRH-SGLI-MIL to caracter(1:1)
  34.          move X"00" to caracter(2:1)
  35.          CALL "SetLocaleInfoA" with stdcall linkage
  36.             using by value 1024
  37.                   by value 15
  38.                   by reference caracter
  39.             RETURNING     RETCODE
  40.          end-call
  41.          if retcode > 0
  42.             add 1 to errval
  43.          end-if
  44.  
  45.      INVOKE pow-self "Deactivate"

y el codigo siguiente lo da vuelta

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  caracter   pic x(255).
  5.  01  buffer pic s9(9) comp-5.
  6.  01  retcode    pic s9(9) comp-5.
  7.  01  errval pic 9.
  8.  PROCEDURE       DIVISION.
  9.  
  10.  
  11.       MOVE "," TO JRH-SGLI-MIL
  12.       MOVE "." TO JRH-SGLI-DEC
  13.       MOVE  0  TO retcode errval
  14.  
  15.  *>   Setear separador de decimales (numeros)
  16.          move spaces to caracter
  17.          move JRH-SGLI-DEC to caracter(1:1)
  18.          move X"00" to caracter(2:1)
  19.          CALL "SetLocaleInfoA" with stdcall linkage
  20.             using by value 1024
  21.                   by value 14
  22.                   by reference caracter
  23.             RETURNING     RETCODE
  24.          end-call
  25.          if retcode > 0
  26.             add 1 to errval
  27.          end-if
  28.  
  29.        
  30.          
  31.  *>        Setear separador de miles (numeros)
  32.          move spaces to caracter
  33.          move JRH-SGLI-MIL to caracter(1:1)
  34.          move X"00" to caracter(2:1)
  35.          CALL "SetLocaleInfoA" with stdcall linkage
  36.             using by value 1024
  37.                   by value 15
  38.                   by reference caracter
  39.             RETURNING     RETCODE
  40.          end-call
  41.          if retcode > 0
  42.             add 1 to errval
  43.          end-if
  44.  
  45.      INVOKE pow-self "Deactivate"



Tenes qie incluir "KERNEL32.LIB"

Espero te sirva,
Saludos
Hrmcobol is offline   Responder Con Cita