Re: Milliseconds

[Hans Boldt <boldt@xxxxxxxxxx>]

Peter Vidal wrote:
> "Peter, did you see my response on how to do this?"
> Yes Bob, I am sorry...I guess I was answering other postings as well...
>
> "One line of code in RPGIV. Of course if your original value is character, you
> need to first move it into a TIME field in RPG."
>
> To help you all visualize what I have, here it is the pgm:
> ...
> What is the equivalent coding if I want to use an EVAL statement?

Peter, regarding your last question:

To put current date into a character variable with no separators, 
you can code:

   CurDate = %char(%date():*mdy0);

Likewise, to put current time into a character variable with no 
separators, you can code:

   CurTime = %char(%time():*hms0);

To go from current time to number of milliseconds past midnight, you 
can code:

   Millisecs = %diff(%time():t'00.00.00':*seconds) * 1000;

BTW, *MS duration code is not allowed when you're computing the 
difference between two times.

Cheers! Hans