ILE RPG aktuelles Datum

[B.Hauser]

Hallo,

es muss zwischen Job- und System-Datum unterschieden werden.
Der OpCode TIME bzw die Built-in-Functions %DATE(), %TIME(), %TIMESTAMP() alle ohne Parameter liefern das System-Datum.

Die Sonderwerte *DATE und UDATE liefern das Job-Datum.

Das Job-Datum ist das Datum, an dem der aktuelle Job gestartet wurde. Wenn also der Job am Montag Morgen vom ersten Arbeiter gestartet wird, dann bis Freitag durchläuft liefert *DATE am Freitag immer noch das Datum vom Montag.

Das System-Datum ist immer das aktuelle Datum.

Wenn Du nicht im RPG-Free-Format arbeitest und das numerische System-Datum brauchst, kannst Du den OpCode TIME verwenden. Das Datum wird jedoch im Job-Datums-Format (z.B. TTMMJJJJ) ausgegeben.

Wenn Du im Free-Format arbeitest, kannst Du das numerische System-Datum so wie Baldur es angegeben hat ermitteln. Es geht jedoch auch einfacher:

 /Free
   //System-Datum im Format JJJJMMTT
    SysDate = %Dec(%Date(): *ISO);
 /End-Free 

Übrigens das numerische Job-Datum wird wie folgt ermittelt:

 /Free
   //Job-Datum im Format JJJJMMTT
   JobDate = %Dec(Date(*Date): *ISO);
 /End-Free 

Birgitta