zOs/JCL/CSMCOVBS

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//*--------------- copy vbs -------------------
//COPY     EXEC PGM=CSMUTIL,PARM='CSM,COPYREPLACE'
//SYSPRINT   DD SYSOUT=*
//SYSUT1     DD DSN=A540769.TMPOPTHI.RZ4.DP4G.QUERY.UNL,
//             DISP=SHR,SUBSYS=(CSM,'SYSTEM=RZ4')
//SYSUT2     DD DSN=A540769.TMPOPTHI.RZ4.DP4G.QUERY.UNLC1,
//             DISP=(NEW,CATLG),MGMTCLAS=COM#E005,DATACLAS=NULL30,
//             DCB=(RECFM=VBS,DSORG=PS,BLKSIZE=27998,LRECL=X),
//             SPACE=(CYL,(1,50)),
//             SUBSYS=(CSM,'SYSTEM=RR2')