RE: Old-timer's disease moment

["Grizzly M" <grizzlym@xxxxxxxxxxxxxxxxxxxxx>]

C     *ISO          TEST (DE)               Char_Date

Or

/Free
 Test(DE) *ISO Char_Date;
/End-Free

%Error will be '1' or *on if Char_Date is an invalid date when Char_Date
is a character or numeric field. If the field is a date or time stamp
field Test(E) should be used.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of pnelson@xxxxxxxxxx
Sent: Wednesday, January 04, 2006 2:20 PM
To: rpg400@xxxxxxxxxxxx; midrange-l@xxxxxxxxxxxx
Subject: Old-timer's disease moment

I hope you'll forgive my memory lapses here, but I don't need to do much

programming anymore. The question is this:

How do I test the value in a YYYYMMDD data field to ensure that it will
be 
a valid date being placed into a date data type field (*ISO) format? If 
it's not valid, I want to trap it and place my null value into the
field.

Thanks