RE: TEST(DE) with Numeric feild

["Bob Cozzi" <cozzi@xxxxxxxxx>]

It is right the way it is.
The *MDY and *YMD only check the first 6-digits of the value, ignoring
the fact that it is a longer numeric field.
So the value being checked by the first two are:  01/10/39  (January 10,
2039) which is a valid date.

Bob Cozzi


-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of Chris Beck
Sent: Tuesday, November 26, 2002 1:54 PM
To: rpg400-l@midrange.com
Subject: TEST(DE) with Numeric feild


--
Could someone possibly explain to me why I am getting the results I am
from the following code:


D NUM1            S             20  0 INZ(20011039)
D CHAR1           S             20    INZ('20011039')


TEST(ED) *MDY NUM1;    // %ERROR = *OFF - ?? Shouldn't this be *on
because there is no month 20
TEST(ED) *YMD NUM1;   // %ERROR = *ON - ?? this should be *off, year of
20, month 1 day 10
TEST(ED) *ISO NUM1;    // %ERROR = *ON - OK

TEST(ED) *MDY0 CHAR1;  // %ERROR = *ON - OK
TEST(ED) *YMD0 CHAR1;  // %ERROR = *OFF - OK
TEST(ED) *ISO0 CHAR1;  // %ERROR = *ON - *OK


Thanks,

Chris

_______________________________________________
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.