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