Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Check MQ existance using REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries
View previous topic :: :: View next topic  
Author Message
PrabakarV

New User


Joined: 21 Dec 2007
Posts: 88
Location: My Desk

PostPosted: Tue Oct 06, 2009 11:45 am    Post subject: Check MQ existance using REXX
Reply with quote

Hi,

My requirement is to check a list of MQs against the MQ manager about their existance in MQ manager...

simply saying i have list of MQs in a PS file. I have to check whether they exists or not in MQM...

is there any way to achive this thru REXX? Thanks
Back to top
View user's profile Send private message

kaushik8205

New User


Joined: 10 Nov 2006
Posts: 49
Location: Canada

PostPosted: Sat Nov 07, 2009 1:17 am    Post subject:
Reply with quote

Hi,

Is there a specific requirement for doing this task with REXX..
As per my understanding this should be a one time task to check all obsolete Qs..

Thanks.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Sat Nov 07, 2009 2:15 am    Post subject:
Reply with quote

You could use CSQUTIL program to list the Queues and then parse the SYSPRINT to do a match program with your table.
Code:
//TESTSTEP EXEC PGM=CSQUTIL,PARM='CSQ1'               
//*YSPRINT DD SYSOUT=*                                       
//SYSPRINT DD DSN=&&MQPRINT,DISP=(,PASS),UNIT=SYSDA,         
//            SPACE=(CYL,(1,1)),RECFM=FB,LRECL=121,BLKSIZE=0
//SYSIN    DD *                                             
COMMAND DDNAME(CMDINP)                                       
/*                                                           
//CMDINP   DD *                                             
DISPLAY QUEUE(*) ALL                                         
Back to top
View user's profile Send private message
dejunzhu

Active User


Joined: 08 May 2008
Posts: 390
Location: China

PostPosted: Sun Nov 08, 2009 12:42 pm    Post subject:
Reply with quote

This check is just constrained to local Queue/channels, for remote queue/channels, there is no way to check without the support of the remote part's help.
Incorrect. See next reply.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2435
Location: Netherlands, Amstelveen

PostPosted: Sun Nov 08, 2009 4:13 pm    Post subject:
Reply with quote

Using the TGTQMGR(qmgrname) parameter makes it possible to query remote queue managers.
Suitable queues and channels have to be set up to access the remote queue manager.

If that is not the case one can trigger the jobs on other systems (/*ROUTE XEQ) and route the output to a central point.

Or if SA/390 is implemented remote execution can be performed by the INGSEND command.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us