geht am besten mit den built in functions, etwa:

d isodate s d datfmt(*iso)

und dann zur Berechnung:

isodate = %date(numdat:*iso);
isodate = Isodate + %days(zahl);
numdat = %dec(%xlate('-':' ':%char(isodate)):8:0));

Karl-Heinz