IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Using multiple IDCAMS command in a single card...


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
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
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 12, 2010 6:24 pm
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: 8797
Location: Welsh Wales

PostPosted: Fri Mar 12, 2010 6:33 pm
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
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 12, 2010 6:45 pm
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
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 12, 2010 6:58 pm
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 12, 2010 7:14 pm
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
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
Reply with quote

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

Moderator Emeritus


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

PostPosted: Fri Mar 12, 2010 9:49 pm
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 12, 2010 11:04 pm
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: 8797
Location: Welsh Wales

PostPosted: Sat Mar 13, 2010 2:21 pm
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Sat Mar 13, 2010 4:21 pm
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: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sat Mar 13, 2010 6:51 pm
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: 2481
Location: Netherlands, Amstelveen

PostPosted: Sat Mar 13, 2010 8:29 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts JCL sort card - get first day and las... JCL & VSAM 9
Search our Forums:

Back to Top