|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
 |
|
z/OS - how to force segmentation |
« View previous topic :: View next topic » |
Author |
Message
|
sumithar |
Posted: Tue May 12, 2009 1:03 pm Post subject: z/OS - how to force segmentation |
|
|
Apprentice
Joined: 13 Jun 2008 Posts: 47
|
I'm writing a batch program with Ent Cobol on z/OS. My queue manager is set up as having max message length of 100MB.
I created a message 1 byte > 4MB in length like so
Code: |
01 MQ-BUFFER.
03 MQ-DATA PIC X(1) OCCURS 4194305 TIMES
INDEXED BY MQ-INDX
value 'A'.
|
and I set the flags and executed the put as follows
Code: |
COMPUTE MQMD-MSGFLAGS = MQMF-NONE +
MQMF-SEGMENTATION-ALLOWED +
MQMF-SEGMENT
COMPUTE MQPMO-OPTIONS = MQPMO-NONE +
MQPMO-SYNCPOINT +
MQPMO-FAIL-IF-QUIESCING
MOVE 'MQPUT ' TO WS-MQ-ERROR-TYPE
CALL MQPUT USING WS-MQ-HCONN
WS-MQ-HOBJ
MQMD
MQPMO
WS-MQ-BUF-LEN
MQ-BUFFER
WS-MQ-CC
WS-MQ-RC
|
I get a return code of 2030 from the PUT, which I understand is message too big.
It works fine if the size is 4194304
now the app prog guide says segmentation is not supported on z/OS. So my first question is why the flag values are made available at all?
Also, what's the work around if I want to PUT a message > 4 MB
Thanks! |
|
Back to top |
|
 |
Vitor |
Posted: Tue May 12, 2009 1:21 pm Post subject: Re: z/OS - how to force segmentation |
|
|
 Grand High Poobah
Joined: 11 Nov 2005 Posts: 26093 Location: Texas, USA
|
sumithar wrote: |
now the app prog guide says segmentation is not supported on z/OS. So my first question is why the flag values are made available at all? |
Well according to this part of the app prog ref:
Quote: |
On z/OS, the queue manager does not support the segmentation of messages. If a message is too big for the queue, the MQPUT or MQPUT1 call fails with reason code MQRC_MSG_TOO_BIG_FOR_Q. However, the MQMF_SEGMENTATION_ALLOWED option can still be specified, and allows the message to be segmented at a remote queue manager.
|
sumithar wrote: |
what's the work around if I want to PUT a message > 4 MB |
I'd make sure the all the queues have their limits increased to 100Mb, along with all the other WMQ objects your put will invoke. _________________ Honesty is the best policy.
Insanity is the best defence. |
|
Back to top |
|
 |
sumithar |
Posted: Tue May 12, 2009 2:03 pm Post subject: |
|
|
Apprentice
Joined: 13 Jun 2008 Posts: 47
|
Thanks- I will bring that up with the MQ Admin folks! |
|
Back to top |
|
 |
bruce2359 |
Posted: Tue May 12, 2009 6:40 pm Post subject: |
|
|
 Poobah
Joined: 05 Jan 2008 Posts: 9469 Location: US: west coast, almost. Otherwise, enroute.
|
Quote: |
why the flag values are made available at all? |
Consistency. Evolution. _________________ I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live. |
|
Back to top |
|
 |
|
|
 |
|
Page 1 of 1 |
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
|
|
|