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
 

 

Using multiple IDCAMS command in a single card...

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
DB2 Guy

New User


Joined: 28 Oct 2008
Posts: 98
Location: Cubicle

PostPosted: Fri Mar 12, 2010 6:13 pm    Post subject: Using multiple IDCAMS command in a single card...
Reply with quote

Hi,

We were using these control parameters to delete/define the VSAM cluster
Code:
DELETE              -                                           
 HLQ.some.vsam -                             
 CLUSTER PURGE                                                   
IF MAXCC < 9 THEN SET MAXCC = 0                                 
       DEFINE CLUSTER                                     -     
              (NAME(HLQ.some.vsam )       -   
               DATACLASS (EXT4GIGY)                       -     
               VOLUMES(* * * * *)                         - 
.
.
.   
they asked me to include
Code:
LISTC ENT('HLQ.some.vsam ') ALL 
and I did like this
Code:
LISTC ENT('HLQ.some.vsam') ALL
DELETE              -                                           
 HLQ.some.vsam -                             
 CLUSTER PURGE                                                   
IF MAXCC < 9 THEN SET MAXCC = 0                                 
       DEFINE CLUSTER                                     -     
              (NAME(HLQ.some.vsam )       -   
               DATACLASS (EXT4GIGY)                       -     
               VOLUMES(* * * * *)                         - 
.
.
.   
and it gave me MAXCC=12, unfortunately job is gettign flushed from spool also - so I could not check the sysprint, also I looked in VSAM Demystified but I'm not sure what to look for there, can you please assit me knowing the correct way of using LISTC along with DELETE?
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


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

PostPosted: Fri Mar 12, 2010 6:24 pm    Post subject:
Reply with quote

A pity you dont show all the control cards.
I see a continuation after volumes, so where is the
rest of the input?

If a delete failes there is a 100% change the dataset is not
existing (anymore), so you can do a : SET MAXCC = 0 without
testing MAXCC.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Mar 12, 2010 6:33 pm    Post subject:
Reply with quote

I've just executed a LISTCAT, followed by a DELETE followed by a DEFINE with no problems
Code:
 LISTCAT ENT('My VSAM dataset') ALL                                       
                                                                       
 DELETE 'My VSAM dataset'                                                 
 SET MAXCC EQ 0                                                         
                                                                       
 DEFINE CLUSTER (                                                     -
         NAME('My VSAM dataset ')                                        -
         VOL(* *)                                                     -
   remainder of define stements


I did notice that your commands start in column 1 - is this for real ?
Back to top
View user's profile Send private message
DB2 Guy

New User


Joined: 28 Oct 2008
Posts: 98
Location: Cubicle

PostPosted: Fri Mar 12, 2010 6:38 pm    Post subject:
Reply with quote

Thanks for the response Peter. They were jus the other DEFINE parameter, so I thought to avoid posting them. Here are they:

Code:
DELETE              -                                           
 HLQ.some.vsam -                             
 CLUSTER PURGE                                                   
IF MAXCC < 9 THEN SET MAXCC = 0                                 
       DEFINE CLUSTER                                     -     
              (NAME(HLQ.some.vsam)       -   
               DATACLASS (EXT4GIGY)                       -     
               VOLUMES(* * * * *)                         -     
               KEYS(27,0)                                 -     
               FREESPACE(10,10)                           -     
               SHR(2,3)                                   -     
               CYLINDERS(&CYL1.,&CYL2.)             -     
               RECORDSIZE(75,75)                          -     
               REUSE SPEED)                                     

I need to include this
Code:
LISTC ENT([color=red][b]'[/b][/color]HLQ.some.vsam ') ALL
in the above.

I believe I got it working, I was missing the starting-inverted-comma in "LISTC ENT('HLQ.some.vsam ') ALL ", I used it like "LISTC ENT(HLQ.some.vsam ') ALL " - however, I'd like to know if I used it correctly.

ON one more thing I need suggestion, if I need to know the LISTCAT of 'HLQ.some.vsam' before delete/define then it should be executing LISTCAT first and then delete/define or loaction of LISTCAT command in above existing card is of no concern, please susggest.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Fri Mar 12, 2010 6:45 pm    Post subject:
Reply with quote

Im missing a ) after the REUSE SPEED).

Thats why i wanted to see the rest of the input.

Beside that i never used ' for a listcat entry command, worked
like a charm for me.
Back to top
View user's profile Send private message
DB2 Guy

New User


Joined: 28 Oct 2008
Posts: 98
Location: Cubicle

PostPosted: Fri Mar 12, 2010 6:53 pm    Post subject:
Reply with quote

Peter, I believe parenthesis are complete:
Quote:
DELETE -
HLQ.some.vsam -
CLUSTER PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
DEFINE CLUSTER -
(NAME(HLQ.some.vsam) -
DATACLASS (EXT4GIGY) -
VOLUMES(* * * * *) -
KEYS(27,0) -
FREESPACE(10,10) -
SHR(2,3) -
CYLINDERS(&CYL1.,&CYL2.) -
RECORDSIZE(75,75) -
REUSE SPEED)
are not they?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Fri Mar 12, 2010 6:58 pm    Post subject:
Reply with quote

You start with (NAME(HLQ.some.vsam), so thats 2 left ((.
Means there has to be somewhere an ending )).
That will be your last parameters : REUSE SPEED))
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Fri Mar 12, 2010 7:14 pm    Post subject:
Reply with quote

