#!/bin/ksh
QMGR=$1
echo "Displaying Remote queue information\n"
echo "\nQUEUE,RNAME,XMITQ,RQMNAME,CHANNEL,IPADDRESS"
echo "dis qr(*)" |runmqsc $QMGR| grep QUEUE| grep -v SYSTEM| cut -d '(' -f2| cut -d ')' -f1| while read queue
do
rq=$queue
lq=`echo "dis qr($queue) rname"|runmqsc $QMGR| tr ' ' '\n' | sed 's/^*//g'|grep RNAME| cut -d '(' -f2| cut -d ')' -f1`
rqm=`echo "dis qr($queue) rqmname"|runmqsc $QMGR| tr ' ' '\n' | sed 's/^*//g'|grep RQMNAME| cut -d '(' -f2| cut -d ')' -f1`
xmitq=`echo "dis qr($queue) xmitq"|runmqsc $QMGR| tr ' ' '\n' | sed 's/^*//g'|grep XMITQ| cut -d '(' -f2| cut -d ')' -f1`
chl=`echo "dis chl(*) xmitq"| runmqsc $QMGR |egrep 'CHANNEL|XMITQ'|egrep -v 'CLUSSDR|CLUSRCVR|RCVR|SYSTEM|SVRCONN'|sed s/'CHA
NNEL'/+/g|tr -d '\n'|tr '+' '\n'|grep $xmitq|awk '{print $1}'| sed -e 's/(/ /' -e 's/)/ /'`
ip=`echo "dis chl($chl) conname"|runmqsc $QMGR | tr ' ' '\n' | sed 's/*^//'| grep CONNAME| cut -d '(' -f2`
echo $rq $lq $xmitq $rqm $chl $ip| awk '{print $1 "," $2 "," $3 "," $4 "," $5 "," $6 }'
done
echo "\n"
echo "\nDisplaying Alias Queue Information\n"
echo "ALIAS QUEUE,TARGET QUEUE"
echo "dis qa(*)"| runmqsc $QMGR| grep QUEUE| grep -v SYSTEM| cut -d '(' -f2| cut -d ')' -f1| while read queue
do
qa=$queue
targq=`echo "dis qa($queue) targq"| runmqsc $QMGR| tr ' ' '\n' | sed 's/^*//g'|grep TARGQ| cut -d '(' -f2| cut -d ')' -f1`
echo $qa $targq| awk '{print $1"," $2}'
done
echo "\n"
echo "\nDisplaying Local queue information\n"
echo "\nLOCAL QUEUE"
echo "dis ql(*) USAGE"|runmqsc $QMGR| grep QUEUE|grep -v SYSTEM| grep -v XMITQ| cut -d '(' -f2 | cut -d ')' -f1
echo "\n\n"
echo "Displaying receiver channel information\n"
echo "CHANNEL,SENDER IPADDRESS"
echo "dis chl(*) chltype(rcvr)"| runmqsc $QMGR |grep CHANNEL|grep -v SYSTEM| cut -d '(' -f2 | cut -d ')' -f1| while read chl
do
ip=`echo "dis chs($chl)"|runmqsc $QMGR| tr ' ' '\n'| sed 's/^*//'| grep CONNAME| cut -d '(' -f2| cut -d ')' -f1`
echo $chl $ip| awk '{print $1","$2}'
done