added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View 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