Buen día genios.
Kuk
probe como me dijiste y nada. sigue largando en 0,00 el tiquet
Lo hago así. No se que esta mal.
Código COBOL:
WORKING...
01 funcion PIC X(30) value spaces.
01 precio-uni COMP-1.
01 unitario PIC 9(7)V9(2) VALUE ZEROS.
01 comando-item-precio PIC X(6) VALUE "Precio".
procedure....
move "IFOpParamFloatSet" to funcion.
move 2563.33 to unitario.
move unitario to precio-uni.
CALL funcion WITH STDCALL USING BY REFERENCE comando-item-precio
BY REFERENCE precio-uni
RETURNING respuesta-impresor.
probe tambien con By value y el compilador me tira error.
saludos y muchas gracias por su ayuda..