Post by Rein,Rodneyset queue qname/retain
that will retain all jobs and tell the user and date/time....be aware that
this will retain ALL jobs. You will need to delete and re-create the queue to
get rid of the retained jobs or delete them manually.
Well, you don't actually have to do that. More follows...
Post by Rein,RodneyMight also try accounting - help accounting/type
That would be best, really.
There is no need (on newer VMS) to delete a queue full of retained entries to
clear them out. You just need some code that doesn't ship with VMS.
I call this little piece "LDO" (ell-doo) or "List Do" to perform an operation on
the entity in the first "word" of strings read from a pipeline:
$!
$! LDO.COM - by David J Dachtera
$!
$ if p1 .eqs. ""
$ then
$ type sys$pipe
$ exit
$ endif
$ set noon
$read_loop:
$ read/end=eof_pipe sys$pipe p9
$ elm0 = f$elem( 0, " ", f$edit( p9, "trim,compress" ))
$ 'p1' 'elm0''p2'
$ goto read_loop
$eof_pipe:
$ exit
To clear out Retained entries (regardless of why they were retained!), you could
use a command like this:
$ PIPE -
SHOW QUEUE/ALL queue_name | -
SEARCH SYS$PIPE RETAINED | -
@LDO "DELETE/ENTRY="
Not fool-proof since long job names can cause the entry number and the
"Retained" flag to appear on separate lines in the display, but could be useful,
I think.
Most folks cook up some DCL using F$GETQUI() in a loop to find all the retained
entries on a queue and delete them one by one.
One of the commands the VMS forgot:
$ DELETE/ENTRY={ALL|EXECUTING|HOLDING|PENDING|RETAINED}/QUEUE=queue_name
--
David J Dachtera
dba DJE Systems
http://www.djesys.com/
Unofficial OpenVMS Marketing Home Page
http://www.djesys.com/vms/market/
Unofficial Affordable OpenVMS Home Page:
http://www.djesys.com/vms/soho/
Unofficial OpenVMS-IA32 Home Page:
http://www.djesys.com/vms/ia32/
Unofficial OpenVMS Hobbyist Support Page:
http://www.djesys.com/vms/support/