$#@ 00001000
$*( use DFSort to split a large input file 00001101
we need to indicate the output file out1..out6 00001201
and to give the number of records for each one 00001301
the last output will take all remaining records 00001401
for csm copy of output see splitCsm 00001502
$*) 00001601
$>. fEdit() 00002000
$@=/JOB/ 00003000
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//P0 EXEC PGM=DFSORT 00050000
//SORTIN DD DISP=SHR,DSN=DSN.RDBOF.SN010676.SN01A1P.A202A.AR00000 00060000
//SYSOUT DD SYSOUT=* 00070000
$=all= $'' 00070100
$do ox=1 to 6 $@=[ 00071000
//OUT$ox DD DSN=DSN.RDBOF.ZZ010676.SN01A1P.A202A.ARZZ$ox, 00080000
// DISP=(NEW,CATLG),MGMTCLAS=COM#E005,DATACLAS=NULL30, , 00080200
// DCB=(RECFM=VB,DSORG=PS,LRECL=5505), 00080300
// SPACE=(CYL,(30000,5000)),DSNTYPE=(EXTREQ,2) 00080400
$=all=$all,OUT$ox 00081000
$] 00090000
$=all=- substr($all, 2) 00100000
//SYSIN DD * 00140000
SORT FIELDS=(COPY) 00150000
OUTFIL FNAMES=($all),SPLIT1R=10000000 00160000
$/JOB/ 00170000