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