20 lines
346 B
Plaintext
20 lines
346 B
Plaintext
COMPILE ROUTINE FIND_PROMOTED(SearchString)
|
|
ROWDEF(CHARSTR)
|
|
|
|
|
|
DECLARE SUBROUTINE Send_Info, Send_Dyn
|
|
|
|
OPEN 'SYSREPOSEVENTEXES' TO EventsTable THEN
|
|
SELECT EventsTable
|
|
|
|
Done = 0
|
|
LOOP
|
|
READNEXT @ID ELSE Done = 1
|
|
UNTIL DONE
|
|
ThirdField = FIELD(@ID,'*',3)
|
|
IF INDEX(ThirdField,'.',1) ELSE
|
|
Send_Dyn(@ID)
|
|
END
|
|
REPEAT
|
|
END
|