× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. November 2002

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.