Re: Determining Age

The format mmddyyyy is supported all the way, what have a problem is the
Julian format.
Why don't you change your conversion program to an ILE, and use only the
mmddyyyy format
the operation would be easier


C     SYSDATE      SUBDUR    DOB       AGE:*Y        3 0

Emilio Padilla

-----Original Message-----
From: KeatonDana@aol.com <KeatonDana@aol.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Friday, March 26, 1999 11:40 AM
Subject: Determining Age


>I wrote a routine that i call and pass 8 digit dates to,  this calculates
the
>age of an individual.  I take the passed date and convert it to julian and
>take todays date and also convert this to julian.  I then calculate the age
by
>substringing out the first 2 digits and subtracting them.  I then use the
day
>portion of the julian date and calculate days so that i can modify the age
in
>necessary.  My question is that IBM only supports  4 digit dates upto and
>including 8/4/1928.  But most of the patients DOB are prior to this and I
>don't want to write a second routine.  I've been converting the DOB and all
>dates to the mmddyyyy format but have run into this problem.  I'm on R3M2
and
>wonder if other dates are supported if I move to a new release?  Or hey if
>anyone can come up with a better idea I'm open to any input.  Thanks in
>advance..
>
>Dana Keaton
>+---
>| 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
+---