ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » Mainframe, CICS, TXSeries » Jcl to remove n number of mesgaes from the queue

Post new topic  Reply to topic
 Jcl to remove n number of mesgaes from the queue « View previous topic :: View next topic » 
Author Message
prKinch
PostPosted: Sat Nov 13, 2010 1:46 pm    Post subject: Jcl to remove n number of mesgaes from the queue Reply with quote

Novice

Joined: 31 Jan 2010
Posts: 15

Hi all

I need to remove the first 200 messages from the queue(contains 2000msgs),Can you please suggest a jcl for removing these messages.
Back to top
View user's profile Send private message
gbaddeley
PostPosted: Sun Nov 14, 2010 3:29 pm    Post subject: Reply with quote

Jedi Knight

Joined: 25 Mar 2003
Posts: 2538
Location: Melbourne, Australia

One of the sample programs supplied with MQ can do that.
Code:
//GETMSG  EXEC PGM=CSQ4BCJ1,REGION=1024K,
//  PARM=('MQXX YOUR.QUEUE.NAME 1 D S')
//*  PARM ARGUMENT 1 MQ SUBSYSTEM NAME
//*  PARM ARGUMENT 2 LOCAL QUEUE NAME
//*  PARM ARGUMENT 3 NUMBER OF MESSAGES TO GET
//*  PARM ARGUMENT 4 TYPE OF GET, 'B' = BROWSE, 'D' = DESTRUCTIVE
//*  PARM ARGUMENT 5 UOW COORDINATION, 'S' = SYNCPOINT, 'N' = NO SYNCPOINT
//STEPLIB  DD DSN=SYS1.MQXX.SCSQLOAD,DISP=SHR
//         DD DSN=SYS1.MQXX.SCSQAUTH,DISP=SHR
//         DD DSN=SYS1.MQXX.SCSQANLE,DISP=SHR
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*

The z/OS MQ sample programs are described in the APR, see http://publib.boulder.ibm.com/infocenter/wmqv7/v7r0/index.jsp?topic=/com.ibm.mq.csqzal.doc/fg18000_.htm
_________________
Glenn
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic  Reply to topic Page 1 of 1

MQSeries.net Forum Index » Mainframe, CICS, TXSeries » Jcl to remove n number of mesgaes from the queue
Jump to:  



You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Protected by Anti-Spam ACP
 
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.