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

In the interest of 1) differentiating what happens between "time" and
"timestamp" fields (i.e., the presence/absence of a date to further muddy
things), and 2) keeping this on topic, which is RPG, I did the following
test.

This program:

D stamp1 S Z inz(Z'2000-01-01-00.00.00.000000')
D stamp2 S Z inz(Z'2000-01-01-24.00.00.000000')
D stampdiff S 20I 0

D time1 S T inz(T'00.00.00')
D time2 S T inz(T'24.00.00')
D timediff S 20I 0

/free

stampdiff = %Diff(stamp2:stamp1:*MS);
timediff = %Diff(time2:time1:*S);

Dump(A);

*INLR = *On;
Return;

/end-free

gave this result in the relevant portion of the dump:

NAME ATTRIBUTES VALUE
STAMPDIFF INT(20) 86400000000
STAMP1 TIMESTAMP(26) '2000-01-01-00.00.00.000000'
STAMP2 TIMESTAMP(26) '2000-01-01-24.00.00.000000'
TIMEDIFF INT(20) 86400
TIME1 TIME(8) '00.00.00'
TIME2 TIME(8) '24.00.00'

Then I changed stamp1 to the next day, so this program:

D stamp1 S Z inz(Z'2000-01-02-00.00.00.000000')
D stamp2 S Z inz(Z'2000-01-01-24.00.00.000000')
D stampdiff S 20I 0

D time1 S T inz(T'00.00.00')
D time2 S T inz(T'24.00.00')
D timediff S 20I 0

/free

stampdiff = %Diff(stamp2:stamp1:*MS);
timediff = %Diff(time2:time1:*S);

Dump(A);

*INLR = *On;
Return;

/end-free

gave this result:

NAME ATTRIBUTES VALUE
STAMPDIFF INT(20) 0
STAMP1 TIMESTAMP(26) '2000-01-02-00.00.00.000000'
STAMP2 TIMESTAMP(26) '2000-01-01-24.00.00.000000'
TIMEDIFF INT(20) 86400
TIME1 TIME(8) '00.00.00'
TIME2 TIME(8) '24.00.00'

So 24.00.00 of one day is the same as 00.00.00 of the next day.

I think I'll go back to work now.