× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
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:*M          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.

--




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.