Datum um einen Tag erhöhen

[Fuerchau]

Stimmt, mit CYMD wird nur 3-stelliges Jahr geliefert, deshalb habe ich michauch verbessert.

*ISO liefert und erwartet allerdings die Trennzeichen, *ISO0 funktioniert, habe ich gerade ausprobiert.

PS:
Seit wann akzeptiert %dec ein DATE-Format ?

PPS:
Stimmt, %DEC akzeptiert ein DATE, dann gilt *ISO als Modifikator.

[Pikachu]

Oder so (aber ohne Gewähr)!

D QDATUM          S              8P 0 INZ(20070606)
D QDATUM1         S               D   DATFMT(*ISO) 
D                                                  
C     *ISO          MOVE      QDATUM        QDATUM1
C                   ADDDUR    1:*DAYS       QDATUM1
C     *ISO          MOVE      QDATUM1       QDATUM