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

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
JCL/CAUDX144.JCL Normal file
View File

@ -0,0 +1,15 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//*STEP001 EXEC PGM=IDCAMS
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD *
//*DELETE ECNTSUP.DOESTAX.CONV.AUDIT.X144
//*SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.PROD.BTC(+1),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182),
// PATH=('E:\DUTASJOBS\DEFAULTVOLUME\DOESTAX.PROD.BD400.BTC.BACKUP(+0)',
// COPY)

15
JCL/COPYMISSWAGS.JCL Normal file
View File

@ -0,0 +1,15 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES
SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES',
// COPY)

15
JCL/COPYX999.JCL Normal file
View File

@ -0,0 +1,15 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.X999
SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=8000),
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)

10
JCL/CopyFLAT.jcl Normal file
View File

@ -0,0 +1,10 @@
//TEST0200 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X
//* COPY DATA TO VSAM FILE
//STEP017 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,
// DISP=(NEW,CATLG,CATLG),
// DCB=(LRECL=133,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.R414.EXCL.RPT4',
// COPY)

6
JCL/DESBD427.jcl
View File

@ -61,7 +61,11 @@
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
//* 00340000
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,DISP=SHR 00351013
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
//* DISP=SHR 00351013
// DISP=(NEW,CATLG,DELETE), 00050206
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
//* 00360000
//********************************************************************* 00370000
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007

2
JCL/DTSBE405.jcl
View File

@ -15,7 +15,7 @@
//****
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//* RAINCODE TESTED 08/30/25 ZL1
//*********************************************************************
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
// RUNTYPE='QD',

6
JCL/DTSBX215.jcl
View File

@ -12,9 +12,11 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*
//* 00070000
//* RAINCODE TESTED 08/30/25 ZL1
//* 00070000
//STEP0200 EXEC DTSBX215
//* 00014000
//*
// 00014000
//*****************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)

42
JCL/DTSBX216.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTSRQ202 JOB (UI,4300,3400,T),BY202,CLASS=A,MSGCLASS=X, 00000010
// NOTIFY=ECNTZL1,
// USER=#DOADTS,
//*** TYPRUN=SCAN,
// REGION=0M
//*
//******************************************************************
//*
//* JOB : EMAIL ICESA REPORTS AND INITILIZE ALL EXTERNAL INPUT
//* FILES USED BY DUTAS ZL1
//*
//* 10/08/14 ADD STEP TO DELETE AND CREATE NEW FILES FOR ESSP INPUT
//* TO DUTAS INCLUDING BTC FILES CREATED BY JOB DTSBX420
//* ZL1
//*
//* 01/04/15 ADD STEP TO DELETE AND CREATE NEW FILES FOR ESSP INPUT
//* TO DUTAS INCLUDING BTC FILES CREATED BY JOB DTSBX429
//* ZL1
//*
//* 02/23/15 ADD STEPS TO DELETE AND CREATE NEW FILES FOR ESSP ACH
//* PAYMENTS AND RETURNS FROM WELLS FARGO.
//* ZL1
//*
//* 03/30/15 ADD STEPS TO DELETE AND CREATE NEW FILES FOR TAXWEB
//* TO CHECK FOR DUPLICATE PAYMENTS
//* ZL1
//* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE
//*
//* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1
//* 09/26/25 TESTING RAINCODE ZL1
//******************************************************************
// SET EXTNODE='CONV'
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//***
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*********************************************************************
//STEP0100 EXEC DTSIX415 CREDIT MEMO PRINT
//*
//*

11
JCL/DTSBX305.jcl
View File

@ -55,7 +55,7 @@
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
// DISP=(,CATLG,DELETE),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
//SYSIN DD *
@ -71,13 +71,16 @@
//STEP0075 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,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR
//** DISP=(,CATLG,DELETE),
//** UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
//** DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//*********************************************************************
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//*****
//STEP0200 EXEC DTSBX305
//** 00001700

2
JCL/DTSBX403.jcl
View File

@ -1,7 +1,7 @@
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
// USER=#DOADTS,
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
//*
//*-------------- RAINCODE TESTED 08/30/25 ZL1
//***************************************************
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
//***************************************************

4
JCL/DTSBX405.jcl
View File

@ -16,7 +16,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
//*
//* RAINCODE TESTED 08/30/25 ZL1
//******************************************************************
//STEP0100 EXEC PGM=DTSBX403,
// COND=(0,LT),
@ -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

2
JCL/DTSBX427.jcl
View File

@ -35,7 +35,7 @@
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//*STEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES

24
JCL/DTSBX430.jcl
View File

@ -39,17 +39,25 @@
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
//** 00001700
//************************************* 01/19/17 ZL1
//*****************************TESTING RC 09/06/25 ZL1
//STEP0100 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//*SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
//* DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
@ -66,8 +74,16 @@
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//* DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *

5
JCL/DTSBX450.jcl
View File

@ -101,8 +101,9 @@
END
//*
//*
//*TEP0200 EXEC DTSRP451 / REGULAR
//*STEP0200 EXEC DTSRP451 / REGULAR
//*
//*TEP0200 EXEC DTSSN451 / X147 PROCESS
//*STEP0200 EXEC DTSSN451 / X147 PROCESS
//*
//** 00001700
//

12
JCL/DTSBX451.jcl
View File

@ -6,7 +6,7 @@
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET PRGNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
@ -62,8 +62,9 @@
// 'SUBJECT: FAILED AMENDED REPORTS',
// 'FILENAME:ESSP_X451_FAILED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
@ -81,8 +82,9 @@
// 'SUBJECT: DUTAS DAILY AMENDED REPORTS',
// 'FILENAME:ESSP_X451_PASSED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//** 00001700

2
JCL/DTSBX479.jcl
View File

@ -71,6 +71,6 @@
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
//
//*******************************************************************

2
JCL/DTSBX500.jcl
View File

@ -23,7 +23,7 @@
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGE.NAME,DISP=SHR,
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')

7
JCL/DTSBX552.jcl
View File

@ -32,8 +32,7 @@
//* SPACE=(30720,(2000,4000),RLSE), 00211048
// SPACE=(CYL,(20,50),RLSE), 00211149
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007
//* 00214007
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009
// COND=(0,LT) 00217009
@ -50,7 +49,7 @@
//* SPACE=(30720,(2000,4000),RLSE), 00330048
// SPACE=(CYL,(50,50),RLSE), 00331048
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009
//* 00360009
//* 00370041
//STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041
@ -67,7 +66,7 @@
// UNIT=SYSDA, 00490041
// SPACE=(30720,(2000,4000),RLSE), 00500041
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00520041
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041
//* 00530041
//************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000

6
JCL/DTSBX553.jcl
View File

@ -31,7 +31,7 @@
// UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00213003
//* 00214000
//* 00215001
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216002
@ -48,7 +48,7 @@
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00350003
//* 00360000
//* 00370005
//STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS 00380005
@ -65,7 +65,7 @@
// UNIT=SYSDA, 00490005
// SPACE=(30720,(2000,2000),RLSE), 00500005
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00520005
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005
//* 00530005
//************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000

1
JCL/DTSBX601.jcl
View File

@ -7,6 +7,7 @@
//*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING
//*REFUNDS
//***************************************************** 06/22/17 ZL1***
//* RAINCODE TESTED ON 08/30/25 ZL1
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'

9
JCL/DTSBX626.jcl
View File

@ -28,7 +28,7 @@
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* THIS JOB MAY BE RERUN. TESTING RC ZL1 09/06/25 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
@ -108,7 +108,8 @@
//*
//STEP0400 EXEC DTSBX626
//***********************************************************
//*
//
//
// IF (STEP0400.STEP0450.RC EQ 0) THEN
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT)
@ -122,7 +123,7 @@
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
// ELSE
@ -139,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 SYSOUT=A,OUTPUT=*.OUT1
//SYSUT2 DD SCODEPAGE=1252,AUTOENCODE=YES,YSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
// ENDIF

22
JCL/DTSBX629.jcl
View File

@ -22,7 +22,7 @@
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//* 00120000
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR 00130010
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+0),DISP=SHR 00130010
// DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
@ -34,7 +34,7 @@
// UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR 00213002
//*SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSSX629),DISP=SHR 00213002
//SYSIN DD * 00213102
SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202
SUM FIELDS=NONE 00213302
@ -57,8 +57,7 @@
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//* 00360000
//************************************************************** 01210000
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
@ -73,10 +72,15 @@
//DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202
//DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013
//DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01307006
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,
//* DISP=(NEW,CATLG,DELETE), 00300000
// DISP=SHR, 00310000
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307006
//SYSOUT DD SYSOUT=* 01308000
//* 01360006
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
//*
//EMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
// REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000
//OUT1 OUTPUT DEST=U1003, 01364000
@ -85,13 +89,13 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118
// 'CC:TIM.PERLOW@DC.GOV', 01369016
// 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
// 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212
// 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411
// 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515
// MAILFROM=DUTAS@DC.GOV 01369615
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369800
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01369800
//SYSIN DD DUMMY 01369900
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000
//**********************************************************************01380000

29
JCL/DTSBX630.jcl
View File

@ -4,7 +4,7 @@
//** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005
//** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005
//** 00054000
//** 00055000
//** RAINCODE TESTED 08/30/25 ZL1 00055000
// SET PRGNODE='DEVL' 00056000
// SET LVLNODE='CONV' 00056100
// SET MSTNODE='PROD' 00056200
@ -28,8 +28,9 @@
//** 00160017
//OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 00190017
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=80) 00200017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) 00200017
//SYSPRINT DD SYSOUT=(*) 00210017
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017
//* 00230017
@ -54,9 +55,13 @@
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001
//DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002
//DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01307001
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR,
//* DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307001
//SYSOUT DD SYSOUT=* 01308000
//* 01360000
//* 01360000
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010
// REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000
@ -72,8 +77,11 @@
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721
// MAILFROM=DUTAS@DC.GOV 01369821
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01369904
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01370004
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
// DISP=SHR,
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01370004
//SYSIN DD DUMMY 01370104
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204
//* 01371006
@ -92,8 +100,11 @@
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620
// MAILFROM=DUTAS@DC.GOV 01379720
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01379806
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01379906
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
// DISP=SHR,
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01379906
//SYSIN DD DUMMY 01380006
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006
//**********************************************************************01390004

