Sponsored Content
Full Discussion: PERL MQSeries MQCONN issue
Top Forums Programming PERL MQSeries MQCONN issue Post 303002281 by mrn6430 on Monday 21st of August 2017 07:05:15 PM
Old 08-21-2017
PERL MQSeries MQCONN issue

Hi,

I have an issue with a PERL5 script that calls MQCONN. I get this error on this Perl step when connecting to my Q manager: "Undefined Undefined subroutine &main::MQCONN called at ./quelog.pl "

I use this code:
Code:
$Hconn = MQCONN($QMGR,$CompCode,$Reason);

In my .profile:
Code:
export PERL5LIB="$PERL5LIB:/shared/tools/quelog/modules"

where I have my MQseries, MQCLIENT and MQSERVER. Please help !

Perl Version = perl 5, version 16, subversion 1 (v5.16.1) built for i686-linux-thread-multi
Linux OS: Red Hat 6.5

---------- Post updated at 06:05 PM ---------- Previous update was at 12:00 PM ----------

I tried to re-compile and I get this error:

Code:
gcc -c  -I"/opt/mqm/inc" -I../include -m32 -march=i686 -mtune=i686 -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2   -DVERSION=\"1.34\" -DXS_VERSION=\"1.34\" -fPIC "-I/vendor/perl5/lib/i686-linux-thread-multi/CORE"  -DMQ_CMVC_LVALUE=\"v7.5.0.6/p750-006-160226\" constants.c
Running Mkbootstrap for MQClient::MQSeries ()
chmod 644 MQSeries.bs
rm -f ../blib/arch/auto/MQClient/MQSeries/MQSeries.so
LD_RUN_PATH="/opt/mqm/lib" gcc  -shared -Wl,-rpath -Wl,/opt/mqm/lib MQSeries.o constants.o  -o ../blib/arch/auto/MQClient/MQSeries/MQSeries.so     \
           -L/opt/mqm/lib -lmqic        \
 MQSeries.o: could not read symbols: File in wrong format
collect2: ld returned 1 exit status

 

10 More Discussions You Might Find Interesting

1. Programming

Shellscript for MQSeries

Iam new to shellscript. 1)How to strart QUERYMANAGER using shellscript. 2)How to put and get messages in MQSeries using shellscripts. 3)iam using local queues . Thanks lot. (0 Replies)
Discussion started by: ram2s2001
0 Replies

2. Shell Programming and Scripting

Is there a way to find the version of my MQSeries?

Is there a way to find the version of my MQSeries? Thanks, Vijay. (0 Replies)
Discussion started by: Vijay06
0 Replies

3. Shell Programming and Scripting

perl issue ..

hi one perl issue i have xml file with 2 values and one condition b.w them <rule> <val1>12</val1> <cond>and</cond> <val2>13</val2> </rule> i read these values in hash in perl code $one{val1} = 12 $one{cond} = and $one{val2} = 13 now i want to form... (3 Replies)
Discussion started by: zedex
3 Replies

4. Shell Programming and Scripting

Perl Script Issue - Please Help * Thanks!!!

Please help me with my script please. I am trying to do the following: 1. Read files for the current directory 2. Open and read from nbe files files only 3. Read only the lines with the results pattern 4. Split the line and print 3rd field Please indicate what line I need to modify. ... (8 Replies)
Discussion started by: jroberson
8 Replies

5. Shell Programming and Scripting

Perl Issue

Hi, I got this script from the web, this generates an LDAP report in CSV format. #!/usr/bin/perl # # Copyright (c) 2004 # Ali Onur Cinar &060;cinar&064;zdo.com&062; # # License: # # Permission to use, copy, modify, and distribute this software and its # documentation for... (23 Replies)
Discussion started by: raj001
23 Replies

6. Shell Programming and Scripting

using MQCONN

Hi, I am trying to connect to a queue manager, but I am not able to use the MQCONN command . If anyone have sample program , please help thanks in davance Satya (2 Replies)
Discussion started by: Satyak
2 Replies

7. Shell Programming and Scripting

Perl issue - please help!

Hello. I've been writing some code in Perl to read in strings from html files and have been having issues. In the html file, each "paragraph" is a certain file on the website. I need to find every one of the files that is a certain type, in this case, having green color....therefore... (7 Replies)
Discussion started by: akreibich07
7 Replies

8. Shell Programming and Scripting

wc -l command issue with perl

Hi Team, the Following program execute with out error but the out is not save with create2.txt. kindly help me!!! print "Enter your Number \n"; my $name = <STDIN>; if ($name =="*91111*") { @dirlist1 = `wc -l $name > create2.txt`; } else {print "do not match";} (3 Replies)
Discussion started by: adaleru
3 Replies

9. Shell Programming and Scripting

Out of memory issue in perl

I am getting a out of memory issue while executing the perl program. Per version : /opt/acc_perl/lib/site_perl/5.14.2 Read in 54973 total records Read in 54973 table records from table. Out of memory! so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
Discussion started by: ramkumar15
3 Replies

10. Programming

Perl - EMail issue - NEED Help

I have a perl that is sending emails in a bad format: "begin 644 Included.doc M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies
Filesys::DiskSpace(3pm) 				User Contributed Perl Documentation				   Filesys::DiskSpace(3pm)

NAME
Filesys::DiskSpace - Perl df SYNOPSIS
use Filesys::DiskSpace; ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir; DESCRIPTION
This routine displays information on a file system such as its type, the amount of disk space occupied, the total disk space and the number of inodes. It tries "syscall(SYS_statfs)" and "syscall(SYS_statvfs)" in several ways. If all fails, it "croak"s. OPTIONS
$fs_type [number] type of the filesystem. $fs_desc [string] description of this fs. $used [number] size used (in Kb). $avail [number] size available (in Kb). $ffree [number] free inodes. $fused [number] inodes used. Installation See the INSTALL file. COPYRIGHT
Copyright (c) 1996-1999 Fabien Tassin. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. AUTHOR
Fabien Tassin <fta+cpan@sofaraway.org> NOTES
This module was formerly called File::Df. It has been renamed into Filesys::DiskSpace. It could have be Filesys::Df but unfortunatly another module created in the meantime uses this name. Tested with Perl 5.003 under these systems : - Solaris 2.[4/5] - SunOS 4.1.[2/3/4] - HP-UX 9.05, 10.[1/20] (see below) - OSF1 3.2, 4.0 - Linux 2.0.*, 2.2.* Note for HP-UX users : if you obtain this message : "Undefined subroutine &main::SYS_statfs called at Filesys/DiskSpace.pm line XXX" and if you are using a hp9000s700, then edit the syscall.ph file (in the Perl lib tree) and copy the line containing "SYS_statfs {196;}" outside the "if (defined &__hp9000s800)" block (around line 356). perl v5.14.2 2012-04-12 Filesys::DiskSpace(3pm)
All times are GMT -4. The time now is 06:26 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy