//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00001001
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00002001
// MSGCLASS=T,NOTIFY=&SYSUID 00003001
//******* COPY PS 00050000
//CP EXEC PGM=CSMAPPC, 00060000
// PARM='START PGM(CSMAUTIL) PARM(''INDD(I)'')' 00070000
//SYSPRINT DD SYSOUT=* 00080000
//I DD * 00090000
COPY RZ2/DVBP.XBFBE002.SFBE0133.P00004.D160817.REC - 00100001
TO RR2/DVBP.XBFBE002.SFBE0133.P00004.D160817.REC 00110001