Citación del post de
Ale
|
❞
Kuk probé lo que me enviaste. El compilador no me tira error. Pero en ejecución me cancela el tiquet. Y no imprime mas que descripción.
|
Es que yo tengo otra versión de PowerCOBOL más reciente... Y tampoco tengo la DLL que utilizas...
Habría que asegurarnos primero de que el problema viene del campo/tipo de campo.
Has probado pasando un valor "en duro", es decir algo así:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 pgm pic x(10) value "program".
01 double comp-1.
01 num redefines double pic s9(9) comp-5.
PROCEDURE DIVISION.
call pgm with stdcall using by content "Precio"
by value 1.16
Por cierto, en mi ejemplo de antes se me había olvidado añadir el convenio del call
WITH STDCALL, lo mismo el problema viene de ahí.
Prueba otra vez con el convenio (si no lo habías hecho ya):
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 pgm pic x(10) value "program".
01 double comp-1.
01 num redefines double pic s9(9) comp-5.
PROCEDURE DIVISION.
call pgm WITH STDCALL using by content "Precio"
by value num