Hola:
Los valores numéricos tenés que finalizarlos con un null. Ejemplo
Código COBOL:
Working...
02 oCant.
03 xxCant pic 9(5).9999. *> Cantidad
03 pic x value X"00".
02 oPreuni.
03 xxPreuni pic 9(7).9999. *> Precio unitario.
03 pic x value X"00".
Procedure...
call ImprimirItem with stdcall using
by value xSuma
by reference oArtdenom
by reference oCant
by reference oPreuni
by value oIva
by value oImpint
by reference oValor
by value oIdCod
by reference oCodigo
by reference oCodigoUM
by value oMedida
returning wError
Saludos...
Fito...