I'm trying to create a simple program to put a large messages onto a queue with MQSeries module.
I can put a message smaller than the MAXMSGL which is set to 4MB on my queue
I am trying to tell the program to allow the QMGR to segement the message. by using Message options MQMF_SEGMENTATION_ALLOWED
However I can't find where or how to add this option in
Here is my program output 
./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

[download]

My 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");

[download]

Can someone point me in the right direction?

In reply to MQSeries Put Options by roperl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.