DEFINE CLUSTER -
(NAME(TEST.MLI.BRPTOTAL.WRITER.DATA) -
CYL(1 1) -
NONINDEXED -
SPEED ) -
DATA -
(NAME(TEST.MLI.BRPTOTAL.WRITER.DATA.DATA) -
RECORDSIZE (229 229) -
CISZ (4096))
DEFINE CLUSTER -
(NAME(TEST.MLI.BRPTOTAL.WRITER.CENTRPR) -
TRK(300 15) -
CISZ(4096) -
NONINDEXED -
RECSZ(229 229) -
FREESPACE(0 0) -
SPEED) -
DATA -
(NAME(TEST.MLI.BRPTOTAL.WRITER.CENTRPR.DATA))
//SRTTOT1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TEST.MLI.BRPTOTAL.WRITER.DATA,DISP=(SHR)
//SORTOUT DD DSN=TEST.MLI.BRPTOTAL.WRITER.CENTRPR,DISP=(SHR)
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSIN DD *
SORT FIELDS=(1,77,CH,A),NOEQUALS
INCLUDE COND=(34,32,CH,EQ,C'00000000000000000000000000000000')
SUM FIELDS=NONE
OPTION FILSZ=E20000
RECORD TYPE=F,LENGTH=(229)
/*
![Cool 8-)](https://www.ibmmainframeforum.com/images/smilies/icon_cool.gif)