Tags

, , , , , , , ,

There are special symbols (JPn) in ICETOOL (DFSORT) which can used in SORT control statements to include the values in the SET symbols of the JCL.

Suppose the need is to run the same job for 4 different quarters of the year. And the month names in the input file are formatted as 3 characters (JAN, FEB, MAR, APR …) from 4th to 6th character. And if the months for each quarter as supplied using SET Parms in the JCL.

// SET MON1=’JAN’
// SET MON2=’FEB’
// SET MON3=’MAR’

Then these 3 SET symbols MON1, MON2, MON3 can be used as parameters to the SORT JCL as below. For running the same job for other quarters, the only requirement is to change the symbols MON1, MON2 and MON3 to have the month values for that quarter.

For example, the following DFSORT job would use the values for SET symbols MON1, MON2 and MON3 in the INCLUDE statement:

//STEP01 EXEC PGM=SORT,
// PARM=’JP1″&MON1″,JP2″&MON2″,JP3″&MON3″‘
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=YOUR.INPUT.FILE
//OUTFILE DD DSN=YOUR.OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,1),RLSE),
// DCB=(RECFM=FB,LRECL=3,BLKSIZE=0)
//SYSIN DD *
OPTION COPY
INCLUDE COND=(4,3,CH,EQ,JP1,OR,4,3,CH,EQ,JP2,OR,4,3,CH,EQ,JP3)
/*

 

Advertisements