Re: Time Math in RPGLE

Ok, so what you are trying to receive is some sort of duration 
field with one possible definition being 
years-months-days-hours-minutes-seconds 
like the following:
timestamp1 subdur timestamp2  duration:*x
where *x would define the format
such as (forgive me if the format or duration is not exact)
'2000-01-31-12:10:15' subdur '1999-12-31-10:10:05'  duration:*x
and duration would equal 0-01-00-02:00:10 for 0 years, 1 month, 0 days, 2 
hours, 
0 minutes and 10 seconds,  So this wouldn't be a timestamp, or a time either 
would it?

If this is true, then this should be simple to construct your own bif using a 
subprocedure.  But if you did, I would use subdur's to figure out each part by 
checking for decimals or remainders or some such thing.

Are we on the right track, at least to what result you are looking for?






        klemscot@klements.com
        07/31/00 02:10 PM
        Please respond to RPG400-L
                 
                 To: RPG400-L@midrange.com@Internet
                 cc: 
                 Subject: Re: Time Math in RPGLE


Mr. Berendt, 

You suggested:

> I looked up the SUBDUR op code at:
> http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/QBKAQE01/4.4.87
> See also duration codes at:
> http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/QBKAQE01/4.3.8

These books (which I've already read many times) agree with what I'm
saying, sir.  

It specifically states:

:: Calculate a duration: The SUBDUR operation can also be used to
:: calculate a duration between: 
::
::    1. Two dates 
::    2. A date and a timestamp 
::    3. Two times 
::    4. A time and a timestamp 
::    5. Two timestamps 
::
[SNIP]
:: The result field consists of two subfactors. The first is the name of a
:: zero decimal numeric field, array or array element in which the result
:: of the operation will be placed. The second subfactor contains a
:: duration code denoting the type of duration. The result field will be
:: negative the date in factor 1 is earlier than the date in factor 2. 

See?  The result field cannot be a time field when the factor 1 and
factor 2 fields are timestamps.   This is specifically stated in the book,
and both SEU and the RPG compiler agree with the book.

> 
> Will this work for you?  And these are V3R2 sites.
>

Yes it works for me.  It helps reinforce my point. :)

Even if the method suggested by Anton works fine on a newer version of 
OS/400, my method (DIV 60/MVR, as demonstrated in my original reply to
this thread) is still superior because it can hold more than 24 hours.  :)

Of course, if they ever decide to change the number of minutes in an hour,
I'll be in trouble :)


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---