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:
F1 for Mainframe 