RE: Using ISO To Test Date.

["ile rpg" <ile_rpg_guy@xxxxxxxxxxx>]

   Ron, ISO thinks it's a valid date.  Of course, ISO thinks "NL" is a state
   in Mexico, but that's more a statement about Canada Post!

   I suggest testing to see if the input field is >= 19,000,000.  How about
   something like this:

   Select
   When date < 19000000
   callp error_routine
   other
   test(de)  crcfdt
   if  %error
   callp  error_routine
   endif
   endsl

   -IRG

   >From: RPower@xxxxxxxxxx
   >Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
   >To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
   >Subject: Using ISO To Test Date.
   >Date: Mon, 31 May 2004 12:28:04 -0230
   >
   >Using the following to test a date and I'm not getting what I want.
   >
   >c     *Iso          Test(de)                Crcfdt
   >c                   If        %Error
   >c                   Eval      *In50 = *On
   >c                   Eval      Msgdata = 'Invalid Date'
   >c                   Exsr      Send_Error
   >c                   Iter
   >c                   EndIf
   >
   >Crcfdt is defined as P(8,0) and is an input field on a display file.  If
   I
   >put in 200405 and then say forget the remainder of the date, it ends up
   >saying it's 0020/04/05 which is a valid date according to *ISO.  Any
   ideas
   >on what I should do to avoid this?  Any edit code I could use in the
   >display file to left justify and right fill with 0's?  Thanks,
   >
   >Ron Power
   >Programmer
   >Information Services
   >City Of St. John's, NL
   >P.O. Box 908
   >St. John's, NL
   >A1C 5M2
   >Tel: 709-576-8132
   >Email: rpower@xxxxxxxxxx
   >Website: http://www.stjohns.ca/
   >___________________________________________________________________________
   >Success is going from failure to failure without a loss of enthusiasm. -
   >Sir Winston Churchill
   >
   >
   >This OutBound email has been scanned for Viruses
   >--
   >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
   list
   >To post a message email: RPG400-L@xxxxxxxxxxxx
   >To subscribe, unsubscribe, or change list options,
   >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
   >or email: RPG400-L-request@xxxxxxxxxxxx
   >Before posting, please take a moment to review the archives
   >at http://archive.midrange.com/rpg400-l.
   >

     ----------------------------------------------------------------------

   Watch LIVE baseball games on your computer with MLB.TV, included with MSN
   Premium!