26 lines
542 B
Plaintext
26 lines
542 B
Plaintext
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
|
|
|