Re: Check MQ connection from a CICS program

Wed, 12 Apr 2006 04:33:07 -0700 

Attached is something I saved that may help as well

-----Original Message-----
From: MQSeries List [mailto:[EMAIL PROTECTED] On Behalf Of
Al Chu
Sent: Tuesday, April 11, 2006 9:20 PM
To: [email protected]
Subject: Re: Check MQ connection from a CICS program


Thanks to all who responded. I am reading program J7200503 in the MA1K
supportpac which I think is the one I want. 

-----Original Message-----
From: MQSeries List [mailto:[EMAIL PROTECTED] On Behalf Of
Schneiderwent, Craig
Sent: Wednesday, 12 April 2006 12:10 AM
To: [email protected]
Subject: Re: Check MQ connection from a CICS program

COBOL examples can be found in the MA1K category 4 supportpac.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Tuesday, April 11, 2006 9:02 AM
To: [email protected]
Subject: Re: Check MQ connection from a CICS program

Al, 

You can do the following: 

set O_options to MQOO_INQUIRE 
set od.objectype to MQOT_Q_MGR 
MQOPEN 
set a Select array to MQCA_Q_MQGR_NAME 
MQINQ 
the QMGR name should be returned by MQINQ 

The above are very general code fragments/descriptions. 




Al Chu <[EMAIL PROTECTED]> 
Sent by: MQSeries List <[email protected]> 
04/11/2006 04:54 AM 
Please respond to
MQSeries List <[email protected]>
[EMAIL PROTECTED] 
cc
SubjectCheck MQ connection from a CICS program








Hi 
  
I'd like to know whether is a way to check CICS MQ connection from a CICS
program. I searched the manuals and found the following; 
  
  
┌────────────────────────────────────────────────────────────────────────┐ 
│
│ 
│   EXEC CICS LINK PROGRAM('CSQCDSPL') INPUTMSG('CKQC DISPLAY')
│ 
│
│ 
└────────────────────────────────────────────────────────────────────────┘ 
Figure 46. Linking to the adapter program CSQCDSPL from a CICS program 
  
Figure 44 shows a typical output from this command. The response messages
are sent to the CKQQ queue (the transient data queue). 
  
The COMMAREA option can be used instead of INPUTMSG but only when the
program is run at PLT time. 
  
  
  
This interface seems to send the response to the CKQQ TDQ. I'd like to
receive the response in my program via Commarea after PLT time. Or is there
any control block which I can peep? 
  
Al Chu 
  
Instructions for managing your mailing list subscription are provided in the
Listserv General Users Guide available at http://www.lsoft.com 

Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html

Instructions for managing your mailing list subscription are provided in the
Listserv General Users Guide available at http://www.lsoft.com 
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html
Instructions for managing your mailing list subscription are provided in the
Listserv General Users Guide available at http://www.lsoft.com 
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html

Instructions for managing your mailing list subscription are provided in the
Listserv General Users Guide available at http://www.lsoft.com 
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html




-----------------------------------------
This e-mail message and any attachments contain confidential
information from Medco. If you are not the intended recipient, you
are hereby notified that disclosure, printing, copying,
distribution, or the taking of any action in reliance on the
contents of this electronic information is strictly prohibited. If
you have received this e-mail message in error, please immediately
notify the sender by reply message and then delete the electronic
message and any attachments.


Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html
From: MQSeries List [EMAIL PROTECTED] on behalf of Arndt Eade1 [EMAIL PROTECTED]
Sent: Monday, March 14, 2005 10:30 AM
To: [email protected]
Subject: Re: MQSeries & CICS triggered Transaction

The CKTI transaction will actually pass a MQTMC.  The only difference between 
that and the MQTMC2 being that the MQTMC2 contains the queue manager name. 

 If that is what you require then it can be retrieved by issuing an EXEC CICS 
EXTRACT EXITPROGRAM(CSQCTRUE) EXIT(MQM) and the qualifier will give you the 
queue manager name.  You can also issue an MQINQ to get the queue manager name. 
Regards,

Arndt 

Arndt Eade
WebsphereMQ for z/OS Development
Instructions for managing your mailing list subscription are provided in the 
Listserv General Users Guide available at http://www.lsoft.com 
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html



Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html

Reply via email to