Hallo,

automatisch kann man das Datum nicht ersetzen, da sind schon ein paar Statements notwendig

Hier ein Beispiel:
Code:
D DSTage          DS                                                   
D  Tag1                           D   DatFmt(*ISO) inz(D'2000-01-01')  
D  Tag2                           D   DatFmt(*ISO) inz(D'2000-01-06')  
D  Tag3                           D   DatFmt(*ISO) inz(D'2000-04-21')  
D  ArrayTag                       D   overlay(DsTage) dim(3)           
                                                                       
D Today           S               D   inz(*sys)                        
D BaseDate        S               D   inz(D'2003-01-01')               
                                                                       
D Year            S              5U 0                                  
D ArrYear         S              5U 0 Dim(%elem(ArrayTag))             
 /Free                                                                
  Year = %SubDt(Tag1: *Y);                                           
  Tag1 = Tag1 + %Years(%SubDt(Today: *Y)) - %Years(year);            
                                                                     
  ArrYear = %SubDt(ArrayTag: *Y);                                    
  ArrayTag = ArrayTag + %Years(%Subdt(Today: *Y)) - %Years(ArrYear); 
                                                                     
 /End-Free