how to check JMS queue depth using jacl

Case 1: check depth of 1 particular queue

set qpoint “WebSphere:*,type=SIBQueuePoint,name=MyQueuePointName”
set queues [$AdminControl queryNames $qpoint]
foreach q $queues {
set identifier [$AdminControl getAttribute $q identifier]
set size [$AdminControl getAttribute $q depth]
puts “$identifier size: $size messages”
puts [$AdminControl getAttributes $q]
}

Case 2: check all the queue points

set qpoint “WebSphere:*,type=SIBQueuePoint”
set queues [$AdminControl queryNames $qpoint]
foreach q $queues {
set identifier [$AdminControl getAttribute $q identifier]
set size [$AdminControl getAttribute $q depth]
puts “$identifier size: $size messages”
puts [$AdminControl getAttributes $q]
}