rem HEADER
rem   $Header: wfbkg.sql 26.1 2001/11/05 20:01:55 ctilley ship $
rem NAME
rem   wfbkg - WorkFlow BacKGround engine
rem USAGE
rem   sqlplus user/password @wfbkg <minutes> <seconds>
rem DESCRIPTION
rem   starts the background engine, running for the indicated number
rem   of minutes. 

REM  dbdrv: none

whenever sqlerror exit failure rollback;

define minutes=&1
define seconds=&2

prompt Running background engine for &minutes minutes...
prompt Sleep &seconds seconds between calls...
declare
  start_time date := sysdate;
begin
  while (sysdate < (start_time + &minutes/1440)) loop
    wf_engine.Background;
    dbms_lock.sleep(&seconds);
  end loop;
end;
/

commit;
exit;