ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » Mainframe, CICS, TXSeries » z/OS - how to force segmentation

Post new topic  Reply to topic
 z/OS - how to force segmentation « View previous topic :: View next topic » 
Author Message
sumithar
PostPosted: Tue May 12, 2009 1:03 pm    Post subject: z/OS - how to force segmentation Reply with quote

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
View user's profile Send private message
Vitor
PostPosted: Tue May 12, 2009 1:21 pm    Post subject: Re: z/OS - how to force segmentation Reply with quote

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
View user's profile Send private message
sumithar
PostPosted: Tue May 12, 2009 2:03 pm    Post subject: Reply with quote

Apprentice

Joined: 13 Jun 2008
Posts: 47

Thanks- I will bring that up with the MQ Admin folks!
Back to top
View user's profile Send private message
bruce2359
PostPosted: Tue May 12, 2009 6:40 pm    Post subject: Reply with quote

Poobah

Joined: 05 Jan 2008
Posts: 9397
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
View user's profile Send private message
Display posts from previous:   
Post new topic  Reply to topic Page 1 of 1

MQSeries.net Forum Index » Mainframe, CICS, TXSeries » z/OS - how to force segmentation
Jump to:  



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
Protected by Anti-Spam ACP
 
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.