MVSFORUMS.com

kris_madras · Beginner Joined: 07 Apr 2004 Posts: 41 Topics: 30

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

Phantom · Posted: Wed Nov 17, 2004 6:27 am Post subject:

Kris_madras,

Try this solution
http://www.mvsforums.com/helpboards/viewtopic.php?t=2614&highlight=date+filename

Hope this helps,

Thanks,
Phantom

Phantom · Posted: Wed Nov 17, 2004 6:33 am Post subject:

Kris_madras,

Look at the following link for more information.

http://www.mvsforums.com/helpboards/viewtopic.php?t=3153&highlight=date+file

Try searching this site on "date AND file" or "date AND dataset".

Phantom

Cogito-Ergo-Sum · 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.

Phantom · Posted: Wed Nov 17, 2004 11:30 pm Post subject:

Excellent...Thanks Cogito. Learnt a new thing.

Thanks,
Phantom

Cogito-Ergo-Sum · 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.

kris_madras · Beginner Joined: 07 Apr 2004 Posts: 41 Topics: 30

Thanks.. Thanks a lot Cogito.. Thanks for all suggestions and forum Heads.

Cogito-Ergo-Sum · 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.