Datum um einen Tag erhöhen

[B.Hauser]

Hallo,

Ich würde es so probieren:

/Free
   NewDate = %Dec(%Date(qDatum: *ISO) + %Days(1): 8: 0);
/End-Free 

Solltest Du noch nicht auf V5R3 sein, versuch' es so:

/Free
   NewDate = %Int(%Char(%Date(qDatum: *ISO) + %Days(1): ISO0));
/End-Free 

Birgitta

[muadeep]

Hab noch mal nachgeschaut, wir haben def.:
Type 9406; Model 550; Rel V5R3M0


und genau dieses Statement funkt. leider nicht! :-(

/Free 
   NewDate = %Dec(%Date(qDatum: *ISO) + %Days(1): 8: 0); 
/End-Free 

der Compiler bringt mir dann immer folgende Fehlermeldungen:

*RNF0339 20      1 Für %DEC dürfen nur zwei Parameter angegeben werden, wenn der
                   zweite Parameter ein Datenformat ist.                        
*RNF0328 30      1 Der zweite Parameter für %DEC oder %DECH ist ungültig. 

[Fuerchau]

Deswegen musst du ein "%CHAR( ber. datum :*CYMD0)" einfügen.

PS:
Bei der Funktion %date beschreibt der 2. Parameter das Quellformat, in deinem Fall also *CYMD0, das Ergebnis ist immer eine variable vom Typ DATE.

Bei %char wiederum ist der 2. Parameter das Zielformat.