zOs/JCL/SORTSUM

//A540769C  JOB (CP00,KE50),TIME=NOLIMIT
//***MAIN CLASS=CMNA
//        SET LE=PVSP.RZ2.P0.PVSSTEU
//        SET MI=CH04
//E02     EXEC PGM=DFSORT,PARM='SIZE(MAX)'
//SORTIN    DD *
01 eins01hex<<
>>
02 zwei  hex<<>>
03 drei  hex<<>>
11 eins02hex<<>>
12 zwei  hex<<>>
13 drei  hex<<
>>
23 drei  hex<<‡>>
//SORTOUT   DD SYSOUT=*
//SORTMSG   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSIN     DD *
*
* define inputRecord from input File
*              first 9 character from inFile
*              *     expand by hex zero
*              *     *          the two byte binary field
*              *     *          *       * filler at col 14
*              *     *          *       *         binary 1 for count
*              *     *          *       *         *
 INREC FIELDS=(1:1,9,10:X'0000',12:15,2,14:C'===',17:X'00000001')
*
* sortfields
*              at position 4, len 6 chars, character Descending
 SORT  FIELDS=(4,6,CH,D)
*
* sum fields
*              binary unsigned, each 4 bytes long
 SUM   FIELDS=(10,4,BI,17,4,BI)
*
* output record, analog inRec but from inRec
 OUTREC FIELDS=(1:C'RZ2 CH04',10:4,6,20:10,11)