49 lines
635 B
Plaintext
49 lines
635 B
Plaintext
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:
|
|
* * * * * * *
|
|
|
|
|