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,70 @@
COMPILE ROUTINE MOVE_SURF_SCAN_DICT(Dummy)
ROWDEF(CHARSTR)
DECLARE SUBROUTINE Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status
DEBUG
OPEN 'DICT.REACT_RUN' TO TableOut ELSE
Send_Dyn('Unable to open "DICT.REACT_RUN" table for conversion')
GOTO Bail
END
SELECT TableOut
RecCnt = 0
OSRead Dosfile FROM 'C:\DictRR.TXT' ELSE GOTO Bail
DEBUG
FOR I = 1 TO COUNT(DosFile,@RM)
DictRec = FIELD(DosFile,@RM,I,1)
DictID = DictRec[1,@FM]
DictRec = FIELD(DictRec,@FM,2,99)
WRITE DictRec ON TableOut,DictID THEN
Send_Info(DictID)
END
NEXT I
GOTO Bail
OPEN 'DICT.SURF_SCAN_TOOL' TO TableIn ELSE
Send_Dyn('Unable to open "DICT.SURF_SCAN_TOOL" table for conversion')
GOTO Bail
END
SELECT TableIn
RecCnt = 0
DosFile = ''
Done = 0
LOOP
READNEXT DictID ELSE Done = 1
UNTIL Done
READ DictRec FROM TableIn,DictID THEN
RecCnt += 1
DosRec = DictId:@FM:DictRec
DosFile := DosRec:@RM
END
REPEAT
RecLen = LEN(DosFile)
OSWrite Dosfile ON 'C:\DictSDT.OOL'
IF Get_Status(errCode) THEN DEBUG
* * * * * * *
Bail:
* * * * * * *
END