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
