Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
Register  ::  Log in Log in to check your private messages
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support Forum IndexFiles and Code SamplesPerl

This forum is locked: you cannot post, reply to, or edit topics.This topic is locked: you cannot edit posts or make replies.
Perl View previous topic :: View next topic
Author Message
PostPosted: Sun Sep 02, 2007 6:34 am Post subject: Perl Reply with quote


Joined: 13 Jul 2007
Posts: 152

AdminMove - Sometimes an admin has to move messages out of one queue and onto another without destroying the context info. The attached script shows how to do this using the Perl MQ API. The messages are moved under syncpoint and use the FAIL_IF_QUIESCING options as well. It runs local or as a client and doesn't barf in strict mode.

Created by: T. Robert Wyatt

getput - Useful perl utility for providing a "hopping" point for messages. In other words, if you want to move a message from Queue Manager A to Queue Manager C, but you can only move it there via intermediate Queue Manager B, then you can use this program to automatically forward messages to the ultimate destination. It is invoked with 2 parameters, the source queue name and the destination queue name. It is configured to maintain the MsgId, CorrelId and other header information as it passes the message along, but this can easily be tweaked to create a new message that has the same data as the original. If there are no messages on the source queue it will exit after 10 minutes. It has a 32K buffer size. Both of these parameters can be changed to suit your needs.

Created by: Brandon Duncan

makeq - Although this program seems simple on the surface, it actually has an interesting way of creating a queue. will issue commands within runmqsc interactively to create the queue and capture the output from the queue manager. This is displayed to the user. then calls system() to run setmqaut and grant authorities for a given user on the newly created queue. This program can be easily modified to issue any command within runmqsc and interact with the command console.

Created by: Brandon Duncan

inquireq - This simple program connects to a queue manager and then issues an MQINQ command on a queue to get the current depth of the queue. It is used to illustrate how MQINQ works with the Perl MQSeries API, and can be easily extended to query other query attributes - or even other objects like queue managers, namelists, etc.

Created by: Brandon Duncan
Back to top
View user's profile Send private message
Display posts from previous:
This forum is locked: you cannot post, reply to, or edit topics.This topic is locked: you cannot edit posts or make replies. Page 1 of 1 Forum IndexFiles and Code SamplesPerl
Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Protected by Anti-Spam ACP

Theme by Dustin Baccetti
Powered by phpBB 2001, 2002 phpBB Group

Copyright All rights reserved.