Sekunden auf Datum 01.01.1980 addieren

[boonkelz]

Hallo zusammen,
ich habe folgendes Problem
ich muss in RPG in ein Feld JRNTMSTMP I 19,0
einen Timestamp im UTC Format schreiben.
Das soll dann so ausschauen
JRNTMSTMP . . . . . . . . : 1453446003


Ich habe es so probiert --> funkte nicht -->
JRNTMSTMP = %dec(%TimeStamp() + %Seconds(5))
JRN_JRNTMSTMP = %dec(%TimeStamp(sysDatumIso) + %Seconds(5));


Bitte um Hilfe
Vielen Dank Hannes

[Fuerchau]

In etwa so:
%dec(%char(%date():*iso0):8:0) * 1000000 + %dec(%char(%time():*iso0):6:0)

Die Alternative ist die Definition eines Timestamps im ISO-Format in einer DS und eine Redefinition der einzelnen Teile mit Jahr, Monat, Tag, Stunde, Minute, Sekunde und Nanosekunden.
Anschließend den Wert aus den Einzelfeldern berechnen.

[camouflage]

Versteh ich nicht, funktioniert doch.

    dcl-s  myTmestmp           timestamp;        
    dcl-s  mydecstmp            packed(20:0);     
                                                  
         myTmeStmp = %timestamp();                
         myTmeStmp += %seconds(5);                
         mydecStmp = %dec(myTmeStmp);   

oder so (kurz):
         mydecStmp = %dec(%timestamp() + %seconds(5)); 

Anm. V7R1 und Ergänzung num. Feld (muss 20 Stellen sein!)

[Fuerchau]

Wohl dem der V7 hat;-). Es gibt da noch so ein paar ältere Release wo das noch nicht geht. Da stören dann noch die Trennzeichen. Deshalb gibts ja auch das Format %char(%date():*ISO0) und das wegzubekommen.

[boonkelz]

Super Vielen Dank, die 20 Stellen waren schuld, aber ein Problem habe ich noch:
Ich muss das in ein UTC Format bringen, der Wert sollte dann etwa so aussehen

1456768378

JRNTMSTMP I 19,0 173 180

Vielen Dank
Hannes

[Fuerchau]

Hierfür musst du ein wenig selber rechnen.
Per RTVSYSVAL kannst du QUTCOFFSET abfragen und subtrahierst die Stunden/Minuten von deinem Timestamp.
Du musst natürlich auch sicherstellen, dass der Systemwert rechtzeitig (geht auch automatisch) an die Sommer-/Winterzeit angepasst wird.

[Zuther]

Vielen Dank für Eure Antworten!!!