6
JCL/DTSBXACH.jcl
View File

@ -16,7 +16,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP ACH PAYMENTS FILES 00001700
//* PROCESS ESSP ACH PAYMENTS FILES - testing RC ZL1 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP ACH PAYMENTS TO DUTAS 00001700
@ -28,11 +28,11 @@
//*****************************************************************
//**
//STEP0200 EXEC DTSBXACH
//*
//
//STEP0300 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//*STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES

23
JCL/DTSBXPFL.jcl
View File

@ -29,7 +29,13 @@
//SYSPRINT DD SYSOUT=(*)
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,
// DISP=SHR,
//* DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
@ -68,13 +74,13 @@
OMIT COND(24,9,CH,EQ,C'060726487')
//*
//*******************************************************************
//STEP0300 EXEC PGM=FTP,REGION=2M
//*STEP0300 EXEC PGM=FTP,REGION=2M
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//***SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//*SYSIN DD *
//**FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//*
//*******************************************************************
//STEP0400 EXEC PGM=IDCAMS
@ -84,7 +90,8 @@ FWFRIENDLY TRUE
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*

5
JCL/DTSBXREL.jcl
View File

@ -17,7 +17,7 @@
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700
//* 00001700
//* TESTING RC ZL1 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700
@ -40,13 +40,12 @@
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSNXREL
//*
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//*STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES

8
JCL/DTSCHGQ1.jcl
View File

@ -17,7 +17,7 @@
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='QTR251' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
// SET QTRLY='QTR253' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
// SET LDEST=U@PRT65 00090000
// SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027
@ -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

14
JCL/DTSCHGQ2.jcl
View File

