added LSL2 stored procedures
This commit is contained in:
61
LSL2/STPROC/FIX_REACT_EVENT.txt
Normal file
61
LSL2/STPROC/FIX_REACT_EVENT.txt
Normal file
@ -0,0 +1,61 @@
|
||||
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
|
Reference in New Issue
Block a user