//DTSRBTCH JOB (UI,4300,3400,T),PRODBTC.COPYFILE,CLASS=A, // MSGCLASS=X, // USER=#DOADTS, // NOTIFY=ECNTZL1, //**** TYPRUN=SCAN, // REGION=0M //********************************************************************** //*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1 //********************************************************************** //PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //* //COPY1Z EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.XN420.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.XN420.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY1H EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.XZ420.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.XZ420.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY1A EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X418.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X418.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY1B EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X420.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* /* //COPY1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X421.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X421.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X424.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X424.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY3 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X427.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X427.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY5 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.TDEC.X429.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X429.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY6 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X430.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X430.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY7 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X435.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X435.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY8 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X436.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X436.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY9 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X451.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X451.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //COPY7 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.PROD.ESSP.X426.BTC,DISP=SHR //INDD02 DD DSN=DOESTAX.CONV.PRODESSP.X426.BTC,DISP=SHR //SYSIN DD * REPRO INFILE(INDD01) OUTFILE(INDD02) /* //*