COMPILE ROUTINE FIX_coa(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status, Set_Printer

$INSERT OIPRINT_EQUATES

EQU PI$LEFT		TO 1
EQU PI$TOP		TO 2
EQU PI$RIGHT	TO 3
EQU PI$BOTTOM	TO 4
EQU PI$WIDTH	TO 5
EQU PI$HEIGHT	TO 6
EQU PI$SIZE		TO 7

DEBUG

$INSERT rpt_cfg_equ

OPEN 'COA' To File.In THEN
Select File.In

Done = 0
LOOP
	READNEXT COAKey ELSE Done = 1
UNTIL Done
	IF COAKey[1,'*'] = '6495' THEN
		
		DELETE File.In,COAKey ELSE Null
		
	END

REPEAT


END



IF Get_Status(errCode) THEN DEBUG


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