COMPILE ROUTINE LIST_INSERTS(SearchString)
ROWDEF(CHARSTR)


DECLARE FUNCTION UTILITY, Get_Repos_Entities
DECLARE SUBROUTINE Send_Info, Send_Dyn
DEBUG
EntList = Get_Repos_Entities('LSL2','STPROCINS','')

EntCnt = COUNT(EntList,@FM) + (EntList NE '')

OPEN 'SYSPROCS' TO ProcsTable THEN

	FOR N = 1 TO EntCnt	
		RawKey = EntList<N>
		InsertKey = RawKey[-1,'B*']
		InsertKey := '*':RawKey[1,'*']
		READ InsertRec FROM ProcsTable,InsertKey THEN
			IF INDEX(InsertRec,'CONFIG',1) THEN
				debug
			END
		END
	NEXT N
END

