//BCOPY43 JOB (1110,81912,3,20),'NAME - UP TO 20 CHAR',MSGCLASS=S,
//    MSGLEVEL=(1,1),NOTIFY=COINEWM
//*
//*   USER SERVICES
//*   388-1331
//* JES
//*
/*JOBPARM  SHIFT=D
/*SETUP  TEMP10(P921P1)-WMU
//*
//COPY    PROC
//         EXEC PGM=IEBGENER,TIME=3
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&DSN,DISP=SHR
//SYSUT2   DD DSN=&TDSN,DISP=(NEW,KEEP),
//            UNIT=TAPE6250,VOL=(,RETAIN,SER=P921P1),
//            LABEL=(&FILE,SL),DCB=DEN=4
//SYSIN    DD DUMMY
//         PEND
//    EXEC  PGM=IEBCOPY,TIME=3
//SYSPRINT  DD SYSOUT=*
//SYSUT3    DD SPACE=(TRK,(1,1)),UNIT=SCRATCH
//SYSUT4    DD SPACE=(TRK,(1,1)),UNIT=SCRATCH
//IN1    DD DSN=COINEWM.PRELIMS.DATA,DISP=SHR
//OUT1   DD UNIT=TAPE6250,VOL=(,RETAIN,SER=P921P1),
//            DISP=(NEW,KEEP),LABEL=(1,SL),DSN=PRELIMS.DATA
//IN2    DD DSN=COINEWM.V626,DISP=SHR
//OUT2   DD UNIT=TAPE6250,VOL=(,RETAIN,SER=P921P1),
//            DISP=(NEW,KEEP),LABEL=(2,SL),DSN=V626
//IN3    DD DSN=COINEWM.V635,DISP=SHR
//OUT3   DD UNIT=TAPE6250,VOL=(,RETAIN,SER=P921P1),
//            DISP=(NEW,KEEP),LABEL=(3,SL),DSN=V635
//SYSIN   DD *
 COPY INDD=IN1,OUTDD=OUT1
 COPY INDD=IN2,OUTDD=OUT2
 COPY INDD=IN3,OUTDD=OUT3
//*
//*
//STEP1   EXEC COPY,FILE=4,TDSN='VIMS1',
//         DSN='COINEWM.VIMS1'
//STEP2   EXEC COPY,FILE=5,TDSN='VIMS2',
//         DSN='COINEWM.VIMS2'
//STEP3   EXEC COPY,FILE=6,TDSN='VIMS3',
//         DSN='COINEWM.VIMS3'
//STEP4   EXEC COPY,FILE=7,TDSN='VIMS4',
//         DSN='COINEWM.VIMS4'
//*
//TMAP   EXEC TAPEMAP,VOL=P921P1,BPI=6250
//
