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

From UAT Z's file modified

Browse Source
This commit is contained in:
Manoj Patel
2025-09-19 12:33:15 -04:00
parent 10597a27ba
commit 8dc0204972
40 changed files with 5728 additions and 2063 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
JCL/DTSBX303.jcl
View File

@ -24,7 +24,8 @@
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//******************************************************************
//* |
//* RAINCODE TESTED 08/20/25 ZL1 r
//******************************************************************
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 |
//******************************************************************

41
JCL/DTSFRAUD.jcl
View File

@ -9,7 +9,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DESBD473, // VERIFY EMP REGISTRTION DATE
//STEP0100 EXEC PGM=DESBD473, VERIFY EMP REGISTRTION DATE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
@ -21,29 +21,41 @@
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//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)
//****
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
//*********************************************************************
//STEP0200 EXEC PGM=DESBD474, // SELECT FRAUD WAGES FROM X144
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* CODEPAGE=1252,AUTOENCODE=YES,
//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610)
//*
//STEP0200 EXEC PGM=DESBD474,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR
//DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(100,50),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//*********************************************************************
//STEP0300 EXEC PGM=DESBD475, // SELECT FRAUD WAGES FROM X147
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//*********************************
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
@ -56,10 +68,14 @@
//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// 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)
//****
//***********************************
//EMAIL EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
@ -149,3 +165,4 @@
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//

52
JCL/DTSGCHKS.jcl
View File

@ -14,7 +14,7 @@
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
// SET CURRQTR='Q2018Q3'
// SET CURRQTR='Q2018Q4'
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
@ -44,27 +44,31 @@
//*********************************************************************
//********************************************************************
//*
//TDECFTP EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*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.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)
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
//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),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,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.
@ -77,7 +81,7 @@
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -90,9 +94,9 @@
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR.,
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -101,33 +105,33 @@
//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=(NEW,CATLG,DELETE),
//* DISP=MOD,
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,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
//*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.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
//*
//STEP0200 EXEC DTSBXCHK
//STEP0200 EXEC DTSZXCHK
//*
//STEP0300 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0400 EXEC DTSRERPT
//STEP0400 EXEC DTSRERPZ
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES

93
JCL/DTSGZCHD.jcl Normal file
View File

