Fw: Time help

["Dan Wiesner - CC" <dwiesner@xxxxxxxxxxx>]

This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Sorry! Minutes are *MN not what I had before.
Dan Wiesner
----- Original Message -----
From: Dan Wiesner - CC
To: rpg400-l@midrange.com
Sent: Wednesday, November 14, 2001 3:11 PM
Subject: Re: Time help


If you really are using a timestamp field, you can do the following.
Naturally your H(hour), M(minute) and S(second) fields won't be hardcoded to 
values.
Have fun,
Dan Wiesner

D stamp1          S               Z   inz(*sys)
D H               S              2S 0 inz(13)
D M               S              2S 0 inz(30)
D S               S              2S 0 inz(29)

C                   ADDDUR    H:*H          stamp1
C                   ADDDUR    M:*MN         stamp1
C                   ADDDUR    S:*S          stamp1
C                   eval      *inlr = *on
----- Original Message -----
From: <Troy.C.Dills@blum.com>
To: <rpg400-l@midrange.com>
Sent: Wednesday, November 14, 2001 2:52 PM
Subject: Time help


Hi group

Could someone help me with some sample code on how to add *hms to a current
date (timestamp field)
I have already calculated the hours I need to add to the timestamp field
(CalcDate) I just need to add the
hours to it, to arrive at a new CalcDate field (provided) my hours are
enough to roll the date.  If this doesn't
make sense then I will try to reword it.  Any and all replies will be very
much appreciated.  PS I'm using
RPG IV with ILE on v4r5. This is also inside a procedure.

Thanks
Troy Dills
Julius Blum Inc.



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

--