$ !
$ !  Purpose       : delete all entries in queue
$ !  Author        : Arne Vajhøj
$ !  Last modified : 01/04/92
$ !  Usage         : @QUEUE_CLEANUP <queue-name>
$ !  Remarks       : need OPER priv
$ !
$ set process/priv=oper
$ stop/queue/reset 'p1'
$ tmp=f$getqui("")
$ tmp=f$getqui("DISPLAY_QUEUE","QUEUE_NAME",p1,"WILDCARD")
$ loop:
$    entry=f$getqui("DISPLAY_JOB","ENTRY_NUMBER",,"ALL_JOBS")
$    if entry .eqs. "" then goto endloop
$    delete/entry='entry'
$    goto loop
$ endloop:
$ wait 00:00:30
$ start/queue 'p1'
$ exit
