COMPILE ROUTINE FIX_BANG_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

EQU TARGET_ACTIVELIST$ TO 5

OPEN '!RDS' TO FileIn ELSE
	debug
	GOTO Bail
END


SELECT FileIn

READ BangRec FROM FileIn,'!RDS' THEN
	DEBUG

	CALL CLEAR_TABLE('!RDS')
	
	WRITE BangRec ON FileIn,'!RDS' ELSE NULL
END


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

END