added LSL2 stored procedures

LSL2/STPROC/MOVE_SURF_SCAN_DICT.txt

@@ -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