MVSFORUMS.com

siva_marthala · Posted: Wed Aug 06, 2008 12:10 am Post subject:

I am very new to development and mq series. earlier worked as production support.

My basic query is i have to write a COBOL program for copying one MQ queue to another MQ queue read non-destructively. i have given input and output mq queue names.

could any one having sample code or sample program, please send me the same.

Thanks
Siva...

dbzTHEdinosauer · Posted: Wed Aug 06, 2008 1:45 am Post subject:

this is a link to ibm's websphere site, which include MQS:
http://publib.boulder.ibm.com/infocenter/wmqv6/v6r0/index.jsp?topic=/com.ibm.mq.branding.doc/help_home_wmq.htm

This is the IBM library server, where you would perform a search for MQS:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library

also, the link that BOB Buxton provided is excellent.

The code that you are asking for can be found in the documentation.
_________________
Dick Brenholtz
American living in Varel, Germany

Bill Dennis · Posted: Wed Aug 06, 2008 8:21 am Post subject:

Check out the MQ utility CSQUTIL which has functions to copy messages from one queue to another.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

siva_marthala · Posted: Mon Aug 11, 2008 3:25 am Post subject:

I am getting W00-COMPCODE as 2 and W00-REASON 2018 when calling MQGET.
Any idea to resolve please.

COMPUTE MQGMO-OPTIONS = MQGMO-NO-WAIT +
MQGMO-CONVERT +
MQGMO-ACCEPT-TRUNCATED-MSG

MOVE MQMI-NONE TO MQMD-MSGID
MOVE MQCI-NONE TO MQMD-CORRELID

CALL W00-MQGET USING W00-HCONN
W00-HOBJ
MQMD
MQGMO
MQGMO-BROWSE-FIRST
W00-BUFFERLEN
W00-MSGLENGTH
W00-COMPCODE
W00-REASON