RE: 00:00:00 or 24:00:00

I went one step further:

d timestamp1 s z
inz(z'2000-01-01-24.00.00.000000')
d timestamp2 s z inz(z
'2000-01-02-00.00.00.000000')
d equal s n inz
d difference s 10i 0 inz

/copy qrpglecpy,prattribs
/copy qrpglecpy,prqc2le
/free

equal = (timestamp1 = timestamp2);
dsply equal;
difference = %diff(timestamp1:timestamp2:*ms);
dsply difference;

*inlr = *on;
Return;

Result:

DSPLY 0
DSPLY 0

Which means that they're not the same, but there's not a millisecond
difference between them.

This goes over my head now...

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we. Futile is resistance, assimilated will you be.
-----



Mark Walter <MWalter@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
28/11/2007 14:54
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: 00:00:00 or 24:00:00






Tested with this quick program
0001.00 Dtime1 S Z
inz(z'2000-01-01-00.00.00.000000')
0002.00 Dtime2 S Z
inz(z'2000-01-01-24.00.00.000000')
0003.00 Dequal S N
0004.00 /free
0005.00 equal = (time1 = time2);
0006.00 dsply equal;
0007.00 *inlr = *on;
0008.00 /end-free


result was

DSPLY 0

Not equal in the eyes of IBM.




Mark Walter