JCL override a step in a Proc called by a Proc...
Posted: Fri Feb 15, 2013 10:18 pm
I understand, and do use, the //procstep.ddcard expression override method from the submitting JCL to override a ddcard in the called/executed proc. What i want to know is there a way from the JCL to override ddcard(s) in a 2nd level proc? Or, a proc called by the main proc?
Crude example:
I would like to override the //SYSIN DD TEST.SYSIN(SORT001),DISP=SHR with a different sort SYSIN card when testing the job on different platforms and the SYSIN is promoted up to each platform.
If it is possible, the hope is to stop hard coding "test platform" changes in the PROC01 for the sort, by doing it from the //jobname JCL member.
Thanks for the help!
-Scott
Crude example:
//jobname jobcard
//Step01 EXEC PROC1,
// SYMBOLIC1,
// SYMBOLIC2
//STPR0060.TOOLIN DD DSN=TEST.SYSIN(ITOOL001),DISP=SHR
//* //hopefully with an override dd card right here to the sub-proc of the PROC1
:
//PROC1 proc
//procst01 EXEC SORT
//SORTOUT DD
//*SYSIN DD PROD.SYSIN(SORT001),DISP=SHR
//SYSIN DD TEST.SYSIN(SORT001),DISP=SHR
:
//SORTGWC proc symbolic1,
// symbolic2,
// symbolic3
//SORT1 EXEC PGM=SORT
//STEPLIB
//SYSOUT
:
:
:
//Step01 EXEC PROC1,
// SYMBOLIC1,
// SYMBOLIC2
//STPR0060.TOOLIN DD DSN=TEST.SYSIN(ITOOL001),DISP=SHR
//* //hopefully with an override dd card right here to the sub-proc of the PROC1
:
//PROC1 proc
//procst01 EXEC SORT
//SORTOUT DD
//*SYSIN DD PROD.SYSIN(SORT001),DISP=SHR
//SYSIN DD TEST.SYSIN(SORT001),DISP=SHR
:
//SORTGWC proc symbolic1,
// symbolic2,
// symbolic3
//SORT1 EXEC PGM=SORT
//STEPLIB
//SYSOUT
:
:
:
I would like to override the //SYSIN DD TEST.SYSIN(SORT001),DISP=SHR with a different sort SYSIN card when testing the job on different platforms and the SYSIN is promoted up to each platform.
If it is possible, the hope is to stop hard coding "test platform" changes in the PROC01 for the sort, by doing it from the //jobname JCL member.
Thanks for the help!
-Scott