SUBDUR Error between two dates

["Gary Kuznitz " <docfxit@xxxxxxxxxxx>]

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