RE: TEST(DE) with Numeric feild

["Mike Haston ** Data" <MJH@xxxxxxx>]

I've never used TEST(D E) on a 20s 0 field.  I've always used it on numeric 
fields of 6 or 8.  Don't know if that matters though!


-----Original Message-----
From: Chris Beck [mailto:CBeck@good-sam.com]
Sent: Tuesday, November 26, 2002 2: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.