RE: SUBDUR Error between two dates

DATFMT *YMD, *MDY, and the like have the range 01/01/1940 thru 12/31/2039.

So actually, you should see -59, because it assumes 02/20/39 is the year
2039.

You'll need to use *ISO or *USA formats.
HTH,

> Regards,
> Jon A. Erickson
> Sr. Programmer Analyst
> 800.COM Inc.
> 1516 NW Thurman St
> Portland, OR  97209-2517
> 
> Direct: 503.944.3613
> Fax: 503.944.3690
> Web: http://800.com
> 



-----Original Message-----
From: Gary Kuznitz [mailto:docfxit@calwest.net]
Sent: Wednesday, May 17, 2000 3:13 PM
To: MIDRANGE-L@midrange.com
Subject: SUBDUR Error between two dates


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
+---
+---
| 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
+---