14 lines
826 B
Plaintext
14 lines
826 B
Plaintext
//DTSBXTST JOB (UI,4300,3400,T),TESTMSTB,
|
|
// CLASS=S,MSGCLASS=X,REGION=0M
|
|
//STEP0120 EXEC PGM=IDCAMS
|
|
//SYSOUT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.PROD.VSAM.MSTB,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=30')
|
|
//OUTDD01 DD DSN=DOESTAX.PROD.BACKUP.MSTB(+1),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=CART,
|
|
// LABEL=(2,SL,,,EXPDT=99000),
|
|
// DCB=(RECFM=VB,LRECL=4096,BLKSIZE=32760)
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|