33 lines
939 B
Plaintext
33 lines
939 B
Plaintext
//IMPMF04 JOB
|
|
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DELETE TMPM023
|
|
DELETE DOESTAX.PROD.VSAM.BTNO
|
|
SET MAXCC=0
|
|
//*
|
|
//STEP002 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPM023,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
// DCB=(LRECL=10,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.RC.BKP.BTNO',
|
|
// COPY)
|
|
//*
|
|
//STEP003 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE CLUSTER (NAME(DOESTAX.PROD.VSAM.BTNO) INDEXED -
|
|
RECORDSIZE (10 10) -
|
|
KEYS (5 0) ) -
|
|
DATA (NAME(DOESTAX.PROD.VSAM.BTNO.DAT)) -
|
|
INDEX (NAME(DOESTAX.PROD.VSAM.BTNO.IDX))
|
|
//*
|
|
//STEP004 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPM023,DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.PROD.VSAM.BTNO,DISP=SHR
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT) |