Suche eine Datumsfunktion und finde wieder einmal gar nichts

[Fuerchau]

Da du das Datum ja anschließend als Zahl haben willst, musst du 3 Mal rechnen:

EXEC SQL SET :SQL-LF-DATUM =
YEAR(CURRENT DATE + 7 days) * 10000
MONTH(CURRENT DATE + 7 days) * 100
DAY(CURRENT DATE + 7 DAYS)
END-EXEC

Wobei COBOL inzwischen auch Datum-Felder unterstützt und beim Move eines Datum-Feldes in ein numerisches die Trennzeichen entfernt.

[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

[KingofKning]

Hallo, ich hatte diese Syntax auch gesehen fand es aber unlogisch 3 * 7 drauf zu rechnen. Da aber ab und zu macht es keinen Sinn mit AS/400 zu diskutieren.....

Danke
GG

[Fuerchau]

3*7 verlangt ja auch keiner.

"+ 7 Days" geht eben nur auf ein Datum und nicht auf eine Zahl.
Wenn du also 3 mal eine Zahl aus dem Datum extrahierst musst du eben 3 mal vorher das Datum berechnen.
Das hat überhaupt nichts mit Unlogik zu tun und ist nicht AS/400-Spezifisch.