71 lines
1.1 KiB
Plaintext
71 lines
1.1 KiB
Plaintext
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
|