in reply to MQSeries Put Options

Please format your code.

And I think it should be an argument to the Put-call.

Something along (I can't try it out, so this is only guess-work): 

$queue->Put( Message => $message, PutMsgOpts => { MQMF_SEGMENTATION_AL
+LOWED => 1 } );

[download]
so something along these lines... You need to double-check the documentation...

Replies are listed 'Best First'.
Re^2: MQSeries Put Options
by roperl (Beadle) on Jun 11, 2018 at 17:25 UTC
    I found what I was missing

    It's in the Message Descriptor options (MsgDesc)
    You need to specify allowing the QMGR to segment the message with MsgFlags => MQSeries::MQMF_SEGMENTATION_ALLOWED 
    my $md = { MsgFlags => MQSeries::MQMF_SEGMENTATION_ALLOWED };
my $putmessage = MQSeries::Message->new( MsgDesc => $md ,Data => $data
+ );

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom