James,
I think I understand what you're trying to do and you can use
DFSORT's WHEN=GROUP function to do it. Here's an
example:
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
01/20/12 08:00 01/20/12 08:59 XRQ0 1 1.419
X257 63 .178
01/20/12 09:00 01/20/12 09:59 ACFT 12 .001
CATA 177 .008
CATD 34 .005
CDTS 9 .003
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,2,CH,NE,C' '),
PUSH=(1:1,30))
/*
SORTOUT would have:
01/20/12 08:00 01/20/12 08:59 XRQ0 1 1.419
01/20/12 08:00 01/20/12 08:59 X257 63 .178
01/20/12 09:00 01/20/12 09:59 ACFT 12 .001
01/20/12 09:00 01/20/12 09:59 CATA 177 .008
01/20/12 09:00 01/20/12 09:59 CATD 34 .005
01/20/12 09:00 01/20/12 09:59 CDTS 9 .003
Does that help?
Frank Yaeger - DFSORT Development Team (IBM) - [email protected]
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
