Help for this page

Select Code to Download

Select or download this

./mqput.pl TQMGR PERL.MQI.TEST file2.txt MQPUT failed (Reason = 2030) 
+at ./mqput.pl line 45. Unable to put message onto queue. CompCode = 2
+ Reason = 2030

Select or download this

#!/opt/perl/bin/perl

...
    or die("Unable to put message onto queue.\n" .
           "CompCode = " . $queue->CompCode() . "\n" .
           "Reason = " . $queue->Reason() . "\n");