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’

Advertisements