Configuración Regional númerica

[Roger]

Necesito de alguna forma mediante el programa powecobol o algun activex detectar la configuración regional instalada en la maquina y si es posible cambiar al de mi pais, por defecto si es español viene 999.999,99 y mis programas estan echos para usar 999,999.99.

[Hrmcobol]

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

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 caracter pic x(255).
01 buffer pic s9(9) comp-5.
01 retcode pic s9(9) comp-5.
01 errval pic 9.
PROCEDURE DIVISION.


MOVE "." TO JRH-SGLI-MIL
MOVE "," TO JRH-SGLI-DEC
MOVE 0 TO retcode errval

*> Setear separador de decimales (numeros)
move spaces to caracter
move JRH-SGLI-DEC to caracter(1:1)
move X"00" to caracter(2:1)
CALL "SetLocaleInfoA" with stdcall linkage
using by value 1024
by value 14
by reference caracter
RETURNING RETCODE
end-call
if retcode > 0
add 1 to errval
end-if



*> Setear separador de miles (numeros)
move spaces to caracter
move JRH-SGLI-MIL to caracter(1:1)
move X"00" to caracter(2:1)
CALL "SetLocaleInfoA" with stdcall linkage
using by value 1024
by value 15
by reference caracter
RETURNING RETCODE
end-call
if retcode > 0
add 1 to errval
end-if

INVOKE pow-self "Deactivate"

y el codigo siguiente lo da vuelta

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 caracter pic x(255).
01 buffer pic s9(9) comp-5.
01 retcode pic s9(9) comp-5.
01 errval pic 9.
PROCEDURE DIVISION.


MOVE "," TO JRH-SGLI-MIL
MOVE "." TO JRH-SGLI-DEC
MOVE 0 TO retcode errval

*> Setear separador de decimales (numeros)
move spaces to caracter
move JRH-SGLI-DEC to caracter(1:1)
move X"00" to caracter(2:1)
CALL "SetLocaleInfoA" with stdcall linkage
using by value 1024
by value 14
by reference caracter
RETURNING RETCODE
end-call
if retcode > 0
add 1 to errval
end-if



*> Setear separador de miles (numeros)
move spaces to caracter
move JRH-SGLI-MIL to caracter(1:1)
move X"00" to caracter(2:1)
CALL "SetLocaleInfoA" with stdcall linkage
using by value 1024
by value 15
by reference caracter
RETURNING RETCODE
end-call
if retcode > 0
add 1 to errval
end-if

INVOKE pow-self "Deactivate"




Tenes qie incluir "KERNEL32.LIB"

Espero te sirva,
Saludos

[Roger]

Hrmcobol me da el siguiente ERROR
error LNK2001:unresolved external symbol_SETLOCALEINFOA@12
fatal error LNK1120: 1 unresolved externals

Estas variables JRH-SGLI-MIL JRH-SGLI-DEC donde se registran en la working
o son globales?

[Hrmcobol]

Perdon, me olvide la Working

01 JRH-SGLI-PARMS global external.
02 JRH-SGLI-DEC PIC X.
02 JRH-SGLI-MIL PIC X.
02 JRH-SGLI-SHOW PIC X. *> N:Numero M:Moneda
02 JRH-SGLI-RET PIC X.

[Kuk]

Roger, tienes que añadir la opción de compilación ALPHAL(WORD) a las propiedades del código y recompilar todo.