@Ale, esto:
Código CPP:
int IFOpParamFloatSet (const char * name, double value)
se traduciría así:
Código COBOL:
01 precio-uni COMP-2. *> Double
...
CALL funcion WITH STDCALL USING BY CONTENT comando-item-precio
BY VALUE precio-uni
RETURNING respuesta-impresor