  Redirecting queue contents? 
 The Question is:
 
How do I send all print jobs that are sent to que1 to have them print on que2?
 
 The Answer is :
 
    Sample command procedure:
 
$ IF p1.EQS."" THEN INQUIRE p1 "Source queue"
$ IF p2.EQS."" THEN INQUIRE p2 "Destination queue"
$ x=F$GETQUI("CANCEL_OPERATION")
$ loop1: z=F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME",p1,"WILDCARD")
$   IF z.EQS."" THEN EXIT
$   WRITE SYS$OUTPUT "queue ''z'"
$   loop2: x=F$GETQUI("DISPLAY_JOB","ENTRY_NUMBER",,"ALL_JOBS")
$     IF x.NES.""
$     THEN
$       WRITE SYS$OUTPUT "  entry ''x'"
$       SET ENTRY 'x' /REQUEUE='p2'
$       GOTO loop2
$     ENDIF
$ GOTO loop1
 
 
  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.
 
 Answer written or last revised on  15-AUG-2001 
