|
HP OpenVMS Systemsask the wizard |
|
The Question is: Sometimes when we print from our main application "IDX" the print jobs are 0 blocks and this lock up the que with a retained on error causing us to manually clear the entry. Is there any way of getting around this without doing it manually. The Answer is :
What printer? What print symbiont? What are the queue settings?
The Wizard would not expect that retained jobs would lock up the queue.
Please contact customer support for assistance.
The Wizard could envision a simple tool that scans for these jobs, and
that clears them. Though there appears to be something else going on
that locks up the queue.
Please contact IDX support, and please contact Compaq support.
SET QUEUE/NORETAIN will prevent the queue from retaining jobs.
The following procedure will delete all retained entries from a nominated
queue(s) (wildcards are allowed):
$ IF p1.EQS."" THEN INQUIRE p1 "Queue name"
$ TEMP = F$GETQUI("")
$ QLOOP:
$ QNAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME",p1)
$ IF QNAME .EQS. "" THEN EXIT
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "QUEUE: ", QNAME
$ JLOOP:
$ RETAINED = F$GETQUI("DISPLAY_JOB","JOB_RETAINED",,"ALL_JOBS")
$ IF RETAINED .EQS. "" THEN GOTO QLOOP
$ Entry = F$GETQUI("DISPLAY_JOB","ENTRY_NUMBER",,"FREEZE_CONTEXT,ALL_JOBS")
$ WRITE SYS$OUTPUT " Entry: ''Entry' Retained: ''RETAINED'"
$ IF RETAINED.EQS."TRUE" THEN DELETE/ENTRY='Entry'
$ GOTO JLOOP
Existing discussions of the f$getqui lexical include the following
topics: (813), (1240), (2159), (3951), (4546), (4568), (4903), (5188)
(5471), (5567), (5651), (5793), (5982), (6315), (6877), etc.
|