Datumsrechnen

[prsbrc]

Wenn mich nicht alles täuscht ist bei *YMD das Jahr nur 2stellig.
Versuch es anstatt dem move mit einem eval und %dec(DATUM)

d datum s d inz(*sys)
d xx s 8 0

c eval xx=%dec(datum)

lg