zOs/JCL/SORT

//A540769T  JOB (CP00,KE50)                                             00010001
//*MAIN CLASS=CMNA
//S1       EXEC PGM=IEFBR14                                             00020001
//*         SET FIN=OMS.DIV.P0.STAT.RZ1.DES.Y04M10
//*         SET FOU=OMS.DIV.P0.STAT.RZ1.DEO.Y04M10
//          SET FIN=OMS.DIV.P0.STAT.RZ2.Y04M01.OLD17
//          SET FOU=OMS.DIV.P0.STAT.RZ2.SOR.Y04M01
//SORTOUT   DD DISP=(MOD,DELETE),DSN=&FOU
//E02     EXEC PGM=DFSORT,PARM='SIZE(MAX)'
//SORTIN    DD DISP=SHR,DSN=&FIN
//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 *
 SORT FIELDS=(128,3,CH,D,9,123,CH,A,5,4,CH,A,131,600,CH,A)
//SYSIX1    DD *
                 SORT 124 126 D 5 123 A 1 4 A 127 800 A +4 FüR VB|