Code:
 JJJJMMTT = %Dec(%Date(MyTimestamp): *ISO);
Sollte eigentlich reichen. Eine zusätzliche Konvertierung in eine alphanumerische Darstellung (%CHAR) ist nur erforderlich, wenn Du noch nicht auf Release V5R3 bist.

Vor Release V5R3 kann auch %DEC() durch %INT ersetzt werden (dann müssen weder Länge noch Nachkommastellen angegeben werden:

Code:
 JJJJMMTT = %Int(%Char(%Date(MyTimeStamp): *ISO0));
... bist Du sicher, dass DATUM eine gültige Zeitmarke enthält?

Birgitta