RE: Checking for Valid Dates

[Jim Langston <jlangston@xxxxxxxxxxx>]

Don't move it to a date field until after you check it.

TEST(d) can be used for char or numeric fields.

C      *MDY       TEST(D)   DDSDate             99
C                 If        NOT *IN99
C      *MDY       MOVE      DDSDate     SomeDate
C                 Else
C                 Eval      DDSDate = *LoVal
C                 EndIf

Move the date if it is valid to the date field, otherwise initialize
the date field to *LoVal (00010101 for *ISO dates, etc...)

Regards,

Jim Langston

-----Original Message-----
From: John M. Bauman [mailto:JMBauman@wardtrucking.com]
Sent: Wednesday, October 17, 2001 2: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.