Article 166399 of comp.os.vms:
Yup... The below command procedure will empty the specified queue of it's
entire contents... Customise to suit... It's wiz bang, slap together stuff,
but it works... 

$!
$	on ERROR then goto end_it
$	on control_y then goto end_it
$ symbols:
$	ask := read sys$command/prompt=
$	say = "write sys$output"
$	cnt = 0
$	knt = 0
$ start:
$	if p1 .eqs. ""
$	 then
$	  say ""
$	  ask "Please enter a queue :" p1
$	endif
$	p1 = f$edit(p1,"upcase")
$ context_loop:
$	qnam = f$edit(f$getqui("display_queue","queue_name","*"),"upcase")
$	if qnam .nes. "''p1'" then goto context_loop
$ job_loop:
$	jnam'cnt' = f$getqui("display_job","job_name",,"all_jobs")
$	jent'cnt' = f$getqui("display_job","entry_number",,"freeze_context")
$	job_ent = jent'cnt'
$	if jnam'cnt' .eqs. ""
$	 then
$	  goto tell_user
$	 else
$	  del/ent='job_ent'
$	  cnt = cnt+1
$	  goto job_loop
$	endif
$ tell_user:
$	if jnam'knt' .eqs. ""
$	 then
$	  say ""
$	  say "It appears there is nothing in that queue...!!!"
$	  exitt
$	endif
$ end_it:
$	if f$verify() .eq. 1 then veri = f$verify("NO")
$ exitt


See ya...

Ted...;-)..

All opinions here are mine and in no way shape or form reflect those of my
employer!


----------
> From: Kings, Jack M <JMKings@EMS.JSC.NASA.GOV>
> To: Multiple recipients of list INFO-VAX <INFO-VAX@UGA.CC.UGA.EDU>
> Subject: del/entry
> Date: Wednesday, 26 February 1997 8:07
> 
> system=vax 10000-620 in a cluster with two 4000-300
> software= vms 5-5.2
> 
> sometimes an operator will do a print job from their pc and it will be a
> bad job or what ever and there will be over three or four hundred
> entries in the print que. most os them 1 block long.
> 
> my question is how can i delete this many entries from a queue without
> having to do one of the following commands
> 
>         del/entry=123<return>
>                 or
>         del/entry=(123,124,125,126,126,128,129)<return>
> 
> is there a way to delete large numbers of entries from a printque
> without typing each number in.
> 
> tks....jack
> 
> INTERNATION SPACE STATION.....JUST BUILD IT!!!!!!!!!!