@ -0,0 +1,93 @@
//DTSGACHD JOB (UI,4300,03410,P),'recv-ACH-DEBIT-WF',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET PRGNODE='CONV'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE
//**** MAINFRAME. THIS JOB WILL RUN DAILY AT 9:00 AM
//**** 1/30/15 ZL1
//*******************************************************************
//****************** production files only ************
//*******************************************************************
//****
//*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY.
//****
//*** THIS JOB WILL USE FTPS (FTP WITH SSL CERT) TO TRANSMIT FILE.
//****
//*** ALL WELLS FARGO CERT ARE INSTALLED ON DOES LPARS 0S19 & OS16
//********************************************************************
//*-----------------------------------------------------
//* 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'
//*ENVVAR DD *
//* CLIENT=sftp
//* SFTP_AUTH=3
/*
//*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
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
//*
//********************************************************************
//*** COPY essp ach RETURNS to backup ach file.
//**
//********************************************************************
//**
//*COPYACHP EXEC PGM=IDCAMS,COND=(0,LT)
//*IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//**
//*OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),
//* DISP=(NEW,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*SYSPRINT DD SYSOUT=(*)
//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//STEP0100 EXEC DTSZX426
//**
//********************************************************************
//*** send email ach returns received from wells fargo.
//
//********************************************************************
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:rosalind.holbrook@dc.gov',
// 'TO:aravind.vitta@sagitec.com',
// 'TO:rajini.jujjavarapu@dc.gov',
// 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:margaret.hernandez@dc.gov',
// 'TO:yinka.olarewaju-alo@dc.gov',
// 'TO:joy.diggs@dc.gov',
//* 'TO:macarena.cantelas@dc.gov',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO',
// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ',
// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****
//********************************************************************

8
JCL/DTSPDAY1.jcl
View File

@ -20,7 +20,7 @@
// SET BYPASS2='000000' /* BYPASS EMPLOYER 2
// SET BYPASS3='000000' /* BYPASS EMPLOYER 3
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
@ -74,7 +74,7 @@
//****
//****
//STEP0075 EXEC DTSBX415
//* /* GET EMLOYER DATA FRROM WEB
// /* GET EMLOYER DATA FRROM WEB
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
//****
//* /* MERGE WAGE.BTC TO BTC
@ -84,8 +84,8 @@
//******** EXEC DESOLABK
//* /* STD DAILY PROC
//* /* STD DAILY BEFORE DAILY BATCH
//STEP0175 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0175 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
//STEP0200 EXEC DTSDUPDT,
//* LHOLD='NO',

8
JCL/DTSPDAY7.jcl
View File

@ -9,7 +9,7 @@
// SET LVLNODE='PROD'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//* 09/30/99 - JHP
@ -23,11 +23,11 @@
//****
//* WEEKLY BACKUP IS TAKEN HERE BEFORE WEEKLY UPDATE JOB
//*
//****
//**** testing rc zl1
//* 11/9/12 CHANGED PROC FROM DTSRWVD TO DTSRWTR FOR TRMS RPTS ZL1
//*
//STEP0050 EXEC DTSUWVSM,
// BKUPGEN='(+1)'
//*STEP0050 EXEC DTSUWVSM,
//* BKUPGEN='(+1)'
//* THIS RESTORE IS DONE AT WEEK-END TO
//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
//* (OLA IS ALREADY RESET BY THE DAILY)

2
JCL/DTSPODC4.jcl
View File

@ -1,7 +1,7 @@
//DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
// NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//**********************************************************************
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
//* RUNS ON DOES CA/7 *

2
JCL/DTSPODC6.jcl
View File

@ -1,7 +1,7 @@
//DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS,
// NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//**********************************************************************
//* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION *
//* RUNS ON DOES CA/7 *

2
JCL/DTSPVIEW.jcl
View File

@ -6,7 +6,7 @@
// SET LVLNODE='PROD'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//INFOPACK EXEC PGM=INFOPACR,

2
JCL/DTSPX148.jcl
View File

@ -21,7 +21,7 @@
// SET S0910='+0'
//* 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*****************************************************************
//***

8
JCL/DTSRACHD.jcl
View File

@ -7,10 +7,10 @@
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET BTCNODE='DEVL'
// SET PRGNODE='CONV'
// SET PRGNODE='PROD'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//********************************************************************
@ -22,7 +22,7 @@
//*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY.
//****
//********************************************************************
//*** COPY essp ach payments to backup ach file.
//*** COPY essp ach payments to backup ach file. raincode testing zl1
//**
//********************************************************************
//**
@ -32,7 +32,7 @@
//OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**

4
JCL/DTSRBTCH.jcl
View File

@ -5,9 +5,9 @@
//**** TYPRUN=SCAN,
// REGION=0M
//**********************************************************************
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH NO TESTING ZL1
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1
//**********************************************************************
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//COPY1Z EXEC PGM=IDCAMS

2
JCL/DTSRDAY1.jcl
View File

@ -13,7 +13,7 @@
// SET LDEST=U@PRT65
// SET PRTHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP

6
JCL/DTSRQ320.jcl
View File

@ -23,14 +23,14 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//* STD BACKUP BEFORE DATA FILE UPDATE
//*STEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT3, BD400 PERIODIC EXTRACT
// RUNTYPE='QP',
// PREBACK='Y'
//STEP0100.EXTPARM DD *
320
320,244,
//* STD BACKUP AFTER DATA FILE UPDATE
//** (NOT NEEDED IF RUN IMMEDIATELY BEFORE
//STEP0200 EXEC DTSRS320

9
JCL/DTSRQ513.jcl
View File

@ -29,12 +29,15 @@
//*
//**
//DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// CODEPAGE=1252,AUTOENCODE=YES,
// SPACE=(800,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80)
//*
//
//
//*** SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//SYSPRINT DD SYSOUT=*

151
JCL/DTSZPAYT.jcl Normal file
View File

@ -0,0 +1,151 @@
//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//********************************************************************
//**** TDEC PAYMENT FILES ARE ENCRYPTED USING PKZIP
//**** WITH OCTO DATA CENTER PUBLIC KEY.
//****
//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN
//****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//****
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//******** CHANGE QTR PARM TO CURRENT QTR **********
// SET CURRQTR='Q2017Q4'
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES'
// SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//**** GET TDEC ENCRYPTED REPORT PAYMENT FILE
//********************************************************************
//*********************************************************************
//STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//*
//*********************************************************************
//STEP0112 EXEC PGM=IDCAMS, FEEDS INTO BX530 PAYMENTS
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,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(DTSDREPT),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
//*
//********************************************************************
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//********************************************************************
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//STEPCRTP EXEC PGM=IDCAMS,
// COND=(0,LT)
//INDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//*** COPY TDEC REPORT PAYMENT FILE TO BACKUP QUARTER FILE
//**
//********************************************************************
//**
//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR.,
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//**
//COPYFTPT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//*
//************************* COMMENT OUT HERE FOR NOW ZL1 *******************************************
//**** DELETE TDEC ENCRYPTED PAYMENT 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
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR
//*
//*
//STEP0200 EXEC DTSZXPAY
//
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//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
//**

156
JCL/DTSZWAGE.jcl Normal file
View File

@ -0,0 +1,156 @@
//DTSGWAGE JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//********************************************************************
//**** TDEC WAGE DATA FILES ARE ENCRYPTED USING PKZIP
//**** WITH OCTO DATA CENTER PUBLIC KEY.
//******************* SET QTR PARM TO CURRENT QTR
//*******************************************************************
//****
// SET CURRQTR='Q2021Q2'
//****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//****
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**** MODIFIED JCL TO USE DIFFERENT PARMS TO RETRIEVE AND DELETE TDEC
//**** WAGE FILE
//**DFLT DTSFTEON - GET TDEC WAGE FILE WITH NO DATES
//****** DTSFTDON - GET TDEC WAGE FILE WITH DATES IN FILE NAME
//**DFLT DTSDEWAG - DELETE TDEC WAGE FILE WITH NO DATES
//****** DTSDDEAG - DELETE TDEC WAGE FILE WIT DATES IN FILE NAME
//************************************************* 12/24/14 ZL1
//****
//**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP
//********************************************************************
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDON),DISP=SHR
//*
//********************************************************************
//**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT
//********************************************************************
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//COPYCRYT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO ESSP FTP FILE.
//**
//********************************************************************
//**
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO QUARTER FILE.
//**
//********************************************************************
//**
//COPYFQTR EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR.,
//** DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//
//****************** stop here for now zl1 S**************************************************
//**** 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
//**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.PARMLIB(DTSDDWAG),DISP=SHR
//*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ##### NO TDEC REPORT WAGES TODAY !!!!...ZL1',
//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ',
// 'FILENAME:NOTDEC_WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
//* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM',
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP TDEC WAGES READY 4 PICKUP',
//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ',
// 'FILENAME:TDEC_WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//

20
JCL/DTZGACHD.jcl
View File

@ -28,10 +28,9 @@
//*-----------------------------------------------------
//* 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(DTSPWFIN)
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPFIN)
//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
@ -57,20 +56,21 @@ FWFRIENDLY TRUE
//**
//********************************************************************
//*** send email ach returns received from wells fargo.
//**
//*
//********************************************************************
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
// USERDATA=('TO:rosalind.holbrook@dc.gov',
// 'TO:aravind.vitta@sagitec.com',
// 'TO:NANCY.HUDAK@DC.GOV',
// 'TO:rajini.jujjavarapu@dc.gov',
// 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:margaret.hernandez@dc.gov',
// 'TO:geraldine.hester@dc.gov',
// 'TO:esayas.lemma@dc.gov',
// 'TO:ryan.moore-lee@dc.gov',
// 'TO:yinka.olarewaju-alo@dc.gov',
// 'TO:joy.diggs@dc.gov',
//* 'TO:macarena.cantelas@dc.gov',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO',
// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ',
// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),