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