Convertir DECIMAL a NUMERO para COBOL

[Dasije]

Hola buenas.

Comparto el código para convertir un campo decimal/currency a campos numéricos legible para COBOL de IBM, muy útil para importación de archivos generados desde Windev.

PROCEDURE PUBLIC convertir_DECIMAL_PIC_COBOL(IMPORTE is numeric(15,2), NUMERO_ENTEROS is int, SIGNO is boolean)

IMPORTE_FINAL is numeric(15,2)

CARACTER_SIGNO is fixed string on 1 = ""

RESULTADO is UNICODE string = ""

SWITCH IMPORTE
CASE < 0
IMPORTE_FINAL = IMPORTE * (-1)
CARACTER_SIGNO = "N"
OTHER CASE
IMPORTE_FINAL = IMPORTE
CARACTER_SIGNO = "0"
END

SWITCH SIGNO
CASE True
NUMERO_ENTEROS-=1
RESULTADO = CARACTER_SIGNO+NumToString((IMPORTE_FINAL * 100),"0"+NUMERO_ENTEROS+".0F")
CASE False
RESULTADO = NumToString((IMPORTE_FINAL * 100),"0"+NUMERO_ENTEROS+".0F")
END

RESULT RESULTADO


Sí el número fuera -4.85 donde tiene 15 enteros y 2 decimales, el resultado sería así : N00000000000485

Saludos y espero que os sirvan para aquellos que trabajen desde la plataforma de IBM.