It’s a RPGILE limitation and it’s always zero. Do you really need this 3 digits? I think you can get it with APIs or C functions.
C+ set :test = current_timestamp
or in /FREE
exec sql set :test = current_timestamp;
will set the program field TEST equal to a full timestamp (e.g. ‘2009-05-18-10.55.25.250256′)
Kevin C. “BigKat” Ketzler
I was looking and found gettimeofday() to get time and Qp0zCvtToMITime() to convert it to timestamp.