MQSeries.net :: View topic

sebastian · Posted: Wed Jan 14, 2004 6:19 am Post subject:

I am having some challenges coding an MQopen in Perl on windows. As a model, I am using a pscript that runs successfully on Unix. The parameter format I am using is:

MQopen(hconn,ObjDesc,options,compcode,reason)

When I try to run the script, I get the message "Reference expected for parameter ObjDesc." Directly before the open, I am moving a valid queue name to this variable so I am not sure why I am getting this message. I have tried updating the ObjDesc variable with single and double quotes and also as a literal value but get the same results. I am using an MQconn before this that works fine.

The actual code is below. Any feedback is appreciated.
thanks,
Seb

#!/opt/perl/bin/perl

#use MQSeries::MQClient;
use MQClient::MQSeries;

$qmgr=PRWAPMQADM01D;
print "$qmgr\n";
#***********************************************************************
#
# connect to QM(s) named in config if connect fails, die
#
#***********************************************************************

################################################################################
print "**attempting MQconn\n";
################################################################################

print "qmgr = $qmgr compcode = $CompCode reason = $reason \n";

$SRCHconn = MQCONN($qmgr,$CompCode,$Reason);

if ($CompCode > 0){

die "can't connect to source $SRCName code $CompCode reason cd $Reason \n";
} else {
print "it looks good \n";
}

print "after qmgr = $qmgr\n";
print "after CompCode = $CompCode\n";
print "after reason = $Reason\n";

################################################################################
print "**attempting MQOPEN\n";
################################################################################
print " \n";

# open parameters

$SRCObjDesc = sebtest;
$SRCOptions = MQOO_INPUT_AS_Q_DEF | MQOO_FAIL_IF_QUIESCING | MQOO_BROWSE;

print "prior to open parameters = SRCHconn = $SRCHconn\n";
print "prior to open parameters = SRCObjDesc = $SRCObjDesc\n";
print "prior to open parameters = SRCOptions = $SRCOptions\n";
print "prior to open parameters = CompCode = $CompCode\n";
print "prior to open parameters = Reason = $Reason\n";

# $SRCHobj = MQOPEN($SRCHconn,$SRCObjDesc,$SRCOptions,$CompCode,$Reason);
$SRCHobj = MQOPEN($SRCHconn,$SRCObjDesc,sebtest,$CompCode,$Reason);

print "after open parameters = SRCHconn = $SRCHconn\n";
print "after open parameters = SRCObjDesc = $SRCObjDesc\n";
print "after open parameters = SRCOptions = $SRCOptions\n";
print "after open parameters = CompCode = $CompCode\n";
print "after open parameters = Reason = $Reason\n";

print "reason2 = $reason\n";
print "comp code2 = $CompCode\n";
if ($CompCode > 0){

print "can't connect to source2 $SRCName code $CompCode reason $ReasonText \n";
# die "can't connect to source2 $SRCName code $CompCode reason $ReasonText \n";
} else {
print "it looks good2 \n";
}
_________________
sebastian signature