giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Z updated JCL files on PROD Env

Browse Source
This commit is contained in:
Manoj Patel
2025-11-03 12:05:56 -05:00
parent 8fca292a50
commit 6537588163
71 changed files with 3899 additions and 857 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1048
AddToCatalog_JOBS_PROD.txt
View File

File diff suppressed because it is too large Load Diff

6
JCL/CopyFLAT.jcl
View File

@ -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
View 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)
//*

28
JCL/DESBD427.jcl
View File

@ -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

18
JCL/DTSBX122.jcl
View File

@ -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
//
//

21
JCL/DTSBX202.jcl
View File

@ -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
//*

29
JCL/DTSBX215.jcl
View File

@ -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
//*****************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)
//*
//*********************************************************************
//* // 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
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
//
//* 00014000
//*****************************************

27
JCL/DTSBX303.jcl
View File

@ -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

35
JCL/DTSBX305.jcl
View File

@ -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
//

23
JCL/DTSBX403.jcl
View File

@ -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
JCL/DTSBX405.jcl
View File

@ -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
//

25
JCL/DTSBX432.jcl
View File

@ -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
View 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
View 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)
//*
//**

26
JCL/DTSBX601.jcl
View File

@ -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
//*

6
JCL/DTSBX626.jcl
View File

@ -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

8
JCL/DTSCHGQ1.jcl
View File

@ -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

10
JCL/DTSCHGQ2.jcl
View File

@ -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,

9
JCL/DTSCHGRT.jcl
View File

@ -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

19
JCL/DTSDX145.jcl
View File

@ -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
//*

19
JCL/DTSESDAY.jcl
View File

@ -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
//

38
JCL/DTSFRAUD.jcl
View File

@ -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
//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)
// 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),

28
JCL/DTSFT202.jcl
View File

@ -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'
//*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
/*
//* 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
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
/*
//*
//****

52
JCL/DTSFT469.jcl Normal file
View 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
View 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)
//*
//**

25
JCL/DTSGACHD.jcl
View File

@ -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)

63
JCL/DTSGCHKS.jcl
View File

@ -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
//**
@ -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 ****************************

40
JCL/DTSGPAYT.jcl
View File

@ -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
//
//**

39
JCL/DTSGSID0.jcl
View File

@ -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
//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
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
//*******************************************************************
//*
//**********************************************************************
//* 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

37
JCL/DTSGSID1.jcl
View File

@ -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,
@ -71,3 +71,22 @@
//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
//

20
JCL/DTSGWAGE.jcl
View File

@ -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,

19
JCL/DTSMIN02.jcl
View File

@ -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
//*****************************************************************

51
JCL/DTSPACHD.jcl
View File

@ -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

27
JCL/DTSPDAY1.jcl
View File

@ -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
//
//*

2
JCL/DTSRACHD.jcl
View File

@ -37,7 +37,7 @@
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//STEP0100 EXEC DTSBX425
//
//*
//********************************************************************
//*** send email ach transimmited to wells fargo.
//**

13
JCL/DTSRQ325.jcl
View File

@ -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
//********************************************************************

51
JCL/DTSRQ335.jcl
View File

@ -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

4
JCL/DTSRQ412.jcl
View File

@ -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)'
//*

2
JCL/DTSVBKUP.jcl
View File

@ -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

6
JCL/DTSVRSTR.jcl
View File

@ -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
View 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
View 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
View 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
View 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
View 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
View 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
//*

21
JCL/GSIRQ300.jcl
View File

@ -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
View 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
View 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)

278
JCL/LOADESSP.jcl
View File

@ -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)
//*

10
JCL/LOADESSPX999..jcl
View File

@ -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
View 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
View 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
View 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
View 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)
//*
//

77
JCL/LOADOTHRS.jcl
View File

@ -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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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)
//*
//

2
JCL/LOADmini.jcl
View File

@ -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
View 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)
//*
//

28
JCL/ReprintReports.jcl
View File

@ -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
View 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 ****************************

9
JCL/copymailfile.jcl
View File

@ -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
JCL/createGDG.jcl
View File

@ -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)