In etwa so:
%dec(%char(%date():*iso0):8:0) * 1000000 + %dec(%char(%time():*iso0):6:0)

Die Alternative ist die Definition eines Timestamps im ISO-Format in einer DS und eine Redefinition der einzelnen Teile mit Jahr, Monat, Tag, Stunde, Minute, Sekunde und Nanosekunden.
Anschließend den Wert aus den Einzelfeldern berechnen.