Page 1 of 1

Add Blank record after each date change - SORT

PostPosted: Fri May 13, 2011 2:56 pm
by Kitz
Please help me to dispay a blank record after sort (date change)

Input

ABCDEFGH 1105121600
ABCXXXGH 1105121600
ABXXXXKH 1105121600
KXXAAALK 1105141600
CDEFGHLK 1105131600
CDEKKKLK 1105131600
BAAAAALK 1105141600
CDXXXHLK 1105131600


I was sorting my fileds like:
SORT FIELDS=(9,6,CH,A,1,8,CH,A)

My output should display something like below:
ABCDEFGH 1105121600
ABCXXXGH 1105121600
ABXXXXKH 1105121600

CDEFGHLK 1105131600
CDEKKKLK 1105131600
CDXXXHLK 1105131600

BAAAAALK 1105141600
KXXAAALK 1105141600

A blank record needs to be displayed after each date change. Could anyone help? Is it possible with SORT?

Thanks & Regards,
Kitz

Re: Add Blank record after each date change - SORT

PostPosted: Fri May 13, 2011 9:09 pm
by Kitz
It worked for me; here's the code:
SORT FIELDS=(9,6,CH,A,1,8,CH,A)
OUTFIL REMOVECC,SECTIONS=(9,6,SKIP=L)

Thanks & Regards,
Kitz

Re: Add Blank record after each date change - SORT

PostPosted: Fri May 13, 2011 9:12 pm
by Frank Yaeger
Your date field positions seem a bit off. It appears to be 10,10 rather than 9,6. Given that, here's a DFSORT job that will do what you asked for:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN DD *
  SORT FIELDS=(10,10,CH,A,1,8,CH,A)
  OUTFIL REMOVECC,
    SECTIONS=(10,10,SKIP=1L)
/*


Re: Add Blank record after each date change - SORT

PostPosted: Fri May 13, 2011 9:17 pm
by Kitz
Hi Frank, Hope you are doing good.

Yes, the date field appears at 10. Sorry for that.

It worked and thanks for your help.

Thanks & Regards,
Kitz