$! CHECK_QUEUES V1.60 11-Jun-93
$!
$! Desc: Procedure to verify that all queues are available
$ set noverify
$!
$! If we are not already executing as a detached process
$! then do it
$!
$ if f$mode() .eqs. "OTHER" then goto SKIP
$ run/detach sys$system:loginout.exe -
	/input=tasm$com:check_queues.com -
	/output=tasm$scratch:check_queues.log -
	/process_name="<Check_Queues>" -
	/UIC=[1,4]
$ EXIT
$!
$SKIP:
$ interval = "00:05:00"
$!
$! Verify that all queues are operational
$!
$LOOP1:
$ qu=f$getqui("display_queue","queue_name","*")
$ if qu .eqs. "" then goto DONE
$ stat=f$getqui("display_queue","queue_status","*","freeze_context")
$ if stat .gt. 6
$ then
$   request/to=central "''qu' is NOT started, please investigate."
$   show time
$ endif
$GOTO LOOP1
$DONE:
$ wait 'interval'
$ goto LOOP1