MGIndaco
Active User
Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy
|
|
|
|
Use a Proc!
I suppose that Proc is the easy way to do what you need.
Adapt your jcl like a PROC(no DD * and stepname unique and if you want you can also use variables) so decide to put your proc in a library OR fill at the end of the job a PEND.
So, write "n" statemet that referrs to the PROC and override the input/output each time( without effort...).
I hope in this suggest. |
|
MGIndaco
Active User
Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy
|
|
|
|
This is a sample about PROC PEND but within you can make different override and many other thing... depend on your need.
| Code: |
//myjob JOB ecc...
//*--------------------------------------------------------------*
//MYPROC PROC INP='IFILE01',OUT='OFILE01'
//STEP005D EXEC PGM=IEFBR14
//DD1 DD DISP=(MOD,DELETE),SPACE=(1,(1,1),),
// DSN=HLQ.IPI.ecc.&OUT
//STEP010P EXEC PGM=MYPROG
//INDD DD DISP=SHR,DSN=HLQ.IPI.ecc.&INP
//OUTDD DD DISP=(,CATLG,DELETE),DCB=*.INDD,
// SPACE=(CYL,(1,1),RLSE),
// DSN=HLQ.IPI.ecc.&OUT
// PEND
//*---Take default value
//PROC01 EXEC PROC=MYPROC
//*---Specify your need
//PROC02 EXEC PROC=MYPROC,INP='IFILE02',OUT='OFILE02'
//*---Override output datasetname and other
//PROC03 EXEC PROC=MYPROC
//STEP005D.DD1 DD DISP=(MOD,DELETE),SPACE=(1,(1,1),),
// DSN=HLQ.IPI.ecc.OFILE03.BIS
//STEP010P.OUTDD DD DISP=(,CATLG,DELETE),SPACE=(CYL,(10,10),RLSE),
// DSN=HLQ.IPI.ecc.OFILE03.BIS
//*---all the time you need to repeat the proc(max 127, PROC15 included)
...
//*---Override Input dataset
//PROC15 EXEC PROC=MYPROC,OUT='OFILE15'
//STEP010P.INDD DD DISP=SHR,DSN=HLQ.IPI.ecc.IFILE15.BIS |
I hope in this suggest and if you need further detail I will happy to give you. |
|
.jpg)
