Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the one below to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAAA BBBBBB 11/05/2008
CCCC CCCCCC 11/09/2008
DDDD DDDDDD 11/30/2008
EEEE EEEEEE 12/10/2008
FFFF FFFFFF 12/22/2008
GGGG GGGGGG 12/17/2008
HHHH HHHHHH 12/30/2008
IIII IIIIII 11/28/2008
JJJJ JJJJJJ 12/28/2008
KKKK KKKKKK 11/28/2008
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(81:19,4,13,2,16,2)
OUTFIL INCLUDE=(81,8,CH,GE,DATE1,AND,81,8,CH,LE,DATE1+45),
BUILD=(1,80)
/*
|
|
|