Tags

, , , , , , , , , ,

DFSORT can be used to include only the records from the input file with today’s date or any particular date relative to today’s date

In the below example, first 8 character (1-8) of the input file holds the date in the format C’yyyymmdd’. To include only records with the current date, below SORT job can be used.

//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=YOUR.INPUT.FILE
//SORTOUT DD DSN=YOUR.OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,1),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
INCLUDE COND=(1,8,CH,EQ,DATE1)
/*

 

Ex:
Input File

20170612AAAAAA
20170612RRRRRR
20170614RRRRRR
20170614AAAAAA
20170614JJJJJJ
20170615EEEEEE

If the current date is 20170614 then below is the output

Output File

20170614RRRRRR
20170614AAAAAA
20170614JJJJJJ

Note:
For different format of the dates, use below DATE operands

DATE1 – C’yyyymmdd’
DATE1(/) – C’yyyy/mm/dd’
DATE2(-) – C’yyyy-mm’
DATE3P – P’yyyyddd’
Y’DATE1′ – Z’yymmdd’

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

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