... oder (ab V5R3)

PHP-Code:
 /Free
    NewDatNum = %Dec(%Date(DatNum:*ISO) 
                      + %Days(Zahl): *ISO);
 /End-Free 
ADDDUR wird im RPG free format nicht unterstützt, deshalb wurden in Release V5R1 eine Reihe von neuen Built-In-Functions (u.a. auch %Days()) zur Datumsrechnung bereitgestellt.

@Karl-Heinz
%XLATE kann man sich auch vor V5R3 sparen, in dem man beim Konvertieren in eine alphanumerische Darstellung das Format angibt. Die folgende 0 im Format bedeutet ohne Datumstrennzeichen.

PHP-Code:
 /Free
    numdat = %dec(%char(isodate: *ISO0):8:0);
 /End-Free 
Birgitta