Z updated JCL files on PROD Env
This commit is contained in:
File diff suppressed because it is too large
Load Diff
@ -3,8 +3,8 @@
|
||||
//STEP017 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,
|
||||
//DD1001 DD DSN=DOESTAX.PROD.RPT414R1,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(LRECL=133,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.R414.EXCL.RPT4',
|
||||
// DCB=(LRECL=134,RECFM=FBA),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
96
JCL/DELESSP.jcl
Normal file
96
JCL/DELESSP.jcl
Normal file
@ -0,0 +1,96 @@
|
||||
//LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
|
||||
// USER=#DOADTS,
|
||||
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||
/*ROUTE PRINT U@PRT65
|
||||
//*STEP001 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||
//* DISP=(NEW,CATLG,CATLG),
|
||||
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
|
||||
//* COPY)
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP014 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP016 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP018 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP020 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP022 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP024 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP026 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP028 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
@ -12,7 +12,7 @@
|
||||
// SET LVLNODE='DEVL' 00021008
|
||||
// SET MSTNODE='PROD' 00021108
|
||||
//* 00021608
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
|
||||
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
|
||||
//* 00022008
|
||||
@ -54,7 +54,7 @@
|
||||
//SYSABEND DD SYSOUT=* 00270000
|
||||
//SYSUDUMP DD SYSOUT=* 00280000
|
||||
//* 00290000
|
||||
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR, 00300006
|
||||
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR, 00300006
|
||||
// AMP=('BUFNI=5,BUFND=10') 00310000
|
||||
//* 00320000
|
||||
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
|
||||
@ -64,7 +64,8 @@
|
||||
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
|
||||
//* DISP=SHR 00351013
|
||||
// DISP=(NEW,CATLG,DELETE), 00050206
|
||||
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
|
||||
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES, 00050306
|
||||
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
|
||||
//* 00360000
|
||||
//********************************************************************* 00370000
|
||||
@ -75,7 +76,26 @@
|
||||
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
|
||||
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
|
||||
//** 00450007
|
||||
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD 00460011
|
||||
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20252,DISP=MOD 00460011
|
||||
//SYSPRINT DD SYSOUT=(*) 00500007
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
|
||||
//** 00520007
|
||||
//**
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.PROD.WAGE.NAME.EXP' +
|
||||
DOESTAX.PROD.WAGE.NAME.EXP
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//* 00520007
|
||||
|
||||
@ -15,4 +15,22 @@
|
||||
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
|
||||
// DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.REG122' ECNTSUP.DOESTAX.PROD.FTP.REG122
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
|
||||
@ -10,3 +10,24 @@
|
||||
//* 00001700
|
||||
//STEP0100 EXEC DTSBX202
|
||||
//*********************************************************************
|
||||
/*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX217.AM' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.BX217.AM
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
@ -1,6 +1,6 @@
|
||||
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
|
||||
//* TYPRUN=SCAN,
|
||||
// USER=#DOADTS,
|
||||
// USER=#DOADTS,RESTART=STEP0900,
|
||||
// NOTIFY=ECNTSUP,
|
||||
// REGION=0M
|
||||
//*
|
||||
@ -16,13 +16,28 @@
|
||||
//* 00070000
|
||||
//STEP0200 EXEC DTSBX215
|
||||
//*
|
||||
// 00014000
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0900 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.BX215' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.BX215
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.BX220' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.BX220
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//* 00014000
|
||||
//*****************************************
|
||||
//STEP0210 EXEC PGM=FTP,
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
|
||||
//
|
||||
|
||||
@ -21,7 +21,8 @@
|
||||
// DISP=(OLD,KEEP,KEEP),
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// SPACE=(7500,(10,20),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=750,BLKSIZE=7500)
|
||||
//*
|
||||
//******************************************************************
|
||||
//* RAINCODE TESTED 08/20/25 ZL1 r
|
||||
@ -31,13 +32,25 @@
|
||||
//******************************************************************
|
||||
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
|
||||
//*
|
||||
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
|
||||
//*YSPRINT DD SYSOUT=*
|
||||
//*UTOUT DD SYSOUT=*
|
||||
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*YSGET DD *,DCB=BLKSIZE=80
|
||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
ASCII
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
PUT 'DOESTAX.PROD.FTP.REFUND.X303EXP' +
|
||||
DOESTAX.PROD.FTP.REFUND.X303EXP
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//*********************************************************************
|
||||
//* |
|
||||
//* JOB : SAVE A COPY OF THE FTP REFUND FILE
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
// CLASS=S,MSGCLASS=X, 00000010
|
||||
//* TYPRUN=SCAN,
|
||||
// USER=#DOADTS,
|
||||
// NOTIFY=ECNTSUP,
|
||||
// NOTIFY=ECNTSUP,
|
||||
// REGION=0M
|
||||
//* 00001700
|
||||
// SET LVLNODE='PROD'
|
||||
@ -35,7 +35,7 @@
|
||||
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
||||
//* |
|
||||
//*********************************************************************
|
||||
//STEP0250 EXEC PGM=IDCAMS
|
||||
//STEP0100 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
@ -51,7 +51,7 @@
|
||||
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
||||
//* |
|
||||
//*********************************************************************
|
||||
//STEP0250 EXEC PGM=IDCAMS
|
||||
//STEP0200 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
|
||||
@ -68,7 +68,7 @@
|
||||
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
|
||||
//* 00001700
|
||||
//********************************************************************
|
||||
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
|
||||
//STEP0300 EXEC PGM=SORT SORT FTP RECORDS
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR
|
||||
@ -79,10 +79,31 @@
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
||||
//*********************************************************************
|
||||
//*STEP0100 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//*STEP0400 EXEC DTSUTVSM, 00002102
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//*****
|
||||
//STEP0200 EXEC DTSBX305
|
||||
//STEP0500 EXEC DTSBX305
|
||||
//** 00001700
|
||||
//STEP0300 EXEC DTSBX306
|
||||
//STEP0600 EXEC DTSBX306
|
||||
//** 00001700
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0700 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.PROD.FTP.REFUND.X305EXP' +
|
||||
DOESTAX.PROD.FTP.REFUND.X305EXP
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X306' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.X306
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -34,10 +34,27 @@
|
||||
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(CYL,(10,10),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(10,10),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=1732,BLKSIZE=0)
|
||||
//*
|
||||
//DTSLN405 DD DUMMY
|
||||
//*
|
||||
//*********************************************************************
|
||||
//************************************************************** 00845099
|
||||
//*
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.CONV.LEIN403.RECORD' DOESTAX.CONV.LEIN403.RECORD
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -26,7 +26,7 @@
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//*
|
||||
//*DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*
|
||||
//DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0),
|
||||
// DISP=SHR
|
||||
@ -34,10 +34,28 @@
|
||||
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(CYL,(10,10),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0)
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(10,10),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=323,BLKSIZE=0)
|
||||
//*
|
||||
//DTSLN403 DD DUMMY
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.CONV.LEIN405.RECORD' DOESTAX.CONV.LEIN405.RECORD
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -3,7 +3,7 @@
|
||||
//* TYPRUN=SCAN,
|
||||
// USER=#DOADTS,
|
||||
//** NOTIFY=ECNTSUP,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// NOTIFY=ECNTZL1,RESTART=STEPFTP,
|
||||
// REGION=0M
|
||||
//* 00001700
|
||||
// SET LVLNODE='DEVL'
|
||||
@ -31,4 +31,25 @@
|
||||
//STEP0200 EXEC DTSBX441
|
||||
//*
|
||||
//STEP0300 EXEC DTSBX433
|
||||
//** 00001700
|
||||
//**
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEPFTP EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X104' +
|
||||
DOESTAX.CONV.ESSP.DAILY.FTP.X104
|
||||
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X141' +
|
||||
DOESTAX.CONV.ESSP.DAILY.FTP.X141
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//* 00001700
|
||||
|
||||
75
JCL/DTSBX468.jcl
Normal file
75
JCL/DTSBX468.jcl
Normal file
@ -0,0 +1,75 @@
|
||||
//DTSBX468 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET OUTNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR NDNH AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//****
|
||||
//STEP0100 EXEC PGM=DTSBX468
|
||||
//PRNTR DD SYSOUT=(*)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSUDUMP DD SYSOUT=(*)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSDBOUT DD SYSOUT=(*)
|
||||
//SYSCOUNT DD SYSOUT=(*)
|
||||
//*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
|
||||
//* AMP=('BUFNI=5,BUFND=10')
|
||||
//*
|
||||
//*BUSINES DD DSN=EFT.QWDATA.QTRLY.SDC.R250831,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* UNIT=SYSDA,SPACE=(CYL,(900,50),RLSE),
|
||||
//* DCB=(RECFM=LSEQ,LRECL=601)
|
||||
//BUSINES DD DSN=DOESTAX.CONV.NDNH.QTRWAGE,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=SHR
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(300,100),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=601,BLKSIZE=6010)
|
||||
//*
|
||||
//*
|
||||
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
|
||||
//***
|
||||
//SYSIN DD *
|
||||
**DTSBX465 20250601 20250831 DCG FED BUS
|
||||
/*
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
84
JCL/DTSBX469.jcl
Normal file
84
JCL/DTSBX469.jcl
Normal file
@ -0,0 +1,84 @@
|
||||
//DTSBX469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,RESTART=STEP0400,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVLNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//****
|
||||
//STEP0100 EXEC PGM=DTSBX469
|
||||
//PRNTR DD SYSOUT=(*)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSUDUMP DD SYSOUT=(*)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSDBOUT DD SYSOUT=(*)
|
||||
//SYSCOUNT DD SYSOUT=(*)
|
||||
//*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
|
||||
//* AMP=('BUFNI=5,BUFND=10')
|
||||
//*
|
||||
//*
|
||||
//BUSINES DD DSN=DOESTAX.&LVLNODE..UI.OTR.BUS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(75,25),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
||||
//*
|
||||
//GOVT DD DSN=DOESTAX.&LVLNODE..UI.OTR.DCG,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(75,15),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
|
||||
//*
|
||||
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
|
||||
//***
|
||||
//SYSIN DD *
|
||||
**DTSBX465 20250601 20250831 DCG FED BUS
|
||||
/*
|
||||
//STEP0400 EXEC PGM=SFTP
|
||||
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//SYSIN DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//OUTPUT DD SYSOUT=*
|
||||
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
|
||||
/*
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
@ -31,6 +31,28 @@
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
|
||||
//*
|
||||
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=LSEQ,LRECL=80)
|
||||
//*********************************************************************
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT' +
|
||||
ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
@ -108,8 +108,8 @@
|
||||
//*
|
||||
//STEP0400 EXEC DTSBX626
|
||||
//***********************************************************
|
||||
//
|
||||
//
|
||||
//*
|
||||
//*
|
||||
// IF (STEP0400.STEP0450.RC EQ 0) THEN
|
||||
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
|
||||
// COND=(0,LT)
|
||||
@ -140,7 +140,7 @@
|
||||
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
|
||||
//SYSUT2 DD SCODEPAGE=1252,AUTOENCODE=YES,YSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
// ENDIF
|
||||
|
||||
@ -27,9 +27,9 @@
|
||||
//**** 00150000
|
||||
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
|
||||
//**** 00480000
|
||||
//*STEP0200 EXEC DTSUXCGP 00490000
|
||||
//*STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
|
||||
//* DISP=SHR 00500032
|
||||
//STEP0200 EXEC DTSUXCGP 00490000
|
||||
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
|
||||
// DISP=SHR 00500032
|
||||
//**** 00504000
|
||||
//STEP0300 EXEC DTSCHGQ1 00510031
|
||||
//STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030
|
||||
@ -40,7 +40,7 @@
|
||||
//*TEP0100.TPSCHRG DD DISP=SHR 00511130
|
||||
//**** 00520000
|
||||
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00579236
|
||||
//**** 00579336
|
||||
//* 00579336
|
||||
//STEP0200 EXEC DTSUXCGU 00579436
|
||||
//* 00579536
|
||||
//**** 00580025
|
||||
|
||||
@ -35,16 +35,16 @@
|
||||
//*********************************************************************
|
||||
//* STEP TO COPY CONVERT FILE TO DASD-PART1 *
|
||||
//*********************************************************************
|
||||
//*
|
||||
//
|
||||
//STEP0200 EXEC PGM=SORT
|
||||
//*
|
||||
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
|
||||
// DISP=SHR
|
||||
//*
|
||||
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
|
||||
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
|
||||
//SYSIN DD *
|
||||
SORT FIELDS=COPY
|
||||
INCLUDE COND=(6,1,CH,EQ,C'0',OR,
|
||||
|
||||
@ -84,12 +84,15 @@
|
||||
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099
|
||||
//** 01430000
|
||||
//** SM - TOTAL CHARGES (RATED) 01440000
|
||||
//RPC100R1 DD SYSOUT=E, 01451099
|
||||
//RPC100R1 DD SYSOUT=E,
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES, 01451099
|
||||
// DEST=&LDEST., 01460000
|
||||
// HOLD=&LHOLD. 01470000
|
||||
//** CHRG SUMMARY-RATED 01480000
|
||||
//RPC100R3 DD SYSOUT=0 01491099
|
||||
//** 01520099
|
||||
//RPC100R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=I
|
||||
//* 01491099
|
||||
//**
|
||||
//RPC100R4 DD DUMMY 01520099
|
||||
//**** SORT REPORT RECORDS (901/907) 01800000
|
||||
//STEP0150 EXEC PGM=SORT, 01810000
|
||||
// COND=(0,LT), 01820000
|
||||
|
||||
@ -28,3 +28,22 @@
|
||||
SORT FIELDS=(1,11,CH,A)
|
||||
END
|
||||
//********************************************************************
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.ESSPX145' +
|
||||
ECNTSUP.DOESTAX.CONV.ESSPX145
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
@ -27,3 +27,22 @@
|
||||
//*TEP0100.DTSFVRO1 DD DUMMY 00270006
|
||||
//STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.HOLIDAYS,DISP=SHR 00270109
|
||||
//**** 00284000
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd /Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' +
|
||||
ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS
|
||||
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT' +
|
||||
ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT
|
||||
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT' +
|
||||
ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -23,10 +23,11 @@
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
|
||||
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
@ -49,10 +50,11 @@
|
||||
// SPACE=(CYL,(100,50),RLSE),
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//*
|
||||
//*********************************
|
||||
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
|
||||
@ -70,11 +72,35 @@
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR
|
||||
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
//* SPACE=(8192,(100,200),RLSE),
|
||||
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//****
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.CONV.FROMESSP.PASSED.X147' +
|
||||
DOESTAX.CONV.FROMESSP.PASSED.X147
|
||||
put 'DOESTAX.CONV.FROMESSP.PASSED.X144' +
|
||||
DOESTAX.CONV.FROMESSP.PASSED.X144
|
||||
put 'DOESTAX.CONV.FROMESSP.PASSED.X140' +
|
||||
DOESTAX.CONV.FROMESSP.PASSED.X140
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
//***********************************
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// COND=(0,LT),
|
||||
|
||||
@ -18,12 +18,32 @@
|
||||
//** TO TURN OFF LINE NUMBER TYPE "NONUM"
|
||||
//** FTP COMMANDS MUST be in lower case
|
||||
//***************************************************************
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
|
||||
/*
|
||||
//* TDEC BBACKUP TEST SERVER
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
50.76.21.195
|
||||
tdec_dcw_5
|
||||
14cw0d8Y
|
||||
ascii
|
||||
PUT 'DOESTAX.CONV.TDEC.VERIF' verification_file.txt
|
||||
PUT 'DOESTAX.CONV.TDEC.EMPNAME' employer_no_file.txt
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
|
||||
//****
|
||||
|
||||
52
JCL/DTSFT469.jcl
Normal file
52
JCL/DTSFT469.jcl
Normal file
@ -0,0 +1,52 @@
|
||||
//DTSFT469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVLNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//STEP0400 EXEC PGM=FTP
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
||||
//SYSIN DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//OUTPUT DD SYSOUT=*
|
||||
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
|
||||
/*
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
63
JCL/DTSFTESD.jcl
Normal file
63
JCL/DTSFTESD.jcl
Normal file
@ -0,0 +1,63 @@
|
||||
//DTSFTESD JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
|
||||
//*** TYPRUN=SCAN,
|
||||
//* USER=#DOADTS,
|
||||
// NOTIFY=ECNTZL1,
|
||||
// REGION=4M
|
||||
//****
|
||||
// SET UINODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET LVLNODE='CONV'
|
||||
//****
|
||||
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
|
||||
//*
|
||||
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
|
||||
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
||||
//****
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
|
||||
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd /Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'DOESTAX.CONV.ESSP.MSCL' DOESTAX.CONV.ESSP.MSCL
|
||||
put 'DOESTAX.CONV.ESSP.C102' DOESTAX.CONV.ESSP.C102
|
||||
put 'DOESTAX.CONV.ESSP.C104' DOESTAX.CONV.ESSP.C104
|
||||
put 'DOESTAX.CONV.ESSP.C106' DOESTAX.CONV.ESSP.C106
|
||||
put 'DOESTAX.CONV.ESSP.C108' DOESTAX.CONV.ESSP.C108
|
||||
put 'DOESTAX.CONV.ESSP.C110' DOESTAX.CONV.ESSP.C110
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
|
||||
// 'TO:HAROLD.JOHNSON@DC.GOV',
|
||||
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
|
||||
// 'TO:SEAN.JOSIAH@DC.GOV',
|
||||
// 'TO:JOY.DIGGS@DC.GOV',
|
||||
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
|
||||
// 'TO:PRUDVI.PALLA@DC.GOV',
|
||||
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
|
||||
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
|
||||
// 'FILEDESC: DOES WAGES WITH NAMES ',
|
||||
// 'FILENAME:DOESWAGE.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//**
|
||||
@ -28,25 +28,20 @@
|
||||
//*-----------------------------------------------------
|
||||
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
||||
//*-----------------------------------------------------
|
||||
//*STEPWF EXEC PGM=FTP,
|
||||
//* PARM='-r TLS safetrans.wellsfargo.com'
|
||||
//* PARM='-Sftp=TRUE 10.57.110.160'
|
||||
//*-----------------------------------------------------
|
||||
//*STEPWF EXEC PGM=SFTP,
|
||||
//* PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
|
||||
//*ENVVAR DD *
|
||||
//* CLIENT=sftp
|
||||
//* SFTP_AUTH=3
|
||||
/*
|
||||
//* SFTP_STRICTHOSTKEY=accept-new
|
||||
//* SFTP_AUTH=5
|
||||
//*
|
||||
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//*SFTPAUTH DD *
|
||||
//* machine 10.57.110.160 user dutasrc pass Today728rc!
|
||||
/*
|
||||
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
|
||||
//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||
//* DD *
|
||||
//*FWFRIENDLY TRUE
|
||||
//*SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
|
||||
//*SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
|
||||
/*
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** COPY essp ach RETURNS to backup ach file.
|
||||
//**
|
||||
@ -68,7 +63,7 @@
|
||||
//*** send email ach returns received from wells fargo.
|
||||
//*
|
||||
//********************************************************************
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(4,LT),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -87,7 +82,7 @@
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340)
|
||||
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
|
||||
@ -8,8 +8,8 @@
|
||||
//****
|
||||
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
|
||||
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
|
||||
//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1
|
||||
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
||||
//****
|
||||
//*** FILES GOING TO TDEC SHOULD USE TDEC ZTESTING CHKPAY.
|
||||
//****
|
||||
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||
//********************************************************************
|
||||
@ -24,10 +24,10 @@
|
||||
// SET EXTNODE='CONV'
|
||||
// SET RPTNODE='ESSP.BX420.RPT'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
|
||||
//PROCLIB JCLLIB ORDER=DDOESTAX.PROD.PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIELIB
|
||||
//**
|
||||
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||
//* ZPROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
|
||||
@ -37,10 +37,10 @@
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DUMMY
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*********************************************************************
|
||||
//********************************************************************
|
||||
@ -61,13 +61,13 @@
|
||||
//*
|
||||
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
@ -110,7 +110,7 @@
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=MOD,
|
||||
//* DISP=MOD,
|
||||
// DISP=SHR,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
@ -131,6 +131,27 @@
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
||||
//*
|
||||
//STEP0999 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR
|
||||
// DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR
|
||||
//*
|
||||
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
||||
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(30720,(1000,1000),RLSE),
|
||||
//* CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//* DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) 00009000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||
//*
|
||||
//*
|
||||
//STEP0200 EXEC DTSBXCHK
|
||||
//*
|
||||
//*STEP0300 EXEC DTSRSESP
|
||||
@ -143,4 +164,24 @@
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//**
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
ASCII
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
PUT 'DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS' +
|
||||
DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//*********************************************************
|
||||
**************************** BOTTOM OF DATA ****************************
|
||||
|
||||
@ -65,6 +65,19 @@
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
|
||||
//*
|
||||
//**
|
||||
//SORTPAYT EXEC PGM=SORT,COND=(0,LT)
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||
//**
|
||||
//SORTOUT DD DSN=&&SORTPAY,
|
||||
// DISP=(NEW,PASS,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPAY01),DISP=SHR
|
||||
//**
|
||||
//********************************************************************
|
||||
//********************************************************************
|
||||
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
|
||||
//********************************************************************
|
||||
@ -73,8 +86,12 @@
|
||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||
//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
||||
//*IFILE DD DSN=&&SORTPAY,
|
||||
//* DISP=(OLD,PASS,DELETE),
|
||||
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
@ -139,7 +156,7 @@
|
||||
//**
|
||||
//STEP0200 EXEC DTSBXPAY
|
||||
//*
|
||||
//STEP0200 EXEC DTSRSESP
|
||||
//*STEP0200 EXEC DTSRSESP
|
||||
//***
|
||||
//* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION
|
||||
//*STEP0300 EXEC DTSRQRPT
|
||||
@ -148,4 +165,23 @@
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
ASCII
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
PUT 'DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT' +
|
||||
DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//**
|
||||
|
||||
@ -46,55 +46,48 @@
|
||||
//**********************************************************************
|
||||
//*
|
||||
//******************************************************************
|
||||
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
||||
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*-----------------------------------------------------
|
||||
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
||||
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
||||
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
//*-----------------------------------------------------
|
||||
//STEP0100 EXEC PGM=FTP,
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
|
||||
//*******************************************************************
|
||||
//*
|
||||
//STEP0100 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/Inbound_uibs
|
||||
BINary
|
||||
GET DOES_Bencharges.txt +
|
||||
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
//**********************************************************************
|
||||
//* COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
|
||||
//**********************************************************************
|
||||
//*
|
||||
//STEP0101 EXEC PGM=IDCAMS
|
||||
//STEP0101 EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
|
||||
//*
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
|
||||
//SYSIN DD *
|
||||
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
||||
/*
|
||||
//
|
||||
//*** send email daily charges transmitted to dutas
|
||||
//**
|
||||
//********************************************************************
|
||||
//STEP0200 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
|
||||
// COND=(0,LT),
|
||||
// REGION=0M
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//*
|
||||
//DTSPACHF DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
|
||||
//*
|
||||
//**
|
||||
//FAIL01 IF STEP0100.ABEND THEN
|
||||
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100),
|
||||
// REGION=4M
|
||||
|
||||
@ -23,24 +23,24 @@
|
||||
//**** 00003325
|
||||
//STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963
|
||||
//**** 00005461
|
||||
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
|
||||
// LDEST=U@PRT65, 00005660
|
||||
// LHOLD='YES' 00005760
|
||||
//*STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
|
||||
//* LDEST=U@PRT65, 00005660
|
||||
//* LHOLD='YES' 00005760
|
||||
//** 00005860
|
||||
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
|
||||
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
|
||||
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
|
||||
//*STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
|
||||
//*DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
|
||||
//* 00001749
|
||||
//* DAILY BENEFIT CHARGE BACKUP 00002003
|
||||
//*********************************************************************
|
||||
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
|
||||
//********************************************************************
|
||||
//*
|
||||
//STEP0100 EXEC DTSUTCHG,
|
||||
// BKUPGEN='(+1)' 00002425
|
||||
//*STEP0100 EXEC DTSUTCHG,
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//*
|
||||
// IF (STEP0100.STEP0100.RC NE 0) THEN
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
//EMAIL001 EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -55,7 +55,7 @@
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
// ELSE
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
//EMAIL002 EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -70,4 +70,23 @@
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
// ENDIF
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.CHARGE' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.CHARGE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
@ -98,21 +98,21 @@
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER
|
||||
//********************************************************************
|
||||
//TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRWAG),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR
|
||||
//
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
|
||||
//*
|
||||
//EMAILWGE1 EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
@ -132,7 +132,7 @@
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
//EMAILWGE2 EXEC PGM=IEBGENER,COND=(0,LT),
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
|
||||
@ -178,6 +178,25 @@
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd /Dutasrc/essp/outbound_essp
|
||||
ascii
|
||||
put 'DOESTAX.CONV.ESSP.MSCL' DOESTAX.CONV.ESSP.MSCL
|
||||
put 'DOESTAX.CONV.ESSP.C102' DOESTAX.CONV.ESSP.C102
|
||||
put 'DOESTAX.CONV.ESSP.C104' DOESTAX.CONV.ESSP.C104
|
||||
put 'DOESTAX.CONV.ESSP.C106' DOESTAX.CONV.ESSP.C106
|
||||
put 'DOESTAX.CONV.ESSP.C108' DOESTAX.CONV.ESSP.C108
|
||||
put 'DOESTAX.CONV.ESSP.C110' DOESTAX.CONV.ESSP.C110
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
//*****************************************************************
|
||||
//* EMAIL STEP
|
||||
//*****************************************************************
|
||||
|
||||
@ -58,28 +58,49 @@
|
||||
//*-----------------------------------------------------
|
||||
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
|
||||
//*-----------------------------------------------------
|
||||
//STEPWF EXEC PGM=FTP,
|
||||
// PARM='-r TLS safetrans.wellsfargo.com'
|
||||
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
|
||||
//*-----------------------------------------------------
|
||||
//STEPWF EXEC PGM=SFTP,
|
||||
// PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
|
||||
//ENVVAR DD *
|
||||
CLIENT=sftp
|
||||
* SFTP_STRICTHOSTKEY=accept-new
|
||||
SFTP_AUTH=5
|
||||
/*
|
||||
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||
// DD *
|
||||
FWFRIENDLY TRUE
|
||||
//SYSPRINT DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
|
||||
//SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
|
||||
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
|
||||
//SYSIN DD *
|
||||
ascii
|
||||
cd /inbound/GOVTO945_ACH_70/
|
||||
PUT E:\DUTASJOBS\DefaultVolume\ECNTSUP\DOESTAX\CONV\FROMESSP\ACHDPAYT.seq +
|
||||
ESSP_DOESTAX_ACHDEBIT_DEPOSITS.TXT
|
||||
quit
|
||||
//*
|
||||
//*
|
||||
//*STEPWF EXEC PGM=FTP,
|
||||
//* PARM='-r TLS safetrans.wellsfargo.com'
|
||||
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
|
||||
//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
|
||||
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
|
||||
//* DD *
|
||||
//*FWFRIENDLY TRUE
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSZWFAD),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** send email ach transimmited to wells fargo.
|
||||
//**
|
||||
//********************************************************************
|
||||
//STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
|
||||
// COND=(0,LT),
|
||||
// REGION=0M
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//*STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
|
||||
//* COND=(0,LT),
|
||||
//* REGION=0M
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*SYSABOUT DD SYSOUT=*
|
||||
//*SYSABEND DD SYSOUT=*
|
||||
//*
|
||||
//DTSPACHF DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
//*DTSPACHF DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
//*
|
||||
//COPYPACH EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
|
||||
|
||||
@ -86,8 +86,8 @@
|
||||
//* /* STD DAILY BEFORE DAILY BATCH
|
||||
//*STEP0175 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//STEP0100 EXEC DTSUTVSM, 00002102
|
||||
// BKUPGEN='(+1)',freq='DAILY'
|
||||
//*STEP0100 EXEC DTSUTVSM, 00002102
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//**
|
||||
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
|
||||
//STEP0200 EXEC DTSDUPDT,
|
||||
@ -138,6 +138,27 @@
|
||||
//*STEP0400 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+2)'
|
||||
//*STEP0100 EXEC DTSUTVSM, 00002102
|
||||
//* BKUPGEN='(+1)',freq='DAILY'
|
||||
//* BKUPGEN='(+2)',freq='DAILY'
|
||||
//**
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP1000 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'DOESTAX.PROD.DEPOSIT.X202EXP' DOESTAX.PROD.DEPOSIT.X202EXP
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.BX217' ECNTSUP.DOESTAX.PROD.FTP.BX217
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X148' ECNTSUP.DOESTAX.PROD.FTP.X148
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X153' ECNTSUP.DOESTAX.PROD.FTP.X153
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//*
|
||||
|
||||
@ -37,7 +37,7 @@
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//STEP0100 EXEC DTSBX425
|
||||
//
|
||||
//*
|
||||
//********************************************************************
|
||||
//*** send email ach transimmited to wells fargo.
|
||||
//**
|
||||
|
||||
@ -48,14 +48,11 @@
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
|
||||
//*********************************************************************
|
||||
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
|
||||
//******************************************************************** 00001700
|
||||
//* 00001700
|
||||
//*STEP0050 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//STEP0100 EXEC DTSUTVSM, 00002102
|
||||
// BKUPGEN='(+1)',freq='DAILY' 00003000
|
||||
|
||||
//*
|
||||
//********************************************************************
|
||||
//*********************************************************************
|
||||
//STEP0400 EXEC DTSUTVSM, 00002102
|
||||
// BKUPGEN='(+1)',freq='DAILY'
|
||||
//*****
|
||||
//********************************************************************
|
||||
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700
|
||||
//********************************************************************
|
||||
|
||||
@ -123,7 +123,56 @@
|
||||
//* 00843099
|
||||
//* 00844099
|
||||
//************************************************************** 00845099
|
||||
// 00850099
|
||||
//*
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHTRN' ECNTSUP.DOESTAX.PROD.FTP.ATHTRN
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHHDR' ECNTSUP.DOESTAX.PROD.FTP.ATHHDR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHRPT' ECNTSUP.DOESTAX.PROD.FTP.ATHRPT
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHATX' ECNTSUP.DOESTAX.PROD.FTP.ATHATX
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHPAY' ECNTSUP.DOESTAX.PROD.FTP.ATHPAY
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHADJ' ECNTSUP.DOESTAX.PROD.FTP.ATHADJ
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.HEADER' ECNTSUP.DOESTAX.PROD.FTP.HEADER
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN' ECNTSUP.DOESTAX.PROD.FTP.LIEN
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC' ECNTSUP.DOESTAX.PROD.FTP.DPC
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.PAYDIST' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.PAYDIST
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.QTR' ECNTSUP.DOESTAX.PROD.FTP.QTR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.RATE' ECNTSUP.DOESTAX.PROD.FTP.RATE
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.QCOLL' ECNTSUP.DOESTAX.PROD.FTP.QCOLL
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.PRF' ECNTSUP.DOESTAX.PROD.FTP.PRF
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.DET' ECNTSUP.DOESTAX.PROD.FTP.DET
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.FSC' ECNTSUP.DOESTAX.PROD.FTP.FSC
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ADR' ECNTSUP.DOESTAX.PROD.FTP.ADR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ERR' ECNTSUP.DOESTAX.PROD.FTP.ERR
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.AUDIT' ECNTSUP.DOESTAX.PROD.FTP.AUDIT
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.REL' ECNTSUP.DOESTAX.PROD.FTP.REL
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.OPO' ECNTSUP.DOESTAX.PROD.FTP.OPO
|
||||
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX206' ECNTSUP.DOESTAX.PROD.FTP.BX206
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//**********************************************************
|
||||
//COPY1 EXEC PGM=IDCAMS 00851099
|
||||
//SYSPRINT DD SYSOUT=* 00860099
|
||||
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR 00870099
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
//* STD BACKUP *AFTER* DATA FILE UPDATE
|
||||
//* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
|
||||
//* A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
|
||||
//STEP0500 EXEC DTSUTVSM,
|
||||
//*STEP0500 EXEC DTSUTVSM,
|
||||
//** BKUPGEN='(+2)' /* USE ONLY IF BKP DONE IN STEP0100
|
||||
// BKUPGEN='(+1)'
|
||||
//* BKUPGEN='(+1)'
|
||||
//*
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
// REGION=0M 00000514
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//* 00000614
|
||||
//*PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
|
||||
//**** 00000914
|
||||
//* UI TAX BACKUP VSAM FILES * 00001000
|
||||
|
||||
@ -26,9 +26,9 @@
|
||||
//****
|
||||
//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
|
||||
//*
|
||||
//*STEP0100 EXEC DTSURVSM0 00002000
|
||||
//*STEP0100 EXEC DTSURVSM0 NO LONGER USED 00002000
|
||||
//** 00003029
|
||||
//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000
|
||||
//*STEP0100 EXEC DTSURVSM1 NO LONGER USED - GENERATION NEEDED 00002000
|
||||
//*
|
||||
//STEP0100 EXEC DTSURVSM, 00002000
|
||||
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029
|
||||
// freq='DAILY',gen=+0,src='PROD',tgt='PROD' 00003029
|
||||
62
JCL/FTPESSP01.jcl
Normal file
62
JCL/FTPESSP01.jcl
Normal file
@ -0,0 +1,62 @@
|
||||
//FTPESSP01 JOB
|
||||
//*
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
BINARY
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X102 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X102 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X104 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X106 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X108 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X110 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X120 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X140 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X144 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X145 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X147 (replace
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X999 (replace
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
//* ZL1 10/19/25.
|
||||
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
ASCII
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
21
JCL/FTPESSP02.jcl
Normal file
21
JCL/FTPESSP02.jcl
Normal file
@ -0,0 +1,21 @@
|
||||
//FTPESSP02 JOB
|
||||
//*
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
BINARY
|
||||
GET ECNTSUP.DOESTAX.CONV.FTP.PFLOTR +
|
||||
ECNTSUP.DOESTAX.CONV.FTP.PFLOTR (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
66
JCL/FTPESSP99.jcl
Normal file
66
JCL/FTPESSP99.jcl
Normal file
@ -0,0 +1,66 @@
|
||||
//FTPESSP01 JOB
|
||||
//*
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
BINARY
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X102 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X102
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X104
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X106
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X108
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X110
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X120
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X140
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X144
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X145
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X147
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X999
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
//* ZL1 10/19/25.
|
||||
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
ASCII
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
40
JCL/FTPGSI01.jcl
Normal file
40
JCL/FTPGSI01.jcl
Normal file
@ -0,0 +1,40 @@
|
||||
//FTPESSP01 JOB
|
||||
//*
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=SFTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147
|
||||
dutasrc
|
||||
Today728rc!
|
||||
binary
|
||||
cd /Dutasrc/inbound_uibs
|
||||
GET DOES_Bencharges.txt +
|
||||
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
//* ZL1 10/19/25.
|
||||
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
ASCII
|
||||
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
20
JCL/FTPTDEC.jcl
Normal file
20
JCL/FTPTDEC.jcl
Normal file
@ -0,0 +1,20 @@
|
||||
//FTPTDEC01 JOB
|
||||
//*
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=SFTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
204.111.96.61
|
||||
tdec_dcw_4
|
||||
Y6Vf@KUnqA
|
||||
BINARY
|
||||
GET DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS +
|
||||
DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
20
JCL/FTPTDEC01.jcl
Normal file
20
JCL/FTPTDEC01.jcl
Normal file
@ -0,0 +1,20 @@
|
||||
//FTPTDEC01 JOB
|
||||
//*
|
||||
//********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
50.76.21.195
|
||||
tdec_dcw_5
|
||||
14cw0d8Y
|
||||
BINARY
|
||||
GET 'DOES_payments.txt' +
|
||||
DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
@ -20,3 +20,24 @@
|
||||
//* 00001700
|
||||
//STEP0100 EXEC DES300T1 EXTRACT DATA FROM WAGE FILE
|
||||
//*********************************************************************
|
||||
/*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/intranet/Outbound_intranet
|
||||
ascii
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.WAGE.SEQ' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.WAGE.SEQ
|
||||
put 'ECNTSUP.DOESTAX.PROD.FTP.WAGE' +
|
||||
ECNTSUP.DOESTAX.PROD.FTP.WAGE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*
|
||||
412
JCL/INITGDG.jcl
Normal file
412
JCL/INITGDG.jcl
Normal file
@ -0,0 +1,412 @@
|
||||
//CREGDG01 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X
|
||||
//STEP0420 EXEC PGM=IDCAMS, INITIALIZE EMPTY BD400.BTC 00926000
|
||||
// COND=(0,LT) GENERATION 00927000
|
||||
//SYSPRINT DD SYSOUT=* 00928000
|
||||
//INDD01 DD DUMMY 00929000
|
||||
//OUTDD01 DD DSN=DOESTAX.PROD.BTC(+1), 00929100
|
||||
// DISP=(,CATLG,DELETE), 00929200
|
||||
// SPACE=(8192,(100,200),RLSE), 00929500
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00929600
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00929700
|
||||
//
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DEFINE GDG(NAME(DOESTAX.PROD.BTC) -
|
||||
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)
|
||||
/*
|
||||
//
|
||||
16
JCL/LOADCHRG.jcl
Normal file
16
JCL/LOADCHRG.jcl
Normal file
@ -0,0 +1,16 @@
|
||||
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DELETE DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD
|
||||
SET MAXCC=0
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=200),
|
||||
// PATH=('E:\flat_files\DOES_Bencharges.txt',
|
||||
// COPY)
|
||||
280
JCL/LOADESSP.jcl
280
JCL/LOADESSP.jcl
@ -1,206 +1,144 @@
|
||||
//IMPMF04 JOB
|
||||
//*
|
||||
//*STEP001 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||
//* DISP=(NEW,CATLG,CATLG),
|
||||
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
|
||||
//* COPY)
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
|
||||
// USER=#DOADTS,
|
||||
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||
/*ROUTE PRINT U@PRT65
|
||||
//STEP003 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
|
||||
// COPY)
|
||||
//*
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD',
|
||||
// COPY)
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP008 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP015 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP017 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP019 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP021 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP023 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP025 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP027 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
|
||||
// COPY)
|
||||
/*
|
||||
//
|
||||
//*
|
||||
//STEP029 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(LRECL=80,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
@ -9,6 +9,16 @@
|
||||
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
|
||||
//* COPY)
|
||||
//*
|
||||
//*
|
||||
//STEP001 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
|
||||
117
JCL/LOADESSPX999.jcl
Normal file
117
JCL/LOADESSPX999.jcl
Normal file
@ -0,0 +1,117 @@
|
||||
//IMPMF04 JOB
|
||||
//*
|
||||
//STEP001 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6547V00',
|
||||
// COPY)
|
||||
//
|
||||
//
|
||||
//STEP001 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP003 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP008 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
|
||||
// COPY)
|
||||
//*
|
||||
159
JCL/LOADESSZ.jcl
Normal file
159
JCL/LOADESSZ.jcl
Normal file
@ -0,0 +1,159 @@
|
||||
//FTPESSP01 JOB
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
|
||||
//INPUT DD *
|
||||
10.57.110.147 21
|
||||
dutasrc
|
||||
Today728rc!
|
||||
cd //Dutasrc/essp/inbound_essp
|
||||
BINARY
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X102' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X102 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X104' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X104 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X106' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X106 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X108' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X108 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X110' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X110 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X120' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X120 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X140' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X140 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X144' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X144 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X145' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X145 (REPLACE
|
||||
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X147' +
|
||||
ECNTSUP.DOESTAX.CONV.FROMESSP.X147 (REPLACE
|
||||
QUIT
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//
|
||||
//
|
||||
//*
|
||||
//*STEP001 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||
//* DISP=(NEW,CATLG,CATLG),
|
||||
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
|
||||
//* COPY)
|
||||
//*
|
||||
// STEP002 EXEC PGM=IEFBR14
|
||||
// SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP003 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP008 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
21
JCL/LOADMSG.JCL
Normal file
21
JCL/LOADMSG.JCL
Normal file
@ -0,0 +1,21 @@
|
||||
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
|
||||
//*STEP001 EXEC PGM=IDCAMS
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSIN DD *
|
||||
//* DELETE DOESTAX.PROD.SRTDAILY.DD091525
|
||||
//* SET MAXCC=0
|
||||
//*
|
||||
//*STEP011 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT.DD091525,
|
||||
//* DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD DOESTAX.CONV.ESSP.X480PASS.TXT,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.ESSP.X480PASS.TXT',
|
||||
// COPY)
|
||||
191
JCL/LOADOTH.jcl
Normal file
191
JCL/LOADOTH.jcl
Normal file
@ -0,0 +1,191 @@
|
||||
//IMPMF04 JOB
|
||||
///*STEP005 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
//* DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//*STEP013 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DCB=(LRECL=109,RECFM=FB),
|
||||
//* PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
//* COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
/ DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=200,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=109,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=101,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
@ -1,20 +1,5 @@
|
||||
//IMPMF04 JOB
|
||||
//*
|
||||
//*STEP005 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
//* DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//*STEP013 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DCB=(LRECL=109,RECFM=FB),
|
||||
//* PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
//* COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
@ -40,7 +25,7 @@
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// DCB=(LRECL=512,RECFM=LSEQ),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
|
||||
// COPY)
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
@ -76,51 +61,6 @@
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
@ -190,21 +130,6 @@
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
|
||||
16
JCL/LOADPAYT.jcl
Normal file
16
JCL/LOADPAYT.jcl
Normal file
@ -0,0 +1,16 @@
|
||||
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT
|
||||
SET MAXCC=0
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120),
|
||||
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
|
||||
// COPY)
|
||||
41
JCL/LOADREF.jcl
Normal file
41
JCL/LOADREF.jcl
Normal file
@ -0,0 +1,41 @@
|
||||
//IMPMF04 JOB
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=109,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=101,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
14
JCL/LOADSRTDAY.jcl
Normal file
14
JCL/LOADSRTDAY.jcl
Normal file
@ -0,0 +1,14 @@
|
||||
//LOADSRTDAY JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
|
||||
// USER=#DOADTS,
|
||||
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||
/*ROUTE PRINT U@PRT65
|
||||
//*
|
||||
//STEP001 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
|
||||
// COPY)
|
||||
//*
|
||||
44
JCL/LOADSRUJ.jcl
Normal file
44
JCL/LOADSRUJ.jcl
Normal file
@ -0,0 +1,44 @@
|
||||
//IMPMF04 JOB
|
||||
//*
|
||||
//*STEP001 EXEC PGM=IEFBR14
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*SYSOUT DD SYSOUT=*
|
||||
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||
//* DISP=(NEW,CATLG,CATLG),
|
||||
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6548V00',
|
||||
//* COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=109,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=101,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
//
|
||||
|
||||
10
JCL/LOADTOCATALOGEXP.jcl
Normal file
10
JCL/LOADTOCATALOGEXP.jcl
Normal file
@ -0,0 +1,10 @@
|
||||
//* @@HEADER@@
|
||||
//INICATLG JOB
|
||||
//STEP020 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0001 DD DSN=DOESTAX.PROD.JOBS.BATCH.LIB(DTSBX305),
|
||||
// DISP=OLD,
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\Innova\Code\MP\Git\DUTAS\JCL\DTSBX305.jcl',
|
||||
// COPY)
|
||||
117
JCL/LOADW4FILE..jcl
Normal file
117
JCL/LOADW4FILE..jcl
Normal file
@ -0,0 +1,117 @@
|
||||
//IMPMF04 JOB
|
||||
//*
|
||||
//STEP001 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD DOESTAX.PROD.BACKUP.W4FILE(+1),
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(RECFM=FB,LRECL=80),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.BACKUP.W4FILE.G3231V00',
|
||||
// COPY)
|
||||
//
|
||||
//
|
||||
//STEP001 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//*
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP003 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP008 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
|
||||
// COPY)
|
||||
//*
|
||||
113
JCL/LOADX101.jcl
Normal file
113
JCL/LOADX101.jcl
Normal file
@ -0,0 +1,113 @@
|
||||
//FTPESSP01 JOB
|
||||
//*
|
||||
//*********************************************************************
|
||||
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||
//*
|
||||
//**
|
||||
//STEP002 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=VB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
//STEP003 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP004 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP008 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
248
JCL/LOADchgupd.jcl
Normal file
248
JCL/LOADchgupd.jcl
Normal file
@ -0,0 +1,248 @@
|
||||
//IMPMF04 JOB
|
||||
//*
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
|
||||
// COPY)
|
||||
//
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
|
||||
// COPY)
|
||||
//
|
||||
//
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
/ DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=200,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
|
||||
// COPY)
|
||||
//
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0281V00',
|
||||
// COPY)
|
||||
//
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
|
||||
// COPY)
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP006 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
|
||||
// COPY)
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP008 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FTP.PFLOTR',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP009 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=VB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP010 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=VB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=VB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
/ DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=200,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
146
JCL/LOADinput.jcl
Normal file
146
JCL/LOADinput.jcl
Normal file
@ -0,0 +1,146 @@
|
||||
//IMPMF04 JOB
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=256,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP007 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
|
||||
/ DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=200,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP012 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=512,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=109,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=101,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=101,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
@ -6,7 +6,7 @@
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0270V00',
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0281V00',
|
||||
// COPY)
|
||||
//
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
|
||||
41
JCL/LOADrREF.jcl
Normal file
41
JCL/LOADrREF.jcl
Normal file
@ -0,0 +1,41 @@
|
||||
//IMPMF04 JOB
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=80,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=109,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
|
||||
// COPY)
|
||||
//*
|
||||
//STEP005 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(OLD,DELETE,DELETE)
|
||||
//*
|
||||
//STEP013 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(LRECL=101,RECFM=FB),
|
||||
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||
// COPY)
|
||||
//*
|
||||
//
|
||||
@ -13,8 +13,8 @@
|
||||
//STEP0100 EXEC PGM=SORT, 00004600
|
||||
// COND=(0,LT) 00004700
|
||||
//SYSOUT DD SYSOUT=* 00004800
|
||||
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD080925,DISP=SHR 00005099
|
||||
//*ORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(-2),DISP=SHR 00005099
|
||||
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G0004V00,DISP=SHR 00005099
|
||||
//*SORTIN DD DSN=DOESTAX.PROD.SOAMONTH(+0),DISP=SHR
|
||||
//* 00006399
|
||||
//SORTOUT DD DSN=&&SRTRPT, 00006899
|
||||
// DISP=(,PASS,DELETE), 00006999
|
||||
@ -33,7 +33,7 @@
|
||||
//SYSUDUMP DD SYSOUT=* 00018600
|
||||
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
|
||||
//PARMIN DD * 00018899
|
||||
DTSBD800,INC,503 00019199
|
||||
DTSBD800,INC,102 00019199
|
||||
/* 00019599
|
||||
//** 00019699
|
||||
//ATLSTIN DD * 00020000
|
||||
@ -53,14 +53,26 @@ DTSBD800, 00030000
|
||||
//* 00090099
|
||||
//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
|
||||
//* 00100199
|
||||
//RPT503R1 DD SYSOUT=X 00100299
|
||||
//*RPT102R1 DD DSN=DOESTAX.PROD.RPT102Z1,
|
||||
//RPT102R1 DD DSN=DOESTAX.PROD.RPT102M1,
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// DCB=(RECFM=FBM,LRECL=134,BLKSIZE=1340),
|
||||
// SPACE=(TRK,(5,5)) 00100299
|
||||
//*RPT102R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
|
||||
//RPT503R2 DD SYSOUT=X 00100299
|
||||
//RPT325R1 DD SYSOUT=X 00100299
|
||||
//RPT405R1 DD SYSOUT=* 00100299
|
||||
//RPT405R2 DD SYSOUT=* 00100299
|
||||
//RPT412R1 DD SYSOUT=* 00100299
|
||||
//RPT412R2 DD SYSOUT=* 00100299
|
||||
//RPT412R3 DD SYSOUT=* 00100299
|
||||
//*RPC110R2 DD DSN=DOESTAX.PROD.RPC110R2,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DCB=(RECFM=FBA,LRECL=134,BLKSIZE=1340),
|
||||
//* SPACE=(TRK,(5,5))
|
||||
//RPT414R1 DD DSN=DOESTAX.PROD.RPT414R1,DISP=SHR 00299
|
||||
//RPT414R2 DD DUMMY
|
||||
//RPT414R3 DD DUMMY
|
||||
//RPT414R4 DD DUMMY
|
||||
//RPT414R5 DD DUMMY
|
||||
//RPT414R6 DD DUMMY 00100299
|
||||
//RPT530R1 DD SYSOUT=* 00100299
|
||||
//RPT909R8 DD SYSOUT=* 00100299
|
||||
//RPT909R9 DD SYSOUT=* 00100299
|
||||
@ -79,5 +91,5 @@ DTSBD800, 00030000
|
||||
//RPT321R3 DD SYSOUT=* 00100299
|
||||
//RPT321R4 DD SYSOUT=* 00100299
|
||||
//RPT332R1 DD SYSOUT=* 00100299
|
||||
//RPT332R2 DD SYSOUT=* 00100299
|
||||
//RPT980R1 DD SYSOUT=* 00100299
|
||||
//
|
||||
|
||||
146
JCL/ZDTSGCHKS.jcl
Normal file
146
JCL/ZDTSGCHKS.jcl
Normal file
@ -0,0 +1,146 @@
|
||||
//DTSGCHKS JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
|
||||
// USER=#DOADTS,
|
||||
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTNH1
|
||||
/*ROUTE PRINT U@PRT65
|
||||
//********************************************************************
|
||||
//**** TDEC DEPOSIT CHECK FILE ENCRYPTED USING PKZIP
|
||||
//**** WITH OCTO DATA CENTER PUBLIC KEY.
|
||||
//****
|
||||
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
|
||||
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
|
||||
//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1
|
||||
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
||||
//**** raincode tested 8/20 zl1
|
||||
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
||||
//********************************************************************
|
||||
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
|
||||
// SET CURRQTR='Q20252Q2'
|
||||
// SET LVLNODE='CONV'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PRGNODE='PROD'
|
||||
// SET IMPNODE='CONV'
|
||||
// SET LVDHOLD='YES'
|
||||
// SET LHOLD='YES'
|
||||
// SET EXTNODE='CONV'
|
||||
// SET RPTNODE='ESSP.BX420.RPT'
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
||||
//*LOADLIBS INCLUDE MEMBER=DTSIELIB
|
||||
//**
|
||||
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
|
||||
//*********************************************************************
|
||||
//STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
|
||||
// COND=(4,LT) GENERATION
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DUMMY
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*********************************************************************
|
||||
//********************************************************************
|
||||
//*
|
||||
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRECK),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** DECRYPT TDEC CHECKS FILE INTO TEXTOUT
|
||||
//********************************************************************
|
||||
//*
|
||||
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
||||
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
||||
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//********************************************************************
|
||||
//*** COPY TDEC DAILY CHECKS FILE TO BBACKUP FILE.
|
||||
//**
|
||||
//********************************************************************
|
||||
//**
|
||||
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
|
||||
// DISP=(NEW,CATLG,DELETE),
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//********************************************************************
|
||||
//*** COPY TDEC DAILY CHECKS FILE TO BACKUP QTR FILE
|
||||
//**
|
||||
//********************************************************************
|
||||
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR.,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=MOD,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//**
|
||||
//********************************************************************
|
||||
//COPYFTPS EXEC PGM=IDCAMS,COND=(0,LT)
|
||||
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
|
||||
//**
|
||||
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=MOD,
|
||||
// DISP=SHR,
|
||||
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
||||
//*
|
||||
//********************************************************************
|
||||
//**** DELETE TDEC ENCRYPTED CHECK FILE
|
||||
//********************************************************************
|
||||
//*TDECDEL EXEC PGM=FTP,COND=(0,LT)
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRCHK),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR
|
||||
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
||||
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
||||
//*
|
||||
//*
|
||||
//STEP0200 EXEC DTSBXCHK
|
||||
//*
|
||||
//*STEP0300 EXEC DTSRSESP
|
||||
//***
|
||||
//* REPORT GENERATION
|
||||
//*STEP0400 EXEC DTSRERPT
|
||||
//STEP0100.RPT140R1 DD HOLD=YES
|
||||
//STEP0100.RPT140R2 DD HOLD=YES
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//**
|
||||
**************************** BOTTOM OF DATA ****************************
|
||||
@ -2,14 +2,15 @@
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DELETE ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101
|
||||
DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT
|
||||
SET MAXCC=0
|
||||
//*
|
||||
//STEP011 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0011 DD ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101,
|
||||
//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// DCB=(RECFM=VB,LRECL=256,BLKSIZE=0),
|
||||
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101',
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120),
|
||||
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
|
||||
// COPY)
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) -
|
||||
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.DAILY.CHKS) -
|
||||
LIMIT(255) -
|
||||
EMPTY -
|
||||
SCRATCH)
|
||||
|
||||
Reference in New Issue
Block a user