402 lines
10 KiB
Plaintext
402 lines
10 KiB
Plaintext
//CREGDG01 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.DAILY.CHKS) -
|
|
LIMIT(255) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X425ACHD) -
|
|
LIMIT(20) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//*****************************************************************
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) -
|
|
LIMIT(20) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) -
|
|
LIMIT(20) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//******************************************************************
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.FAILED.X144) -
|
|
LIMIT(10) -
|
|
EMPTY - DOESTAX.CONV.CURRMINI
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP.PASSED.X140) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X436PEND.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X436PAID.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.PROD.ESSP.PENDING.X145) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.PENDING.X144) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.PROD.ESSP.PENDING.X140) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X430PEND.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X430PAID.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.DEVL.X426.BTC) -
|
|
LIMIT(10) -
|
|
EMPTY - DOESTAX.CONV.ESSP.X430PAID.TXT
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.AMEND.FAILED.X140) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//*STEP001 EXEC PGM=IDCAMS
|
|
//*SYSPRINT DD SYSOUT=*
|
|
//*SYSIN DD *
|
|
//* DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) -
|
|
//* LIMIT(10) -
|
|
//* EMPTY -
|
|
//* SCRATCH)
|
|
//*
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X451PEND.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X451PAID.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX147) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX144) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX140) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDECESSP.RLSERPW) -
|
|
LIMIT(10) -
|
|
EMPTY -DOESTAX.CONV.ESSPAMEN.DAYX140
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X530PEND.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
// DOESTAX.CONV.TDECESSP.RLSERPW
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X530PAID.TXT) -
|
|
LIMIT(10) -
|
|
EMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145DACH) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.PROD.TDECESSP.PAYX530) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)DOESTAX.CONV.DOESESSP.X145DACH
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=* DOESTAX.PROD.TDECESSP.PAYX530
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145SCHK) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145EACH) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDECESSP.RPTX430)
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X424PEND.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X424PAID.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X421PAID.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
/STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X421PEND.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//**
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.RPTACH) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X438PEND.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X438PAID.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X425ACHD) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDEC.X429PEND.TXT) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//*
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.PENDING.X437.PAY) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X437.BTC) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
// DOESTAX.CONV.ESSP.X437PAID.TXT
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP.BKPX999) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//STEP001 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DEFINE GDG(NAME(DOESTAX.CONV.TDEC.DOES.RPTPAY) -
|
|
LIMIT(10) -
|
|
NOEMPTY -
|
|
SCRATCH)
|
|
//
|
|
//IMPMF04 JOB
|
|
//*
|
|
//STEP002 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD1001 DD DSN=TMPZ0004,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=DHR,
|
|
// DCB=(LRECL=750,RECFM=FB),
|
|
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X303EXP',
|
|
// COPY)
|
|
//*
|
|
//STEP004 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORTIN DD DSN=TMPZ0004,DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(20,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
|
|
//SYSIN DD *
|
|
REPRO IFILE(SORTIN) OFILE(SORTOUT)
|
|
/*
|
|
// |