compile function DONT_USE_DELETE_REACT_UTIL()
begin condition
pre:
post:
end condition
declare function msg, fieldcount, next_key
declare subroutine rlist
$insert rlist_equates
$insert msg_equates
$insert logical

open 'REACT_UTIL' to RUTable else
   Void = msg( '', 'Unable to open REACT_UTIL table...' )
   return 0
end

Stmt = 'SELECT REACT_UTIL WITH START_DATE < "1/1/00"'

rlist( Stmt, target_activelist$, '', '', '' )
DEBUG

if @reccount then
    Eof = false$
    NumKeys = @reccount
    Cnt = 0
    loop
        readnext RUId else Eof = true$
      until Eof
        delete RUTable, RUId else
           msg( '', 'Unable to delete REACT_UTIL ':RUId )
           return 0
        end 
        Cnt += 1
        Percent = oconv( iconv(Cnt/NumKeys, 'MD2'), 'MD0' ):'%'
        Void = send_info( Percent:' Complete DELETING react utils...' )   
    repeat
end
return 0