###   
### list_QCF.jacl   
###   
###   
###   
###   
###   
   
proc list_QCF {cname nname sname} {   
   
   
###   
### set up globals   
###   
   
global AdminConfig   
global AdminControl   
global AdminApp   
   



set serverid [$AdminConfig getid /Cell:$cname/Node:$nname/Server:$sname/]   


set QCF_IDs  [$AdminConfig list MQQueueConnectionFactory $serverid]

puts "    "
puts "MQ QCFs for $cname $nname $sname: "
foreach QCF_ID $QCF_IDs {
    set xyz [$AdminConfig showAttribute $QCF_ID name]
    puts "$xyz"
}


}   
   
   
   
###   
### Main   
###   
   
   
if { !($argc == 3) } {   
   puts ""   
   puts "Usage:  "   
   puts " "   
   puts "wsadmin.sh -username system -password password -f list_QCF.jacl cellname nodename servername" 
   puts ""   
   puts "For example:  "   
   puts " "   
   puts "wsadmin.sh -username was -password acme@ -f  list_QCF.jacl hostnameNetwork hostname ops_1_1" 
} else {    
   set xcell        [lindex $argv 0]     
   set xnode        [lindex $argv 1]     
   set xserver      [lindex $argv 2]     
   list_QCF $xcell $xnode $xserver    
}