./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

##</code><code>##

#!/opt/perl/bin/perl

use MQSeries qw(:functions);
use MQSeries::QueueManager;
use MQSeries::Queue;
use MQSeries::Message;
use Storable;
use Data::Dumper;

$qmgr_obj=$ARGV[0];
$queue_obj=$ARGV[1];
$file = <$ARGV[2]>;



open INPUT, "<$file" or die "Unable to open file, $!";

#change End of Record to undef
undef $/;

$data=<INPUT>;
close INPUT;
#change End of Record to back to \n
$/ = "\n";


my $pmo = { Options => MQSeries::MQPMO_LOGICAL_ORDER };

my $queue = MQSeries::Queue->new
    (
     QueueManager       => $qmgr_obj,
     Queue              => $queue_obj,
     Mode               => output,
    )
    or die("Unable to open queue.\n");


my $putmessage = MQSeries::Message->new( Data => $data );

$queue->Put( PutMsgOpts => $pmo, Message => $putmessage )
    or die("Unable to put message onto queue.\n" .
           "CompCode = " . $queue->CompCode() . "\n" .
           "Reason = " . $queue->Reason() . "\n");