Source position: orl.inc line 1341
function OCINumberTrunc(
err: POCIError;
number: POCINumber;
decplace: sword;
result: POCINumber
):sword;