Sekunden auf Datum 01.01.1980 addieren

[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!!!