//IMPMF04 JOB //* //*STEP002 EXEC PGM=IEFBR14 //*SYSPRINT DD SYSOUT=* //*SYSOUT DD SYSOUT=* //*DD1001 DD DSN=TMP0199, //* DISP=(,PASS,DELETE), //* DISP=DHR, //* DCB=(LRECL=512,RECFM=FB), //* PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES', //* COPY) //* //STEP004 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SORTIN DD DSN=DOESTAX.PROD.BD400.BTC.BACKUP.G0004V00,DISP=SHR //SORTOUT DD DSN=DOESTAX.PROD.BTC(+1), // DISP=(,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,10),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182) //SYSIN DD * REPRO IFILE(SORTIN) OFILE(SORTOUT) /* //