@ -19,7 +19,7 @@
// SET MSTNODE='PROD' 00070009
// SET CHGNODE='PROD' 00080000
// SET CHGMNBR='CHGM002' 00090000
// SET QTRLY='QTR251' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
// SET QTRLY='QTR253' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
// SET LDEST=U@PRT65 00092005
// SET LVDHOLD='YES' 00093014
// SET LHOLD='NO' 00094014
@ -41,7 +41,10 @@
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
// DISP=SHR
//*
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,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)
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(6,1,CH,EQ,C'0',OR,
@ -105,15 +108,16 @@
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
//* 'TO:JOY.DIGGS@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED',
// 'FILENAME:SI_QTR_CHARGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//**

12
JCL/DTSCHGRT.jcl
View File

@ -4,7 +4,7 @@
// NOTIFY=ECNTSUP,REGION=0M 00030099
//**** 00040000
//* BENEFIT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099
//**** 00041199
//**** raincode tested 10/04/25 zl1 00041199
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299
//**** 00042000
// SET PRGNODE='PROD' 00043099
@ -14,21 +14,21 @@
// SET UINODE='PROD' 00047000
// SET CHGMNBR='CHGM002' 00048000
// SET CHGMSSN='CHGM030' 00049000
// SET QTRLY='QTR251' 00050099
// SET QTRLY='QTR253' 00050099
// SET LDEST='U@PRT155' 00070099
// SET LHOLD='YES' 00080099
// SET LVDHOLD='YES' 00081099
//***** 00090000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110000
//**** 00120000
//**** 00130000
//STEP0100 EXEC DTSUXCGR 00140099
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099
//STEP0300.EXTPARM DD * 00170065
QTR, , ,YYYYYY,000000 00200099
/* 00210000
//*STEP0300.EXTPARM DD * 00170065
//*QTR, , ,YYYYYY,000000 00200099
//* 00210000
//*ANN, , ,YYYYYY,000000 00220099
//*QTR, , ,YYYYNY,000000 00230099
//*EMP,070106,063007,YNNNNN,154162 00240099

7
JCL/DTSDX145.jcl
View File

@ -16,7 +16,12 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR,
//* DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *

30
JCL/DTSDX216.jcl Normal file
View File

@ -0,0 +1,30 @@
//DTSDX145 JOB (UI,4300,3400,T),ZZZ,CLASS=A,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// MSGCLASS=X,REGION=4M
//* 00001700
//*********************************************************************
//********************************************************************
//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING.
//** 02/09/16 ZL1
//********************************************************************
//****************************************************************
//STEP0010 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR,
//* DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,11,CH,A)
END
//********************************************************************

16
JCL/DTSFRAUD.jcl
View File

@ -17,7 +17,7 @@
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR
//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
@ -28,11 +28,11 @@
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR,
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* CODEPAGE=1252,AUTOENCODE=YES,
//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=160,BLKSIZE=1600)
//*
//STEP0200 EXEC PGM=DESBD474,
// COND=(0,LT),
@ -41,9 +41,9 @@
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,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),
@ -64,7 +64,7 @@
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR
//* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR
//DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
@ -94,7 +94,7 @@
// 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

151
JCL/DTSFRAUDZ.jcl Normal file
View File

@ -0,0 +1,151 @@
//DTSFRAUD JOB (UI,4300,3400,T),RUNBZ480,CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1
//*
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DESBD473, // VERIFY EMP REGISTRTION DATE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR
//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)
//****
//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
// 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
//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)
//****
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//*********************************************************************
//STEP0300 EXEC PGM=DESBD475, // SELECT FRAUD WAGES FROM X147
// 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
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
// DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR
//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)
//****
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR
//*********************************************************************
//EMAIL EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ROSALIND.HOLBROOK@DC.GOV',
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:DIANA.COHEN@DC.GOV',
// 'CC:TUWANNA.EDWARDS@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: DAILY ESSP POTENTIAL FRAUD EMPLOYERS ',
// 'FILEDESC:FRAUD ACCOUNTS',
// 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//*
//STEP0100 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X140(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0200 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X144(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0300 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X145(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0400 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X147(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0500 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.PASSED.BACKUP.X140(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0600 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.PASSED.BACKUP.X144(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR
//*

38
JCL/DTSFTP147.jcl Normal file
View File

@ -0,0 +1,38 @@
//DTSFTP147 JOB (UI,4300,3400,T),DAILY-EXTRACT,CLASS=S, 00010001
// MSGCLASS=X, 00020000
// USER=#DOADTS, 00021011
// NOTIFY=ECNTZL1, 00030008
// REGION=0M 00050000
//**** 00060000
//* FTP ANY FILES TO 147
//* 00084001
//* NO MASTER FILE UPDATES 00090000
//* MODIFIED FOR RC 00100000
//* CHANGED OUTBOUND FILES TO ASCII -RC HAS IT IN EBCDIC 09/25/25 ZL1
//* 00110000
//**** 00130000
// SET LVLNODE='CONV' 00140000
// SET MSTNODE='PROD' 00150000
// SET RUNTYPE='0' 00150100
//**** 00151000
//****
//STPFTP1 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD *
10.57.110.147
dutasrc
Today728rc!
cd /Dutasrc/essp/outbound_essp
ascii
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
PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS
QUIT
/*

32
JCL/DTSGACHD.jcl
View File

@ -28,24 +28,24 @@
//*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*-----------------------------------------------------
//STEPWF EXEC PGM=FTP,
//*STEPWF EXEC PGM=FTP,
//* PARM='-r TLS safetrans.wellsfargo.com'
// PARM='-Sftp=TRUE 10.57.110.160'
//ENVVAR DD *
CLIENT=sftp
SFTP_AUTH=3
//* 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!
//*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
//*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.
@ -85,8 +85,10 @@ FWFRIENDLY TRUE
// '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
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****

12
JCL/DTSGACPY.jcl Normal file
View File

@ -0,0 +1,12 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
/*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//* DISP=(,CATLG,CATLG),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.ESSP.ACHDR.ARCHIVE.Z2671V00',
// COPY)
//

31
JCL/DTSGCHKS.jcl
View File

@ -8,13 +8,13 @@
//****
//*** 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.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
// SET CURRQTR='Q2018Q4'
// SET CURRQTR='Q20252Q2'
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
@ -39,7 +39,8 @@
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//********************************************************************
@ -60,12 +61,13 @@
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//COPYDELQ EXEC PGM=IDCAMS,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),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -81,7 +83,8 @@
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -96,7 +99,8 @@
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -106,13 +110,14 @@
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=MOD,
//* DISP=MOD,
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
// 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
//********************************************************************
@ -126,12 +131,12 @@
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
//*
//STEP0200 EXEC DTSZXCHK
//STEP0200 EXEC DTSBXCHK
//*
//STEP0300 EXEC DTSRSESP
//*STEP0300 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0400 EXEC DTSRERPZ
//*STEP0400 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES

45
JCL/DTSGPAYT.jcl
View File

@ -15,7 +15,7 @@
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//******** CHANGE QTR PARM TO CURRENT QTR **********
// SET CURRQTR='Q2017Q4'
// SET CURRQTR='Q2025Q2'
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
@ -55,27 +55,30 @@
//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
//*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.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)
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+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 WAGE DECRYPTED FILE TO BBACKUP FILE.
@ -116,21 +119,21 @@
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(SYS3.MODEL,RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//**** 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
//*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.USER.PARMLIB(DTSDPAYT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR
//*
//**
@ -138,8 +141,8 @@
//*
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION
//*STEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES

2
JCL/DTSGSID0.jcl
View File

@ -62,7 +62,7 @@
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
//*******************************************************************
//*

28
JCL/DTSGSID2.jcl
View File

@ -9,7 +9,9 @@
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//**
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
//* 00001700
@ -42,7 +44,7 @@
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
INCLUDE COND=(11,2,CH,EQ,C'W1')
INCLUDE COND=(11,2,CH,EQ,C'W2')
//*
//** 00001700
//STEP0250 EXEC PGM=SORT,
@ -110,13 +112,13 @@
//** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700
//** 00001700
//** 00001700
//STEP0200 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
//*STEP0200 EXEC PGM=FTP,
//* COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
//*
//STEP0100 EXEC PGM=DTSBX478,
// COND=(0,LT),
@ -130,7 +132,8 @@
//*
//DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//*
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
@ -150,7 +153,8 @@
// 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ',
// 'FILENAME:DAILY-DUTAS-WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*******************************************************************

61
JCL/DTSGWAGE.jcl
View File

@ -8,7 +8,7 @@
//******************* SET QTR PARM TO CURRENT QTR
//*******************************************************************
//****
// SET CURRQTR='Q2021Q2'
// SET CURRQTR='Q2025Q2'
//****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//****
@ -26,26 +26,26 @@
//****
//**** 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
//*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.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)
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//*DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
@ -53,12 +53,13 @@
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1),
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -69,13 +70,14 @@
//********************************************************************
//**
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// 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
//**
@ -89,13 +91,14 @@
//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=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// 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 WAGE FILE FROM TDEC SERVER
//********************************************************************
@ -108,14 +111,14 @@
//*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:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
@ -125,7 +128,7 @@
// '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
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
@ -135,7 +138,7 @@
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
//* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM',
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
//* 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
@ -145,7 +148,7 @@
// '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
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//

2
JCL/DTSGZCHD.jcl
View File

@ -9,7 +9,7 @@
// SET PRGNODE='CONV'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE

4
JCL/DTSMIN01.jcl
View File

@ -8,7 +8,9 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*LOADLIBS INCLUDE MEMBER=USERJLIB 00001600
//* 00001700
//*
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//STEP0100 EXEC PGM=DTSBS411, GENERAL SCAN
// COND=(0,LT),
// REGION=4096K

54
JCL/DTSMIN02.jcl
View File

@ -4,7 +4,9 @@
//* 00001700
// SET MSTNODE='PROD' 00001700
// SET LVLNODE='CONV' 00001700
//* 00001700
//*
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
@ -35,36 +37,41 @@
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(29000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000
// SPACE=(29000,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=29,BLKSIZE=29000) 00009000
//* 00001700
//EXPBX104 DD DSN=DOESTAX.CONV.ESSP.C104, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(21600,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800) 00009000
// SPACE=(21600,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=119,BLKSIZE=23800) 00009000
//* 00001700
//EXPBX106 DD DSN=DOESTAX.CONV.ESSP.C106, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(26500,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000
// SPACE=(26500,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=53,BLKSIZE=26500) 00009000
//* 00001700
//EXPBX108 DD DSN=DOESTAX.CONV.ESSP.C108, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000
// SPACE=(24000,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=24,BLKSIZE=24000) 00009000
//* 00001700
//EXPBX110 DD DSN=DOESTAX.CONV.ESSP.C110, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24900,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000
// SPACE=(24900,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=249,BLKSIZE=24900) 00009000
//* 00001700
//EXPBX120 DD DUMMY 00005000
//* 00001700
@ -96,7 +103,8 @@
// DISP=SHR,UNIT=SYSDA, 00011*18
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18
// SPACE=(CYL,(100,25),RLSE),
// DCB=(RECFM=FB,LRECL=477,BLKSIZE=477)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=477,BLKSIZE=477)
//* 00011*18
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
@ -173,7 +181,7 @@
//*****************************************************************
//* EMAIL STEP
//*****************************************************************
//IF1 IF STEP0400.RC=0 THEN
//EMAIL IF STEP0400.RC=0 THEN
//*
//STEP0500 EXEC PGM=IEBGENER,REGION=4M
//SYSPRINT DD SYSOUT=*
@ -189,8 +197,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: DAILY MINI CONVERSION REGISTRATION(S) READY '),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE
@ -208,8 +218,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: NO DAILY MINI CONV REGISTRATION TODAY...'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF
@ -228,8 +240,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: ACCOUNTS PENDING FOR MINI CONV IN DUTAS.'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

15
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..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
@ -74,7 +74,7 @@
//****
//****
//STEP0075 EXEC DTSBX415
// /* GET EMLOYER DATA FRROM WEB
//*
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
//****
//* /* MERGE WAGE.BTC TO BTC
@ -82,10 +82,13 @@
//*
//*/// REMOVE STEP EMT JOB CANCLLED /* SPC BACKUP OF OLA FOR EMT
//******** EXEC DESOLABK
//* /* STD DAILY PROC
//* /* STD DAILY RAINCODE BACKUP
//* /* STD DAILY BEFORE DAILY BATCH
//*STEP0175 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY'
//**
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
//STEP0200 EXEC DTSDUPDT,
//* LHOLD='NO',
@ -132,7 +135,9 @@
//**
//STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS
//*
//STEP0400 EXEC DTSUTVSM,
// BKUPGEN='(+2)'
//*STEP0400 EXEC DTSUTVSM,
//* BKUPGEN='(+2)'
//*STEP0100 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)',freq='DAILY'
//**
//*

2
JCL/DTSPDAY7.jcl
View File

@ -9,7 +9,7 @@
// SET LVLNODE='PROD'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//* 09/30/99 - JHP

15
JCL/DTSPMON1.jcl
View File

@ -13,7 +13,7 @@
//****
//**** 6/29/09 ADDED PROC (DTSACHM1) TO ARCHIVE REPORTS 405/414 ZL1
//****
//****
//**** TWATINF RC ZL1
//**** 11/09/12 CHANGED REPORT PROC FROM DTSRMEND TO DTSRMTR ZL1
//**** FOR TRMS REPORTS
//****
@ -26,8 +26,8 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//* SPEC BACKUP BEFORE MONTHLY BATCH
//STEP0100 EXEC DTSUTVMO,
// BKUPGEN='(+1)'
//*STEP0100 EXEC DTSUTVMO,
//* BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT, MONTHLY PERIODIC EXTRACT
// RUNTYPE='ME',
@ -109,8 +109,8 @@
//*********************************************************************
//*
//* STD BACKUP AFTER MONTHLY BATCH
//STEP0500 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0500 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//**//* THIS RESTORE IS DONE AT MONTH-END TO
//**//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
//**//* (OLA IS ALREADY RESET BY THE DAILY)
@ -131,10 +131,11 @@
//*
//STEP0800 EXEC DTSACHM1 /ARCHIVE MONTHLY REPORTS (405/414)
//*
//*
//
//
//******************************************************************
//* |
//* JOB : FTP R414 FILES TO SERVER
//* JOB : FTP R414 FILES TO SERVER NO NEED TO FTP BILLS
//* |
//******************************************************************
//STEP0800 EXEC PGM=FTP

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.PROCLIB BY Z/OS
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB 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.PROCLIB BY Z/OS
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB 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..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//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.PROCLIB 00001600
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*****************************************************************
//***

6
JCL/DTSRACHD.jcl
View File

@ -10,7 +10,7 @@
// SET PRGNODE='PROD'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//********************************************************************
@ -43,7 +43,7 @@
//**
//********************************************************************
//**
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
//MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -59,7 +59,7 @@
// 'FILENAME:essp_ach.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACHDD.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//

2
JCL/DTSRBTCH.jcl
View File

@ -7,7 +7,7 @@
//**********************************************************************
//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1
//**********************************************************************
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB
//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..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP

2
JCL/DTSRQ126.jcl
View File

@ -12,7 +12,7 @@
//*******************************************************************
//* WEEKLYREPORT DTSBR122 - *
//* APPROVED STATUS DETERMINATIONS E-MAIL
//* *
//* raincode test zl1 *
//*******************************************************************
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB

2
JCL/DTSRQ202.jcl
View File

@ -27,7 +27,7 @@
//* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE
//*
//* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1
//*
//* 09/26/25 TESTING RAINCODE ZL1
//******************************************************************
// SET EXTNODE='CONV'
// SET MSTNODE='PROD'

2
JCL/DTSRQ320.jcl
View File

@ -7,7 +7,7 @@
//****
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PENQTR='Q253' <<<<<<< FOR FILE NAME ONLY
// SET PENQTR='Q244' <<<<<<< FOR FILE NAME ONLY
// SET LHOLD='NO' <<<<<<< FOR FILE NAME ONLY
//****
//* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY)

11
JCL/DTSRQ325.jcl
View File

@ -22,7 +22,7 @@
//* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700
//* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700
//* 00001700
//* 00001700
//* TESTING RC 09/13/25 ZL1 00001700
//* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700
//* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700
//* 10/8/14 ZL1 00001700
@ -47,11 +47,14 @@
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
//*********************************************************************
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES 00001700
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
//******************************************************************** 00001700
//* 00001700
//STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0050 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY' 00003000
//*
//********************************************************************
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700

42
JCL/DTSRQ335.jcl
View File

@ -16,7 +16,7 @@
//* 00122099
//* ADDED BACKUP STEP FOR PAYDIST FILE -10/09 ZL1 00123099
//* 00124099
//**** 00130090
//**** RAINCODE TESTED 08/30/25 ZL1 00130090
// SET LVLNODE='PROD' 00140099
// SET MSTNODE='PROD' 00150099
// SET RUNTYPE='0' 0=CONVERT; 1=INCREMENTAL 00150199
@ -28,7 +28,9 @@
//*TEP0100 EXEC DTSUTVSM, 00191099
//* BKUPGEN='(+1)' 00192099
//* 00193099
//STEP0100 EXEC DTSBX340 MASTER FILE DATA 00200099
//STEP0100 EXEC DTSBX340
//*
//*STEP0100 EXEC DTSZX340
//* 00250099
//STEP0100.DTSFBTCO DD DUMMY 00260061
//STEP0100.DTSFVRO1 DD DUMMY 00270099
@ -45,13 +47,20 @@
//STEP0600 EXEC PGM=IDCAMS 00292099
//SYSPRINT DD SYSOUT=* 00293099
//INDD09 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.PAYDIST,DISP=SHR 00294099
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1), 00295099
// UNIT=CART, 00296099
// VOLUME=(,RETAIN), 00296199
// LABEL=(1,SL,,,EXPDT=99000), 00297099
// DISP=(,CATLG,DELETE), 00298099
// SPACE=(31552,(200,200),RLSE), 00299099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.PAYDIST.FTP(+1),
//* DISP=SHR
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE), 00190017
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000)
//*
//SYSPRINT DD SYSOUT=(*)
//* 00295099
//* UNIT=CART, 00296099
//* VOLUME=(,RETAIN), 00296199
//* LABEL=(1,SL,,,EXPDT=99000), 00297099
//* DISP=(,CATLG,DELETE), 00298099
//* SPACE=(31552,(200,200),RLSE), 00299099
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=50,BLKSIZE=30000) 00299199
//**** 00299299
REPRO INFILE(INDD09) OUTFILE(OUTDD01) 00299399
/* 00299499
@ -61,12 +70,15 @@
//SYSOUT DD SYSOUT=* 00299899
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.ATH,DISP=SHR, 00299999
// AMP=('BUFNI=5,BUFND=30') 00300099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1), 00301099
// DISP=(,CATLG,DELETE), 00302099
// UNIT=CART, 00303099
// VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
// LABEL=(2,SL,,,EXPDT=99000), 00305099
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..BACKUP.ATH(+1),
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA, 00190017
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600) 00301099
//* DISP=(,CATLG,DELETE), 00302099
//* UNIT=CART, 00303099
//* VOLUME=(,RETAIN,REF=*.STEP0600.OUTDD01), 00304099
//* LABEL=(2,SL,,,EXPDT=99000), 00305099
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 00306099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00307099
//**** 00310099
//* 00470099

23
JCL/DTSRQ414.jcl
View File

@ -14,7 +14,7 @@
//* ON REQUEST REPORT DTSBR414 - *
//****
//* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1
//****
//**** TESTING RC ZL1
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
@ -49,17 +49,18 @@
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
//*DOESLBLP.DOESLBL1 DD DUMMY
//*
//*
//*STEP0400 EXEC PGM=FTP
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
//*
//STEP0400 EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
/*
//STEP0500 EXEC DTSAR414 /ARCHIVE 414 RECORDS
//**
//STEP0600 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0600 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//*

4
JCL/DTSRQ442.jcl
View File

@ -16,7 +16,7 @@
//* 1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN
//*
//*
//*
//* TESTING RC ZL1
//*================================================================|
//***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
@ -36,7 +36,7 @@
//**
//* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//*
//
//STEP0400 EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*

2
JCL/DTSRQ444.jcl
View File

@ -17,7 +17,7 @@
//*
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//*
//*
//* testing rc zl1
//*================================================================|
//***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB

21
JCL/DTSRQ459.jcl
View File

@ -29,15 +29,15 @@
/*
//*** SORT BE460 FIRST 13 BYTES
//STEP0300 EXEC DTSRS459
//
//STEP0400 EXEC PGM=FTP,REGION=2M
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
/*
//*
//*STEP0400 EXEC PGM=FTP,REGION=2M
//**YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//*SYSIN DD *
//*FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//*
//*
//********************************************************************
//* |
@ -51,7 +51,8 @@ FWFRIENDLY TRUE
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*

2
JCL/DTSRQ511.jcl
View File

@ -8,7 +8,7 @@
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//* TESTING RC ZL1 00001700
//* 00001700
//STEP0100 EXEC PGM=DTSBD511, /* GENERATE NON PAYMNT SUR CHG LTR
// COND=(0,LT),

6
JCL/DTSRQ513.jcl
View File

@ -20,7 +20,7 @@
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//RPT513R1 DD SYSOUT=0
//RPT513R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=0
//**
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001600
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR
@ -29,8 +29,8 @@
//*
//**
//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),

27
JCL/DTSRQ713.jcl
View File

@ -8,7 +8,7 @@
// SET MSTNODE='PROD'
// SET UINODE='PROD'
// SET SPCNODE='PROD'
// SET QTR='Q251'
//*** SET QTR='Q063'
// SET LHOLD='NO'
//****
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
@ -35,14 +35,15 @@
//*STEP0125 EXEC DTSUTVSQ,
//* BKUPGEN='(+1)'
//*** *
//*STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
//STEP0200 EXEC DTSUX777, BD400 PERIODIC EXTRACT
//STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
// RUNTYPE='QE',
// PREBACK='Y'
//*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL
//* DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//*STEP0100.DTSFBTCO DD DISP=(OLD,KEEP,KEEP)
//STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
//*STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
//*STEP0100.EXTPARM DD *
//*770,
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713),
// DISP=SHR
//*** USE THE FOLLOWING LINES FOR A RERUN **-->>
@ -56,13 +57,13 @@
//***
//STEP0100.DTSFVR01 DD DUMMY
//*** SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//SYSPRINT DD SYSOUT=*
//SOUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
// DISP=SHR
//*STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//*SYSPRINT DD SYSOUT=*
//*SOUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
//* DISP=SHR
//*** SORT REPORT RECORDS
//STEP0400 EXEC DTSRSORT
//*** REPORT GENERATION
@ -72,9 +73,9 @@
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.DTS910F1 DD DUMMY
//*** STD BACKUP AFTER DATA FILE UPDATE
//STEP0600 EXEC DTSUTVSM,
//*STEP0600 EXEC DTSUTVSM,
//*** BKUPGEN='(+2)' /* (ONLY IF +1 BKP DONE IN STEP0100)
// BKUPGEN='(+1)'
//* BKUPGEN='(+1)'
//*
//* THIS RESTORE IS DONE AT QTR-END TO
//* REORG THE SECONDARY VSAM FILES (ATC/REF & WRK)

2
JCL/DTSRRRPT.jcl
View File

@ -19,7 +19,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**** SORT REPORT RECORDS
//STEP0200 EXEC DTSZSORT
//*STEP0200 EXEC DTSZSORT
//*TEP0100.SORTIN DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+0),
//* DISP=SHR
//**** DD DSN=DOESTAX.&LVLNODE..PER.RPT.G0349V00,

5
JCL/DTSVBKUP.jcl
View File

@ -5,11 +5,12 @@
// 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
//* * 00001100
//* -FREQ <DAILY|WEEKLY|MONTHLY|QUARTERLY>
//* * 00001100
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001200
//* IN THE CICS REGION. IF YOU FAIL TO CLOSE * 00001300
//* THE FILES IN THE CICS REGION BEFORE RUNNING * 00001400

14
JCL/DTSVRSTR.jcl
View File

@ -5,7 +5,7 @@
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000500
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000609
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721
//*LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000721
//**** 00000921
//* UI TAX VSAM FILES RESTORE ------ READ NOTE BELOW -------- * 00001100
//* * 00001200
@ -20,5 +20,15 @@
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES * 00001300
//* IN THE CICS REGION. * 00001400
//**** 00001621
/**** 00001621
//* NOTE: RAINCODE RESTORE FOR DAILY MASTER FILES * 00001300
//* TO RESTORE +0 GENERATION USE PROC DTSURVSM0 * 00001400
//****
//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
//*
//*STEP0100 EXEC DTSURVSM0 00002000
//** 00003029
//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000
//*
//STEP0100 EXEC DTSURVSM, 00002000
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029

2
JCL/DTSW4WGE.jcl
View File

@ -9,7 +9,7 @@
//*********************************************************************
//* LOAD THE WAGE FILE FOR DOCS NIGHTLY RUN
//*
//*
//* RAINCODE TESTED 08/30/25 ZL1
//*********************************************************************
// SET ACHYEAR='FY2009'
// SET EXTNODE='CONV'

2
JCL/DTSZPAYT.jcl
View File

@ -25,7 +25,7 @@
// SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)

100
JCL/DTSZX145 (2).jcl Normal file
View File

@ -0,0 +1,100 @@
//DTSDX145 JOB (UI,4300,3400,T),RUNRQ460,CLASS=S,MSGCLASS=X,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
//**** TYPRUN=SCAN,
//**** TYPRUN=HOLD,
// REGION=0M
//**
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//**
//**
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//********************************************************************
//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING.
//** 02/09/16 ZL1
//********************************************************************
//STEP0010 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,11,CH,A)
END
/*
//
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0010 EXEC PGM=SORT SORT REPORT RECORDS
//SYSOUT DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
SORT FIELDS=(24,9,CH,A)
OMIT COND(24,9,CH,EQ,C'060726487')
//**
//STEP0100 EXEC PGM=DTSZXPFL,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//TAXFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//*
//*FLFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//PFLFILE1 DD DUMMY
//*
//TAXFILE2 DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
//*
//*******************************************************************
//STEP0200 EXEC PGM=SORT
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
SORT FIELDS=(1,386,CH,A)
OMIT COND(24,9,CH,EQ,C'060726487')
//*
//*******************************************************************
//*STEP0300 EXEC PGM=FTP,REGION=2M
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//***SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//*SYSIN DD *
//**FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//*
//*******************************************************************
//STEP0400 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*

10
JCL/DefineFLAT.jcl Normal file
View File

@ -0,0 +1,10 @@
//IMPMF04 JOB
//*
//STEP0101 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFL420 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5)),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*

19
JCL/IB14flatfile.jcl Normal file
View File

@ -0,0 +1,19 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//*STEP011 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,
//* DISP=(NEW,CATLG,CATLG),
//* DISP=SHR,
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=8192),
//* PATH=('e:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES',
//* COPY)
//*
//STEP0101 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSRJ420 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
//** SPACE=(CYL,(5,5)),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//

75
JCL/IEB14CRE.jcl Normal file
View File

@ -0,0 +1,75 @@
//DTSBXREL JOB (UI,4300,3400,T),DTSBXPEN-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700
//* TESTING RC ZL1 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700
//** PAYMENT(X145) FOUND. ALL REPORTS RELEASED FROM PENDING 00001700
//** FILE THE REMIT AMOUNT WILL BE ZEROED OUT. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* - X145 -EMPLOYER PAYMENT DATA 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.X436.BTC 00001700
//* DOESTAX.CONV.X435.W4FILE 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN WITH CAUTION OR DUPLICATE PAYMENT WILL OCCUR00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//*********************************************************************
//** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN
//******************************************************************
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD DSN=DOESTAX.CONV.ESSP.NOWEBRG.TXT,
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=80,BLKSIZE=800)
//
//
//*********************************************************************
//** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN
//******************************************************************
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD DSN=DOESTAX.PROD.ESSP.PENDING.X145,
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//**
//STEP0200 EXEC DTSNXREL
//*
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 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
//** 00001700

337
JCL/JRUN800.jcl Normal file
View File

@ -0,0 +1,337 @@
//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTZL1,REGION=0M 00000299
//* 00000499
// SET LVLNODE='DEVL' 00000599
// SET MSTNODE='PROD' 00000699
// SET LVDHOLD='YES' /* VIEW DIRECT JOBS
// SET LDEST='LOCAL'
// SET PGMNODE='DEVL' 00000799
//PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399
//*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399
//* 00001400
//*OADLIBS INCLUDE MEMBER=DTSIZLIB 00001599
//*OADLIBS INCLUDE MEMBER=DTSIRLIB 00001599
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
//*OADLIBS INCLUDE MEMBER=DTSIPJLB 00001599
//* 00001600
//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799
//* 00004499
//********************************************************************* 00004549
//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
//*ORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(-6),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.TEST.SI414TPS.Q22023,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.BE320.RPT(+0),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT(+0),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT.G0038V00,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.CHG.BD220.RPT.QTR082,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.PER.RPT(-1),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT(-1),DISP=SHR
//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT.G7699V00,DISP=SHR
//*ORTIN DD DSN=DOESTAX.DEVL.RATE518.RPT.AN2019,DISP=SHR
//*ORTIN DD DSN=DOESTAX.TEST.FUTA704.RPT.CY2022,DISP=SHR
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
// UNIT=SYSDA, 00007099
// SPACE=(8192,(1000,1000),RLSE), 00007199
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099
//* 00018000
//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
//** TIME=(0,20), 00018299
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
//PARMIN DD * 00018899
DTSBD800,INC,503 00019199
/* 00019599
//** 00019699
//ATLSTIN DD * 00020000
DTSBD800, 00030000
/* 00031000
//** 117 W CLASS 00040099
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099
//**** NEED FOR 604 ONLY***** 00051099
//** 00060000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//* 00090099
//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199
//RPT503R1 DD SYSOUT=X 00100299
//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
//RPT530R1 DD SYSOUT=* 00100299
//RPT909R8 DD SYSOUT=* 00100299
//RPT909R9 DD SYSOUT=* 00100299
//RPT907R1 DD SYSOUT=* 00100299
//RPT907R2 DD SYSOUT=* 00100299
//RPT316R1 DD SYSOUT=* 00100299
//RPT316R2 DD SYSOUT=* 00100299
//RPT439R1 DD SYSOUT=* 00100299
//RPT439R2 DD SYSOUT=* 00100299
//RPT320R1 DD SYSOUT=* 00100299
//RPT320R2 DD SYSOUT=* 00100299
//RPT320R3 DD SYSOUT=* 00100299
//RPT320R4 DD SYSOUT=* 00100299
//RPT321R1 DD SYSOUT=* 00100299
//RPT321R2 DD SYSOUT=* 00100299
//RPT321R3 DD SYSOUT=* 00100299
//RPT321R4 DD SYSOUT=* 00100299
//RPT332R1 DD SYSOUT=* 00100299
//RPT332R2 DD SYSOUT=* 00100299
//RPT332R3 DD SYSOUT=* 00100299
//RPT305R1 DD SYSOUT=* 00100299
//RPT305R2 DD SYSOUT=* 00100299
//RPT305R3 DD SYSOUT=* 00100299
//RPT306R1 DD SYSOUT=* 00100299
//RPT306R2 DD SYSOUT=* 00100299
//RPT306R3 DD SYSOUT=* 00100299
//RPT713R1 DD SYSOUT=* 00100299
//RPT713R2 DD SYSOUT=* 00100299
//RPT704R1 DD SYSOUT=* 00100299
//RPT704R2 DD SYSOUT=* 00100299
//RPT705R1 DD SYSOUT=* 00100299
//RPT705R2 DD SYSOUT=* 00100299
//RPT102R1 DD SYSOUT=* 00100299
//RPT102R2 DD SYSOUT=* 00100399
//RPT102R3 DD SYSOUT=* 00100499
//RPT108R1 DD SYSOUT=* 00100299
//RPT108R2 DD SYSOUT=* 00100399
//RPT108R3 DD SYSOUT=* 00100499
//RPC110R1 DD SYSOUT=* 00100699
//RPC110R2 DD SYSOUT=* 00100799
//RPT131R1 DD SYSOUT=* 00100699
//RPT131R2 DD SYSOUT=* 00100799
//RPT119R1 DD SYSOUT=* 00100699
//RPT319R1 DD SYSOUT=* 00100699
//RPT319R2 DD SYSOUT=* 00100799
//RPT316R1 DD SYSOUT=* 00100699
//RPT316R2 DD SYSOUT=* 00100799
//RPT112R1 DD SYSOUT=* 00100699
//RPT112R2 DD SYSOUT=* 00100799
//RPT115R1 DD SYSOUT=* 00100699
//RPT115R2 DD SYSOUT=* 00100799
//RPT117R1 DD SYSOUT=* 00100899
//RPT117R2 DD SYSOUT=* 00100899
//RPT403R1 DD SYSOUT=* 00100899
//RPT403R2 DD SYSOUT=* 00100899
//RPT405R1 DD SYSOUT=* 00100899
//RPT405R2 DD SYSOUT=* 00100899
//RPT461R1 DD SYSOUT=* 00100899
//RPT461R2 DD SYSOUT=* 00100899
//RPT461R3 DD SYSOUT=* 00100899
//RPT451R1 DD SYSOUT=* 00100899
//RPT451R2 DD SYSOUT=* 00100899
//RPT417R1 DD SYSOUT=* 00100899
//RPT417R2 DD SYSOUT=* 00100899
//RPT452R1 DD SYSOUT=* 00100899
//RPT452R2 DD SYSOUT=* 00100899
//RPT455R1 DD SYSOUT=* 00100899
//RPT455R2 DD SYSOUT=* 00100899
//RPC120R1 DD SYSOUT=* 00100899
//RPC130R1 DD SYSOUT=* 00100999
//RPT602R1 DD SYSOUT=* 00100999
//RPT602R2 DD SYSOUT=* 00100999
//RPT602R3 DD SYSOUT=* 00100999
//RPT604R1 DD SYSOUT=* 00100999
//RPT604R2 DD SYSOUT=* 00100999
//RPT615R1 DD SYSOUT=* 00100999
//RPT602F3 DD DUMMY 00100999
//RPT726R1 DD SYSOUT=* 00100899
//RPT726R2 DD SYSOUT=* 00100999
//RPT909R1 DD SYSOUT=* 00100899
//RPT909R2 DD SYSOUT=* 00100999
//RPT909R3 DD SYSOUT=* 00100999
//RPT909R4 DD SYSOUT=* 00100999
//RPT909R5 DD SYSOUT=* 00100999
//RPT909R6 DD SYSOUT=* 00100999
//RPT980R1 DD SYSOUT=* 00100999
//
//
//RPT309R1 DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=134,BLKSIZE=134) 00100999
//RPT309R2 DD SYSOUT=* 00100999
//RPT319R1 DD SYSOUT=* 00100999
//RPT319R2 DD SYSOUT=* 00100999
//** ADMIN ASSESSMENT BILL
//RPT325R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
// DEST=&LDEST.
//**
//RPT403R1 DD SYSOUT=* 00100999
//RPT403R2 DD SYSOUT=* 00100999
//RPT405R1 DD SYSOUT=* 00100999
//RPT405R2 DD SYSOUT=* 00100999
//RPT405R3 DD SYSOUT=* 00100999
//RPT451R1 DD SYSOUT=* 00100999
//RPT451R2 DD SYSOUT=* 00100999
//RPT414R1 DD SYSOUT=* 00100999
//RPT412R2 DD SYSOUT=* 00100999
//RPT412R1 DD SYSOUT=* 00100999
//RPT414R2 DD SYSOUT=* 00100999
//RPT421R1 DD SYSOUT=* 00100999
//RPT421R2 DD SYSOUT=* 00100999
//RPT301R1 DD DSN=DOESTAX.DEVL.REPORT.R301,DISP=SHR 00100999
//RPT302R1 DD DSN=DOESTAX.DEVL.REPORT.R302,DISP=SHR 00100999
//RPT414R3 DD SYSOUT=* 00100999
//**T414R4 DD DSN=DOESTAX.DEVL.R414.EXCL.RPT2,DISP=SHR 00100999
//RPT414R4 DD SYSOUT=* 00100999
//RPT414R5 DD SYSOUT=* 00100999
//RPT414R6 DD SYSOUT=* 00100999
//RPT415R1 DD SYSOUT=* 00100999
//RPT415R2 DD SYSOUT=* 00100999
//RPT433R1 DD SYSOUT=I
//RPT433R2 DD SYSOUT=* 00100999
//RPT506R1 DD SYSOUT=* 00100999
//*PT506R1 DD DSN=DOESTAX.&LVLNODE..RPT506R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,5),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT506R2 DD SYSOUT=* 00100999
//RPT507R1 DD SYSOUT=* 00100999
//*PT507R1 DD DSN=DOESTAX.&LVLNODE..RPT507R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,5),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT507R2 DD SYSOUT=* 00100999
//RPT515R1 DD SYSOUT=* 00100999
//RPT515R1 DD DSN=DOESTAX.&LVLNODE..RPT515R1.EXP,
//* DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT515R2 DD SYSOUT=* 00100999
//RPT515R3 DD SYSOUT=* 00100999
//** ETA204 REPORT
//*PT517R1 DD SYSOUT=*
//* DEST=&LDEST.,
//* HOLD=&LVDHOLD
//RPT517R1 DD DSN=DOESTAX.&LVLNODE..RPT517R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT517R2 DD SYSOUT=* 00100999
//RPT520R1 DD DSN=DOESTAX.&LVLNODE..RPT520R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//*RPT521R1 DD SYSOUT=* 00100999
//*PT521R1 DD DSN=DOESTAX.&LVLNODE..RPT521R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
//*** DISP=(MOD,KEEP,KEEP),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,5),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//*PT521R2 DD SYSOUT=* 00100999
//RPT503R1 DD SYSOUT=* 00100999
//RPT503R2 DD SYSOUT=* 00100999
//RPT522R1 DD DSN=DOESTAX.&LVLNODE..RPT522R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT516R1 DD SYSOUT=* 00100999
//RPT516R2 DD SYSOUT=* 00100999
//RPT416R1 DD SYSOUT=* 00100999
//RPT416R2 DD SYSOUT=* 00100999
//RPT316R1 DD SYSOUT=* 00100999
//RPT316R2 DD SYSOUT=* 00100999
//RPT417R1 DD SYSOUT=* 00100999
//RPT417R2 DD SYSOUT=* 00100999
//RPT325R5 DD SYSOUT=* 00100999
//RPT325R4 DD SYSOUT=* 00100999
//RPT325R3 DD SYSOUT=* 00100999
//RPT325R2 DD SYSOUT=* 00100999
//** ETA-581 SPEC DEPT OF LABOR REPORT
//RPT713R2 DD SYSOUT=O,COPIES=8
//** DEST=&LDEST.
//RPT434R2 DD SYSOUT=* 00100999
//RPT434R1 DD SYSOUT=* 00100999
//RPT901R1 DD SYSOUT=* 00100999
//RPT901R2 DD SYSOUT=* 00100999
//RPT910R3 DD SYSOUT=* 00100999
//RPT910R2 DD SYSOUT=* 00100999
//RPT910R1 DD SYSOUT=* 00100999
//RTS910F1 DD DUMMY 00100999
//RST316R1 DD DSN=DOESTAX.DEVL.ESTQ062,DISP=SHR 00100999
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//REPORTF1 DD DSN=&&REPORTF1,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//RPT604R1 DD SYSOUT=* 00100999
//RPT711R1 DD SYSOUT=* 00100999
//RPT608R1 DD SYSOUT=* 00100999
//RPT606R1 DD SYSOUT=* 00100999
//RPT606R2 DD SYSOUT=* 00100999
//RPT902R1 DD SYSOUT=* 00100999
//RPT902R2 DD SYSOUT=* 00100999
//RTS902F1 DD SYSOUT=* 00100999
//RTS902F2 DD SYSOUT=* 00100999
//RTP902F1 DD SYSOUT=* 00100999
//RPT903R1 DD SYSOUT=* 00100999
//RPT903R2 DD SYSOUT=* 00101099
//RPT907R1 DD SYSOUT=* 00100999
//RPT907R2 DD SYSOUT=* 00101099
//RPC150R1 DD SYSOUT=* 00101199
//RPC160R1 DD SYSOUT=* 00101299
//RPT908R1 DD SYSOUT=* 00106799
//*************************************************************** 00106899
//PRINTER DD SYSOUT=* 00110599
//** CONTROL REPORT SUMMARY 00110699
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799
// HOLD=YES, 00110899
// DEST=U@PRT65 00110999
//** 00111000
//* 00120099
//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099
// COND=(0,LT), 00140099
// REGION=4096K 00150099
//SYSOUT DD SYSOUT=* 00151099
//SYSABOUT DD SYSOUT=* 00152099
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//DOESLBL1 DD SYSOUT=* 00155299
//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199
// 00157099

452
JCL/JRUNZ800.jcl Normal file
View File

@ -0,0 +1,452 @@
//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTZL1,REGION=0M 00000299
//* 00000499
// SET LVLNODE='DEVL' 00000599
// SET MSTNODE='PROD' 00000699
// SET LVDHOLD='YES' /* VIEW DIRECT JOBS
// SET LDEST='LOCAL'
// SET PGMNODE='DEVL' 00000799
//PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399
//*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399
//* 00001400
//*OADLIBS INCLUDE MEMBER=DTSIZLIB 00001599
//*OADLIBS INCLUDE MEMBER=DTSIRLIB 00001599
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
//*OADLIBS INCLUDE MEMBER=DTSIPJLB 00001599
//* 00001600
//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799
//*DOESIEDG EXEC PGM=IEBDG 00001899
//*SYSPRINT DD SYSOUT=* 00001999
//*LBLOUT DD DSN=&&TEMP,DISP=(,PASS,DELETE), 00002099
//* UNIT=SYSDA, 00002199
//* SPACE=(TRK,1), 00002299
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002399
//*SYSIN DD * 00002499
//* DSD OUTPUT=(LBLOUT) 00002599
//* FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0' 00002699
//* CREATE QUANTITY=1,NAME=(F1) 00002799
//* END 00002899
//* 00002999
//*DOESICAN EXEC PGM=IDCAMS 00003099
//*SYSPRINT DD SYSOUT=* 00003199
//*FILEIN DD DSN=&&TEMP, 00003299
//* DISP=(OLD,PASS), 00003399
//* UNIT=SYSDA 00003499
//*OESVRO1 DD DSN=DOESTAX.DEVL.TESTR901.LABELS,DISP=SHR 00003599
//*DOESVRO1 DD DSN=&&LABELS, 00003699
//* DISP=(NEW,PASS,DELETE), 00003799
//* UNIT=SYSDA, 00003899
//* SPACE=(8192,(1000,1000),RLSE), 00003999
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004099
//*SYSIN DD * 00004199
//* REPRO INFILE(FILEIN) OUTFILE(DOESVRO1) 00004299
//* 00004399
//* 00004499
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT, 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.DEVL.RPT910.SINOTICE,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.HDVL.BX420.RPT(+0),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.DEVL.RATE517.NOPRINT.YR2018,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.YR2025,DISP=SHR
//*ORTIN DD DSN=DOESTAX.PROD.RATE503.RPT.YR2018,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.CONV.RATE503.RPT.YR2024F4,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.HDVL.FUTA704.RPT.CY2024,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.HDVL.RATE517.RPT.YR2025,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.DEVL.RATE518.RPT.AN2024,DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD091525,DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+0)
//*sORTIN DD DSN=DOESTAX.PROD.SOAMONTH.RPT(+0),DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(-1),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.TEST.SI414TPS.Q22023,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.BE320.RPT(+0),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT(+0),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.BE417.RPT.G0038V00,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.CHG.BD220.RPT.QTR082,DISP=SHR 00005099
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+0),DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT(-1),DISP=SHR
//*ORTIN DD DSN=DOESTAX.DEVL.PER.RPT.G7699V00,DISP=SHR
//*ORTIN DD DSN=DOESTAX.DEVL.RATE518.RPT.AN2019,DISP=SHR
//*ORTIN DD DSN=DOESTAX.TEST.FUTA704.RPT.CY2022,DISP=SHR
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
// UNIT=SYSDA, 00007099
// SPACE=(8192,(1000,1000),RLSE), 00007199
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099
//* 00018000
//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
//** TIME=(0,20), 00018299
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,122,614
//PARMIN DD * 00018899
DTSBD800,INC,713 00019199
/* 00019599
//** 00019699
//ATLSTIN DD * 00020000
DTSBD800, 00030000
/* 00031000
//** 117 W CLASS 00040099
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099
//**** NEED FOR 604 ONLY***** 00051099
//** 00060000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//* 00090099
//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199
//RPT122R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299
//RPT122R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT122R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT122R4 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT122R5 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT614R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT614R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT907R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT907R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT980R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT102R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299
//RPT109R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT112R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT115R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT309R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299
//RPT309R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT903R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT903R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT414R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=* 00100299
//RPT414R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT414R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT414R4 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT414R5 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT414R6 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT713R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT713R2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//
//
//RPT140R2 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
//RPT530R1 DD SYSOUT=* 00100299
//*PT615R1 DD SYSOUT=* 00100299
//RPT615R1 DD DSN=DOESTAX.DEVL.RPT615.TXT,DISP=SHR 00100299
//RPT615R2 DD SYSOUT=* 00100299
//DTSBX212 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.BX212,DISP=SHR
//RPT503R1 DD SYSOUT=* 00100299
//RPT503R2 DD SYSOUT=* 00100299
//RPT503R3 DD DSN=DOESTAX.DEVL.ESSP.RATE.AN2019,DISP=SHR 00100299
//RPT521R1 DD DSN=DOESTAX.HTST.RPT521R1,DISP=SHR 00100299
//RPT517R1 DD SYSOUT=* 00100299
//RPT517R2 DD SYSOUT=* 00100299
//RPT517R3 DD SYSOUT=* 00100299
//RPT515R1 DD SYSOUT=* 00100299
//RPT515R2 DD SYSOUT=* 00100299
//RPT515R3 DD SYSOUT=* 00100299
//RPT515R4 DD DSN=DOESTAX.HTST.RTE2025.RPT515R4.TXT,DISP=SHR 00100299
//RPT793R2 DD DSN=DOESTAX.DEVL.RPT793R1.TXT,DISP=SHR
//RPT793R3 DD DSN=DOESTAX.DEVL.RPT793R2.TXT,DISP=SHR
//RPT793R1 DD SYSOUT=* 00100299
//RPT909R1 DD SYSOUT=* 00100299
//RPT909R2 DD SYSOUT=* 00100299
//RPT909R3 DD SYSOUT=* 00100299
//RPT909R4 DD SYSOUT=* 00100299
//RPT909R5 DD SYSOUT=* 00100299
//RPT909R6 DD SYSOUT=* 00100299
//RPT909R7 DD DSN=DOESTAX.DEVL.PFL.RPT909R1.TXT,DISP=SHR 00100299
//RPT909R8 DD SYSOUT=* 00100299
//RPT909R9 DD SYSOUT=* 00100299
//RPT907R1 DD SYSOUT=* 00100299
//RPT907R2 DD SYSOUT=* 00100299
//RPT316R1 DD SYSOUT=* 00100299
//RPT316R2 DD SYSOUT=* 00100299
//RPT439R1 DD SYSOUT=* 00100299
//RPT439R2 DD SYSOUT=* 00100299
//RPT320R1 DD SYSOUT=* 00100299
//RPT320R2 DD SYSOUT=* 00100299
//RPT320R3 DD SYSOUT=* 00100299
//RPT320R4 DD SYSOUT=* 00100299
//RPT321R1 DD SYSOUT=* 00100299
//RPT321R2 DD SYSOUT=* 00100299
//RPT321R3 DD SYSOUT=* 00100299
//RPT321R4 DD SYSOUT=* 00100299
//RPT332R1 DD SYSOUT=* 00100299
//RPT332R2 DD SYSOUT=* 00100299
//RPT332R3 DD SYSOUT=* 00100299
//RPT305R1 DD SYSOUT=* 00100299
//RPT305R2 DD SYSOUT=* 00100299
//RPT305R3 DD SYSOUT=* 00100299
//RPT306R1 DD SYSOUT=* 00100299
//RPT306R2 DD SYSOUT=* 00100299
//RPT306R3 DD SYSOUT=* 00100299
//RPT713R1 DD SYSOUT=* 00100299
//RPT713R2 DD SYSOUT=* 00100299
//RPT704R1 DD SYSOUT=* 00100299
//RPT704R2 DD SYSOUT=* 00100299
//RPT705R1 DD SYSOUT=* 00100299
//RPT705R2 DD SYSOUT=* 00100299
//RPT102R1 DD SYSOUT=* 00100299
//RPT102R2 DD SYSOUT=* 00100399
//RPT102R3 DD SYSOUT=* 00100499
//RPT108R1 DD SYSOUT=* 00100299
//RPT108R2 DD SYSOUT=* 00100399
//RPT108R3 DD SYSOUT=* 00100499
//RPC110R1 DD SYSOUT=* 00100699
//RPC110R2 DD SYSOUT=* 00100799
//RPT131R1 DD SYSOUT=* 00100699
//RPT131R2 DD SYSOUT=* 00100799
//RPT119R1 DD SYSOUT=* 00100699
//RPT319R1 DD SYSOUT=* 00100699
//RPT319R2 DD SYSOUT=* 00100799
//RPT316R1 DD SYSOUT=* 00100699
//RPT316R2 DD SYSOUT=* 00100799
//RPT112R1 DD SYSOUT=* 00100699
//RPT112R2 DD SYSOUT=* 00100799
//RPT115R1 DD SYSOUT=* 00100699
//RPT115R2 DD SYSOUT=* 00100799
//RPT117R1 DD SYSOUT=* 00100899
//RPT117R2 DD SYSOUT=* 00100899
//RPT791R1 DD DSN=DOESTAX.DEVL.R791ADM,DISP=SHR 00100899
//RPT403R1 DD SYSOUT=* 00100899
//RPT403R2 DD SYSOUT=* 00100899
//RPT405R1 DD SYSOUT=* 00100899
//RPT405R2 DD SYSOUT=* 00100899
//RPT461R1 DD SYSOUT=* 00100899
//RPT461R2 DD SYSOUT=* 00100899
//RPT461R3 DD SYSOUT=* 00100899
//RPT451R1 DD SYSOUT=* 00100899
//RPT451R2 DD SYSOUT=* 00100899
//RPT417R1 DD SYSOUT=* 00100899
//RPT417R2 DD SYSOUT=* 00100899
//RPT452R1 DD SYSOUT=* 00100899
//RPT452R2 DD SYSOUT=* 00100899
//RPT455R1 DD SYSOUT=* 00100899
//RPT455R2 DD SYSOUT=* 00100899
//RPC120R1 DD SYSOUT=* 00100899
//RPC130R1 DD SYSOUT=* 00100999
//RPT602R1 DD SYSOUT=* 00100999
//RPT602R2 DD SYSOUT=* 00100999
//RPT602R3 DD SYSOUT=* 00100999
//RPT604R1 DD SYSOUT=* 00100999
//RPT604R2 DD SYSOUT=* 00100999
//RPT615R1 DD SYSOUT=* 00100999
//RPT602F3 DD DUMMY 00100999
//RPT726R1 DD SYSOUT=* 00100899
//RPT726R2 DD SYSOUT=* 00100999
//RPT909R1 DD SYSOUT=* 00100899
//RPT909R2 DD SYSOUT=* 00100999
//RPT909R3 DD SYSOUT=* 00100999
//RPT909R4 DD SYSOUT=* 00100999
//RPT909R5 DD SYSOUT=* 00100999
//RPT909R6 DD SYSOUT=* 00100999
//RPT980R1 DD SYSOUT=* 00100999
//** REVENUE REFUND VOUCHER
//RPT303R1 DD SYSOUT=O,HOLD=&LVDHOLD.,
// DEST=&LDEST.
//** LETTER FOR 303R1 (309R1 FORM)
//RPT303R2 DD SYSOUT=I,HOLD=&LVDHOLD.,
// DEST=&LDEST.
//RPT303R3 DD DSN=DOESTAX.DEVL.FTP.REFUND.X303EXP,DISP=SHR
//**
//** DEPOSIT TRANSMITTAL FILE FOR WEB
//RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR
//RTSX202F DD DSN=DOESTAX.&LVLNODE..DEPOSIT.X202EXP,DISP=SHR
//** ACCOUNT NUMBER CHANGED
//RPT204R1 DD DSN=DOESTAX.&LVLNODE..RPT204,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FBA,LRECL=134,BLKSIZE=134)
//*
//** CFO REFUND EXPORT FILE
//RPT303R3 DD DSN=DOESTAX.&LVLNODE..FTP.REFUND.X303EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(MOD,KEEP,KEEP),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=30000)
//*
//RPT309R1 DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=134,BLKSIZE=134) 00100999
//RPT309R2 DD SYSOUT=* 00100999
//RPT319R1 DD SYSOUT=* 00100999
//RPT319R2 DD SYSOUT=* 00100999
//** ADMIN ASSESSMENT BILL
//RPT325R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
// DEST=&LDEST.
//**
//RPT403R1 DD SYSOUT=* 00100999
//RPT403R2 DD SYSOUT=* 00100999
//RPT405R1 DD SYSOUT=* 00100999
//RPT405R2 DD SYSOUT=* 00100999
//RPT405R3 DD SYSOUT=* 00100999
//RPT451R1 DD SYSOUT=* 00100999
//RPT451R2 DD SYSOUT=* 00100999
//RPT414R1 DD SYSOUT=* 00100999
//RPT412R2 DD SYSOUT=* 00100999
//RPT412R1 DD SYSOUT=* 00100999
//RPT414R2 DD SYSOUT=* 00100999
//RPT421R1 DD SYSOUT=* 00100999
//RPT421R2 DD SYSOUT=* 00100999
//RPT301R1 DD DSN=DOESTAX.DEVL.REPORT.R301,DISP=SHR 00100999
//RPT302R1 DD DSN=DOESTAX.DEVL.REPORT.R302,DISP=SHR 00100999
//RPT414R3 DD SYSOUT=* 00100999
//**T414R4 DD DSN=DOESTAX.DEVL.R414.EXCL.RPT2,DISP=SHR 00100999
//RPT414R4 DD SYSOUT=* 00100999
//RPT414R5 DD SYSOUT=* 00100999
//RPT414R6 DD SYSOUT=* 00100999
//RPT415R1 DD SYSOUT=* 00100999
//RPT415R2 DD SYSOUT=* 00100999
//RPT433R1 DD SYSOUT=I
//RPT433R2 DD SYSOUT=* 00100999
//RPT506R1 DD SYSOUT=* 00100999
//*PT506R1 DD DSN=DOESTAX.&LVLNODE..RPT506R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,5),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT506R2 DD SYSOUT=* 00100999
//RPT507R1 DD SYSOUT=* 00100999
//*PT507R1 DD DSN=DOESTAX.&LVLNODE..RPT507R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,5),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT507R2 DD SYSOUT=* 00100999
//RPT515R1 DD SYSOUT=* 00100999
//RPT515R1 DD DSN=DOESTAX.&LVLNODE..RPT515R1.EXP,
//* DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT515R2 DD SYSOUT=* 00100999
//RPT515R3 DD SYSOUT=* 00100999
//** ETA204 REPORT
//*PT517R1 DD SYSOUT=*
//* DEST=&LDEST.,
//* HOLD=&LVDHOLD
//RPT517R1 DD DSN=DOESTAX.&LVLNODE..RPT517R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT517R2 DD SYSOUT=* 00100999
//RPT520R1 DD DSN=DOESTAX.&LVLNODE..RPT520R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//*RPT521R1 DD SYSOUT=* 00100999
//*PT521R1 DD DSN=DOESTAX.&LVLNODE..RPT521R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
//*** DISP=(MOD,KEEP,KEEP),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,5),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//*PT521R2 DD SYSOUT=* 00100999
//RPT503R1 DD SYSOUT=* 00100999
//RPT503R2 DD SYSOUT=* 00100999
//RPT522R1 DD DSN=DOESTAX.&LVLNODE..RPT522R1.EXP,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800)
//*
//RPT516R1 DD SYSOUT=* 00100999
//RPT516R2 DD SYSOUT=* 00100999
//RPT416R1 DD SYSOUT=* 00100999
//RPT416R2 DD SYSOUT=* 00100999
//RPT316R1 DD SYSOUT=* 00100999
//RPT316R2 DD SYSOUT=* 00100999
//RPT417R1 DD SYSOUT=* 00100999
//RPT417R2 DD SYSOUT=* 00100999
//RPT325R5 DD SYSOUT=* 00100999
//RPT325R4 DD SYSOUT=* 00100999
//RPT325R3 DD SYSOUT=* 00100999
//RPT325R2 DD SYSOUT=* 00100999
//** ETA-581 SPEC DEPT OF LABOR REPORT
//RPT713R2 DD SYSOUT=O,COPIES=8
//** DEST=&LDEST.
//RPT434R2 DD SYSOUT=* 00100999
//RPT434R1 DD SYSOUT=* 00100999
//RPT901R1 DD SYSOUT=* 00100999
//RPT901R2 DD SYSOUT=* 00100999
//RPT910R3 DD SYSOUT=* 00100999
//RPT910R2 DD SYSOUT=* 00100999
//RPT910R1 DD SYSOUT=* 00100999
//RTS910F1 DD DUMMY 00100999
//RST316R1 DD DSN=DOESTAX.DEVL.ESTQ062,DISP=SHR 00100999
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//REPORTF1 DD DSN=&&REPORTF1,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//RPT604R1 DD SYSOUT=* 00100999
//RPT711R1 DD SYSOUT=* 00100999
//RPT608R1 DD SYSOUT=* 00100999
//RPT606R1 DD SYSOUT=* 00100999
//RPT606R2 DD SYSOUT=* 00100999
//RPT902R1 DD SYSOUT=* 00100999
//RPT902R2 DD SYSOUT=* 00100999
//RTS902F1 DD SYSOUT=* 00100999
//RTS902F2 DD SYSOUT=* 00100999
//RTP902F1 DD SYSOUT=* 00100999
//RPT903R1 DD SYSOUT=* 00100999
//RPT903R2 DD SYSOUT=* 00101099
//RPT907R1 DD SYSOUT=* 00100999
//RPT907R2 DD SYSOUT=* 00101099
//RPC150R1 DD SYSOUT=* 00101199
//RPC160R1 DD SYSOUT=* 00101299
//RPT908R1 DD SYSOUT=* 00106799
//*************************************************************** 00106899
//PRINTER DD SYSOUT=* 00110599
//** CONTROL REPORT SUMMARY 00110699
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799
// HOLD=YES, 00110899
// DEST=U@PRT65 00110999
//** 00111000
//* 00120099
//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099
// COND=(0,LT), 00140099
// REGION=4096K 00150099
//SYSOUT DD SYSOUT=* 00151099
//SYSABOUT DD SYSOUT=* 00152099
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//DOESLBL1 DD SYSOUT=* 00155299
//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199
// 00157099

110
JCL/LISTCAT.JCL Normal file
View File

@ -0,0 +1,110 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTA) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTB) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTC) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTD) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTE) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTF) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTF) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTG) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTH) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTI) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.MSTJ) -
CLUSTER -
ALL
/*
//*
//LISTCATK EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT -
ENTRIES(DOESTAX.PROD.VSAM.AIX) -
CLUSTER -
ALL
/*
//
//

116
JCL/LOADESSP..jcl Normal file
View File

@ -0,0 +1,116 @@
//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=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)
//*
//

206
JCL/LOADESSP.jcl Normal file
View File

@ -0,0 +1,206 @@
//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)
//*
//STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//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.X104',
// 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,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// 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.X110,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// 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,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// 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,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// 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.X147,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
/*
//

107
JCL/LOADESSPX999..jcl Normal file
View File

@ -0,0 +1,107 @@
//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=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)
//*

76
JCL/LOADOTHRS..jcl Normal file
View File

@ -0,0 +1,76 @@
//IMPMF04 JOB
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,DISP=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
// COPY)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
// COPY)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
// COPY)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FTP.PFLOTR',
// COPY)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
// COPY)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTDOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//* DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMT',
// COPY)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
//* DCB=(LRECL=512,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=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0261V00',
// COPY)
/*
//

235
JCL/LOADOTHRS.jcl Normal file
View File

@ -0,0 +1,235 @@
//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.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=386,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=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=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)
//*
//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)
//*
//

31
JCL/LOADWAGPAY.jcl Normal file
View File

@ -0,0 +1,31 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//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.ESSP.CRYPT.PYMTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP009 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)
//*

56
JCL/LOADX150.jcl Normal file
View File

@ -0,0 +1,56 @@
//IMPMF04 JOB
//*
//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)
//*

17
JCL/LOADX999.Jcl Normal file
View File

@ -0,0 +1,17 @@
//IMPMF04 JOB
//*
//*STEP017 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
//* DISP=(OLD,DELETE,DELETE)
//*
//STEP013 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)
//*

199
JCL/LOADmini.jcl Normal file
View File

@ -0,0 +1,199 @@
//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,BLKSIZE=8000),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0270V00',
// 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)
//*
//

2
JCL/RUNPBKUP.jcl
View File

@ -71,7 +71,7 @@
//SYSUDUMP DD SYSOUT=* 00810000
//SYSPRINT DD SYSOUT=* 00820000
//INPDS DD DSN=DOESTAX.PROD.PROCS.BATCH.LIB,DISP=SHR 00821000
//BACKUP DD DSN=DOESTAX.PROD.BKUP.PROCS.BATCH.LIB(+1), 00822001
//BACKUP DD DSN=DOESTAX.PROD.BKUP.PROCLIB(+1), 00822001
// DISP=(,CATLG,DELETE), 00840000
// UNIT=SYSDA, 00850000
// SPACE=(8000,(2000,500,500)), 00860001

328
JCL/RepUPESSP.jcl Normal file
View File

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

83
JCL/ReprintReports.jcl Normal file
View File

@ -0,0 +1,83 @@
//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTZL1,REGION=0M 00000299
//* 00000499
// SET LVLNODE='DEVL' 00000599
// SET MSTNODE='PROD' 00000699
// SET LVDHOLD='YES' /* VIEW DIRECT JOBS
// SET LDEST='LOCAL'
// SET PGMNODE='DEVL' 00000799
//PROCLIB JCLLIB ORDER=ECNTZL1.DOESTAX.DEVL.PROCS.BATCH.LIB 00001399
//*ROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399
//* 00001400
/********************************************************************* 00004549
//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
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
// UNIT=SYSDA, 00007099
// SPACE=(8192,(1000,1000),RLSE), 00007199
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//* 00018000
//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
//** TIME=(0,20), 00018299
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
//PARMIN DD * 00018899
DTSBD800,INC,503 00019199
/* 00019599
//** 00019699
//ATLSTIN DD * 00020000
DTSBD800, 00030000
/* 00031000
//** 117 W CLASS 00040099
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099
//**** NEED FOR 604 ONLY***** 00051099
//** 00060000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//* 00090099
//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199
//RPT503R1 DD SYSOUT=X 00100299
//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
//RPT530R1 DD SYSOUT=* 00100299
//RPT909R8 DD SYSOUT=* 00100299
//RPT909R9 DD SYSOUT=* 00100299
//RPT907R1 DD SYSOUT=* 00100299
//RPT907R2 DD SYSOUT=* 00100299
//RPT316R1 DD SYSOUT=* 00100299
//RPT316R2 DD SYSOUT=* 00100299
//RPT439R1 DD SYSOUT=* 00100299
//RPT439R2 DD SYSOUT=* 00100299
//RPT320R1 DD SYSOUT=* 00100299
//RPT320R2 DD SYSOUT=* 00100299
//RPT320R3 DD SYSOUT=* 00100299
//RPT320R4 DD SYSOUT=* 00100299
//RPT321R1 DD SYSOUT=* 00100299
//RPT321R2 DD SYSOUT=* 00100299
//RPT321R3 DD SYSOUT=* 00100299
//RPT321R4 DD SYSOUT=* 00100299
//RPT332R1 DD SYSOUT=* 00100299
//RPT332R2 DD SYSOUT=* 00100299
//

299
JCL/ReproESSP.jcl Normal file
View File

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

19
JCL/ReproFLAT.jcl Normal file
View File

@ -0,0 +1,19 @@
//IMPMF04 JOB
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0001,
// DISP=(NEW,CATLG,CATLG),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.ESSP.ACHDR.DD082225',
// COPY)
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0001,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

24
JCL/ReproGCKS.jcl Normal file
View File

@ -0,0 +1,24 @@
//IMPMF04 JOB
//*
//*STEP002 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD1001 DD DSN=TMP0199,
//* DISP=(,PASS,DELETE),
//* DISP=DHR,
//* DCB=(LRECL=512,RECFM=FB),
//* PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES',
//* COPY)
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BD400.BTC.BACKUP.G0004V00,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.BTC(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

24
JCL/ReproGPAY.jcl Normal file
View File

@ -0,0 +1,24 @@
//IMPMF04 JOB
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0006,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
// COPY)
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0006,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

24
JCL/ReproGWAG.jcl Normal file
View File

@ -0,0 +1,24 @@
//IMPMF04 JOB
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0008,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
// COPY)
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0008,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

300
JCL/ReproSRTD.jcl Normal file
View File

@ -0,0 +1,300 @@
//IMPMF04 JOB
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=&&TMPZ0218,
// DISP=(,PASS,DELETE),
//* DISP=SHR,
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.XX091525',
// COPY)
//*
//STEP010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=&&TMPZ0218,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(200,100),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
//
//
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0111,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP011 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0111,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0112,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY)
//*
//STEP012 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0112,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0113,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//STEP013 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0113,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP014 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0114,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY)
//*
//STEP014 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0114,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP015 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0115,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// COPY)
//*
//STEP015 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0115,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP016 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0116,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP016 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0116,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP017 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0117,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP017 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0117,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP018 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0118,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// COPY)
//*
//STEP018 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0118,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
//*
//*
//
//STEP019 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0119,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP019 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0119,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP025 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0125,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// COPY)
//*
//STEP025 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0125,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP020 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0120,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP020 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0120,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP021 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0121,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
//*
//STEP021 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0121,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//STEP022 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0122,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//STEP022 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0122,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

33
JCL/ReproVSAM.jcl Normal file
View File

@ -0,0 +1,33 @@
//IMPMF04 JOB
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE TMPM023
DELETE DOESTAX.PROD.VSAM.BTNO
SET MAXCC=0
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPM023,
// DISP=(NEW,CATLG,CATLG),
// DCB=(LRECL=10,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.RC.BKP.BTNO',
// COPY)
//*
//STEP003 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(DOESTAX.PROD.VSAM.BTNO) INDEXED -
RECORDSIZE (10 10) -
KEYS (5 0) ) -
DATA (NAME(DOESTAX.PROD.VSAM.BTNO.DAT)) -
INDEX (NAME(DOESTAX.PROD.VSAM.BTNO.IDX))
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPM023,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.VSAM.BTNO,DISP=SHR
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)

20
JCL/ReproX145.jcl Normal file
View File

@ -0,0 +1,20 @@
//IMPMF04 JOB
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0002,
// DISP=(NEW,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ecntsup.DOESTAX.CONV.fromESSP.x145',
// COPY)
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0001,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

24
JCL/ReproX303.jcl Normal file
View File

@ -0,0 +1,24 @@
//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)
/*
//

93
JCL/TDECMSG.JCL Normal file
View File

@ -0,0 +1,93 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DOESTAX.CONV.MINICONV.TXT1
SET MAXCC=0
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DOESTAX.CONV.SENTRPT.TXT
SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.MINICONV.TXT1,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.MINICONV.TXT1',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.SENTRPT.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.SENTRPT.TXT',
// COPY)
//
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT',
// COPY)
//
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ERORPAYT.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ERORPAYT.TXT',
// COPY)
//
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.NOCHECK.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.NOCHECK.TXT',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ERORCHK.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ERORCHK.TXT',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ERORPAYT.TXT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80),
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ERORPAYT.TXT',
// COPY)
//

Some files were not shown because too many files have changed in this diff Show More