Source position: orl.inc line 645
var OCINumberSetZero: procedure(
err: POCIError;
num: POCINumber
);