Re: How to check valid date

Use Test(D) with date format and to check for valid date..
*DATFMT          TEST(D)                 Date_to_be_checked        

On 9/7/05, murali dhar <hydchap1@xxxxxxxxx> wrote:
> 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
> --
> 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.
> 
>