COMPILE ROUTINE FIX_REACT_EVENT(Dummy)
ROWDEF (CHARSTR)

DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg, obj_React_Event, RList

$INSERT RLIST_EQUATES
$INSERT REACT_UTIL_EQU
$INSERT REACT_EVENT_EQUATES
$INSERT REACTOR_LOG_EQU
$INSERT REACT_ESC_EQUATES


EQU CRLF$ TO \0D0A\
EQU TAB$	TO \09\


OPEN 'REACT_EVENT' TO ReactEventTable ELSE
	DEBUG
	GOTO Bail
END


*SelectSent = 'SELECT REACT_EVENT WITH EVENT_DT GE "12 1 2013" AND WITH REACT_NO "68" BY-DSND EVENT_DTM'
SelectSent = 'SELECT REACT_EVENT '

*RList(SelectSent,TARGET_ACTIVELIST$,'','','')

SELECT ReactEventTable


* * * * * * * * *

RecCnt = 0
FixCnt = 0
Done = 0
LOOP
	READNEXT ReactEventKey ELSE Done = 1
UNTIL Done 
	READ ReactEventRec FROM ReactEventTable,ReactEventKey THEN
		RecCnt += 1
		
		CONVERT @FM TO '' IN ReactEventRec
		
		IF ReactEventRec = '' THEN
			
			FixCnt += 1
			DELETE ReactEventTable,ReactEventKey ELSE NULL
		
		END
	END
	Send_Info(RecCnt:' ':FixCnt)
REPEAT



* * * * * * *
Bail:
* * * * * * *


END