Accessing MQ in CICS COBOL program

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Hi,

I am new to mq. I have written CICS COBOL as below. When I triggered the trans id , it through the error " MQOPEN * CC:00000012 * RC:00002085".

*
* Receive the parameter list passed in by CICS
*
MOVE SPACES TO W00-PARM-STRING.
MOVE LENGTH OF W00-PARM-STRING TO W00-PARM-LEN.
*
EXEC CICS IGNORE CONDITION LENGERR END-EXEC.
EXEC CICS RECEIVE
INTO( W00-PARM-STRING )
LENGTH( W00-PARM-LEN )
END-EXEC.

MOVE W00-PARM-STRING TO W00-MESSAGE.
PERFORM DISPLAY-MESSAGE.
*
* Move parameters into corresponding variables
*
UNSTRING W00-PARM-STRING
DELIMITED BY ALL ','
INTO W00-TRANSNAME
W00-NUMMSGS-NUM
W00-PADCHAR
W00-MSGLENGTH-NUM
W00-PERSISTENCE
W00-QNAME.
MOVE W00-MSGLENGTH-NUM TO W00-MSGLENGTH.
MOVE W00-NUMMSGS-NUM TO W00-NUMMSGS.

Pandora-Box · Posted: Tue Jun 26, 2012 10:28 am

The Code 2085 is something like object not found

Is your Queue existing?

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Yes, its available.

Queue name

PARSE.XML.REQ1
PARSE.XML.RSP1

Qmgr : CSQ1

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Please tell me about this EXEC CICS RECEIVE command in this program.
Is it getting MQ names. I am getting Blank Queue name.

Pandora-Box · Posted: Tue Jun 26, 2012 10:46 am

Queues might be available yet are you passing the right parameters before MQ operations?

Try a couple of display statements and check

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Do we need to map the MQ CICS program with MQ queue?

Pandora-Box · Posted: Tue Jun 26, 2012 12:58 pm

I am trying to understand

Why do you need a RECEIVE??

Are you trying to fetch the Queue name from a MAP??

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Hi,
I have hardcoded the Queue name in MQOD-OBJECTNAME. And tried to run. I am getting error 2035 as " * MQOPEN * CC : 00000002 * RC : 000002035 " . Please help me sought this problem.

Pandora-Box · Posted: Tue Jun 26, 2012 1:15 pm

Now you have got a different error

2035 means you dont have access to queues

Talk to MQ admin for access

Garry Carroll · Posted: Tue Jun 26, 2012 7:11 pm

Pandora-Box · Posted: Tue Jun 26, 2012 7:33 pm

Also As Garry pointed if you wanted to RETRIEVE the trigger data

Also

I suggest you to look into sample code available

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Hi,

Now, i have changed the program with "hard coded" Queue name. Still , i am getting 2035 error. I have cross checked with Admin. They provided me the access. Please help me on parameters while creating the MQ queue.

Admin has created the Queue & trans id and mapped with my program. I am trying to trigger teh trans id at CICS. If anything missed out , please let me know.

Pandora-Box · Posted: Wed Jun 27, 2012 11:45 am

Are you trying to trigger after placing the message?

Are you trying to create a queue?

Is your transaction & program having access to queue ?

Also do you have the Queue monitor being setup ?

Thamilselvi · New User Joined: 22 Jun 2012 Posts: 57 Location: Chennai

Now its working fine. The message has been placed in MQ.

Admin team solved this authorization problem

Thanks for all your help.