40 lines
911 B
Plaintext
40 lines
911 B
Plaintext
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
|
|
|