RE: How to check valid date

Yes. Use the TEST opcode.
If the field is really numeric or character and not a "D" data type, then
use TEST(DE) otherwise use TEST(E)

C   *ISO       TEST(DE)             yyyymmdd
C              if       %error()
  //  ya got bad dates.
C              endif


-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of murali dhar
Sent: Wednesday, September 07, 2005 1:53 PM
To: RPG programming on the AS400 / iSeries
Subject: How to check valid date

Hi
 
Iam reading a file and retrieving date field.
I have to accept only valid dates invalid dates I have to reject.
some of the data in the file looks like below :
 
The format is yymmdd
 
20050303
20041201
00000000==>invalid
00000001==>invalid
20053131==>invalid
00000857==>invalid
Is there any opcode or any suggestion how to check the field value for valid
date?
Most of the dates belong to 20th century and 21st century..
 
Thank you for your help,
 
 
 

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com