Hallo,
im CL würde ich es mit RTVSYSVAL QDATE, QYEAR, QMONTH, QTIME machen.