View previous topic :: View next topic |
Author |
Message |
kris_madras Beginner
Joined: 07 Apr 2004 Posts: 41 Topics: 30
|
Posted: Wed Nov 17, 2004 4:39 am Post subject: IDCAMS; Creating Dynamic Cluster |
|
|
Hi,
I am struggling to solve the following problem. Its really greatful to have a better solution from you.
I am creating a VSAM cluster as :
DEFINE CLUSTER -
( -
NAME(TST.CTS.FR04301.M0304.CLUSTER) -
VOLUMES(DETSOE) -
CYLINDERS(5,3) -
CONTROLINTERVALSIZE(4096) -
FREESPACE(10,20) -
KEYS(8,0) -
RECORDSIZE(80,80) -
) -
This definition is in a PS file(SYSIN) in a proc. The cluster name is fixed here the requirement is to submit multiple jobs and jobs have to use
multiple clusters. Please suggest me to create the cluster dynamically from the jcl parameters like
TST.CTS.FR04301.M&mon&year.CLUSTER where mon and year are passed from jcl to proc |
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
|
Back to top |
|
 |
Cogito-Ergo-Sum Advanced
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
|
Posted: Wed Nov 17, 2004 11:59 am Post subject: |
|
|
Phantom,
The month and year are passed as symbolic parameters from job to PROC. Whereas Kolusu's solution above uses DATE operator of SORT to get the current date.
Kris,
I just tried this and it worked. First, define a 'dummy' cluster TST.CTS.FR04301.M0304.DCLUSTER (D for dummy). Then, have a IEFBR14 step as follows.
Code: |
//HELP EXEC PGM=IEFBR14
//S DD DSN=TST.CTS.FR04301.M&MON.&YEAR..CLUSTER,
// DISP=(,CATLG,DELETE),
// LIKE=TST.CTS.FR04301.M0304.DCLUSTER
|
_________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes. |
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed Nov 17, 2004 11:30 pm Post subject: |
|
|
Excellent...Thanks Cogito. Learnt a new thing.
Thanks,
Phantom |
|
Back to top |
|
 |
Cogito-Ergo-Sum Advanced
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
|
Posted: Thu Nov 18, 2004 12:19 am Post subject: |
|
|
You are welcome, Phantom. _________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes. |
|
Back to top |
|
 |
kris_madras Beginner
Joined: 07 Apr 2004 Posts: 41 Topics: 30
|
Posted: Wed Nov 24, 2004 6:54 am Post subject: |
|
|
Thanks.. Thanks a lot Cogito.. Thanks for all suggestions and forum Heads. |
|
Back to top |
|
 |
Cogito-Ergo-Sum Advanced
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
|
Posted: Wed Nov 24, 2004 7:07 am Post subject: |
|
|
You are welcome, Kris. _________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes. |
|
Back to top |
|
 |
|
|