Source position: orl.inc line 1090
function OCINumberFromReal(
err: POCIError;
rnum: Pdvoid;
rnum_length: uword;
number: POCINumber
):sword;