added LSL2 stored procedures
This commit is contained in:
70
LSL2/STPROC/MOVE_SURF_SCAN_DICT.txt
Normal file
70
LSL2/STPROC/MOVE_SURF_SCAN_DICT.txt
Normal 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
|
Reference in New Issue
Block a user