Re: Problem calculating differences

Joe,

As per the V5R3 RPG Reference Manual:

"If you ask for the difference in microseconds between two
timestamps that are more than 32 years 9 months apart, you
will exceed the 15-digit limit for duration values. This
will result in an error or truncation."

Regards,

Luis Rodriguez
--- rpg400-l-request@xxxxxxxxxxxx wrote:

message: 5
date: Tue, 29 Apr 2008 11:05:46 -0500
from: Joe Pluta <>
subject: Problem calculating differences

Anybody run into this? I can't get the difference in
milliseconds or
microseconds between today and 01/01/1970:


D TEST PR EXTPGM('TEST')

D TEST PI

D ts S z
D ts2 S z
D ms S 30 0
D mseconds S 30 0

/free
ts = %timestamp();
ts2 = z'1970-01-01-00.00.00';
ms = %diff(ts: ts2: *ms);
mseconds = %diff(ts: ts2: *mseconds);

*inlr = *on;
return;
/end-free

This blows up with RNQ0103 (The target for a numeric
operation is too
small to hold the result) on the first %diff. Am I
missing something
fundamental? V5R4, a bit out of date on PTFs.

Joe

Luis Rodriguez

IBM Certified Systems Expert
eServer i5 iSeries Technical Solutions


____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