In etwa so.
Code:
D DATUM           S              8P 0 INZ(20080925)                    
D DATUM1          S               D   DATFMT(*ISO)                     
D                                                                      
C     *ISO          MOVE      DATUM         DATUM1                     
C                   ADDDUR    14:*DAYS      DATUM1                     
C     *ISO          MOVE      DATUM1        DATUM                      
C                                                                      
C                   SETON                                        LR