You can achieve this in 2 steps:
STEP1 : Using sort copy this file in a temporary file and append date part at the end of the each record in the Format YYYY-MM-DD. (hard coded "20" + "YY-MM-DD").
STEP2: Use the following sample code to include records satisfying the date condition: While creating the output file outrec only 131 bytes as no need the appended date part.
Explanation of INCLUDE COND=(1,10,CH,GE,DATE1(-)-5):
1: starting Position
10: Length
CH: Character Type
GE: greater than Equal to
DATE(-): "-" separated date
5: No of previous day from today
OPTION Y2PAST=2000
*
INREC OVERLAY=(132:2,8,UFF,TO=ZD,LENGTH=6)
SORT FIELDS=COPY
OUTFIL OMIT=(132,6,Y2T,LT,Y'DATE1'-5),BUILD=(1,131)
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIV[/list]
I was able to get it to work with some minor modifications: I moved the CENTWIN from the OPTIONS to the SORT statement and modified the record length fields by 1 byte. I'm guessing that the latter has to do with the FBA format.