Timer

when-new-form-instance
declare  
  p_timer timer;
begin
   p_timer := find_timer('timer_get_akt_length');

   if not id_null(p_timer) then
    delete_timer(p_timer);
  end if;   
  -- timer mit 1000 msec (1 sec) und wiederholen=Ja starten
  p_timer:= create_timer('timer_get_akt_length',1000,repeat);
end;

when-timer-expired
declare 
  time varchar2(20);
begin
  time := :system.current_datetime;
  /* :textobjekt5 ist ein 30 stelligen Charakterfeld pro Sekunde wird ein * angehängt
     Ist die max. Länge erreicht, wird wieder von vorne begonen
  */
  if length(:textobjekt5) = 0 then 
    :textobjekt5 := substr(time, instr(time,' ')+1); 
  elsif length(:textobjekt5) = 30 then 
    :textobjekt5 := null;
  else 
    :textobjekt5 := :textobjekt5 ||'*';
  end if; 
end; 
timer_test.fmb