Sponsored Content
Top Forums Shell Programming and Scripting How to write Perl Script to Get MQ Queue Depth? Post 302931469 by Skrynesaver on Tuesday 13th of January 2015 09:35:30 AM
Old 01-13-2015
You don't have access to the CPAN repository from your host?

You could take the required module code from these links
https://metacpan.org/source/MQSERIES...34/MQSeries.pm
https://metacpan.org/source/MQSeries::Config::Machine

and copy them into your PERL5LIB path (you may have to set up a PERL5LIB path in your environment eg. export PERL5LIB=${HOME}/Perl5/lib in ${HOME}/.profile)

Then create the files as
${PERL5LIB}/MQSeries.pm
and
${PERL5LIB}/MQSeries/Config/Machine.pm
This User Gave Thanks to Skrynesaver For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

mq queue depth

hi how to find the queue depth of MQ Queue using unix please its very urgent (0 Replies)
Discussion started by: Satyak
0 Replies

2. Shell Programming and Scripting

Need help to write a Perl script

Hello friends, I am having a awk script which does my goal , but I want to learn perl , after learning the basics in perl now I am trying to convert my nawk script to perl . Please help me to do some task in perl that I ve already did in nawk. Like I am facing some problem in... (10 Replies)
Discussion started by: user_prady
10 Replies

3. UNIX for Dummies Questions & Answers

Should I write a PERL Script or Shell Script?

Hello, I have done some BASIC shell scripting/PERL scripting before so I am familiar with the languages. I am not really sure which one would lend itself better to the application I have to write. I am required to scan the message logs for possible break in attempts. If I use shell scripting... (2 Replies)
Discussion started by: mojoman
2 Replies

4. Shell Programming and Scripting

perl script to find, write, repeat...

I am a novice writing perl scripts so I'd appreciate any help you guys can offer. I have a list of 100 words in a file (words.txt) and I need to find them in a second file (data.txt). Whenever one of these words is found I need to write that line to a third file (out.txt) and then continue... (1 Reply)
Discussion started by: tgamble
1 Replies

5. Shell Programming and Scripting

perl script to check read/write/execute permission for 'others'

I want to check access rights permissions not for 'user', not for 'group', but for 'others'. I want to do it by system command in which i want to use 'ls -l' and 'awk' command. I have written the following program : #!/usr/bin/local/perl #include <stdlib.h> system ("ls -l | awk... (1 Reply)
Discussion started by: shubhamsachdeva
1 Replies

6. Shell Programming and Scripting

How to write a update query in perl script?

can any one suggest me on how to write a update query in perl script for Oracle database and also tell me abt how we can write a code for sending mails with report as attachment to appropriate persons? (1 Reply)
Discussion started by: Ramesh V Kumar
1 Replies

7. Shell Programming and Scripting

Need a perl script to read and write the data

Hi, I have on Designdocument in that information is stored with in tabular format.I need Perlscript to read and write the datausing perl script? Regards, Ravi (0 Replies)
Discussion started by: toravi.pentaho
0 Replies

8. Shell Programming and Scripting

Need a UNIX/perl script to read and write the data

Hi, I have on Designdocument in that information is stored with in tabular format.I need Perl/unix script to read and write the data using perl script? Regards, Ravi (4 Replies)
Discussion started by: toravi.pentaho
4 Replies

9. Shell Programming and Scripting

Perl script to create/write into spreadsheet

Hi, I need help in debug following script. can somebody help....!!! #!/usr/bin/perl -w use strict; use Spreadsheet::WriteExcel; # Create a new workbook called simple.xls and add a worksheet. my $workbook = Spreadsheet::WriteExcel->new('simple.xls'); my $worksheet =... (1 Reply)
Discussion started by: chettyravi
1 Replies

10. Shell Programming and Scripting

MQ Queue depth.

Hi All, We have SuoOs and Linux servers. May i know how do we find the queue depth of IBM MQ from server. (2 Replies)
Discussion started by: Girish19
2 Replies
MQSERIES_PUT(3) 							 1							   MQSERIES_PUT(3)

mqseries_put - MQSeries MQPUT

SYNOPSIS
void mqseries_put (resource $hConn, resource $hObj, array &$md, array &$pmo, string $message, resource &$compCode, resource &$rea- son) DESCRIPTION
The mqseries_put(3) (MQPUT) call puts a message on a queue or distribution list. The queue or distribution list must already be open. PARAMETERS
o $hConn -Connection handle.This handle represents the connection to the queue manager. o $hObj -Object handle.This handle represents the object to be used. o $md -Message descriptor (MQMD). o $pmo -Put message options (MQPMO). o $message -The actual message to put onto the queue. o $compCode -Completion code. o $reason -Reason code qualifying the compCode. RETURN VALUES
No value is returned. EXAMPLES
Example #1 mqseries_put(3) example <?php // open connection to the queue manager mqseries_conn('WMQ1', $conn, $comp_code, $reason); // $conn now hold the reference to the connection to the queue manager. // open the connectio to the testq queueu mqseries_open( $conn, array('ObjectName' => 'TESTQ'), MQSERIES_MQOO_INPUT_AS_Q_DEF | MQSERIES_MQOO_FAIL_IF_QUIESCING | MQSERIES_MQOO_OUTPUT, $obj, $comp_code, $reason); // $obj now holds the reference to the object (TESTQ) // setup the message descriptor array. Check MQSeries reference manuals. $md = array( 'Version' => MQSERIES_MQMD_VERSION_1, 'Expiry' => MQSERIES_MQEI_UNLIMITED, 'Report' => MQSERIES_MQRO_NONE, 'MsgType' => MQSERIES_MQMT_DATAGRAM, 'Format' => MQSERIES_MQFMT_STRING, 'Priority' => 1, 'Persistence' => MQSERIES_MQPER_PERSISTENT); // setup the put message options. $pmo = array('Options' => MQSERIES_MQPMO_NEW_MSG_ID|MQSERIES_MQPMO_SYNCPOINT); // put the message 'Ping' on the queueu. mqseries_put($conn, $obj, $md, $pmo, 'Ping', $comp_code, $reason); if ($comp_code !== MQSERIES_MQCC_OK) { printf("put CompCode:%d Reason:%d Text:%s<br> ", $comp_code, $reason, mqseries_strerror($reason)); } // close the object reference $obj mqseries_close($conn, $obj, MQSERIES_MQCO_NONE, $comp_code, $reason); // disconnect from the queue manager. mqseries_disc($conn, $comp_code, $reason); ?> SEE ALSO
mqseries_conn(3), mqseries_connx(3), mqseries_open(3), mqseries_get(3). PHP Documentation Group MQSERIES_PUT(3)
All times are GMT -4. The time now is 02:38 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy