Passing values to parms of a proc, which is called by parm

Satish5 · Posted: Mon Sep 08, 2008 5:26 pm

Hi,

There is a catalogged proc-CATPROC and an inline proc INPROC.
INPROC is executing CATPROC.

I am trying to execute INPROC multiple times with different parm values using following code. But it is not working.

//ESYLIB JCLLIB ORDER=(ABC.TEST.PROCLIB)
//*
//INPROC PROC
//PROC0010 EXEC CATPROC,
// GEN1=(-10),
// GEN2=(-10),
// ORD=ABC-10
.
.
.
.
//STEP0090.PARMIN DD DATA
KK 198243 XYX12 (-10)
/*
// PEND
// EXEC INPROC,GEN1=(-15),GEN2=(-25)

Also I want to know how to replace -10 in ORD=ABC-10 by ORD=ABC-15(or whatever value is passed) for every step.

Please help me with this problem.

Thank You.

Satish

expat · Posted: Mon Sep 08, 2008 5:34 pm

Ok, so it is not working. This leaves countless possibilities for why it does not work.

In which way does this not work ? and please post the output.

Satish5 · Posted: Mon Sep 08, 2008 6:56 pm

Thanks for prompt reply, I got the sol for first prob.
Prob was that even after passing values thru // EXEC INPROC,GEN1=(-15),GEN2=(-25) values of GEN1 and GEN2 in CATPROC remians same.

I did following
// GEN1=&GEN3,
// GEN2=& EN4,

// EXEC INPROC,GEN3=(-15),GEN4=(-25)
and it worked fine.
But havent found a solution for 2nd problem "I want to know how to replace -10 in ORD=ABC-10 by ORD=ABC-15(or whatever value is passed) for every step."

Thank You.
Satish

Arun Raj · Posted: Mon Sep 08, 2008 7:02 pm

expat · Posted: Mon Sep 08, 2008 7:04 pm

Yes, please clarify what you need to do.

Satish5 · Posted: Mon Sep 08, 2008 7:21 pm

There is an existing (CATPROC) which is generating value of parm ORD dynamically. I want to call this CATPROC in INPROC and replace just the gdg version '-10' part of 'ABC-10' by passing value thru EXEC statement as follows

// EXEC INPROC,GEN1=(-15),GEN2=(-25), ORD=XXXXX

Please let me know if still you have any doubt about problem, I will try my best to clear it.

Thank You.

Satish

expat · Posted: Mon Sep 08, 2008 7:41 pm

Why on earth are you running a proc within a proc. That is just so bad news.

From your post it seems that INPROC executes on CATPROC. Why not just execute CATPROC ?

Satish5 · Posted: Mon Sep 08, 2008 7:55 pm

CATPROC is an existing proc which I do not want to mess with. CATPROC is written to execute only 1 version of GDG at a time. I want to call CATPROC using INPROC and execute for all versions of GDG. Please suggest if you have a better method to achieve this without disturbing any functionality of existing CATPROC. Sadly I do not know REXX

expat · Posted: Mon Sep 08, 2008 7:58 pm

Why not just run something like this from your own JCL library.

Satish5 · Posted: Tue Sep 09, 2008 4:48 pm

CATPROC has 9 steps. Something is overridden in all the steps and this makes approx 50 lines in calling CATPROC. Now I want to call CATPROC for 40 versions of GDG and thus it will make approx. 2000 lines in JCL. This much long JCL will be difficult to maintain and will have less readability. So I am calling CATPROC in an INPROC and passsing values using parms.

Now another challengeI can not override SYSIN in CATPROC from INPROC but I have to pass data that may change for every run.

//ESYLIB JCLLIB ORDER=(ABC.TEST.PROCLIB)
//*
//INPROC PROC
//PROC0010 EXEC CATPROC,
// GEN1=&GEN3,
// GEN2=&GEN4,
// ORD=ABC-10
//STEP0010.SYSIN DD DATA
$$DD01 SORT FIELDS=(1,10,BI,A).
.
.
.
//STEP0090.PARMIN DD DATA
KK 198243 XYX12 (-10)
/*
// PEND
// EXEC INPROC,GEN3=(-15),GEN4=(-25)

expat · Posted: Tue Sep 09, 2008 5:58 pm

Satish5 · Posted: Wed Sep 10, 2008 10:41 am

Lets see how this problem is solved.
Thanks for you help.

Thanks,
Satish