Re: TEST Date in free form

he does not provoc an error, he monitor an error that may occur if the date
is not valid in the format tested.
----- Original Message ----- 
From: <kristof.anthonis@xxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, June 15, 2005 3:54 PM
Subject: RE: TEST Date in free form


> Don't you think it's strange to provoke an error, when it's not
> necessary??
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Joel Cochran
> Sent: woensdag 15 juni 2005 10:26
> To: RPG programming on the AS400 / iSeries
> Subject: RE: TEST Date in free form
>
> Even better, user MONITOR:
>
> /free
>   monitor ;
>     testDate = %date( Today : *USA );
>   on-error ;
>     // do some error handling
>   end-mon ;
> /end-free
>
> For more on dates in RPGIV, read this:
> http://www.midrangeserver.com/fhg/fhg051904-story01.html
>
> Joel Cochran
> http://www.rpgnext.com
>
> On Wed, 2005-06-15 at 06:28, Simonse, Arco (CMK) wrote:
> > Hi,
> >
> > It's not that difficult:
> >
> > Test(ed) *USA Today ;
> >
> > Best Regards,
> >
> > Arco Simonse
> > pgmr
> > -- 
> >
> >
> > > -----Oorspronkelijk bericht-----
> > > Van: rpg400-l-bounces@xxxxxxxxxxxx
> > > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Chandana Silva
> > > Verzonden: woensdag 15 juni 2005 07:59
> > > Aan: RPG400-L@xxxxxxxxxxxx
> > > Onderwerp: TEST Date in free form
> > >
> > > I have been searching a way to replace the following code in
> > > free form..
> > >
> > > C          *USA                  TEST(DE)                 TODAY
> > >
> > > I am sure there are some ideas.
> > >
> > > Thanks..
> > >
> > >
> > > --
> > > 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.
> > >
> > >
> > DISCLAIMER:
> > This message contains information that may be privileged or
> > confidential and is the property of C.Meijer B.V. It is intended only
> for the person to whom it is addressed. If you are not the intended
> recipient, you are not authorized to read, print, retain,
> copy,disseminate, distribute, or use this message or any part thereof.
> If you
> > receive this message in error, please notify the sender immediately
> and delete all copies of this message.
> >
> > This footnote also confirms that this email message has been swept by
> the presence of computer 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.
>
>