Source position: ibase60.inc line 1777
procedure isc_encode_date(
_para1: pointer;
_para2: PISC_QUAD
);procedure isc_encode_date;