zOs/JCL/SPLITCSM
$#@
$*( parallel copy by csm
from remote rz
$*)
$>. fEdit()
$do ox=1 to 6 $@=/job/
//A540769$ox JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//COPY$ox EXEC PGM=CSMUTIL,PARM='CSM,COPYREPLACE'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=DSN.RDBOF.ZZ010676.SN01A1P.A202A.ARZZ$ox,
// DISP=SHR,SUBSYS=(CSM,'SYSTEM=RQ2')
//SYSUT2 DD DSN=DSN.RDBOF.ZZ010676.SN01A1P.A202A.ARZZ$ox,
// DISP=(NEW,CATLG),MGMTCLAS=COM#E005,DATACLAS=NULL30,
// DCB=(RECFM=VB,DSORG=PS,LRECL=5505),
// SPACE=(CYL,(55000,5000)),DSNTYPE=(EXTREQ,2)
$/job/