Forms6i

How to Use Timer

Trigger : Timer Expir

begin
   timer_id timer;

   one_minute number := 1000;
 begin

   select to_char(sysdate,'HH12:MI:SS AM') into :ITEM8 from dual;

   synchronize;

end;

Trigger :when_new_form_instance

declare

  timer_id timer;

  one_minute number := 1000;

begin

  :system.message_level:=25;

  select to_char(sysdate,'HH12:MI:SS AM') into :ITEM8 from dual;

  synchronize;

  timer_id := CREATE_TIMER('emp_timer', one_minute, REPEAT);

  SYNCHRONIZE;

end;