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