COMPILE ROUTINE FIX_SCAN_TOOL(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 OPEN 'SURF_SCAN_TOOL' TO FILE.IN THEN READ TencoRec FROM FILE.IN,'Tencor' THEN debug WRITE TencoRec ON FILE.IN,'Tencor' ELSE NULL END END IF Get_Status(errCode) THEN DEBUG * * * * * * * Bail: * * * * * * * *stat = Set_Printer("TERM",1) RETURN