|
midrange.com
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 ]
Well, you might be able to put that hoop down
It doesnt have to be *DAYS. The following are valid - depending on the
attributes of parameters 1 & 2
* For two dates or a date and a timestamp: *DAYS, *MONTHS, and *YEARS
* For two times or a time and a timestamp: *SECONDS, *MINUTES, and
*HOURS
* For two timestamps: *MSECONDS, *SECONDS, *MINUTES, *HOURS, *DAYS,
*MONTHS, and *YEARS
Cheers,
Martin
> -----Original Message-----
> From: Dean Bathke [SMTP:dbathke@Quintrex.com]
> Sent: 21 May 2002 17:39
> To: 'rpg400-l@midrange.com'
> Subject: RE: Calculating Duration in days/hours from timestamp field
>
> 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.
> _______________________________________________
> 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-2025 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.
