RE: TEST Date in free form

Nope.

Makes perfect sense if a high percentage of the dates are valid.  You're 
programming to handle the exceptions.  Why waste the cycles testing dates that 
are valid.

On the other hand, if a high percentage of dates are invalid, then one could 
make the argument that testing first might be better.


Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
> kristof.anthonis@xxxxxx
> Sent: Wednesday, June 15, 2005 9:55 AM
> To: RPG programming on the AS400 / iSeries
> 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.
> 
>