zOs/JCL/SORT1

//A540769T  JOB (CP00,KE50)                                             00010001
//*MAIN CLASS=CMNA
//S1       EXEC PGM=IEFBR14                                             00020001
//*         SET FIN=OMS.DIV.P0.STAT.RZ2.DES.Y04M11
//          SET FOU=OMS.DIV.P0.STAT.RZ2.DNN.Y04M11
//          SET FIN=OMS.DIV.P0.STAT.RZ2.DEO.Y04M09
//SORTOUT   DD DISP=(MOD,DELETE),DSN=&FOU
//E02     EXEC PGM=DFSORT,PARM='SIZE(MAX)'
//SORTIN    DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ2.GT271.Y04M09
//          DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ2.EQ271.Y04M09
//          DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ2.LT271.Y04M09
//SORTOUT   DD DISP=(NEW,CATLG),MGMTCLAS=S005N000,
//             DSN=&FOU,LIKE=&FIN
//SORTWK01  DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTWK02  DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTWK03  DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTMSG   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//*              SORT 124 126 D 5 123 A 1 4 A 127 800 A +4 FüR VB|
//SYSIN     DD *
 MERGE FIELDS=COPY