date function

[thelearner]

Hi,

I have 2 fields, one contains month and the other contain year (each 2 char. long), which is my ending period. I want to find starting period(-11 months). I know if I have full date (cymd) then I can use fxn %month(-11). Can I subtract months from only the mm and yy portion that I have or do I have to have full date format.

Thanks.

 

[Mercury2]

I don't think you can use RPG BIFs on a portion of date. IMHO, the simplest way to subtract a duration from your date portion is to build a standard *ISO full date format as the following . Fields MyYear and MyMonth match your 2 char fields, yy for thousandth and dd for the first day of any month.

     D yyyymmdd        ds                                  
     D  yy                            2A   inz('20')       
     D  MyYear                        2A   inz('04')       
     D                                1A   inz('-')        
     D  MyMonth                       2A   inz('03')       
     D                                1A   inz('-')        
     D  dd                            2A   inz('01')       
                                                           
     D MyDate          s               D                   
     D Less11Month     s               D                   
                                                           
     C                   Move      yyyymmdd      MyDate    
      /free                                                
                 Less11Month = MyDate - %MONTHS(11);     
                 dsply Less11Month;                      
                 return; 
      /end-free;

HTH -- Philippe