RE: calculate the difference between two time stamps in hh:mm:ss

To initialize the Date field to the system date at runtime, specify
INZ(*SYS) on the definition specification. To initialize the Date field to
the job date at runtime, specify INZ(*JOB) on the definition specification.
*SYS or *JOB cannot be used with a field that is exported. The Date field
can also be initialized to a literal, named constant or figurative constant.

 
 
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Friday, March 28, 2003 14:55:21
To: RPG programming on the AS400 / iSeries
Subject: RE: calculate the difference between two time stamps in hh:mm:ss
 
Barbara, I am spacing big time. I'm trying to initialize a timestamp field
with a date and time field. I haven't a clue what I'm currently doing! 
 
Thanks if you can straighten me out.
 
d start s z 
d end s z 
d hoursRemaining s 5i 0 
d dateRecv s d 
d timeRecv s t 
d ediDate s 8s 0 
d ediTime s 6s 0 
 
/free 
 
ediDate = 20030326; 
ediTime = 083000; 
 
test(de) *iso ediDate; 
if not %error; 
start = %date( ediDate ); <==== doesn't like it one bit! 
endif; 
 
blah, blah, blah
 
Mike
 
 
-----Original Message-----
From: Barbara Morris [mailto:bmorris@xxxxxxxxxx]
Sent: Wednesday, February 26, 2003 2:43 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: calculate the difference between two time stamps in
hh:mm:ss
 
 
Richard B Baird wrote:
> 
> good morning all,
> 
> I've searched the archives, but didn't find much help - I'm trying get
> hh:mm:ss from the difference between two timestamp fields for displaying
in
> user readable format on a dspf.
> 
 
Richard, you can't directly get a time from subtracting two timestamps
because a time represents a time of day, not a duration. Try adding the
seconds to a time value of 00.00.00 to get your duration in a Time
field.
 
Try this:
 
time = t'00.00.00' + %seconds(%diff(ts1 : ts2 : *seconds));
 
or this:
 
c ts1 subdur ts2 secs:*seconds
c t'00.00.00' adddur secs:*seconds time
 
_______________________________________________
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.
 
 
_______________________________________________
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.
 
.