RE: Using ISO To Test Date.

["ile rpg" <ile_rpg_guy@xxxxxxxxxxx>]

   Use the DDS keyword MAPVAL to "edit" 0001-01-01 to blanks.  Remember that
   a "zero" date data type is *LOVAL, not zero.  An ISO date has to be a
   *valid* ISO date or 0001-01-01.  Also, you can enter 20040531 or
   2004-05-31 in an ISO date field.

   -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: RE: Using ISO To Test Date.
   >Date: Mon, 31 May 2004 12:45:31 -0230
   >
   >Can that allow a zero for the date in case I didn't want to use the date
   >as a search criteria if it was not entered.  Default seems to be
   >0001-01-01.
   >
   >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
   >
   >
   >
   >
   >"Bob Cozzi" <cozzi@xxxxxxxxx>
   >Sent by: rpg400-l-bounces@xxxxxxxxxxxx
   >05/31/2004 12:36 PM
   >Please respond to
   >RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
   >
   >
   >To
   >"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
   >cc
   >
   >Subject
   >RE: Using ISO To Test Date.
   >
   >
   >
   >
   >
   >
   >Yes, change the display file to use the L data type and let the 5250
   >display
   >manager do the validation for you.
   >-Bob Cozzi
   >
   >-----Original Message-----
   >From: rpg400-l-bounces@xxxxxxxxxxxx
   [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
   >On Behalf Of RPower@xxxxxxxxxx
   >Sent: Monday, May 31, 2004 9:58 AM
   >To: RPG programming on the AS400 / iSeries
   >Subject: Using ISO To Test Date.
   >
   >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.
   >
   >
   >
   >--
   >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.
   >
   >
   >
   >
   >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.
   >

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

   Is your PC infected? Get a FREE online computer virus scan from McAfee(R)
   Security.