Here's a short method you can place in a utility class that does what you want:
ClassMethod AbortAll() As %Status
{
Set tSC = $$$OK
Set tQry = ##class(%SQL.Statement).%New()
Set tSC = tQry.%PrepareClassQuery("Ens.Queue","Enumerate")
If $$$ISOK(tSC)
{
Set tRS = tQry.%Execute()
While tRS.%Next()
{
Set tQueue = tRS.%Get("Name")
Write !, "Aborting Queue "_tQueue
Do ##class(Ens.Queue).AbortQueue(tQueue)
}
}
Return tSC
}
- Log in to post comments
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)