Oops,

im so sorry. Im totally wrong here. A kind of tunnel vision or Friday happy hour time.

Excuse me.
Back to top
View user's profile Send private message
DB2 Guy

New User


Joined: 28 Oct 2008
Posts: 98
Location: Cubicle

PostPosted: Fri Mar 12, 2010 8:13 pm    Post subject:
Reply with quote

Thanks expat, it looks like I missed your reply.

I'm little unsure about the preference of command execution - is it "FIFO", if instead of what you've posted I use:
Code:
 DELETE 'My VSAM dataset'                                                 
 SET MAXCC EQ 0                                                         
                                                                       
 DEFINE CLUSTER (                                                     -
         NAME('My VSAM dataset ')                                        -
         VOL(* *)                                                     -
   remainder of define stements
 
 LISTCAT ENT('My VSAM dataset') ALL                                       
LISTCAT at last - will this give the LISTC statistics of newwly defined vsam? I'm trying it out but I'm not very good in reading LISTC output yet.
Back to top
View user's profile Send private message
DB2 Guy

New User


Joined: 28 Oct 2008
Posts: 98
Location: Cubicle

PostPosted: Fri Mar 12, 2010 8:15 pm    Post subject:
Reply with quote

It's ok Peter...icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Mar 12, 2010 9:49 pm    Post subject: Reply to: Using multiple IDCAMS command in a single card...
Reply with quote

Hi Peter,

Quote:
A kind of tunnel vision or Friday happy hour time.
Must be nice. . . It is still 2 hours 'til lunch here. . . icon_rolleyes.gif

d
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Fri Mar 12, 2010 11:04 pm    Post subject: Re: Reply to: Using multiple IDCAMS command in a single card
Reply with quote

dick scherrer wrote:
Hi Peter,

Quote:
A kind of tunnel vision or Friday happy hour time.
Must be nice. . . It is still 2 hours 'til lunch here. . . icon_rolleyes.gif

d


Yes Dick,

but we dutchies start always early.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Mar 13, 2010 2:21 pm    Post subject: Re: Reply to: Using multiple IDCAMS command in a single card
Reply with quote

PeterHolland wrote:
Yes Dick,
but we dutchies start always early.

In fact sometimes they even start so early it's before they've finished yesterday icon_lol.gif
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Sat Mar 13, 2010 4:21 pm    Post subject:
Reply with quote

Well expat, sometimes we try to be belgians.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Sat Mar 13, 2010 6:51 pm    Post subject:
Reply with quote

Quote:
but we dutchies start always early.
Quote:
Well expat, sometimes we try to be belgians.
There's a difference?!?!?!


icon_biggrin.gif
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Sat Mar 13, 2010 8:29 pm    Post subject:
Reply with quote

Robert Sample wrote:
Quote:
but we dutchies start always early.
Quote:
Well expat, sometimes we try to be belgians.
There's a difference?!?!?!


icon_biggrin.gif


Robert,

only in the zillion brands of beer and the chocolate the belgians have.

icon_lol.gif
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Two Selects in a single select query Rohit Umarjikar DB2 1 Fri Nov 04, 2016 8:46 pm
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am


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