How to pass a Parameter to a JCl?

Deepthy Jose P · New User Joined: 07 Mar 2007 Posts: 40 Location: India

I need to perform a series of PDS Copy steps, but the PDS names will be different each time which i need to provide as a parameter

expat · Posted: Fri Nov 16, 2007 1:08 pm

Read the JCl manual, and pay attention to the PROC statement and then try and build an instream PROC in which you can define the symbolics that are required, and then execute the PROC with the symbolics adjusted for any PDS.

balakrishna reddy · Posted: Fri Nov 16, 2007 1:09 pm

Hi Deepthy,

Better to use rexx code for your requirement.

Aaru · Posted: Fri Nov 16, 2007 3:10 pm

Deepthy,

Deepthy Jose P · New User Joined: 07 Mar 2007 Posts: 40 Location: India

My actual requirement is like i have a set of PDS names which i need to copy using a JCL. but the middle level qualifier of the PDS 's changes for each execution.
XXX.val1.YYY
AAA.val1.BBB
GGG.val1.HHH

the value for the val1 changes for each execution

How to specify it through JCL.

balakrishna reddy · Posted: Mon Nov 19, 2007 6:32 pm

Hi Deepthy,

Put all the pds names in a sequential file and read that file and unstring the name of the file with "." as delimiter and get the second qualifier and use it to override for each and every call of the proc which will copy that pds file to another file use the same qualifier in the file to which you are copying so that it will not get override in the same file for the next execution.

Deepthy Jose P · New User Joined: 07 Mar 2007 Posts: 40 Location: India

Is it possible to give a symbolic parameter in a SYSIN statement?

say

//COPYSTP1.SYSINDD *
*
$$DD01 COPY OUT=0,EDITALLl=(1,0,C'ABCD',C'WXYZ')

can i use a parameter in place of the second string 'WXYZ' like

$$DD01 COPY OUT=0,EDITALLl=(1,0,C'ABCD',&TRIAL)

Where TRIAL is defined in an instream proc within the JCL. or is there any other way to give the parameter value in the sysin statement

ofer71 · Posted: Thu Nov 22, 2007 2:02 pm

Why don't you try it and let us know?

O.

Deepthy Jose P · New User Joined: 07 Mar 2007 Posts: 40 Location: India

I tried giving the same statement but didnt workout? is there any other way?

Deepthy Jose P · New User Joined: 07 Mar 2007 Posts: 40 Location: India

There is a correction in the code in the above query (TYPO error)

//COPYSTP1.SYSINDD *
*
$$DD01 COPY OUT=0,EDITALL=(1,0,C'ABCD',C'WXYZ')

can i use a parameter in place of the second string 'WXYZ' like

$$DD01 COPY OUT=0,EDITALL=(1,0,C'ABCD',&TRIAL)

ofer71 · Posted: Thu Nov 22, 2007 3:45 pm

No.

O.

Rod Hittle · Posted: Fri Nov 23, 2007 2:45 am

Deepthy, you asked 'Is it possible to give a symbolic parameter in a SYSIN statement?' and ofer71 said 'no'. He is correct if you stick to just having JCL code in a 'job' or even a job executing a proc.

There is no way around this that I have discovered. BUT, if you can code a REXX macro (you can do this in COBOL too) you can make a macro that dynamically creates the job/JCL (typically a PDS member but could be a single flat file). In that macro you can very the node for files you want to change to do the copy. I typically do this using a REXX macro and a 'skeleton'. The symbolic variable is picked up by the skeleton if in the skeleton the 'word' has a '&' in front of it. Just like in a job/proc relationship. With REXX you can even have it come up with an on-screen panel (like CICS) where you can supply the value for the variable, the REXX marco would pick that up and assign it to the variable, and pass it on to the JCL created using the skeleton previously made. All this can be done with COBOL too, but more of a bother in my opinion.