Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Jim C,
You need to transform the date and compare it against system date. Use the following DFSORT JCL which will give you the desired results. I assumed that your input lrecl=80 and recfm=fb
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
XXXXX 08/25/12 14:53:03 DROP
XXXXX 09/26/12 14:53:03 PICK
XXXXX 08/28/12 14:53:03 PICK
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC OVERLAY=(81:7,8,UFF,ZD,LENGTH=6)
OUTFIL BUILD=(1,80),INCLUDE=(81,6,Y2W,GT,Y'DATE1'-30)
//* |
|
|