###
### set_MQ_Queues.jacl
###
###
###
###
###
proc set_MQQueue {MQJMSProviderID nname mqqmgr queueList} {
###
### set up globals
###
global AdminConfig
global AdminControl
global AdminApp
foreach {qName bqName} $queueList {
puts "Creating $qName $bqName ..."
set CCSID [ list CCSID 1208 ]
set baseQueueManagerName [ list baseQueueManagerName $mqqmgr ]
set baseQueueName [ list baseQueueName $bqName ]
set decimalEncoding [ list decimalEncoding Normal ]
set description [ list description $qName ]
set expiry [ list expiry APPLICATION_DEFINED ]
set floatingPointEncoding [ list floatingPointEncoding IEEENormal ]
set integerEncoding [ list integerEncoding Normal ]
set jndiName [ list jndiName mq/$qName ]
set name [ list name $qName ]
set persistence [ list persistence APPLICATION_DEFINED ]
set priority [ list priority APPLICATION_DEFINED ]
set targetClient [ list targetClient MQ ]
set useNativeEncoding [ list useNativeEncoding true ]
set attrs [ list $CCSID \
$baseQueueManagerName \
$baseQueueName \
$decimalEncoding \
$description \
$expiry \
$floatingPointEncoding \
$integerEncoding \
$jndiName \
$name \
$persistence \
$priority \
$targetClient \
$useNativeEncoding
]
##puts " ATTRS = $attrs"
if { [ catch { $AdminConfig create MQQueue $MQJMSProviderID $attrs } r ] == 0 } {
$AdminConfig save
} else {
puts "\nproblem creating MQQueue $qName. \n"
puts $r
puts "************************************\n"
return -code error $r
}
}
### Synchronize nodes
puts "Synchronizing nodes..."
set Sync1 [$AdminControl completeObjectName type=NodeSync,node=$nname,*]
set xstatus [$AdminControl invoke $Sync1 sync]
puts $xstatus
if {$xstatus == "false"} {
puts "Unable to synchronize..."
}
}
###
### Main
###
if { !($argc == 15) } {
puts ""
puts "Insufficient arguments supplied on command line: "
puts " "
} else {
set MQJMSProviderID [lindex $argv 0]
set nname [lindex $argv 1]
set mqqmgr [lindex $argv 2]
set qname1 [lindex $argv 3]
set mqqueue1 [lindex $argv 4]
set qname2 [lindex $argv 5]
set mqqueue2 [lindex $argv 6]
set qname3 [lindex $argv 7]
set mqqueue3 [lindex $argv 8]
set qname4 [lindex $argv 9]
set mqqueue4 [lindex $argv 10]
set qname5 [lindex $argv 11]
set mqqueue5 [lindex $argv 12]
set qname6 [lindex $argv 13]
set mqqueue6 [lindex $argv 14]
set queueList [list $qname1 $mqqueue1 $qname2 $mqqueue2 $qname3 $mqqueue3 $qname4 $mqqueue4 $qname5 $mqqueue5 $qname6 $mqqueue6 ]
set_MQQueue $MQJMSProviderID $nname $mqqmgr $queueList
}
