Re: Bug in IBM Date Routies %month

[Michael_Schutte@xxxxxxxxxxxx]

Well from what I understand... it's going to add 1 month to 1/31/2006,
which would be 2/28/2006, then add another month to 2/28/2006.  While
adding 2 months at once will result in 3/31/2006.

Makes sense to me.

Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             "praveen gunda"                                               
             <praveen.gunda@gm                                             
             ail.com>                                                   To 
             Sent by:                  "RPG programming on the AS400 /     
             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>    
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             03/27/2006 04:12          Bug in IBM Date Routies %month      
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




I found the following bug with IBM Date rountines... Was there a fix for
this?


     Ddate1            s               d   datfmt(*ymd)
      /Free
       cymd = 20060131;
       date1 = %date(cymd:*ISO);
       dsply %char( (date1+%months(2)):*iso );
       dsply %char( (date1+%months(1)+%months(1)) :*iso);
     /End-Free


Heres' the output:

 DSPLY  2006-03-31
 DSPLY  2006-03-28

Shouldn't it be 2006-03-31 both the times.
--
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.