Re: SUBDUR Error between two dates

[John Earl <johnearl@xxxxxxxxxxxxxxx>]

I think it's because OS/400 is ass-u-me-ing that 02/20/39 is 02/20/2039.

jte

Gary Kuznitz wrote:

> Hi,
>
> I can't figure out why I'm getting an error when using SUBDUR to
> calculate the number of years between two dates.  I'm starting out
> with
>  02/20/39  in BIRTHDATE
>  02/18/80 in JDATE
>
> I end up with 59  in AGEATHIRE
> It should end up with 40 years.  Does anyone know why it's wrong and
> what I can do to correct it?
>
> Thanks
>
> Gary Kuznitz
>
>   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+.
>   * BIRTHDATE
>  D BIRTHDATE                       D   DATFMT(*MDY) INZ
>  D  BDATEMM                       2  0 OVERLAY(BIRTHDATE)
>  D  BDATEDD                       2  0 OVERLAY(BIRTHDATE:4)
>  D  BDATEYY                       2  0 OVERLAY(BIRTHDATE:7)
>   * Join Date
>  D JDATE                           D   DATFMT(*MDY) INZ
>  D  JDATEMM                       2  0 OVERLAY(JDATE)
>  D  JDATEDD                       2  0 OVERLAY(JDATE:4)
>  D  JDATEYY                       2  0 OVERLAY(JDATE:7)
>
>  C     JDATE         SUBDUR    BIRTHDATE     AGEATHIRE:*Y      8 0
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

--
John Earl                               johnearl@400security.com
The PowerTech Group                     206-575-0711
PowerLock Network Security              www.400security.com
--




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---