48 lines
818 B
Plaintext
48 lines
818 B
Plaintext
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
|