Re: Determining Age

[Rob Berendt <rob@xxxxxxxxx>]

This should work.  And if your file date is still numeric mmddyyyy you can do 
D DOB             S               D   DATFMT(*ISO)  
D SYSDATE         S               D   DATFMT(*ISO)  
C     *usa          test (d e)              filedate
C                   If        not %error            
C     *usa          move      FILEDATE      DOB     
C                   time                    SYSDATE 
C     SYSDATE       SUBDUR    DOB           Age:*Y  
C                   Else                            
C                   move      *zeros        Age     
C                   EndIf                           

Although the TEST (D E) might have to be  TEST (D) with an indicator at your 
release level.




vpadilla@guate.net on 03/26/99 01:52:25 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      

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


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