Suche eine Datumsfunktion und finde wieder einmal gar nichts

[B.Hauser]

Falls Du nicht 3x addieren willst, geht es unter V5R4 auch so:

EXEC SQL Set :NumDatum = Dec(Replace(Char(Current_Date + 7 Days), ISO), '-', '')
END-EXEC. 

Birgitta