Hi there

I had a alpha vms v7.1-2 and rdb v7.0-64

Pascal languge
type
$UQUAD = [QUAD,UNSAFE] RECORD
10: UNSIGNED;
11: UNSIGNED;
END;
VAR
time_acscii acked array [1..23] of char;
time_bin :$UQUAD;


time_acscii := '17-SEP-2003 10:05:29.09';
$BINTIM(timbuf := time_ascii, timadr = time_bin);

database table component has a p_date field, type is date vms
when I use component.p_date := time_bin; insert record,
p_date vaule in database is 17-NOV-1858 00:00:00.00

When I use $BINTIM(timbuf := time_ascii, timadr :=component.p_date),
insert record, p_Date value in database is correct,

I am wondering if somebody can give me a help. Thanks in advance

Lionel

It's been many years since I was working with VMS and Rdb, but I would
say that your results are OK.

The date 17-nov-1858 corresponds to a binary 0 in the time_bin variable.

My hypothesis is that either one has occurred:

1. the call to $BINTIM did not succeed and for such an occasion you
should check the returned status code for even/odd values. Remedy:
change your code so that status is checked. Change datatype and/or
argument passing mechanism for time_bin in the call to $BINTIM.
2. the conversion implied by "component.p_date := time_bin;" gave
results not expected by you; if this is the case, you will easily
find it in the debugger. Remedy: change datatype for time_bin to
adjust it to the datatype represented by component.p_date.

Anyway, using and checking status codes is a nice practice that I would
recommend in all occasions whenever using VMS services.

Hope that can be of some help. Sorry for not being more specific, but
it's almost 5 years ago I saw a VMS machine. Good to know VMS and Rdb
are still going strong!

regards /ZJ

llhuall wrote: