Hi Darrel
compare the dates to today.
If these dates are greater than today, subtract 100 years from the date.
Alan Shore
NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill
DLee@xxxxxxxx
Sent by:
rpg400-l-bounces@ To
midrange.com rpg400-l@xxxxxxxxxxxx
cc
05/09/2008 12:10 Subject
PM Determine birth date 6s0 format
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
Could use some help;
My client is sending a file of birthdates and loan effective dates in
mmddyy format;
For example:
A birth date of 062337 translates to 2037/06/23 Common sense dictates
this is not a valid birth date and would be 1937/06/23
Below Char_Date = 062337 and translates to 2037-06-03 in ISODATE.
What would be best practice for handeling this problem?
C *MDY TEST (D) Char_Date
19
C IF *IN19 = *OFF
C *MDY MOVE Char_Date ISODATE
Appreciate your help
Yeah I know, fixed format. Brr sldkfhgj
Darrell Lee
Information Technology
Extension 7127
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
