COMPILE ROUTINE FIX_DICT_RDS(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status, Btree.Extract, obj_RDS, RList, ErrMsg
DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS, ErrMsg

$INSERT RDS_EQU
$INSERT WO_LOG_EQU
$INSERT ORDER_EQU
$INSERT PROD_SPEC_EQU
$INSERT DICT_EQUATES

EQU TARGET_ACTIVELIST$ TO 5

OPEN 'DICT.RDS' TO FileIn ELSE
	debug
	GOTO Bail
END

SELECT FileIn

RecCnt = 0
FixCnt = 0
Done = 0
debug
LOOP
	READNEXT DictID ELSE Done = 1
UNTIL Done
	RecCnt += 1
	
	READ DictRec FROM FileIn,DictID THEN
		debug
		IF DictRec<14> NE '' THEN
			Send_Dyn(DictID = DictRec<DICT_DESC$>)
			
		END
	END
	
REPEAT



* * * * * * *
Bail:
* * * * * * *

END