vikas kumar jain
New User
Joined: 02 Aug 2006 Posts: 9 Location: noida
|
|
|
|
We have the below control card in a year end process that has to be updated every year for the two digit year like this year 09 will be made 10.
Is there a way where we can remove the need to change the ctl card every year and parameterize the JCL some how.
Please note that we have this field available as a symbolic ... RUNYR2 = 10 which we pass from a control card that will have this value.
----------------------------------------------------------------------
INCLUDE COND=(((61,1,CH,EQ,C'Y',OR,61,1,CH,EQ,C'Z'),
AND,7,4,ZD,EQ,0000,
AND,(132,2,CH,EQ,C'09',AND,134,5,PD,NE,0)),
OR,
((61,1,CH,EQ,C'Y',OR,61,1,CH,EQ,C'Z'),
AND,7,4,ZD,EQ,0000,
AND,(139,2,CH,EQ,C'09',AND,141,5,PD,NE,0)))
SORT FIELDS=COPY
OUTFIL FNAMES=EXTRACTY,INCLUDE=(61,1,CH,EQ,C'Y'),
OUTREC=(2,5,PD,EDIT=(TTTTTTTTT),X,7,4,66X)
OUTFIL FNAMES=EXTRACTZ,INCLUDE=(61,1,CH,EQ,C'Z'),
OUTREC=(2,5,PD,EDIT=(TTTTTTTTT),X,7,4,66X)
----------------------------------------------------------------------
The digirs in BOLD need to be changed in the Sort card every year |
|