|
Very Nice, I like it, I suppose since I need Days , Minutes and Hours I will have to do the jumping through hoops no matter what opcode I determine is the best for my purposes. Thanks for the info > -----Original Message----- > From: Hillier, Martin [SMTP:Martin.Hillier@Mattel.com] > Sent: Tuesday, May 21, 2002 11:20 AM > To: 'rpg400-l@midrange.com' > Subject: RE: Calculating Duration in days/hours from timestamp field > > This message is in MIME format. Since your mail reader does not understand > this format, some or all of this message may not be legible. > -- > [ Picked text/plain from multipart/alternative ] > Hi Dean, > > I have only used it the once - we have only just gone to V5R1. > > a brief example, > > FfileA IF E K DISK > > /COPY prototypes > > D prDeleteOldData PI > D mdWeekEndDate 10D > > ... > C READ FileARec > * If record is more than 60 days old, delete it > C IF NOT %EOF(FileA) AND > C %DIFF(ASATDATE:mdWeekEnd:*DAYS) > 60 > C DELETE FileARec > C ENDIF > ... > > Cheers, > Martin > > -----Original Message----- > > From: Dean Bathke [SMTP:dbathke@Quintrex.com] > > Sent: 21 May 2002 16:21 > > To: 'rpg400-l@midrange.com' > > Subject: RE: Calculating Duration in days/hours from timestamp field > > > > Thanks Martin > > > > I couldnt find much info on %DIFF although it DOES roll off the tongue > > rather nicely, LOL > > In any case I found this little sample and modified it to work as I > needed > > it to. > > If you have any info or examples you want to share concerning the %DIFF > > BIF, > > Id love to see it.. > > Thanks > > > > > > Dtimenow S T inz(*sys) > > Dtimethen s t inz(T'16.30.27') > > Ddatenow s d inz(*sys) > > Ddatethen s d inz(D'2002-02-27') > > Dmin s 10i 0 > > Dtotalmin s 10i 0 > > Ddays s 10i 0 > > Dhrs s 10i 0 > > C timenow subdur timethen min:*mn > > C datenow subdur datethen days:*d > > C eval totalmin = days * 1440 + min > > C eval hrs = %div(totalmin:60) > > C eval min = %rem(totalmin:60) > > C dump > > C eval *inlr = *on > > > > > -----Original Message----- > > > From: Hillier, Martin [SMTP:Martin.Hillier@Mattel.com] > > > Sent: Tuesday, May 21, 2002 9:48 AM > > > To: 'rpg400-l@midrange.com' > > > Subject: RE: Calculating Duration in days/hours from timestamp field > > > > > > This message is in MIME format. Since your mail reader does not > > understand > > > this format, some or all of this message may not be legible. > > > -- > > > [ Picked text/plain from multipart/alternative ] > > > Hi Dean > > > > > > Have you looked at the %DIFF BIF. > > > > > > That rolls of the tongue nicely :-) > > > > > > Cheers, > > > Martin > > > > > > > -----Original Message----- > > > > From: Dean Bathke [SMTP:dbathke@Quintrex.com] > > > > Sent: 21 May 2002 15:35 > > > > To: 'rpg400-l@midrange.com' > > > > Subject: Calculating Duration in days/hours from timestamp > field > > > > > > > > Good morning, I am trying to calculate duration and it just seems > that > > I > > > > am > > > > jumping through alot of hoops. We have dates stoerd as YYYYMMDD and > > TIme > > > > values as HHMMSSss. I was under the impression that I build 2 > > timestamps > > > > and > > > > then subdur but I am unsure if this is the way to go anyone have any > > > > pointers to gewt me in the right direction? I have been looking at > the > > > > archieves at http://archive.midrange.com/rpg400-l. > > > > > > > > > > > > Thanks all > > > > > > > > > _______________________________________________ > > > > 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. > > > _______________________________________________ > > > 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. > > _______________________________________________ > > 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. > _______________________________________________ > 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 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.
midrange.com
