//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)