set_MQ_Queues.jacl

 

###   
### set_MQ_Queues.jacl   
###   
###   
###   
###   
###   
   
proc set_MQQueue {cname nname sname} {   
   
   
###   
### set up globals   
###   
   
global AdminConfig   
global AdminControl   
global AdminApp   
   
   
set JMSProviderIDs [$AdminConfig getid /Cell:$cname/Node:$nname/Server:$sname/JMSProvider:/] 
   
      if {[llength $JMSProviderIDs] == 0} { 
         puts "JMSProvider ID null - returning " 
         continue  
      } 
 
   
foreach JMSProviderID $JMSProviderIDs {   
 

$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName COLLABJOBEXECQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description CollabJobExecQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/CollabJobExecQueue} \
{name CollabJobExecQueue} \
{password password} \
{persistence NONPERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName ERRORBIZDOCQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ErrorBizDocQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ErrorBizDocQueue} \
{name ErrorBizDocQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName ERRORQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ErrorQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ErrorQueue} \
{name ErrorQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName JOBEXECQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description JobExecQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/JobExecQueue} \
{name JobExecQueue} \
{password password} \
{persistence NONPERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName MATCHQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description MatchQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/MatchQueue} \
{name MatchQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName PREPAYQUEUE} \
{category BUYERSIDE} \
{decimalEncoding Normal} \
{description PrepayQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/PrepayQueue} \
{name PrepayQueue} \
{password password} \
{persistence NONPERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVEINVOICEQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceiveInvoiceQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveInvoiceQueue} \
{name ReceiveInvoiceQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVENONMATCHDOCUMENTQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceiveNonMatchDocumentQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveNonMatchDocumentQueue} \
{name ReceiveNonMatchDocumentQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVEPAYMENTQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceivePaymentQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceivePaymentQueue} \
{name ReceivePaymentQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVERECEIPTADJUSTMENTQUEUE} \
{category BUYERSIDE} \
{decimalEncoding Normal} \
{description ReceiveReceiptAdjustmentQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveReceiptAdjustmentQueue} \
{name ReceiveReceiptAdjustmentQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVERECEIPTPURGEQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceiveReceiptPurgeQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveReceiptPurgeQueue} \
{name ReceiveReceiptPurgeQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVERECEIPTQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceiveReceiptQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveReceiptQueue} \
{name ReceiveReceiptQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVEVENDORQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceiveVendorQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveVendorQueue} \
{name ReceiveVendorQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
$AdminConfig create MQQueue $JMSProviderID { {CCSID 0} \
{baseQueueManagerName QMGR.HOSTNAME.WSTEST4} \
{baseQueueName RECEIVEVOIDCHECKQUEUE} \
{category BUYER} \
{decimalEncoding Normal} \
{description ReceiveVoidCheckQueue} \
{expiry APPLICATION_DEFINED} \
{floatingPointEncoding IEEENormal} \
{integerEncoding Normal} \
{jndiName acme/buyer/jms/ReceiveVoidCheckQueue} \
{name ReceiveVoidCheckQueue} \
{password password} \
{persistence PERSISTENT} \
{priority APPLICATION_DEFINED} \
{queueManagerHost hostname} \
{queueManagerPort 1414} \
{serverConnectionChannelName SYSTEM.DEF.SVRCONN} \
{specifiedExpiry 0} \
{specifiedPriority 0} \
{targetClient JMS} \
{useNativeEncoding false} \
{userName root} } 
 
 
 
   
}   
   
$AdminConfig save   


### Synchronize 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 == 3) } {   
   puts ""   
   puts "Usage:  "   
   puts " "   
   puts "wsadmin.sh -username system -password password -f set_MQQueue.jacl cellname nodename servername" 
   puts ""   
   puts "For example:  "   
   puts " "   
   puts "wsadmin.sh -username was -password acme@ -f  set_MQQueue.jacl hostnameNetwork hostname ops_1_1" 
} else {    
   set xcell        [lindex $argv 0]     
   set xnode        [lindex $argv 1]     
   set xserver      [lindex $argv 2]     
   set_MQQueue $xcell $xnode $xserver    
}