RE: Date arithmetic - performance dog?

Gosh, I hate user error!  Thanks guys.


-----Original Message-----
From: Scott Mildenberger [mailto:scottmildenberger@xxxxxxxxx]
Sent: Thursday, May 15, 2003 10:02 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date arithmetic - performance dog?


Mike,

You also have the possiblity of executing %date(XQ03)
three times within this section of code.  By eval'ing
this to a work field once and using the work field
throughout the code this will become more efficient.

Scott Mildenberger

--- Mike Haston ** Data <MHaston@xxxxxxx> wrote:
>  * test for valid date.                             
>                     
> c                   test(d e)               XQ03    
>                     
> c                   if        not %error            
>                     
>  * if XQ03's week ending date is beyond today, set
> the week start/end to 
>  * the previous week's                              
>                     
> c                   if        #getWkEndDate(
> %date(XQ03) ) > jobDate     
> c                   eval      beginDate =
> #getPrvWkStart( jobDate )      
> c                   eval      endDate =
> #getPrvWkEnd( jobDate )          
> c                   move      endDate       endDate#
>                     
>                                                     
>                     
>  * else set valid week start and end dates          
>                     
> c                   else                            
>                     
> c                   eval      beginDate =
> #getWkStrDate( %date(XQ03) )   
> c                   eval      endDate =
> #getWkEndDate( %date(XQ03) )     
> c                   endif                           
>                     
>                                                     
>                     
>  * else invalid date, set week start/end dates to
> previous week          
> c                   else                            
>                     
> c                   eval      beginDate =
> #getPrvWkStart( jobDate )      
> c                   eval      endDate =
> #getPrvWkEnd( jobDate )          
> c                   endif                           
>                     


__________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
http://search.yahoo.com
_______________________________________________
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.