脚本文件从队列管理器检索MQ消息

Question

我想如果你想到达的所有消息写一个脚本文件将追加在日志file.Please帮助

Answer 1

在队列管理器到达的MQ消息在频道上，您可以使用mrmq.dk的BlockIP2页面中的LogIP退出。诸如SupportPac MA0W之类的API出口可以记录所有放置的消息。 API出口可以捕获来自本地应用程序的消息以及通过通道到达的消息。

如果要编写脚本，可以使用Q（来自SupportPac MA01）等程序在队列到达时从队列中移除消息，并将它们附加到文件中。

例如，

#!/usr/bin/ksh 

q -IMYQMGR/MY.QUEUE >> logfile.txt 

通常，脚本被触发并且被配置为新消息附加到该文件。问题在于它破坏性地删除了消息。如果有需要使用这些消息的记录应用程序，它不是一个好的解决方案。您可以浏览队列，但不能保证在应用程序获取消息之前获取消息 - 并且浏览会定期在队列头部重新启动，以便您可以记录两次相同的消息。

另一个脚本选项是Perl MQSeries模块。该模块公开了WMQ API的所有选项以及面向对象的方法。如果你需要快速和肮脏的东西，Q程序作为可执行文件提供。如果你想要一些能够将所有API暴露给脚本的强大功能（并且不介意编译它），Perl MQSeries模块是一个很好的选择。这里有一个代码片段，从模块的样品拍摄，展示了如何获取消息：

while (1) { 
    $sync_flag = 0; 
    undef $outcome; 
    my $request_msg = MQSeries::Message::->new(); 
    my $status = $request_queue-> 
     Get('Message'  => $request_msg, 
      'GetMsgOpts' => 
      { 
      'WaitInterval' => 5000, # 5 seconds 
      'Options'  => (MQSeries::MQGMO_WAIT | 
           MQSeries::MQGMO_SYNCPOINT_IF_PERSISTENT | 
           MQSeries::MQGMO_CONVERT | 
           MQSeries::MQGMO_FAIL_IF_QUIESCING), 
      }, 
     ); 
    unless ($status) { # Error 
     my $rc = $request_queue->Reason(); 
     die "Error on 'Get' from queue $qmgr_name/$request_qname:\n" . 
      "\tReason: $rc (" . MQReasonToText($rc). ")\n"; 
    } 
    next if ($status < 0);  # No message available 

一件事的人在过去所做的是队列在话题转换为一个别名。使用消息的应用程序将从新队列重定向到GET，而管理预订会将主题连接到新队列。在这一点上，真正的应用程序获取所有的消息，并且可以通过新的订阅记录消息通过主题。