RE: Checking for Valid Dates

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Do the TEST before moving it to the date field, if it is invalid then don't
move it to the date field.  Only valid dates can be moved to date fields.

Scott Mildenberger

> -----Original Message-----
> From: John M. Bauman [mailto:JMBauman@wardtrucking.com]
> Sent: Wednesday, October 17, 2001 3:14 PM
> To: rpg400-l@midrange.com
> Subject: Checking for Valid Dates
>
>
>
> Hi all I am new to the RPG ILE arena so I thought I would run this by
> everyone.
>
>  I have a date field in MMDDYY format on a screen, I will
> call it DDSDATE.
> I EXFMT the screen and I move DDSDATE to a date field defined
> as MDY in my
> RPG program.  I then check to see if the date is valid by
> using the TEST
> opcode.  My problem is if the user typed in an invalid date,
> when I try to
> move DDSDATE to date field in my RPG program it blows up on
> the move itself
> stating that the date stamp is invalid.  Any suggestions.
> (Note: I have
> been programming in RPG III for about nine years)
>
> Thanks
>
> John M. Bauman
> Lead Programmer
> Ward Trucking
> Second Avenue & Seventh Street, Greenwood
> Altoona, Pa 16602
>
> Voice: (800) 458-3625 Ext. 284
> Voice Direct: (814) 947-1284 (Direct Line)
> Fax: (814) 944-5470
>
> Visit our website at http://www.wardtrucking.com
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>