ILE RPG aktuelles Datum

[Bogomil]

Hallo thommy,

*date funktioniert auch unter ILE RPG (zumindestens bis V5R4.
Für das Format yyyymmdd muss in den H-Bestimmungen datedit(*YMD) angegeben werden.
Besser finde ich, die Build-In-Funktion %date zu verwenden.
Mit V5R4 hat die IBM sogar %dec erweitert: %dec(%date: *iso)

Bogomil

[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

[Robi]

Hi Birgitta

Das hat man nun davon wenn man abschreibt ...

 /FREE                                   
          RETURN    %DEC(%DATE(): *ISO); 
 /END-FREE

*RNF0327 30        000088  Der erste Parameter für %DEC oder %DECH ist ungültig.    
*RNF0328 30        000088  Der zweite Parameter für %DEC oder %DECH ist ungültig.   
*RNF0338 20        000088  Der dritte Parameter für %DEC darf nicht fehlen, wenn der
                           zweite Parameter angegeben wird.

oder ist die Syntax bei Return anders ?
Gruß
Robi

[B.Hauser]

Die Syntax ist schon in Ordnung, Du solltest allerdings für Release V5R3 oder höher umwandeln.

Sofern Du auf V5R2 runterwandeln musst, musst Du das Ganze wie folgt umsetzen:

 /Free
   Return (%Int(%Char(%Date(): *ISO0)));
 /End-Free 

Birgitta

[Robi]

Grummel

Der Umwandel-Releasestand war tatsächlich auf V5R2 zurückgesetzt.
Da soll mal einer dauf kommen
Danke
Robi