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)
/*

 

——————————————————————————————————–

If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

——————————————————————————————————–

You may also like to look at:

Working on Mainframes – Is Change to a different technology necessary
Important SQL CODES and ABEND CODES
SORT JOIN – TO JOIN TWO FILES BASED ON A KEY
KNOW YOUR MAINFRAME
REXX – INITIAL SETUP
HOW TO SUBMIT A BATCH JOB FROM THE CICS PROGRAM
CICS – EXEC interface block – EIBRESP Values
CICS – EXEC interface block Fields
Flow of control between COBOL programs, run units, and CICS
CICS INTERVIEW QUESTIONS
CICS TIPS
COBOL – COPY and INCLUDE statements
COBOL – PERFORMANCE IMPROVEMENT
COBOL – SIGN STORED IN COMP, COMP-3 AND DISPLAY FORMATS
SHORTEST COBOL PROGRAM
RESTART LOGIC IN COBOL DB2 Program
GOBACK – EXIT PROGRAM – STOP RUN
Continuation lines in COBOL
Computational items – COMP, COMP 1 , COMP 2, COMP 3
COBOL program format
cobol indicator area column-7 and area a and area b
COBOL INTERVIEW QUESTIONS
COBOL TIPS
COBOL COMPILER OPTIONS
The IDENTIFICATION DIVISION