COMPILE ROUTINE FIX_RDS_POINTER(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, Send_Dyn, obj_WO_Step, Set_Status
DECLARE FUNCTION Get_Status, Set_Printer, obj_RDS

$INSERT RDS_EQU


debug

OPEN 'RDS' TO FileIn THEN
	READ RDSRec FROM FileIn,'200947' THEN
		RDSRec<RDS_STATUS$> = 'A'
		RDSRec<RDS_WO_STEP_KEY$> = '121598*1'
		WRITE RDSRec ON FileIn,'200947' ELSE NULL
	END

END

IF Get_Status(errCode) THEN DEBUG


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

END