CHAR in Zoned umsetzen RPG

[Fuerchau]

Tja, leider etwas vernachlässigt, aber so gehts:

mynum = %subdt(mydate:*Y) * 10000 + %subdt(mydate:*M) * 100 + %subdt(mydate:*D);