IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

MQPUT with compcode 2 and reason code 2173


IBM Mainframe Forums -> Java & MQSeries
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
senthil_1983

New User


Joined: 16 Apr 2008
Posts: 14
Location: Chennai

PostPosted: Mon Mar 08, 2010 11:26 pm
Reply with quote

Hi,

During the MQ PUT im receiving the COMPCODE 2 and Reason code 2173.When i checken in IBM manual its mention PUT option error.Can any one let me know how to resolve.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Mar 09, 2010 1:06 am
Reply with quote

Hello,

Suggest you correct the PUT. . .

Posting "it didn't work" provides nothing for someone to use to help you. If you want someone here to help, you should post the code causing the problem. . .
Back to top
View user's profile Send private message
Karthikeyan Subbarayan

New User


Joined: 24 Feb 2008
Posts: 62
Location: Boston

PostPosted: Tue Mar 09, 2010 1:37 am
Reply with quote

Ensure that input fields in the MQPMO structure are set correctly.
To help more You should post the code causing the problem as DICK said
Back to top
View user's profile Send private message
senthil_1983

New User


Joined: 16 Apr 2008
Posts: 14
Location: Chennai

PostPosted: Tue Mar 09, 2010 10:45 am
Reply with quote

given the code below

Code:
MOVE MQMI-NONE              TO MQMD-MSGID.       
MOVE MQCI-NONE              TO MQMD-CORRELID.   
MOVE MQFMT-STRING           TO MQMD-FORMAT.         
MOVE LENGTH OF WS-RSP-DATA  TO WKMQ-MSGLENGTH.   

CALL 'MQPUT' USING WKMQ-HCONN                   
                   WKMQ-HOBJ                     
                   MQMD                         
                   MQPMO                         
                   WKMQ-MSGLENGTH                                 
                   WS-RSP-DATA                   
                   WKMQ-COMPCODE                 
                   WKMQ-REASON.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Mar 09, 2010 11:10 am
Reply with quote

Hello,

One bit at a time, i suppose. . .

What are the values in all of the named fields before and after the call to mqput?

Also, please note your code has been Code'd which preserves alignment and improves readability.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Tue Mar 09, 2010 11:29 am
Reply with quote

OK, who has the pointer to a current shelf of MQ manuals (damn computer crashes.. icon_cry.gif )....
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue Mar 09, 2010 11:48 am
Reply with quote

here is the explanations for 2173 X'087D' ( cut and paste from the manual )
Quote:

MQRC_PMO_ERROR

On an MQPUT or MQPUT1 call, the MQPMO structure is
not valid, for one of the following reasons:

° The StrucId field is not MQPMO_STRUC_ID.
° The Version field specifies a value that is not
valid or not supported.
° The parameter pointer is not valid. (It is not
always possible to detect parameter pointers
that are not valid; if not detected,
unpredictable results occur.)
° The queue manager cannot copy the changed
structure to application storage, even though
the call is successful. This can occur, for
example, if the pointer points to read-only
storage.

Corrective action: Correct the definition of the
MQPMO structure. Ensure that required input fields
are correctly set.


the sequence of links to get to the manuals is ...
www-03.ibm.com/systems/z/os/zos/bkserv/index.html
click on
Quote:
z/OS software products Book | PDF

will take You to www-03.ibm.com/systems/z/os/zos/bkserv/zapplsbooks.html
click on
Quote:
z/OS software products: DB2 V7 - NCP V7R7 bookshelf - 492 books
List books | Download shelf | Download shelf index
List all bookshelves

will take You to www-03.ibm.com/systems/z/os/zos/bkserv/zappls2.html
click on
Quote:
MQSeries - Latest Products - 47 books
List books | Download shelf | Download shelf index

will take You to publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/AMQZA90E
click on search documents, enter 2173, from the list proposed choose
MQSeries for OS/390 Messages and Codes
some more clicks, some scrolling and You will find the actions to be taken
but all the manuals proposed have the appendix with the reason codes explained

anyway the info You posted is not enough to understand what is going on
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Tue Mar 09, 2010 11:57 am
Reply with quote

enrico-sorichetti wrote:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/AMQZA90E
Thanks, I'll bookmark your instructions....grin.....
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> Java & MQSeries

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Reorg abended with REASON=X'00E40347' DB2 2
No new posts REASON 00D70014 in load utility DB2 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top