COMPILE ROUTINE FIX_coa_coc(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

CoaCocKey = '6771*13212.4556018519'
CoaCocRec = ''
CoaCocRec<1> = ''
CoaCocRec<2> = ''
CoaCocRec<3> = 'EpiMSA PS-5044 Rev.2'
CoaCocRec<4> = '5B3B0416'
CoaCocRec<5> = '250'
CoaCocRec<6> = 'S:\InboundCofA\Helitek\'
CoaCocRec<7> = 'HelitekCofC.xls'

OPEN 'COA_COC' TO FILE.OUT THEN
	WRITE CoaCocRec ON FILE.OUT,CoaCocKey THEN Null
END



IF Get_Status(errCode) THEN DEBUG


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


*stat = Set_Printer("TERM",1)

RETURN