328 lines
10 KiB
Plaintext
328 lines
10 KiB
Plaintext
//IMPMF04 JOB
|
|
//*
|
|
//STEP010 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP010 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=&&IMP001,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
|
|
// COPY)
|
|
//*
|
|
//STEP010 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&IMP001,DISP=(OLD,DELETE,DELETE)
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//
|
|
//STEP010 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=&&imp001,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
|
|
// COPY)
|
|
//*
|
|
//STEP010 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0110,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP011 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0111,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
|
|
// COPY)
|
|
//*
|
|
//STEP011 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0111,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP012 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0112,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
|
// COPY)
|
|
//*
|
|
//STEP012 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0112,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP013 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0114,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
|
// COPY)
|
|
//*
|
|
//STEP013 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0114,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//
|
|
//STEP014 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0114,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
|
// COPY)
|
|
//*
|
|
//STEP014 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0114,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP015 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0115,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
|
// COPY)
|
|
//*
|
|
//STEP015 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0115,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP016 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0116,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
|
// COPY)
|
|
//*
|
|
//STEP016 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0116,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP017 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0117,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
|
// COPY)
|
|
//*
|
|
//STEP017 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0117,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP018 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0118,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
|
// COPY)
|
|
//*
|
|
//STEP018 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0118,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
//*
|
|
//*
|
|
//
|
|
//STEP019 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0119,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
|
// COPY)
|
|
//*
|
|
//STEP019 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0119,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP025 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0125,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
|
// COPY)
|
|
//*
|
|
//STEP025 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0125,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP020 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0120,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
|
// COPY)
|
|
//*
|
|
//STEP020 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0120,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP021 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0121,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=512,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
|
|
// COPY)
|
|
//*
|
|
//STEP021 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0121,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
//STEP022 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0122,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=80,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
|
// COPY)
|
|
//*
|
|
//STEP022 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0122,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
// |