topic Re: VMS & Print Queues in Operating System - OpenVMS

VMS & Print Queues

Jorge Cocomess — Mon, 23 Jan 2006 21:28:01 GMT

Greetings,

I would like to know how I can delete all the print jobs within a queue without have to delete one job at a time? These are the steps I'm currently doing:
1. sho que/all hp5si_mis /out=delete_que.out
2. Typ delete_que.out and delete one job at a time.

I am currently running OpenVMS 7.3-2

Thanks,
J

Re: VMS & Print Queues

David B Sneddon — Mon, 23 Jan 2006 21:32:23 GMT

If you wish to delete ALL the jobs, just delete
the queue and recreate it...

Dave

Re: VMS & Print Queues

David B Sneddon — Mon, 23 Jan 2006 21:37:38 GMT

Another way, we have a BLACK_HOLE queue on each
system using the NULLSYMBIONT. Merge the print
queue into the BLACK_HOLE queue.

$ ASSIGN/MERGE BLACK_HOLE HP5SI_MIS

Dave

Re: VMS & Print Queues

Jorge Cocomess — Mon, 23 Jan 2006 21:48:02 GMT

David - What's the proper procedures to delete the queue and recreate it? Can you delete a queue with print jobs in it?

Thanks,
J

Re: VMS & Print Queues

David B Sneddon — Mon, 23 Jan 2006 22:01:06 GMT

$ stop/queue/reset hp5si_mis

This stops any currently printing jobs.

$ delete/queue hp5si_mis

will delete the queue.

As far as recreating the queue, do you not have
some procedure somewhere that will initialize
your queues? How do you create the queues if you
have a problem or if someone "accidentally" deletes
a queue?

If you don't have a procedure to do this, you
may want to look at setting one up...
You can always create a dummy queue and do a merge.

$ initialize/queue dummyq/on=lta666:
$ stop/queue/reset hp5si_mis
$ assign/merge dummyq hp5si_mis
$ delete/queue dummyq

Dave.

Re: VMS & Print Queues

Steven Schweda — Mon, 23 Jan 2006 23:49:58 GMT

It's also possible to use the (very flexible,
hence complicated) F$GETQUI() lexical
function to step through all the jobs in a
queue and do whatever you want to do with
each one (delete, for example). Sadly, I
don't have a good example handy.

It's still "one at a time", but automatic
instead of manual.

Re: VMS & Print Queues

Steven Schweda — Tue, 24 Jan 2006 00:42:56 GMT

It's not a complete solution, but here's a
procedure which shows some of the basics for
using F$GETQUI().

alp $ @ QUEUE_LIST.COM

Queue SYS$BATCH_ALP on node ALP:
job: CWU1_SUB entry: 950 status: 0002
job: RUN_DTSS_NTP entry: 85 status: 0002
job: WWW_FLUSH entry: 465 status: 0200
job: WWW_TEST entry: 469 status: 0200
job: DAILY entry: 220 status: 0200

If you care, the status values are described in

SYS$COMMON:[DECC$LIB.REFERENCE.SYS$STARLET_C]QUIDEF.H

Look for "JOB_STATUS item code". For
example:

#define QUI$M_JOB_EXECUTING 0x2
#define QUI$M_JOB_TIMED_RELEASE 0x200 ("Holding until ...")

I've shown it listing out a batch queue, but
it should work on any type of queue. (I
normally don't have any jobs in a print
queue, so that display would be less
interesting.)

Re: VMS & Print Queues

Steven Schweda — Tue, 24 Jan 2006 00:49:41 GMT

To recover some reasonable file attributes
on that attachment, try:

set file /attr = (rfm: stmlf) 271096.TXT

Re: VMS & Print Queues

Karl Rohwedder — Tue, 24 Jan 2006 01:15:29 GMT

Sidenote: The freeware V5 contains a nice
graphical (SMG) management tool to device queues called PQM.

regards Kalle

Re: VMS & Print Queues

Heinz W Genhart — Tue, 24 Jan 2006 04:11:05 GMT

Hi Jorge

I wrote a commandfile some time ago, which emties a Queue

$ sav_ver=F$VERIFY(0)
$ debug=0
$ IF F$TRNLNM("TOOL_DEBUG") THEN debug=1
$ IF debug THEN SET VERIFY
$ ON CONTROL_Y THEN GOTO clean_up
$ ON WARNING THEN GOTO clean_up
$ sts=1
$ sav_def=F$ENVIRONMENT("DEFAULT")
$ sav_mes=F$ENVIRONMENT("MESSAGE")
$ this_user=F$GETJPI("","USERNAME")
$ this_node=F$GETSYI("NODENAME")
$ this_proc=F$ENVIRONMENT("PROCEDURE")
$ mode=F$MODE()
$! ------------------------------------------
$ SET NOON
$!
$ IF P1 .EQS. "" THEN INQUIRE P1 "Enter Name of Queue where jobs will be deleted "
$ qname = P1
$ temp = F$GETQUI("CANCEL_OPERATION")
$ IF qname .EQS. "" THEN GOTO clean_up
$loop1:
$ qstop = F$GETQUI("DISPLAY_QUEUE", "QUEUE_STOPPED", QNAME, "WILDCARD")
$check_jobs:
$ inaccessible = F$GETQUI("DISPLAY_JOB", "JOB_INACCESSIBLE", , "ALL_JOBS")
$ IF inaccessible .EQS. "" THEN GOTO clean_up
$ job_name = F$GETQUI("DISPLAY_JOB", "JOB_NAME", , "FREEZE_CONTEXT,ALL_JOBS")
$ entry_number = F$GETQUI("DISPLAY_JOB", "ENTRY_NUMBER", , "FREEZE_CONTEXT,ALL_JOBS")
$ username = F$GETQUI("DISPLAY_JOB", "USERNAME", , "FREEZE_CONTEXT,ALL_JOBS")
$ WRITELN SYS$OUTPUT "Deleting Job ''job_name' entry ''entry_number' of ''username' in Queue ''qname'"
$ DELETE/ENTRY='entry_number'
$ GOTO check_jobs
$!
$!
$! ----------------------------------------
$clean_up:
$ SET DEFAULT 'sav_def'
$ SET MESSAGE 'sav_mes'
$ sav_ver=F$VERIFY(sav_ver)
$ EXIT 'sts'

Hope that helps

Regards

Heinz

Re: VMS & Print Queues

Robert_Boyd — Tue, 24 Jan 2006 14:58:13 GMT

Jorge,

I posted a procedure DELETE_OLD_PRINT_JOBS.COM to the dcl.OpenVMS.org website. This procedure will delete all jobs older than a specified delta time from queues.

The procedure will probably be available from that site tomorrow.

Robert

Re: VMS & Print Queues

Robert_Boyd — Tue, 24 Jan 2006 15:00:49 GMT

Here is a copy of DELETE_OLD_PRINT_JOBS.COM as an attachment.

Robert

Re: VMS & Print Queues

Jorge Cocomess — Wed, 25 Jan 2006 23:46:03 GMT

Robert - Thanks for the COM procedure, that worked.

You guys are the best!! All the points for this subject has been posted.

Thank you!!

J

Re: VMS & Print Queues

Ian Miller. — Thu, 26 Jan 2006 03:53:40 GMT

the procedure is at
http://dcl.openvms.org/stories.php?story=06/01/24/9856430

be sure to have a look at the others available at http://dcl.openvms.org