Error 30 on printers

Posted by Grant Foraker on March 09, 2017 at 14:33:41: Uploaded files: 1

Problem that started with Comet32. Sometimes there's a broken printer. Sometimes it's intermittent. This example is a broken printer.
=====================
Printer = L53,W ,N, ,\\PSR_COM2\L53_RECV,,;

PSR_COM2 is in San Diego. The printer is in Washington.

The printer set up from SD to WA is via an IP over their WAN.

When the printer is down, the print job is spooled on PSR_COM2. But Comet still gives an E30. But does not indicate the printer. Why isn't Comet just going on as if there was no problem? Comet talks to the driver on PSR_COM2 not the physical printer. Right?

===================================
This is the chain of printings to DocMgr and physical printers. It's really hard to figure out which iteration of the print routine is failing without the device in the ErrorLog.

!------------------- PRINT BUYER ARCHIVE ---------------------------------------
LET ZLP$ = QZPOARC$
LET COPYNAME$ = ''

!------------------- 04/18/2016 ------------------------------------------------
!!!!! LET COPYNAME$ = 'LOCN: ' + QLOCN$ + ' PAY: ' + QPAYORG$
!!!!! LET PASS$ = QPNBR$ + 'QE6P-A ' + TERM$ + QBUYER$ + ZLP$ + COPYNAME$
!!!!! PRINT (#) PASS$
!!!!! ENTER 'POPRINT'
!!!!! LET COPYNAME$ = ''
!-------------------------------------------------------------------------------

GOSUB SetPrinterSpecifications

LET PAGE = 0
GOSUB PrintPurchaseOrder
CLOSE (1) ! RELEASE PRINTER
!-------------------------------------------------------------------------------

!------------------- PRINT A/P COPY --------------------------------------------
LET ZLP$ = QZAPPTR$
LET COPYNAME$ = 'A/P COPY'

!------------------- 04/18/2016 ------------------------------------------------
!!!!! LET PASS$ = QPNBR$ + 'QE6P-B ' + TERM$ + QBUYER$ + ZLP$ + COPYNAME$
!!!!! PRINT (#) PASS$
!!!!! ENTER 'POPRINT'
!-------------------------------------------------------------------------------

GOSUB SetPrinterSpecifications

LET PAGE = 0
GOSUB PrintPurchaseOrder
CLOSE (1) ! RELEASE PRINTER
!-------------------------------------------------------------------------------

!------------------- PRINT A/P ARCHIVE -----------------------------------------
LET ZLP$ = QZAPARC$
LET COPYNAME$ = 'A/P COPY'

!------------------- 04/18/2016 ------------------------------------------------
!!!!! LET PASS$ = QPNBR$ + 'QE6P-C ' + TERM$ + QBUYER$ + ZLP$ + COPYNAME$
!!!!! PRINT (#) PASS$
!!!!! ENTER 'POPRINT'
!-------------------------------------------------------------------------------

GOSUB SetPrinterSpecifications

LET PAGE = 0
GOSUB PrintPurchaseOrder
CLOSE (1) ! RELEASE PRINTER
!-------------------------------------------------------------------------------

!------------------- PRINT RECEIVING COPY --------------------------------------
LET ZLP$ = QZRPPTR$
LET COPYNAME$ = 'RECEIVING COPY'

!------------------- 04/18/2016 ------------------------------------------------
!!!!! LET PASS$ = QPNBR$ + 'QE6P-D ' + TERM$ + QBUYER$ + ZLP$ + COPYNAME$
!!!!! PRINT (#) PASS$
!!!!! ENTER 'POPRINT'
!-------------------------------------------------------------------------------

GOSUB SetPrinterSpecifications

LET PAGE = 0
GOSUB PrintPurchaseOrder
CLOSE (1) ! RELEASE PRINTER
!-------------------------------------------------------------------------------

!------------------- PRINT RECEIVING ARCHIVE -----------------------------------
LET ZLP$ = QZRPARC$
LET COPYNAME$ = 'RECEIVING COPY'

!------------------- 04/18/2016 ------------------------------------------------
!!!!! LET PASS$ = QPNBR$ + 'QE6P-E ' + TERM$ + QBUYER$ + ZLP$ + COPYNAME$
!!!!! PRINT (#) PASS$
!!!!! ENTER 'POPRINT'
!-------------------------------------------------------------------------------

GOSUB SetPrinterSpecifications

LET PAGE = 0
GOSUB PrintPurchaseOrder
CLOSE (1) ! RELEASE PRINTER
!-------------------------------------------------------------------------------
!------------------- PRINT FINAL DESTINATION COPIES ----------------------------
SELECT CASE QLOCN$
CASE 'SD '
IF QPAYORG$ EQ '02' OR QPAYORG$ EQ '04' ! SD NOT FINAL DESTINATION
GOSUB PrintFinalDestinationCopies
ENDIF
CASE 'BR ';'EV '
IF QPAYORG$ NE '02' ! BR/EV NOT FINAL DESTINATION
GOSUB PrintFinalDestinationCopies
ENDIF
CASE 'HI '
IF QPAYORG$ NE '04' ! HI NOT FINAL DESTINATION
GOSUB PrintFinalDestinationCopies
ENDIF
ENDSELECT
!-------------------

Follow Ups:

• Re: Error 30 on printers Barbara Brazil 14:59:47 03/09/17 (3)
  • Re: Error 30 on printers Barbara Brazil 15:21:45 03/09/17 (2)
    • Re: Error 30 on printers Grant Foraker 13:27:39 03/10/17 (0)
    • Re: Error 30 on printers Grant Foraker 06:21:52 03/10/17 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.