IDS Forum

Re: Problem with time

Posted By: Art Kagel
Date: Monday, 7 September 2015, at 11:47 a.m.

In Response To: Re: Problem with time (PEDRO BIZARRO)

Pedro:

So if you replace these two lines:

let teste = "sleep 1"

run teste

with these two:

with the next command the error occours

sleep 1

the time does not advance, but either way you are getting the timestamp
from the 4GL CURRENT verb. Correct?

From the 4GL manual:

If CURRENT is executed more than once in a statement, identical values
might be returned at each call...

What seems to be happening is that if you sleep using the 4GL SLEEP verb
the internal timer is reusing the last time it got from the OS rather than
reading the time again. However, if you use the RUN verb to execute the
OS's sleep utility which calls the sleep() system call that triggers 4GL to
reread the system clock. I would suggest two solutions:

1. Use the database server to get the time:

SELECT CURRENT YEAR TO FRACTION(3) INTO hEnd FROM sysmaster:sysdual;

or:

SELECT dbinfo( 'utc_to_datetime', sh_curtime )::DATETIME YEAR TO SECOND

INTO hEnd FROM sysmaster:sysshmvals;

or:

2. Write a little 4GL callable function in "C" to call gettimeofday()

and convert that into a datetime and return it.

It would be easiest to return the seconds and microseconds parts of the

return from gettimeofday() to 4GL and convert them to a datetime in 4GL

with:

CALL my_time_func() RETURNING h_sec, h_usec

SELECT dbinfo( 'utc_to_datetime, hsec )::YEAR TO FRACTION(3) + INTERVAL

((h_usec/1000)) FRACTION(3) TO FRACTION

INTO hEnd

FROM sysmaster:sysdual;

Art

Art S. Kagel, President and Principal Consultant
ASK Database Management
www.askdbmgt.com

Blog: http://informix-myview.blogspot.com/

Disclaimer: Please keep in mind that my own opinions are my own opinions
and do not reflect on the IIUG, nor any other organization with which I am
associated either explicitly, implicitly, or by inference. Neither do
those opinions reflect those of other individuals affiliated with any
entity with which I am affiliated nor those of the entities themselves.

On Mon, Sep 7, 2015 at 10:05 AM, PEDRO BIZARRO <pedro@gba.pt> wrote:

> hello Art
> Thanks for the quick response, actually existed error in the code when
> trying
> to translation to English , so the code that follows is already fixed.
> What I meant with informix of sleep is to use the of 4gl function , or run
> the
> sleep of the operating system.
>
> Pedro Bizarro
>
> ##############################################################
> # SLEEP SEGUNDO A SEGUINDO PARA VER A DIFERENCA DE HORAS
> ##############################################################
> MAIN
> define lixo,lixo1 char(50)
> define hora,minuto,segundo char(2)
> define hStart,hEnd datetime year to fraction
> define count integer
> define teste,teste3 char(60)
> let count = 1
> while not int_flag
>
> let hStart=current year to fraction
>
> let teste = "sleep 1"
>
> run teste
>
> {
>
> with the next command the error occours
>
> sleep 1
>
> }
>
> let hEnd=current year to fraction
>
> let lixo1 = extend(hStart, year to fraction) - extend(hEnd, year to
> fraction)
>
> let hora=lixo1[11,12]
>
> let minuto=lixo1[14,15]
>
> let segundo=lixo1[17,18]
>
> #display hora, " " ,minuto," " , segundo
>
> if hora > 0 then
>
> display "ERROR HOUR " , lixo1
>
> else if minuto > 0 then
>
> display "ERROR MINUTE " , lixo1
>
> else if segundo >= 2 then
>
> display "ERROR SECOND " , lixo1
>
> else
>
> display hStart," - ",hEnd," - ",lixo1
>
> end if
>
> end if
>
> end if
>
> if hEnd = hStart Then
>
> display "ERROR Time the Same: ",hStart," - ",hEnd," - ",lixo1
>
> end if
> end while
> exit program
> end main
>
>
>
> *******************************************************************************
> Forum Note: Use "Reply" to post a response in the discussion forum.
>
>

--001a1141bd52e9fc97051f2a294a

Messages In This Thread

• Problem with time
  PEDRO BIZARRO -- Monday, 7 September 2015, at 7:24 a.m.
  • Re: Problem with time
    Art Kagel -- Monday, 7 September 2015, at 8:52 a.m.
    • Re: Problem with time
      PEDRO BIZARRO -- Monday, 7 September 2015, at 10:05 a.m.
      • Re: Problem with time
        Art Kagel -- Monday, 7 September 2015, at 11:47 a.m.
        • Re: Problem with time
          Art Kagel -- Monday, 7 September 2015, at 12:20 p.m.

IDS Forum is maintained by Administrator with WebBBS 5.12.