Re: Problem calculating differences

["Aaron Bartell" <aaronbartell@xxxxxxxxx>]

Put a %char around it and see what text value it is returning.  That might
give you more to go on.

HTH,
Aaron Bartell
http://mowyourlawn.com

On Tue, Apr 29, 2008 at 11:05 AM, Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>
wrote:

> 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
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.