В приведенном ниже JCL используется DFSORT, чтобы равномерно разделить DD SOTRIN по 3 выходным DATASETS (OUT1, OUT2 и OUT3), чтобы сделать это по 6, добавить еще 3 выходных DD-оператора и добавить их в оператор FNAMES.
//SPLIT EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Y897797.INPUT1,DISP=OLD
//OUT1 DD DSN=Y897797.SPLIT1,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//OUT2 DD DSN=Y897797.SPLIT2,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//OUT3 DD DSN=Y897797.SPLIT3,DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSIN DD *
SORT FIELDS=(21,5,FS,A)
OUTFIL FNAMES=(OUT1,OUT2,OUT3),SPLIT
/*
SORT FIELDS = (21,5, FS, A) - это способ сортировки набора данных sortint. Ниже приведено значение этого оператора полей
21 начало поля для сортировки
5 Длина поля для сортировки
FS плавающий знак (числовой знак)
Восходящий порядок
Руководство по началу работы с DFSORT
Умные хитрости DFSORT имеет множество полезных примеров и несколько других способов разделить записи из набора данных