20 lines
537 B
Plaintext
20 lines
537 B
Plaintext
//IMPMF04 JOB
|
|
//*
|
|
//STEP002 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0002,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ecntsup.DOESTAX.CONV.fromESSP.x145',
|
|
// COPY)
|
|
//*
|
|
//STEP004 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0001,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
// |