Re: Date TESTing

Thanks everyone. The errors should be few, so I might go to using the 
monitor construct. My first choice would be a full implementation of DS 
Arrays ;-)

On 4/26/05, Christen, Duane J. <dchristen@xxxxxxxxxxxxx> wrote:
> 
> Joel, Tony;
> 
> The monitor construct will perform better IF you have a relativly small
> number of failures. The monitor intercepts an exception, compairs it to 
> the
> on-error condition (if the condition exists) and performs the code 
> following
> the on-error.
> 
> Exception handling is expensive, performance wise, and our rule of thumb
> here is:
> If 10% or fewer of the tests will fail, then the monitor construct is
> acceptable, otherwise build/use a procedure to test the validity of the
> data.
> 
> I have not done any formal testing on this assumption, but it seems to 
> work
> for us.
> 
> The other caviot with monitor is that it leave the exception in the job 
> log,
> which can be confusing and generate a large job log full of exceptions.
> 
> Duane Christen
> 
> -----Original Message-----
> From: Joel Cochran [mailto:jrc@xxxxxxxxxx]
> Sent: Tuesday, April 26, 2005 3:56 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Date TESTing
> 
> On Mon, 2005-04-25 at 23:21, Tony Carolla wrote:
> > Test(DE) *USA M(Loop).MsgDate;
> 
> Tony,
> 
> Since the TEST opcode won't accept the subfield, try using MONITOR
> instead...
> 
> /free
> monitor ;
> dateField = %date( strDate : *USA );
> on-error ;
> // Handle error
> endmon ;
> /end-free
> 
> If I remember from a thread a while back, this is supposed to perform
> better than TEST also...
> 
> For anyone interested, I have more on Handling Dates in RPGIV here:
> http://www.itjungle.com/fhg/fhg051904-story01.html
> 
> Joel Cochran
> 
> --
> 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.
> 
> NOTICE: This electronic mail transmission may contain confidential
> information and is intended only for the person(s) named. Any use, copying
> or disclosure by any other person is strictly prohibited. If you have
> received this transmission in error, please notify the sender via e-mail.
> 
> 
> --
> 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.
> 
> 


-- 
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought