Re: Problem calculating differences

Wilt, Charles wrote:

Ok Joe,

Here's what I'd do.

results = (%diff(z'1970-01-01-00.00.00': z'2000-01-01-00.00.00'))* 1000
+ (%diff(z'2000-01-01-00.00.00': %timestamp()))*1000;

Did you try it? My guess is it may not work. Also, your version gives the same timestamp for every message posted within the same second; effectively, it truncates the milliseconds. I'd prefer to keep them.

Here's what I got to work:

d wEpoch s z static inz(z'2000-01-01-00.00.00')
d w1 s 30 0
d wMSAdjust c 946684800000

/free
w1 = (%diff( wTime: wEpoch: *mseconds));
return (w1/1000) + wMSAdjust;
/free

This works fine, as wMSAdjust is the number of milliseconds between 01/01/1970 and 01/01/2000. Very similar to what you suggested, although hardcoding the value.
But here's the interesting bit, and why I said yours might not work. THIS does not work:

d wEpoch s z static inz(z'2000-01-01-00.00.00')
d w1 s 30 0
d wMSAdjust c 946684800000

/free
return (%diff( wTime: wEpoch: *mseconds)/1000) + wMSAdjust;
/free

I get an overflow error! Evidently some internal precision deal is getting blown up. Anyway, I have it now. I'm not going to worry about it.

Joe