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

Compare commits

base: giteaadmin:aebe4cd149224d6205bca068416c8998025a6c5d
Branches Tags
giteaadmin:main giteaadmin:Dutas-Dev-Update
..
compare: giteaadmin:Dutas-Dev-Update
Branches Tags
giteaadmin:Dutas-Dev-Update giteaadmin:main

6 Commits
aebe4cd149 ... Dutas-Dev-

Author SHA1 Message Date
faizana
9e2a3afcc9 screen 73 was not updated, now it is synced with Raincode. 2025-11-12 23:44:24 -05:00
faizana
5da0179563 fixed the issue of code merging. 2025-11-11 06:44:49 -05:00
Manoj Patel
3972c4a856 Z updated PROCS 2025-11-03 12:09:06 -05:00
Manoj Patel
6537588163 Z updated JCL files on PROD Env 2025-11-03 12:05:56 -05:00
Neeraj Kumar
8fca292a50 Add updated SqlAgent folder 2025-11-02 14:50:48 -05:00
Neeraj Kumar
2c94b89801 Remove old SqlAgent folder 2025-11-02 14:49:47 -05:00
314 changed files with 5547 additions and 6063 deletions
Expand all files Collapse all files

1048
AddToCatalog_JOBS_PROD.txt
View File

File diff suppressed because it is too large Load Diff

30
Copybook/DTSIS82.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 04/13/17
00001 ***** 08/14/25
00002 * DTSIS82
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
00004 * DTSIS82
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
@ -139,19 +139,19 @@
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
00141 SKIP1 DTSIS82
00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3
00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2
00144 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**2
00145 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**2
00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2
00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2
00148 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**2
00149 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**2
00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2
00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2
00152 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**2
00153 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**2
00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2
00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5
00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5
00144 * 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**5
00145 * 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**5
00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5
00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5
00148 * 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**5
00149 * 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**5
00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5
00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5
00152 * 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**5
00153 * 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**5
00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5
00155 SKIP1 DTSIS82
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82

6
JCL/CopyFLAT.jcl
View File

@ -3,8 +3,8 @@
//STEP017 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,
//DD1001 DD DSN=DOESTAX.PROD.RPT414R1,
// DISP=(NEW,CATLG,CATLG),
// DCB=(LRECL=133,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.R414.EXCL.RPT4',
// DCB=(LRECL=134,RECFM=FBA),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY)

96
JCL/DELESSP.jcl Normal file
View File

@ -0,0 +1,96 @@
//LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//*STEP001 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
//* DISP=(NEW,CATLG,CATLG),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
//* COPY)
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP014 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP016 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP018 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP020 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP022 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP024 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP026 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP028 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(OLD,DELETE,DELETE)
//*

30
JCL/DESBD427.jcl
View File

@ -12,7 +12,7 @@
// SET LVLNODE='DEVL' 00021008
// SET MSTNODE='PROD' 00021108
//* 00021608
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
//* 00022008
@ -54,7 +54,7 @@
//SYSABEND DD SYSOUT=* 00270000
//SYSUDUMP DD SYSOUT=* 00280000
//* 00290000
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR, 00300006
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR, 00300006
// AMP=('BUFNI=5,BUFND=10') 00310000
//* 00320000
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
@ -64,7 +64,8 @@
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
//* DISP=SHR 00351013
// DISP=(NEW,CATLG,DELETE), 00050206
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00050306
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
//* 00360000
//********************************************************************* 00370000
@ -75,7 +76,26 @@
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
//** 00450007
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD 00460011
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20252,DISP=MOD 00460011
//SYSPRINT DD SYSOUT=(*) 00500007
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
//** 00520007
//**
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.PROD.WAGE.NAME.EXP' +
DOESTAX.PROD.WAGE.NAME.EXP
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//* 00520007

18
JCL/DTSBX122.jcl
View File

@ -15,4 +15,22 @@
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
// DISP=SHR
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.REG122' ECNTSUP.DOESTAX.PROD.FTP.REG122
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//

21
JCL/DTSBX202.jcl
View File

@ -10,3 +10,24 @@
//* 00001700
//STEP0100 EXEC DTSBX202
//*********************************************************************
/*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM' +
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX217.AM' +
ECNTSUP.DOESTAX.PROD.FTP.BX217.AM
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

29
JCL/DTSBX215.jcl
View File

@ -1,6 +1,6 @@
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// USER=#DOADTS,RESTART=STEP0900,
// NOTIFY=ECNTSUP,
// REGION=0M
//*
@ -16,13 +16,28 @@
//* 00070000
//STEP0200 EXEC DTSBX215
//*
// 00014000
//*****************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0900 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.BX215' +
ECNTSUP.DOESTAX.PROD.FTP.BX215
put 'ECNTSUP.DOESTAX.PROD.FTP.BX220' +
ECNTSUP.DOESTAX.PROD.FTP.BX220
PUT 'ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT' +
ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
//
//* 00014000
//*****************************************

27
JCL/DTSBX303.jcl
View File

@ -21,7 +21,8 @@
// DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE),
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=750,BLKSIZE=7500)
//*
//******************************************************************
//* RAINCODE TESTED 08/20/25 ZL1 r
@ -31,13 +32,25 @@
//******************************************************************
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
//*
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
//*YSPRINT DD SYSOUT=*
//*UTOUT DD SYSOUT=*
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*YSGET DD *,DCB=BLKSIZE=80
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
ASCII
cd //Dutasrc/intranet/Outbound_intranet
PUT 'DOESTAX.PROD.FTP.REFUND.X303EXP' +
DOESTAX.PROD.FTP.REFUND.X303EXP
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//*********************************************************************
//* |
//* JOB : SAVE A COPY OF THE FTP REFUND FILE

37
JCL/DTSBX305.jcl
View File

@ -2,7 +2,7 @@
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
@ -35,7 +35,7 @@
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//STEP0100 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
@ -51,7 +51,7 @@
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
@ -68,7 +68,7 @@
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
//* 00001700
//********************************************************************
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
//STEP0300 EXEC PGM=SORT SORT FTP RECORDS
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR
@ -79,10 +79,31 @@
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//*********************************************************************
//*STEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//*STEP0400 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)',freq='DAILY'
//*****
//STEP0200 EXEC DTSBX305
//STEP0500 EXEC DTSBX305
//** 00001700
//STEP0300 EXEC DTSBX306
//STEP0600 EXEC DTSBX306
//** 00001700
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0700 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.PROD.FTP.REFUND.X305EXP' +
DOESTAX.PROD.FTP.REFUND.X305EXP
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X306' +
ECNTSUP.DOESTAX.PROD.FTP.X306
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//

23
JCL/DTSBX403.jcl
View File

@ -34,10 +34,27 @@
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,10),RLSE),
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=1732,BLKSIZE=0)
//*
//DTSLN405 DD DUMMY
//*
//*********************************************************************
//************************************************************** 00845099
//*
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.CONV.LEIN403.RECORD' DOESTAX.CONV.LEIN403.RECORD
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//

26
JCL/DTSBX405.jcl
View File

@ -26,7 +26,7 @@
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0),
// DISP=SHR
@ -34,10 +34,28 @@
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,10),RLSE),
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0)
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=323,BLKSIZE=0)
//*
//DTSLN403 DD DUMMY
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.CONV.LEIN405.RECORD' DOESTAX.CONV.LEIN405.RECORD
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//

25
JCL/DTSBX432.jcl
View File

@ -3,7 +3,7 @@
//* TYPRUN=SCAN,
// USER=#DOADTS,
//** NOTIFY=ECNTSUP,
// NOTIFY=ECNTZL1,
// NOTIFY=ECNTZL1,RESTART=STEPFTP,
// REGION=0M
//* 00001700
// SET LVLNODE='DEVL'
@ -31,4 +31,25 @@
//STEP0200 EXEC DTSBX441
//*
//STEP0300 EXEC DTSBX433
//** 00001700
//**
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEPFTP EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/outbound_essp
ascii
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X104' +
DOESTAX.CONV.ESSP.DAILY.FTP.X104
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X141' +
DOESTAX.CONV.ESSP.DAILY.FTP.X141
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//* 00001700

75
JCL/DTSBX468.jcl Normal file
View File

@ -0,0 +1,75 @@
//DTSBX468 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
//*** TYPRUN=SCAN,
//* USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=4M
//****
// SET UINODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET OUTNODE='CONV'
//****
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR NDNH AND OAG
//*
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
//****
//STEP0100 EXEC PGM=DTSBX468
//PRNTR DD SYSOUT=(*)
//SYSOUT DD SYSOUT=(*)
//SYSUDUMP DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSDBOUT DD SYSOUT=(*)
//SYSCOUNT DD SYSOUT=(*)
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
//* AMP=('BUFNI=5,BUFND=10')
//*
//*BUSINES DD DSN=EFT.QWDATA.QTRLY.SDC.R250831,
//* DISP=(NEW,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(900,50),RLSE),
//* DCB=(RECFM=LSEQ,LRECL=601)
//BUSINES DD DSN=DOESTAX.CONV.NDNH.QTRWAGE,
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR
// UNIT=SYSDA,
// SPACE=(CYL,(300,100),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=601,BLKSIZE=6010)
//*
//*
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
//***
//SYSIN DD *
**DTSBX465 20250601 20250831 DCG FED BUS
/*
//
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
// 'TO:HAROLD.JOHNSON@DC.GOV',
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
// 'TO:SEAN.JOSIAH@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
// 'TO:PRUDVI.PALLA@DC.GOV',
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
// 'FILEDESC: DOES WAGES WITH NAMES ',
// 'FILENAME:DOESWAGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**

84
JCL/DTSBX469.jcl Normal file
View File

@ -0,0 +1,84 @@
//DTSBX469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
//*** TYPRUN=SCAN,
//* USER=#DOADTS,
// NOTIFY=ECNTZL1,RESTART=STEP0400,
// REGION=4M
//****
// SET UINODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVLNODE='CONV'
//****
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
//*
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
//****
//STEP0100 EXEC PGM=DTSBX469
//PRNTR DD SYSOUT=(*)
//SYSOUT DD SYSOUT=(*)
//SYSUDUMP DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSDBOUT DD SYSOUT=(*)
//SYSCOUNT DD SYSOUT=(*)
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR,
//* AMP=('BUFNI=5,BUFND=10')
//*
//*
//BUSINES DD DSN=DOESTAX.&LVLNODE..UI.OTR.BUS,
// DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(75,25),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//GOVT DD DSN=DOESTAX.&LVLNODE..UI.OTR.DCG,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(75,15),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//***DEFAULT IS LAST COMPLETED QUARTER DECLARED DELINQUENT
//***
//SYSIN DD *
**DTSBX465 20250601 20250831 DCG FED BUS
/*
//STEP0400 EXEC PGM=SFTP
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//OUTPUT DD SYSOUT=*
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
/*
//
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
// 'TO:HAROLD.JOHNSON@DC.GOV',
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
// 'TO:SEAN.JOSIAH@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
// 'TO:PRUDVI.PALLA@DC.GOV',
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
// 'FILEDESC: DOES WAGES WITH NAMES ',
// 'FILENAME:DOESWAGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**

26
JCL/DTSBX601.jcl
View File

@ -31,6 +31,28 @@
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
//*
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
//* SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=LSEQ,LRECL=80)
//*********************************************************************
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT' +
ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

6
JCL/DTSBX626.jcl
View File

@ -108,8 +108,8 @@
//*
//STEP0400 EXEC DTSBX626
//***********************************************************
//
//
//*
//*
// IF (STEP0400.STEP0450.RC EQ 0) THEN
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT)
@ -140,7 +140,7 @@
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2 DD SCODEPAGE=1252,AUTOENCODE=YES,YSOUT=A,OUTPUT=*.OUT1
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
// ENDIF

8
JCL/DTSCHGQ1.jcl
View File

@ -27,9 +27,9 @@
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
//**** 00480000
//*STEP0200 EXEC DTSUXCGP 00490000
//*STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
//* DISP=SHR 00500032
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
// DISP=SHR 00500032
//**** 00504000
//STEP0300 EXEC DTSCHGQ1 00510031
//STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030
@ -40,7 +40,7 @@
//*TEP0100.TPSCHRG DD DISP=SHR 00511130
//**** 00520000
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00579236
//**** 00579336
//* 00579336
//STEP0200 EXEC DTSUXCGU 00579436
//* 00579536
//**** 00580025

10
JCL/DTSCHGQ2.jcl
View File

@ -35,16 +35,16 @@
//*********************************************************************
//* STEP TO COPY CONVERT FILE TO DASD-PART1 *
//*********************************************************************
//*
//
//STEP0200 EXEC PGM=SORT
//*
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
// DISP=SHR
//*
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(6,1,CH,EQ,C'0',OR,

9
JCL/DTSCHGRT.jcl
View File

@ -84,12 +84,15 @@
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099
//** 01430000
//** SM - TOTAL CHARGES (RATED) 01440000
//RPC100R1 DD SYSOUT=E, 01451099
//RPC100R1 DD SYSOUT=E,
//* CODEPAGE=1252,AUTOENCODE=YES, 01451099
// DEST=&LDEST., 01460000
// HOLD=&LHOLD. 01470000
//** CHRG SUMMARY-RATED 01480000
//RPC100R3 DD SYSOUT=0 01491099
//** 01520099
//RPC100R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=I
//* 01491099
//**
//RPC100R4 DD DUMMY 01520099
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT, 01810000
// COND=(0,LT), 01820000

19
JCL/DTSDX145.jcl
View File

@ -28,3 +28,22 @@
SORT FIELDS=(1,11,CH,A)
END
//********************************************************************
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.CONV.ESSPX145' +
ECNTSUP.DOESTAX.CONV.ESSPX145
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

19
JCL/DTSESDAY.jcl
View File

@ -27,3 +27,22 @@
//*TEP0100.DTSFVRO1 DD DUMMY 00270006
//STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.HOLIDAYS,DISP=SHR 00270109
//**** 00284000
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd /Dutasrc/essp/outbound_essp
ascii
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//

42
JCL/DTSFRAUD.jcl
View File

@ -23,10 +23,11 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR,
//* DISP=(NEW,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR,
//* DISP=(,CATLG,DELETE),
@ -49,10 +50,11 @@
// SPACE=(CYL,(100,50),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR,
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//*********************************
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
@ -70,11 +72,35 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR,
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//****
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.CONV.FROMESSP.PASSED.X147' +
DOESTAX.CONV.FROMESSP.PASSED.X147
put 'DOESTAX.CONV.FROMESSP.PASSED.X144' +
DOESTAX.CONV.FROMESSP.PASSED.X144
put 'DOESTAX.CONV.FROMESSP.PASSED.X140' +
DOESTAX.CONV.FROMESSP.PASSED.X140
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*
//***********************************
//EMAIL EXEC PGM=IEBGENER,
// COND=(0,LT),

28
JCL/DTSFT202.jcl
View File

@ -18,12 +18,32 @@
//** TO TURN OFF LINE NUMBER TYPE "NONUM"
//** FTP COMMANDS MUST be in lower case
//***************************************************************
//STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
//*STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
/*
//* TDEC BBACKUP TEST SERVER
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
50.76.21.195
tdec_dcw_5
14cw0d8Y
ascii
PUT 'DOESTAX.CONV.TDEC.VERIF' verification_file.txt
PUT 'DOESTAX.CONV.TDEC.EMPNAME' employer_no_file.txt
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
/*
//*
//****

52
JCL/DTSFT469.jcl Normal file
View File

@ -0,0 +1,52 @@
//DTSFT469 JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
//*** TYPRUN=SCAN,
//* USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=4M
//****
// SET UINODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVLNODE='CONV'
//****
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
//*
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
//STEP0400 EXEC PGM=FTP
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//OUTPUT DD SYSOUT=*
//INPUT DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
/*
//
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
// 'TO:HAROLD.JOHNSON@DC.GOV',
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
// 'TO:SEAN.JOSIAH@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
// 'TO:PRUDVI.PALLA@DC.GOV',
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
// 'FILEDESC: DOES WAGES WITH NAMES ',
// 'FILENAME:DOESWAGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**

63
JCL/DTSFTESD.jcl Normal file
View File

@ -0,0 +1,63 @@
//DTSFTESD JOB (HS,0000,0000,P),NDNH-WAGE-EXACT2,CLASS=S,MSGCLASS=X,
//*** TYPRUN=SCAN,
//* USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=4M
//****
// SET UINODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVLNODE='CONV'
//****
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR OFFICE OF TAX AND REVENUE (OTR)AND OAG
//*
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (QTR DECLARED DELQ)
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//** BE SURE TO CHNG THE PARM IN DOESTAX.CONV.USER.PARMLIB(DTSBX465)
//** (OR, FOR NOW, THE ONE BELOW AT THE END OF THIS JOB)
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd /Dutasrc/essp/outbound_essp
ascii
put 'DOESTAX.CONV.ESSP.MSCL' DOESTAX.CONV.ESSP.MSCL
put 'DOESTAX.CONV.ESSP.C102' DOESTAX.CONV.ESSP.C102
put 'DOESTAX.CONV.ESSP.C104' DOESTAX.CONV.ESSP.C104
put 'DOESTAX.CONV.ESSP.C106' DOESTAX.CONV.ESSP.C106
put 'DOESTAX.CONV.ESSP.C108' DOESTAX.CONV.ESSP.C108
put 'DOESTAX.CONV.ESSP.C110' DOESTAX.CONV.ESSP.C110
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:TARA.WRIGHT@ACF.HHS.GOV',
// 'TO:HAROLD.JOHNSON@DC.GOV',
// 'TO:CAROLYN.TAYLORSON@SSA.GOV',
// 'TO:SEAN.JOSIAH@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
// 'TO:ALEXIS.WASHINGTON@ACF.HHS.GOV',
// 'TO:PRUDVI.PALLA@DC.GOV',
// 'TO:LYNNETTA.THOMPSON@ACF.HHS.GOV',
// 'SUBJECT:DC QUARTERLY WAGE NAME SUBMISSION',
// 'FILEDESC: DOES WAGES WITH NAMES ',
// 'FILENAME:DOESWAGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.OAG.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**

25
JCL/DTSGACHD.jcl
View File

@ -28,25 +28,20 @@
//*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*-----------------------------------------------------
//*STEPWF EXEC PGM=FTP,
//* PARM='-r TLS safetrans.wellsfargo.com'
//* PARM='-Sftp=TRUE 10.57.110.160'
//*-----------------------------------------------------
//*STEPWF EXEC PGM=SFTP,
//* PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
//*ENVVAR DD *
//* CLIENT=sftp
//* SFTP_AUTH=3
/*
//* SFTP_STRICTHOSTKEY=accept-new
//* SFTP_AUTH=5
//*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SFTPAUTH DD *
//* machine 10.57.110.160 user dutasrc pass Today728rc!
/*
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
//* DD *
//*FWFRIENDLY TRUE
//*SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
/*
//*
//********************************************************************
//*** COPY essp ach RETURNS to backup ach file.
//**
@ -68,7 +63,7 @@
//*** send email ach returns received from wells fargo.
//*
//********************************************************************
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
//ESSPMAIL EXEC PGM=IEBGENER,COND=(4,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -87,7 +82,7 @@
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=134,BLKSIZE=1340)
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)

65
JCL/DTSGCHKS.jcl
View File

@ -8,8 +8,8 @@
//****
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//****
//*** FILES GOING TO TDEC SHOULD USE TDEC ZTESTING CHKPAY.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
@ -24,10 +24,10 @@
// SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
//PROCLIB JCLLIB ORDER=DDOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//* ZPROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//*
//********************************************************************
//**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
@ -37,10 +37,10 @@
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
// DISP=(,CATLG,DELETE),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//********************************************************************
@ -61,13 +61,13 @@
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
// DISP=(,CATLG,DELETE),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -110,7 +110,7 @@
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=MOD,
//* DISP=MOD,
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
@ -131,6 +131,27 @@
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
//*
//STEP0999 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR
// DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR
//*
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(30720,(1000,1000),RLSE),
//* CODEPAGE=1252,AUTOENCODE=YES,
//* DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//*
//STEP0200 EXEC DTSBXCHK
//*
//*STEP0300 EXEC DTSRSESP
@ -143,4 +164,24 @@
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//**
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
ASCII
cd //Dutasrc/intranet/Outbound_intranet
PUT 'DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS' +
DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//*********************************************************
**************************** BOTTOM OF DATA ****************************

40
JCL/DTSGPAYT.jcl
View File

@ -65,6 +65,19 @@
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
//*
//**
//SORTPAYT EXEC PGM=SORT,COND=(0,LT)
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//**
//SORTOUT DD DSN=&&SORTPAY,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSOUT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPAY01),DISP=SHR
//**
//********************************************************************
//********************************************************************
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//********************************************************************
@ -73,8 +86,12 @@
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//*IFILE DD DSN=&&SORTPAY,
//* DISP=(OLD,PASS,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
@ -139,7 +156,7 @@
//**
//STEP0200 EXEC DTSBXPAY
//*
//STEP0200 EXEC DTSRSESP
//*STEP0200 EXEC DTSRSESP
//***
//* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION
//*STEP0300 EXEC DTSRQRPT
@ -148,4 +165,23 @@
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
ASCII
cd //Dutasrc/intranet/Outbound_intranet
PUT 'DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT' +
DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//**

39
JCL/DTSGSID0.jcl
View File

@ -46,55 +46,48 @@
//**********************************************************************
//*
//******************************************************************
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*-----------------------------------------------------
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
//*-----------------------------------------------------
//STEP0100 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
//STEP0100 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/Inbound_uibs
BINary
GET DOES_Bencharges.txt +
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
//*******************************************************************
//*
//**********************************************************************
//* COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
//**********************************************************************
//*
//STEP0101 EXEC PGM=IDCAMS
//STEP0101 EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
//*
//OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//
//*** send email daily charges transmitted to dutas
//**
//********************************************************************
//STEP0200 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSPACHF DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
//*
//**
//FAIL01 IF STEP0100.ABEND THEN
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100),
// REGION=4M

37
JCL/DTSGSID1.jcl
View File

@ -23,24 +23,24 @@
//**** 00003325
//STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963
//**** 00005461
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
// LDEST=U@PRT65, 00005660
// LHOLD='YES' 00005760
//*STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
//* LDEST=U@PRT65, 00005660
//* LHOLD='YES' 00005760
//** 00005860
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//*STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//*DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//* 00001749
//* DAILY BENEFIT CHARGE BACKUP 00002003
//*********************************************************************
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
//********************************************************************
//*
//STEP0100 EXEC DTSUTCHG,
// BKUPGEN='(+1)' 00002425
//*STEP0100 EXEC DTSUTCHG,
//* BKUPGEN='(+1)',freq='DAILY'
//*
// IF (STEP0100.STEP0100.RC NE 0) THEN
//EMAIL EXEC PGM=IEBGENER,
//EMAIL001 EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -55,7 +55,7 @@
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE
//EMAIL EXEC PGM=IEBGENER,
//EMAIL002 EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -71,3 +71,22 @@
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.CHARGE' +
ECNTSUP.DOESTAX.PROD.FTP.CHARGE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//

20
JCL/DTSGWAGE.jcl
View File

@ -98,21 +98,21 @@
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//
//*
//********************************************************************
//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER
//********************************************************************
//TDECDEL EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*TDECDEL EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRWAG),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR
//
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
//*
//EMAILWGE1 EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
@ -132,7 +132,7 @@
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
//EMAILWGE2 EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,

19
JCL/DTSMIN02.jcl
View File

@ -178,6 +178,25 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd /Dutasrc/essp/outbound_essp
ascii
put 'DOESTAX.CONV.ESSP.MSCL' DOESTAX.CONV.ESSP.MSCL
put 'DOESTAX.CONV.ESSP.C102' DOESTAX.CONV.ESSP.C102
put 'DOESTAX.CONV.ESSP.C104' DOESTAX.CONV.ESSP.C104
put 'DOESTAX.CONV.ESSP.C106' DOESTAX.CONV.ESSP.C106
put 'DOESTAX.CONV.ESSP.C108' DOESTAX.CONV.ESSP.C108
put 'DOESTAX.CONV.ESSP.C110' DOESTAX.CONV.ESSP.C110
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*
//*****************************************************************
//* EMAIL STEP
//*****************************************************************

51
JCL/DTSPACHD.jcl
View File

@ -58,28 +58,49 @@
//*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*-----------------------------------------------------
//STEPWF EXEC PGM=FTP,
// PARM='-r TLS safetrans.wellsfargo.com'
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//*-----------------------------------------------------
//STEPWF EXEC PGM=SFTP,
// PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
//ENVVAR DD *
CLIENT=sftp
* SFTP_STRICTHOSTKEY=accept-new
SFTP_AUTH=5
/*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
// DD *
FWFRIENDLY TRUE
//SYSPRINT DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
//SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
//SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
//SYSIN DD *
ascii
cd /inbound/GOVTO945_ACH_70/
PUT E:\DUTASJOBS\DefaultVolume\ECNTSUP\DOESTAX\CONV\FROMESSP\ACHDPAYT.seq +
ESSP_DOESTAX_ACHDEBIT_DEPOSITS.TXT
quit
//*
//*
//*STEPWF EXEC PGM=FTP,
//* PARM='-r TLS safetrans.wellsfargo.com'
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
//* DD *
//*FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSZWFAD),DISP=SHR
//*
//********************************************************************
//*** send email ach transimmited to wells fargo.
//**
//********************************************************************
//STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
//* COND=(0,LT),
//* REGION=0M
//*SYSOUT DD SYSOUT=*
//*SYSABOUT DD SYSOUT=*
//*SYSABEND DD SYSOUT=*
//*
//DTSPACHF DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
//*DTSPACHF DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
//*
//COPYPACH EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR

27
JCL/DTSPDAY1.jcl
View File

@ -86,8 +86,8 @@
//* /* STD DAILY BEFORE DAILY BATCH
//*STEP0175 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY'
//*STEP0100 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)',freq='DAILY'
//**
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
//STEP0200 EXEC DTSDUPDT,
@ -138,6 +138,27 @@
//*STEP0400 EXEC DTSUTVSM,
//* BKUPGEN='(+2)'
//*STEP0100 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)',freq='DAILY'
//* BKUPGEN='(+2)',freq='DAILY'
//**
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP1000 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'DOESTAX.PROD.DEPOSIT.X202EXP' DOESTAX.PROD.DEPOSIT.X202EXP
put 'ECNTSUP.DOESTAX.PROD.FTP.BX217' ECNTSUP.DOESTAX.PROD.FTP.BX217
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X148' ECNTSUP.DOESTAX.PROD.FTP.X148
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X153' ECNTSUP.DOESTAX.PROD.FTP.X153
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//*

2
JCL/DTSRACHD.jcl
View File

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

13
JCL/DTSRQ325.jcl
View File

@ -48,14 +48,11 @@
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
//*********************************************************************
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
//******************************************************************** 00001700
//* 00001700
//*STEP0050 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY' 00003000
//*
//********************************************************************
//*********************************************************************
//STEP0400 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY'
//*****
//********************************************************************
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700
//********************************************************************

51
JCL/DTSRQ335.jcl
View File

@ -123,7 +123,56 @@
//* 00843099
//* 00844099
//************************************************************** 00845099
// 00850099
//*
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHTRN' ECNTSUP.DOESTAX.PROD.FTP.ATHTRN
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHHDR' ECNTSUP.DOESTAX.PROD.FTP.ATHHDR
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHRPT' ECNTSUP.DOESTAX.PROD.FTP.ATHRPT
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHATX' ECNTSUP.DOESTAX.PROD.FTP.ATHATX
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHPAY' ECNTSUP.DOESTAX.PROD.FTP.ATHPAY
put 'ECNTSUP.DOESTAX.PROD.FTP.ATHADJ' ECNTSUP.DOESTAX.PROD.FTP.ATHADJ
put 'ECNTSUP.DOESTAX.PROD.FTP.HEADER' ECNTSUP.DOESTAX.PROD.FTP.HEADER
put 'ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR' +
ECNTSUP.DOESTAX.PROD.FTP.ACCT.INCR
put 'ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR' +
ECNTSUP.DOESTAX.PROD.FTP.TRAN.INCR
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN' ECNTSUP.DOESTAX.PROD.FTP.LIEN
put 'ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR' +
ECNTSUP.DOESTAX.PROD.FTP.LIEN.QTR
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC' ECNTSUP.DOESTAX.PROD.FTP.DPC
put 'ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR' +
ECNTSUP.DOESTAX.PROD.FTP.DPC.QTR
put 'ECNTSUP.DOESTAX.PROD.FTP.PAYDIST' +
ECNTSUP.DOESTAX.PROD.FTP.PAYDIST
put 'ECNTSUP.DOESTAX.PROD.FTP.QTR' ECNTSUP.DOESTAX.PROD.FTP.QTR
put 'ECNTSUP.DOESTAX.PROD.FTP.RATE' ECNTSUP.DOESTAX.PROD.FTP.RATE
put 'ECNTSUP.DOESTAX.PROD.FTP.QCOLL' ECNTSUP.DOESTAX.PROD.FTP.QCOLL
put 'ECNTSUP.DOESTAX.PROD.FTP.PRF' ECNTSUP.DOESTAX.PROD.FTP.PRF
put 'ECNTSUP.DOESTAX.PROD.FTP.DET' ECNTSUP.DOESTAX.PROD.FTP.DET
put 'ECNTSUP.DOESTAX.PROD.FTP.FSC' ECNTSUP.DOESTAX.PROD.FTP.FSC
put 'ECNTSUP.DOESTAX.PROD.FTP.ADR' ECNTSUP.DOESTAX.PROD.FTP.ADR
put 'ECNTSUP.DOESTAX.PROD.FTP.ERR' ECNTSUP.DOESTAX.PROD.FTP.ERR
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN' +
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN
put 'ECNTSUP.DOESTAX.PROD.FTP.AUDIT' ECNTSUP.DOESTAX.PROD.FTP.AUDIT
put 'ECNTSUP.DOESTAX.PROD.FTP.REL' ECNTSUP.DOESTAX.PROD.FTP.REL
put 'ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME' +
ECNTSUP.DOESTAX.PROD.FTP.EMP.NAME
put 'ECNTSUP.DOESTAX.PROD.FTP.OPO' ECNTSUP.DOESTAX.PROD.FTP.OPO
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX206' ECNTSUP.DOESTAX.PROD.FTP.BX206
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//**********************************************************
//COPY1 EXEC PGM=IDCAMS 00851099
//SYSPRINT DD SYSOUT=* 00860099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR 00870099

4
JCL/DTSRQ412.jcl
View File

@ -53,7 +53,7 @@
//* STD BACKUP *AFTER* DATA FILE UPDATE
//* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
//* A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
//STEP0500 EXEC DTSUTVSM,
//*STEP0500 EXEC DTSUTVSM,
//** BKUPGEN='(+2)' /* USE ONLY IF BKP DONE IN STEP0100
// BKUPGEN='(+1)'
//* BKUPGEN='(+1)'
//*

2
JCL/DTSVBKUP.jcl
View File

@ -5,7 +5,7 @@
// REGION=0M 00000514
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000614
//*PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
//**** 00000914
//* UI TAX BACKUP VSAM FILES * 00001000

6
JCL/DTSVRSTR.jcl
View File

@ -26,9 +26,9 @@
//****
//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
//*
//*STEP0100 EXEC DTSURVSM0 00002000
//*STEP0100 EXEC DTSURVSM0 NO LONGER USED 00002000
//** 00003029
//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000
//*STEP0100 EXEC DTSURVSM1 NO LONGER USED - GENERATION NEEDED 00002000
//*
//STEP0100 EXEC DTSURVSM, 00002000
// freq='DAILY',gen=-2,src='PROD',tgt='PROD' 00003029
// freq='DAILY',gen=+0,src='PROD',tgt='PROD' 00003029

62
JCL/FTPESSP01.jcl Normal file
View File

@ -0,0 +1,62 @@
//FTPESSP01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
BINARY
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X102 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X102 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X104 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X106 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X108 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X140 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X144 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X145 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X147 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X999 (replace
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//
//* ZL1 10/19/25.
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
ASCII
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

21
JCL/FTPESSP02.jcl Normal file
View File

@ -0,0 +1,21 @@
//FTPESSP02 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
BINARY
GET ECNTSUP.DOESTAX.CONV.FTP.PFLOTR +
ECNTSUP.DOESTAX.CONV.FTP.PFLOTR (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

66
JCL/FTPESSP99.jcl Normal file
View File

@ -0,0 +1,66 @@
//FTPESSP01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
BINARY
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X102 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X102
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X104
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X106
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD +
ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X108
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X140
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X144
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X145
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X147
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X999
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//
//* ZL1 10/19/25.
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
ASCII
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

40
JCL/FTPGSI01.jcl Normal file
View File

@ -0,0 +1,40 @@
//FTPESSP01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=SFTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147
dutasrc
Today728rc!
binary
cd /Dutasrc/inbound_uibs
GET DOES_Bencharges.txt +
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//
//* ZL1 10/19/25.
//* WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
ASCII
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

20
JCL/FTPTDEC.jcl Normal file
View File

@ -0,0 +1,20 @@
//FTPTDEC01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=SFTP,PARM='(EXIT'
//INPUT DD *
204.111.96.61
tdec_dcw_4
Y6Vf@KUnqA
BINARY
GET DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS +
DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

20
JCL/FTPTDEC01.jcl Normal file
View File

@ -0,0 +1,20 @@
//FTPTDEC01 JOB
//*
//********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
50.76.21.195
tdec_dcw_5
14cw0d8Y
BINARY
GET 'DOES_payments.txt' +
DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

21
JCL/GSIRQ300.jcl
View File

@ -20,3 +20,24 @@
//* 00001700
//STEP0100 EXEC DES300T1 EXTRACT DATA FROM WAGE FILE
//*********************************************************************
/*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/intranet/Outbound_intranet
ascii
put 'ECNTSUP.DOESTAX.PROD.FTP.WAGE.SEQ' +
ECNTSUP.DOESTAX.PROD.FTP.WAGE.SEQ
put 'ECNTSUP.DOESTAX.PROD.FTP.WAGE' +
ECNTSUP.DOESTAX.PROD.FTP.WAGE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*

412
JCL/INITGDG.jcl Normal file
View File

@ -0,0 +1,412 @@
//CREGDG01 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X
//STEP0420 EXEC PGM=IDCAMS, INITIALIZE EMPTY BD400.BTC 00926000
// COND=(0,LT) GENERATION 00927000
//SYSPRINT DD SYSOUT=* 00928000
//INDD01 DD DUMMY 00929000
//OUTDD01 DD DSN=DOESTAX.PROD.BTC(+1), 00929100
// DISP=(,CATLG,DELETE), 00929200
// SPACE=(8192,(100,200),RLSE), 00929500
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00929600
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00929700
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.BTC) -
LIMIT(255) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X425ACHD) -
LIMIT(20) -
EMPTY -
SCRATCH)
//*****************************************************************
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) -
LIMIT(20) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) -
LIMIT(20) -
EMPTY -
SCRATCH)
//
//******************************************************************
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.FAILED.X144) -
LIMIT(10) -
EMPTY - DOESTAX.CONV.CURRMINI
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP.PASSED.X140) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X436PEND.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X436PAID.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.ESSP.PENDING.X145) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.PENDING.X144) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.ESSP.PENDING.X140) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X430PEND.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X430PAID.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//*
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.DEVL.X426.BTC) -
LIMIT(10) -
EMPTY - DOESTAX.CONV.ESSP.X430PAID.TXT
SCRATCH)
//*
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.AMEND.FAILED.X140) -
LIMIT(10) -
EMPTY -
SCRATCH)
//*
//*STEP001 EXEC PGM=IDCAMS
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD *
//* DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) -
//* LIMIT(10) -
//* EMPTY -
//* SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X451PEND.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X451PAID.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX147) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX144) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSPAMEN.DAYX140) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDECESSP.RLSERPW) -
LIMIT(10) -
EMPTY -DOESTAX.CONV.ESSPAMEN.DAYX140
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X530PEND.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
// DOESTAX.CONV.TDECESSP.RLSERPW
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X530PAID.TXT) -
LIMIT(10) -
EMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145DACH) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.TDECESSP.PAYX530) -
LIMIT(10) -
NOEMPTY -
SCRATCH)DOESTAX.CONV.DOESESSP.X145DACH
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=* DOESTAX.PROD.TDECESSP.PAYX530
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145SCHK) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.DOESESSP.X145EACH) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDECESSP.RPTX430)
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X424PEND.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X424PAID.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X421PAID.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//
/STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X421PEND.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//**
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.RPTACH) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X438PEND.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X438PAID.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X425ACHD) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDEC.X429PEND.TXT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.CHKPAY) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.PENDING.X437.PAY) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.X437.BTC) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
// DOESTAX.CONV.ESSP.X437PAID.TXT
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.FROMESSP.BKPX999) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.TDEC.DOES.RPTPAY) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//
//IMPMF04 JOB
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=TMPZ0004,
// DISP=(,PASS,DELETE),
//* DISP=DHR,
// DCB=(LRECL=750,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X303EXP',
// COPY)
//*
//STEP004 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=TMPZ0004,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(CYL,(20,10),RLSE),
//* DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//SYSIN DD *
REPRO IFILE(SORTIN) OFILE(SORTOUT)
/*
//

16
JCL/LOADCHRG.jcl Normal file
View File

@ -0,0 +1,16 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD
SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=200),
// PATH=('E:\flat_files\DOES_Bencharges.txt',
// COPY)

278
JCL/LOADESSP.jcl
View File

@ -1,206 +1,144 @@
//IMPMF04 JOB
//*
//*STEP001 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
//* DISP=(NEW,CATLG,CATLG),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
//* COPY)
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
// DISP=(OLD,DELETE,DELETE)
//*
//LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// DCB=(LRECL=512,RECFM=LSEQ),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD',
// COPY)
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// DCB=(LRECL=512,RECFM=LSEQ),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// COPY)
//*
//STEP015 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP017 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP019 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// COPY)
//*
//STEP021 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP023 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
// CODEPAGE=1252,AUTOENCODE=YES,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// COPY)
//*
//STEP025 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP027 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
/*
//
//*
//STEP029 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(NEW,CATLG,DELETE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(LRECL=80,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*

10
JCL/LOADESSPX999..jcl
View File

@ -9,6 +9,16 @@
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
//* COPY)
//*
//*
//STEP001 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

117
JCL/LOADESSPX999.jcl Normal file
View File

@ -0,0 +1,117 @@
//IMPMF04 JOB
//*
//STEP001 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6547V00',
// COPY)
//
//
//STEP001 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// COPY)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// COPY)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// COPY)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
//*

159
JCL/LOADESSZ.jcl Normal file
View File

@ -0,0 +1,159 @@
//FTPESSP01 JOB
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/essp/inbound_essp
BINARY
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X102' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X102 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X104' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X104 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X106' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X106 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X108' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X108 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X110' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X120' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X140' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X140 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X144' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X144 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X145' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X145 (REPLACE
GET 'ECNTSUP.DOESTAX.CONV.FROMESSP.X147' +
ECNTSUP.DOESTAX.CONV.FROMESSP.X147 (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//
//
//*
//*STEP001 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
//* DISP=(NEW,CATLG,CATLG),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
//* COPY)
//*
// STEP002 EXEC PGM=IEFBR14
// SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// COPY)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// COPY)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// COPY)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//

21
JCL/LOADMSG.JCL Normal file
View File

@ -0,0 +1,21 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//*STEP001 EXEC PGM=IDCAMS
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD *
//* DELETE DOESTAX.PROD.SRTDAILY.DD091525
//* SET MAXCC=0
//*
//*STEP011 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT.DD091525,
//* DISP=(OLD,DELETE,DELETE)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.CONV.ESSP.X480PASS.TXT,
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.ESSP.X480PASS.TXT',
// COPY)

191
JCL/LOADOTH.jcl Normal file
View File

@ -0,0 +1,191 @@
//IMPMF04 JOB
///*STEP005 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
//* DISP=(OLD,DELETE,DELETE)
//*
//*STEP013 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
//* DISP=(NEW,CATLG,DELETE),
//* DCB=(LRECL=109,RECFM=FB),
//* PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
//* COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
/ DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=200,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=109,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=101,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY)
//*
//

77
JCL/LOADOTHRS.jcl
View File

@ -1,20 +1,5 @@
//IMPMF04 JOB
//*
//*STEP005 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
//* DISP=(OLD,DELETE,DELETE)
//*
//*STEP013 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
//* DISP=(NEW,CATLG,DELETE),
//* DCB=(LRECL=109,RECFM=FB),
//* PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
//* COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
@ -40,7 +25,7 @@
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
// COPY)
//STEP005 EXEC PGM=IEFBR14
@ -76,51 +61,6 @@
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*
@ -190,21 +130,6 @@
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE)
//*

16
JCL/LOADPAYT.jcl Normal file
View File

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

41
JCL/LOADREF.jcl Normal file
View File

@ -0,0 +1,41 @@
//IMPMF04 JOB
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=109,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=101,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY)
//*
//

14
JCL/LOADSRTDAY.jcl Normal file
View File

@ -0,0 +1,14 @@
//LOADSRTDAY JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//*
//STEP001 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
// COPY)
//*

44
JCL/LOADSRUJ.jcl Normal file
View File

@ -0,0 +1,44 @@
//IMPMF04 JOB
//*
//*STEP001 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
//* DISP=(NEW,CATLG,CATLG),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6548V00',
//* COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=109,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=101,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY)
//*
//
//

10
JCL/LOADTOCATALOGEXP.jcl Normal file
View File

@ -0,0 +1,10 @@
//* @@HEADER@@
//INICATLG JOB
//STEP020 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0001 DD DSN=DOESTAX.PROD.JOBS.BATCH.LIB(DTSBX305),
// DISP=OLD,
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\Innova\Code\MP\Git\DUTAS\JCL\DTSBX305.jcl',
// COPY)

117
JCL/LOADW4FILE..jcl Normal file
View File

@ -0,0 +1,117 @@
//IMPMF04 JOB
//*
//STEP001 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.PROD.BACKUP.W4FILE(+1),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=FB,LRECL=80),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.BACKUP.W4FILE.G3231V00',
// COPY)
//
//
//STEP001 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// COPY)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// COPY)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// COPY)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
//*

113
JCL/LOADX101.jcl Normal file
View File

@ -0,0 +1,113 @@
//FTPESSP01 JOB
//*
//*********************************************************************
//* // CODEPAGE=1252,AUTOENCODE=YES,
//*
//**
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=VB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101',
// COPY)
//*
//
//STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY)
//*
//STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110',
// COPY)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD',
// COPY)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120',
// COPY)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD',
// COPY)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X140',
// COPY)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144',
// COPY)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X145',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR,
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR,
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//

248
JCL/LOADchgupd.jcl Normal file
View File

@ -0,0 +1,248 @@
//IMPMF04 JOB
//*
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
// COPY)
//
//STEP005 EXEC PGM=IEFBR14
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
// COPY)
//
//
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
/ DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=200,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
// COPY)
//
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0281V00',
// COPY)
//
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
// COPY)
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
// COPY)
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP008 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FTP.PFLOTR',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=VB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP010 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=VB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=VB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
/ DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=200,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)
//*
//

146
JCL/LOADinput.jcl Normal file
View File

@ -0,0 +1,146 @@
//IMPMF04 JOB
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=256,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.AUDIT.X144',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP007 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
/ DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=200,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X150',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X151',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP012 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.X152',
// COPY)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=109,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=101,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=101,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD',
// COPY)
//*
//

2
JCL/LOADmini.jcl
View File

@ -6,7 +6,7 @@
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0270V00',
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0281V00',
// COPY)
//
//STEP005 EXEC PGM=IEFBR14

41
JCL/LOADrREF.jcl Normal file
View File

@ -0,0 +1,41 @@
//IMPMF04 JOB
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0263V00',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=109,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP',
// COPY)
//*
//STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305PARM,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=101,RECFM=FB),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY)
//*
//

28
JCL/ReprintReports.jcl
View File

@ -13,8 +13,8 @@
//STEP0100 EXEC PGM=SORT, 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD080925,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(-2),DISP=SHR 00005099
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G0004V00,DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.SOAMONTH(+0),DISP=SHR
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
@ -33,7 +33,7 @@
//SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
//PARMIN DD * 00018899
DTSBD800,INC,503 00019199
DTSBD800,INC,102 00019199
/* 00019599
//** 00019699
//ATLSTIN DD * 00020000
@ -53,14 +53,26 @@ DTSBD800, 00030000
//* 00090099
//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199
//RPT503R1 DD SYSOUT=X 00100299
//*RPT102R1 DD DSN=DOESTAX.PROD.RPT102Z1,
//RPT102R1 DD DSN=DOESTAX.PROD.RPT102M1,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FBM,LRECL=134,BLKSIZE=1340),
// SPACE=(TRK,(5,5)) 00100299
//*RPT102R1 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=*
//RPT503R2 DD SYSOUT=X 00100299
//RPT325R1 DD SYSOUT=X 00100299
//RPT405R1 DD SYSOUT=* 00100299
//RPT405R2 DD SYSOUT=* 00100299
//RPT412R1 DD SYSOUT=* 00100299
//RPT412R2 DD SYSOUT=* 00100299
//RPT412R3 DD SYSOUT=* 00100299
//*RPC110R2 DD DSN=DOESTAX.PROD.RPC110R2,
//* DISP=(NEW,CATLG,DELETE),
//* DCB=(RECFM=FBA,LRECL=134,BLKSIZE=1340),
//* SPACE=(TRK,(5,5))
//RPT414R1 DD DSN=DOESTAX.PROD.RPT414R1,DISP=SHR 00299
//RPT414R2 DD DUMMY
//RPT414R3 DD DUMMY
//RPT414R4 DD DUMMY
//RPT414R5 DD DUMMY
//RPT414R6 DD DUMMY 00100299
//RPT530R1 DD SYSOUT=* 00100299
//RPT909R8 DD SYSOUT=* 00100299
//RPT909R9 DD SYSOUT=* 00100299
@ -79,5 +91,5 @@ DTSBD800, 00030000
//RPT321R3 DD SYSOUT=* 00100299
//RPT321R4 DD SYSOUT=* 00100299
//RPT332R1 DD SYSOUT=* 00100299
//RPT332R2 DD SYSOUT=* 00100299
//RPT980R1 DD SYSOUT=* 00100299
//

146
JCL/ZDTSGCHKS.jcl Normal file
View File

@ -0,0 +1,146 @@
//DTSGCHKS JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTNH1
/*ROUTE PRINT U@PRT65
//********************************************************************
//**** TDEC DEPOSIT CHECK FILE ENCRYPTED USING PKZIP
//**** WITH OCTO DATA CENTER PUBLIC KEY.
//****
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//**** raincode tested 8/20 zl1
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
// SET CURRQTR='Q20252Q2'
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES'
// SET LHOLD='YES'
// SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//*LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//*
//********************************************************************
//**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
//*********************************************************************
//STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//********************************************************************
//*
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRECK),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR
//*
//********************************************************************
//**** DECRYPT TDEC CHECKS FILE INTO TEXTOUT
//********************************************************************
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//*** COPY TDEC DAILY CHECKS FILE TO BBACKUP FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//*** COPY TDEC DAILY CHECKS FILE TO BACKUP QTR FILE
//**
//********************************************************************
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR.,
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//COPYFTPS EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=MOD,
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//*
//********************************************************************
//**** DELETE TDEC ENCRYPTED CHECK FILE
//********************************************************************
//*TDECDEL EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRCHK),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
//*
//*
//STEP0200 EXEC DTSBXCHK
//*
//*STEP0300 EXEC DTSRSESP
//***
//* REPORT GENERATION
//*STEP0400 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//**
**************************** BOTTOM OF DATA ****************************

9
JCL/copymailfile.jcl
View File

@ -2,14 +2,15 @@
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101
DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT
SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101,
//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=VB,LRECL=256,BLKSIZE=0),
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101',
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120),
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
// COPY)

2
JCL/createGDG.jcl
View File

@ -2,7 +2,7 @@
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.CONV.ESSP.BX420.RPT) -
DEFINE GDG(NAME(DOESTAX.CONV.TDECDOES.DAILY.CHKS) -
LIMIT(255) -
EMPTY -
SCRATCH)

703
Maps/DTSM73.bms
View File

@ -1,351 +1,352 @@
* DATA SET DTSM73 AT LEVEL 008 AS OF 12/14/09
* DATA SET DTSM73 AT LEVEL 003 AS OF 11/30/09 00001
* DATA SET DTSM73 AT LEVEL 006 AS OF 03/28/07 00002
* DATA SET DTSM73 AT LEVEL 011 AS OF 03/06/07 00003
* DATA SET DTSM73 AT LEVEL 004 AS OF 09/29/98 00004
* DATA SET MACM73 AT LEVEL 010 AS OF 01/23/95 00005
DTSM73 DFHMDI SIZE=(24,80), X00006
LINE=01, X00007
COLUMN=01 00008
F730101 DFHMDF POS=(01,01), X00009
ATTRB=(ASKIP,FSET), X00010
LENGTH=002, X00011
INITIAL='73' 00012
DFHMDF POS=(01,24), X00013
ATTRB=(ASKIP), X00014
LENGTH=024, X00015
INITIAL='EVENT LOG INQUIRY/UPDATE' 00016
F730162 DFHMDF POS=(01,62), X00017
ATTRB=(ASKIP), X00018
LENGTH=008 00019
F730172 DFHMDF POS=(01,72), X00020
ATTRB=(ASKIP), X00021
LENGTH=008 00022
F730272 DFHMDF POS=(02,72), X00023
ATTRB=(ASKIP), X00024
LENGTH=008 00025
DFHMDF POS=(03,04), X00026
ATTRB=(ASKIP), X00027
LENGTH=007, X00028
INITIAL='EMP NO:' 00029
F730312 DFHMDF POS=(03,12), X00030
ATTRB=(ASKIP), X00031
LENGTH=003 00032
F730316 DFHMDF POS=(03,16), X00033
ATTRB=(ASKIP), X00034
LENGTH=003 00035
DFHMDF POS=(03,20), X00036
ATTRB=(ASKIP), X00037
LENGTH=001 00038
F730323 DFHMDF POS=(03,23), X00039
ATTRB=(ASKIP), X00040
LENGTH=040 00041
F730370 DFHMDF POS=(03,70), X00042
ATTRB=(ASKIP), X00043
LENGTH=003 00044
DFHMDF POS=(03,74), X00045
ATTRB=(ASKIP), X00046
LENGTH=002, X00047
INITIAL='OF' 00048
F730377 DFHMDF POS=(03,77), X00049
ATTRB=(ASKIP), X00050
LENGTH=003 00051
F730404 DFHMDF POS=(05,04), X00052
ATTRB=(ASKIP), X00053
LENGTH=001, X00054
INITIAL='_' 00055
DFHMDF POS=(05,06), X00056
ATTRB=(ASKIP), X00057
LENGTH=006, X00058
INITIAL='STATUS' 00059
F730416 DFHMDF POS=(05,16), X00060
ATTRB=(ASKIP), X00061
LENGTH=001, X00062
INITIAL='_' 00063
DFHMDF POS=(05,18), X00064
ATTRB=(ASKIP), X00065
LENGTH=010, X00066
INITIAL='ACCOUNTING' 00067
F730431 DFHMDF POS=(05,31), X00068
ATTRB=(ASKIP), X00069
LENGTH=001, X00070
INITIAL='_' 00071
DFHMDF POS=(05,33), X00072
ATTRB=(ASKIP), X00073
LENGTH=011, X00074
INITIAL='COLLECTIONS' 00075
F730447 DFHMDF POS=(05,47), X00076
ATTRB=(ASKIP), X00077
LENGTH=001, X00078
INITIAL='_' 00079
DFHMDF POS=(05,49), X00080
ATTRB=(ASKIP), X00081
LENGTH=006, X00082
INITIAL='RATING' 00083
F730458 DFHMDF POS=(05,58), X00084
ATTRB=(ASKIP), X00085
LENGTH=001, X00086
INITIAL='_' 00087
DFHMDF POS=(05,60), X00088
ATTRB=(ASKIP), X00089
LENGTH=005, X00090
INITIAL='AUDIT' 00091
F730558 DFHMDF POS=(05,67), X00092
ATTRB=(ASKIP), X00093
LENGTH=001, X00094
INITIAL='_' 00095
DFHMDF POS=(05,69), X00096
ATTRB=(ASKIP), X00097
LENGTH=008, X00098
INITIAL='APPROVAL' 00099
DFHMDF POS=(07,04), X00100
ATTRB=(ASKIP), X00101
LENGTH=011, X00102
INITIAL='EVENT DATE:' 00103
F730516 DFHMDF POS=(07,16), X00104
ATTRB=(ASKIP), X00105
LENGTH=002 00106
F730519 DFHMDF POS=(07,19), X00107
ATTRB=(ASKIP), X00108
LENGTH=002 00109
F730522 DFHMDF POS=(07,22), X00110
ATTRB=(ASKIP), X00111
LENGTH=002 00112
DFHMDF POS=(07,25), X00113
ATTRB=(ASKIP), X00114
LENGTH=001 00115
DFHMDF POS=(07,30), X00116
ATTRB=(ASKIP), X00117
LENGTH=011, X00118
INITIAL='EVENT TIME:' 00119
F730716 DFHMDF POS=(07,42), X00120
ATTRB=(ASKIP), X00121
LENGTH=002 00122
F730719 DFHMDF POS=(07,45), X00123
ATTRB=(ASKIP), X00124
LENGTH=002 00125
F730722 DFHMDF POS=(07,48), X00126
ATTRB=(ASKIP), X00127
LENGTH=002 00128
DFHMDF POS=(07,51), X00129
ATTRB=(ASKIP), X00130
LENGTH=001 00131
DFHMDF POS=(09,03), X00132
ATTRB=(ASKIP), X00133
LENGTH=012, X00134
INITIAL='DESCRIPTION:' 00135
F730916 DFHMDF POS=(09,16), X00136
ATTRB=(ASKIP), X00137
LENGTH=050 00138
DFHMDF POS=(09,67), X00139
ATTRB=(ASKIP), X00140
LENGTH=001 00141
DFHMDF POS=(11,01), X00142
ATTRB=(ASKIP), X00143
LENGTH=014, X00144
INITIAL='INITIATING OP:' 00145
F731116 DFHMDF POS=(11,16), X00146
ATTRB=(ASKIP), X00147
LENGTH=008 00148
DFHMDF POS=(11,25), X00149
ATTRB=(ASKIP), X00150
LENGTH=001 00151
F731126 DFHMDF POS=(11,28), X00152
ATTRB=(ASKIP), X00153
LENGTH=032 00154
F731304 DFHMDF POS=(13,02), X00155
ATTRB=(ASKIP), X00156
LENGTH=001, X00157
INITIAL='_' 00158
DFHMDF POS=(13,04), X00159
ATTRB=(ASKIP), X00160
LENGTH=026, X00161
INITIAL='PHONE CALL TO EMPLOYER ' 00162
F731335 DFHMDF POS=(13,35), X00163
ATTRB=(ASKIP), X00164
LENGTH=001, X00165
INITIAL='_' 00166
DFHMDF POS=(13,37), X00167
ATTRB=(ASKIP), X00168
LENGTH=026, X00169
INITIAL='PROCESS CALL/LETTER/NOTICE' 00170
F731404 DFHMDF POS=(14,02), X00171
ATTRB=(ASKIP), X00172
LENGTH=001, X00173
INITIAL='_' 00174
DFHMDF POS=(14,04), X00175
ATTRB=(ASKIP), X00176
LENGTH=026, X00177
INITIAL='PHONE CALL TO AGENT ' 00178
F731435 DFHMDF POS=(14,35), X00179
ATTRB=(ASKIP), X00180
LENGTH=001, X00181
INITIAL='_' 00182
DFHMDF POS=(14,37), X00183
ATTRB=(ASKIP), X00184
LENGTH=026, X00185
INITIAL='SEND FR-500 ' 00186
F731504 DFHMDF POS=(15,02), X00187
ATTRB=(ASKIP), X00188
LENGTH=001, X00189
INITIAL='_' 00190
DFHMDF POS=(15,04), X00191
ATTRB=(ASKIP), X00192
LENGTH=026, X00193
INITIAL='LETTER TO EMPLOYER ' 00194
F731535 DFHMDF POS=(15,35), X00195
ATTRB=(ASKIP), X00196
LENGTH=001, X00197
INITIAL='_' 00198
DFHMDF POS=(15,37), X00199
ATTRB=(ASKIP), X00200
LENGTH=026, X00201
INITIAL='SEND UC30/UC30H ' 00202
F731604 DFHMDF POS=(16,02), X00203
ATTRB=(ASKIP), X00204
LENGTH=001, X00205
INITIAL='_' 00206
DFHMDF POS=(16,04), X00207
ATTRB=(ASKIP), X00208
LENGTH=026, X00209
INITIAL='LETTER TO AGENT ' 00210
F731635 DFHMDF POS=(16,35), X00211
ATTRB=(ASKIP), X00212
LENGTH=001, X00213
INITIAL='_' 00214
DFHMDF POS=(16,37), X00215
ATTRB=(ASKIP), X00216
LENGTH=026, X00217
INITIAL='SEND 226 ' 00218
F731704 DFHMDF POS=(17,02), X00219
ATTRB=(ASKIP), X00220
LENGTH=001, X00221
INITIAL='_' 00222
DFHMDF POS=(17,04), X00223
ATTRB=(ASKIP), X00224
LENGTH=026, X00225
INITIAL='FIELD VISIT ' 00226
F731735 DFHMDF POS=(17,35), X00227
ATTRB=(ASKIP), X00228
LENGTH=001, X00229
INITIAL='_' 00230
DFHMDF POS=(17,37), X00231
ATTRB=(ASKIP), X00232
LENGTH=026, X00233
INITIAL='RESOLVE BLOCKED CLAIM ' 00234
F731804 DFHMDF POS=(18,02), X00235
ATTRB=(ASKIP), X00236
LENGTH=001, X00237
INITIAL='_' 00238
DFHMDF POS=(18,04), X00239
ATTRB=(ASKIP), X00240
LENGTH=026, X00241
INITIAL='SEARCH TAX SYSTEM ' 00242
F731835 DFHMDF POS=(18,35), X00243
ATTRB=(ASKIP), X00244
LENGTH=001, X00245
INITIAL='_' 00246
DFHMDF POS=(18,37), X00247
ATTRB=(ASKIP), X00248
LENGTH=026, X00249
INITIAL='PRE AUDIT WRITE UP ' 00250
F731904 DFHMDF POS=(19,02), X00251
ATTRB=(ASKIP), X00252
LENGTH=001, X00253
INITIAL='_' 00254
DFHMDF POS=(19,04), X00255
ATTRB=(ASKIP), X00256
LENGTH=026, X00257
INITIAL='SEARCH EXTERNAL SOURCES ' 00258
F731935 DFHMDF POS=(19,35), X00259
ATTRB=(ASKIP), X00260
LENGTH=001, X00261
INITIAL='_' 00262
DFHMDF POS=(19,37), X00263
ATTRB=(ASKIP), X00264
LENGTH=026, X00265
INITIAL='EMPLOYER VISIT ' 00266
F732004 DFHMDF POS=(20,02), X00267
ATTRB=(ASKIP), X00268
LENGTH=001, X00269
INITIAL='_' 00270
DFHMDF POS=(20,04), X00271
ATTRB=(ASKIP), X00272
LENGTH=026, X00273
INITIAL='SEARCH FILES ' 00274
F732035 DFHMDF POS=(20,35), X00275
ATTRB=(ASKIP), X00276
LENGTH=001, X00277
INITIAL='_' 00278
DFHMDF POS=(20,37), X00279
ATTRB=(ASKIP), X00280
LENGTH=035, X00281
INITIAL='PREDECESSOR/SUCCESSOR RELATIONSHIPS' 00282
F732104 DFHMDF POS=(21,02), X00283
ATTRB=(ASKIP), X00284
LENGTH=001, X00285
INITIAL='_' 00286
DFHMDF POS=(21,04), X00287
ATTRB=(ASKIP), X00288
LENGTH=026, X00289
INITIAL='INACTIVATION/CHANGE IN SOL' 00290
F732135 DFHMDF POS=(21,35), X00291
ATTRB=(ASKIP), X00292
LENGTH=001, X00293
INITIAL='_' 00294
DFHMDF POS=(21,37), X00295
ATTRB=(ASKIP), X00296
LENGTH=035, X00297
INITIAL='RATE CHANGE ' 00298
DFHMDF POS=(22,35), X00299
ATTRB=(ASKIP), X00300
LENGTH=010, X00301
INITIAL='ESTB DATE:' 00302
F731316 DFHMDF POS=(22,46), X00303
ATTRB=(ASKIP), X00304
LENGTH=008 00305
DFHMDF POS=(22,55), X00306
ATTRB=(ASKIP), X00307
LENGTH=012, X00308
INITIAL='CHANGE DATE:' 00309
F731516 DFHMDF POS=(22,68), X00310
ATTRB=(ASKIP), X00311
LENGTH=008 00312
F732301 DFHMDF POS=(23,01), X00313
ATTRB=(ASKIP), X00314
LENGTH=008 00315
F732310 DFHMDF POS=(23,10), X00316
ATTRB=(ASKIP), X00317
LENGTH=007 00318
F732318 DFHMDF POS=(23,18), X00319
ATTRB=(ASKIP), X00320
LENGTH=007 00321
F732326 DFHMDF POS=(23,26), X00322
ATTRB=(ASKIP), X00323
LENGTH=007 00324
F732334 DFHMDF POS=(23,34), X00325
ATTRB=(ASKIP), X00326
LENGTH=006 00327
F732341 DFHMDF POS=(23,41), X00328
ATTRB=(ASKIP), X00329
LENGTH=007 00330
F732349 DFHMDF POS=(23,49), X00331
ATTRB=(ASKIP), X00332
LENGTH=007 00333
F732401 DFHMDF POS=(24,01), X00334
ATTRB=(ASKIP), X00335
LENGTH=008 00336
F732410 DFHMDF POS=(24,10), X00337
ATTRB=(ASKIP), X00338
LENGTH=058 00339
DFHMDF POS=(24,69), X00340
ATTRB=(ASKIP), X00341
LENGTH=006, X00342
INITIAL='GO TO:' 00343
F732476 DFHMDF POS=(24,76), X00344
ATTRB=(ASKIP), X00345
LENGTH=002 00346
DFHMDF POS=(24,79), X00347
ATTRB=(ASKIP), X00348
LENGTH=001 00349
SPACE 00350
* DATA SET DTSM73 AT LEVEL 002 AS OF 10/10/12
* DATA SET DTSM73 AT LEVEL 008 AS OF 12/14/09 00001
* DATA SET DTSM73 AT LEVEL 003 AS OF 11/30/09 00002
* DATA SET DTSM73 AT LEVEL 006 AS OF 03/28/07 00003
* DATA SET DTSM73 AT LEVEL 011 AS OF 03/06/07 00004
* DATA SET DTSM73 AT LEVEL 004 AS OF 09/29/98 00005
* DATA SET MACM73 AT LEVEL 010 AS OF 01/23/95 00006
DTSM73 DFHMDI SIZE=(24,80), X00007
LINE=01, X00008
COLUMN=01 00009
F730101 DFHMDF POS=(01,01), X00010
ATTRB=(ASKIP,FSET), X00011
LENGTH=002, X00012
INITIAL='73' 00013
DFHMDF POS=(01,24), X00014
ATTRB=(ASKIP), X00015
LENGTH=024, X00016
INITIAL='EVENT LOG INQUIRY/UPDATE' 00017
F730162 DFHMDF POS=(01,62), X00018
ATTRB=(ASKIP), X00019
LENGTH=008 00020
F730172 DFHMDF POS=(01,72), X00021
ATTRB=(ASKIP), X00022
LENGTH=008 00023
F730272 DFHMDF POS=(02,72), X00024
ATTRB=(ASKIP), X00025
LENGTH=008 00026
DFHMDF POS=(03,04), X00027
ATTRB=(ASKIP), X00028
LENGTH=007, X00029
INITIAL='EMP NO:' 00030
F730312 DFHMDF POS=(03,12), X00031
ATTRB=(ASKIP), X00032
LENGTH=003 00033
F730316 DFHMDF POS=(03,16), X00034
ATTRB=(ASKIP), X00035
LENGTH=003 00036
DFHMDF POS=(03,20), X00037
ATTRB=(ASKIP), X00038
LENGTH=001 00039
F730323 DFHMDF POS=(03,23), X00040
ATTRB=(ASKIP), X00041
LENGTH=040 00042
F730370 DFHMDF POS=(03,70), X00043
ATTRB=(ASKIP), X00044
LENGTH=003 00045
DFHMDF POS=(03,74), X00046
ATTRB=(ASKIP), X00047
LENGTH=002, X00048
INITIAL='OF' 00049
F730377 DFHMDF POS=(03,77), X00050
ATTRB=(ASKIP), X00051
LENGTH=003 00052
F730404 DFHMDF POS=(05,04), X00053
ATTRB=(ASKIP), X00054
LENGTH=001, X00055
INITIAL='_' 00056
DFHMDF POS=(05,06), X00057
ATTRB=(ASKIP), X00058
LENGTH=006, X00059
INITIAL='STATUS' 00060
F730416 DFHMDF POS=(05,16), X00061
ATTRB=(ASKIP), X00062
LENGTH=001, X00063
INITIAL='_' 00064
DFHMDF POS=(05,18), X00065
ATTRB=(ASKIP), X00066
LENGTH=010, X00067
INITIAL='ACCOUNTING' 00068
F730431 DFHMDF POS=(05,31), X00069
ATTRB=(ASKIP), X00070
LENGTH=001, X00071
INITIAL='_' 00072
DFHMDF POS=(05,33), X00073
ATTRB=(ASKIP), X00074
LENGTH=011, X00075
INITIAL='COLLECTIONS' 00076
F730447 DFHMDF POS=(05,47), X00077
ATTRB=(ASKIP), X00078
LENGTH=001, X00079
INITIAL='_' 00080
DFHMDF POS=(05,49), X00081
ATTRB=(ASKIP), X00082
LENGTH=006, X00083
INITIAL='RATING' 00084
F730458 DFHMDF POS=(05,58), X00085
ATTRB=(ASKIP), X00086
LENGTH=001, X00087
INITIAL='_' 00088
DFHMDF POS=(05,60), X00089
ATTRB=(ASKIP), X00090
LENGTH=005, X00091
INITIAL='AUDIT' 00092
F730558 DFHMDF POS=(05,67), X00093
ATTRB=(ASKIP), X00094
LENGTH=001, X00095
INITIAL='_' 00096
DFHMDF POS=(05,69), X00097
ATTRB=(ASKIP), X00098
LENGTH=008, X00099
INITIAL='APPROVAL' 00100
DFHMDF POS=(07,04), X00101
ATTRB=(ASKIP), X00102
LENGTH=011, X00103
INITIAL='EVENT DATE:' 00104
F730516 DFHMDF POS=(07,16), X00105
ATTRB=(ASKIP), X00106
LENGTH=002 00107
F730519 DFHMDF POS=(07,19), X00108
ATTRB=(ASKIP), X00109
LENGTH=002 00110
F730522 DFHMDF POS=(07,22), X00111
ATTRB=(ASKIP), X00112
LENGTH=002 00113
DFHMDF POS=(07,25), X00114
ATTRB=(ASKIP), X00115
LENGTH=001 00116
DFHMDF POS=(07,30), X00117
ATTRB=(ASKIP), X00118
LENGTH=011, X00119
INITIAL='EVENT TIME:' 00120
F730716 DFHMDF POS=(07,42), X00121
ATTRB=(ASKIP), X00122
LENGTH=002 00123
F730719 DFHMDF POS=(07,45), X00124
ATTRB=(ASKIP), X00125
LENGTH=002 00126
F730722 DFHMDF POS=(07,48), X00127
ATTRB=(ASKIP), X00128
LENGTH=002 00129
DFHMDF POS=(07,51), X00130
ATTRB=(ASKIP), X00131
LENGTH=001 00132
DFHMDF POS=(09,03), X00133
ATTRB=(ASKIP), X00134
LENGTH=012, X00135
INITIAL='DESCRIPTION:' 00136
F730916 DFHMDF POS=(09,16), X00137
ATTRB=(ASKIP), X00138
LENGTH=050 00139
DFHMDF POS=(09,67), X00140
ATTRB=(ASKIP), X00141
LENGTH=001 00142
DFHMDF POS=(11,01), X00143
ATTRB=(ASKIP), X00144
LENGTH=014, X00145
INITIAL='INITIATING OP:' 00146
F731116 DFHMDF POS=(11,16), X00147
ATTRB=(ASKIP), X00148
LENGTH=008 00149
DFHMDF POS=(11,25), X00150
ATTRB=(ASKIP), X00151
LENGTH=001 00152
F731126 DFHMDF POS=(11,28), X00153
ATTRB=(ASKIP), X00154
LENGTH=032 00155
F731304 DFHMDF POS=(13,02), X00156
ATTRB=(ASKIP), X00157
LENGTH=001, X00158
INITIAL='_' 00159
DFHMDF POS=(13,04), X00160
ATTRB=(ASKIP), X00161
LENGTH=026, X00162
INITIAL='PHONE CALL TO EMPLOYER ' 00163
F731335 DFHMDF POS=(13,35), X00164
ATTRB=(ASKIP), X00165
LENGTH=001, X00166
INITIAL='_' 00167
DFHMDF POS=(13,37), X00168
ATTRB=(ASKIP), X00169
LENGTH=026, X00170
INITIAL='PROCESS CALL/LETTER/NOTICE' 00171
F731404 DFHMDF POS=(14,02), X00172
ATTRB=(ASKIP), X00173
LENGTH=001, X00174
INITIAL='_' 00175
DFHMDF POS=(14,04), X00176
ATTRB=(ASKIP), X00177
LENGTH=026, X00178
INITIAL='PHONE CALL TO AGENT ' 00179
F731435 DFHMDF POS=(14,35), X00180
ATTRB=(ASKIP), X00181
LENGTH=001, X00182
INITIAL='_' 00183
DFHMDF POS=(14,37), X00184
ATTRB=(ASKIP), X00185
LENGTH=026, X00186
INITIAL='SEND FR-500 ' 00187
F731504 DFHMDF POS=(15,02), X00188
ATTRB=(ASKIP), X00189
LENGTH=001, X00190
INITIAL='_' 00191
DFHMDF POS=(15,04), X00192
ATTRB=(ASKIP), X00193
LENGTH=026, X00194
INITIAL='LETTER TO EMPLOYER/AGENT ' 00195**2
F731535 DFHMDF POS=(15,35), X00196
ATTRB=(ASKIP), X00197
LENGTH=001, X00198
INITIAL='_' 00199
DFHMDF POS=(15,37), X00200
ATTRB=(ASKIP), X00201
LENGTH=026, X00202
INITIAL='SEND UC30/UC30H ' 00203
F731604 DFHMDF POS=(16,02), X00204
ATTRB=(ASKIP), X00205
LENGTH=001, X00206
INITIAL='_' 00207
DFHMDF POS=(16,04), X00208
ATTRB=(ASKIP), X00209
LENGTH=026, X00210
INITIAL='FIELD VISIT ' 00211**2
F731635 DFHMDF POS=(16,35), X00212
ATTRB=(ASKIP), X00213
LENGTH=001, X00214
INITIAL='_' 00215
DFHMDF POS=(16,37), X00216
ATTRB=(ASKIP), X00217
LENGTH=026, X00218
INITIAL='SEND 226 ' 00219
F731704 DFHMDF POS=(17,02), X00220
ATTRB=(ASKIP), X00221
LENGTH=001, X00222
INITIAL='_' 00223
DFHMDF POS=(17,04), X00224
ATTRB=(ASKIP), X00225
LENGTH=026, X00226
INITIAL='SEARCH TAX SYSTEM ' 00227**2
F731735 DFHMDF POS=(17,35), X00228
ATTRB=(ASKIP), X00229
LENGTH=001, X00230
INITIAL='_' 00231
DFHMDF POS=(17,37), X00232
ATTRB=(ASKIP), X00233
LENGTH=026, X00234
INITIAL='RESOLVE BLOCKED CLAIM ' 00235
F731804 DFHMDF POS=(18,02), X00236
ATTRB=(ASKIP), X00237
LENGTH=001, X00238
INITIAL='_' 00239
DFHMDF POS=(18,04), X00240
ATTRB=(ASKIP), X00241
LENGTH=026, X00242
INITIAL='SEARCH EXTERNAL SOURCES ' 00243**2
F731835 DFHMDF POS=(18,35), X00244
ATTRB=(ASKIP), X00245
LENGTH=001, X00246
INITIAL='_' 00247
DFHMDF POS=(18,37), X00248
ATTRB=(ASKIP), X00249
LENGTH=026, X00250
INITIAL='PRE AUDIT WRITE UP ' 00251
F731904 DFHMDF POS=(19,02), X00252
ATTRB=(ASKIP), X00253
LENGTH=001, X00254
INITIAL='_' 00255
DFHMDF POS=(19,04), X00256
ATTRB=(ASKIP), X00257
LENGTH=026, X00258
INITIAL='SEARCH FILES ' 00259**2
F731935 DFHMDF POS=(19,35), X00260
ATTRB=(ASKIP), X00261
LENGTH=001, X00262
INITIAL='_' 00263
DFHMDF POS=(19,37), X00264
ATTRB=(ASKIP), X00265
LENGTH=026, X00266
INITIAL='EMPLOYER VISIT ' 00267
F732004 DFHMDF POS=(20,02), X00268
ATTRB=(ASKIP), X00269
LENGTH=001, X00270
INITIAL='_' 00271
DFHMDF POS=(20,04), X00272
ATTRB=(ASKIP), X00273
LENGTH=026, X00274
INITIAL='INACTIVATION/CHANGE IN SOL' 00275**2
F732035 DFHMDF POS=(20,35), X00276
ATTRB=(ASKIP), X00277
LENGTH=001, X00278
INITIAL='_' 00279
DFHMDF POS=(20,37), X00280
ATTRB=(ASKIP), X00281
LENGTH=035, X00282
INITIAL='PREDECESSOR/SUCCESSOR RELATIONSHIPS' 00283
F732104 DFHMDF POS=(21,02), X00284
ATTRB=(ASKIP), X00285
LENGTH=001, X00286
INITIAL='_' 00287
DFHMDF POS=(21,04), X00288
ATTRB=(ASKIP), X00289
LENGTH=026, X00290
INITIAL='RATE CHANGE ' 00291**2
F732135 DFHMDF POS=(21,35), X00292
ATTRB=(ASKIP), X00293
LENGTH=001, X00294
INITIAL='_' 00295
DFHMDF POS=(21,37), X00296
ATTRB=(ASKIP), X00297
LENGTH=035, X00298
INITIAL='WRITE OFF ' 00299**2
DFHMDF POS=(22,35), X00300
ATTRB=(ASKIP), X00301
LENGTH=010, X00302
INITIAL='ESTB DATE:' 00303
F731316 DFHMDF POS=(22,46), X00304
ATTRB=(ASKIP), X00305
LENGTH=008 00306
DFHMDF POS=(22,55), X00307
ATTRB=(ASKIP), X00308
LENGTH=012, X00309
INITIAL='CHANGE DATE:' 00310
F731516 DFHMDF POS=(22,68), X00311
ATTRB=(ASKIP), X00312
LENGTH=008 00313
F732301 DFHMDF POS=(23,01), X00314
ATTRB=(ASKIP), X00315
LENGTH=008 00316
F732310 DFHMDF POS=(23,10), X00317
ATTRB=(ASKIP), X00318
LENGTH=007 00319
F732318 DFHMDF POS=(23,18), X00320
ATTRB=(ASKIP), X00321
LENGTH=007 00322
F732326 DFHMDF POS=(23,26), X00323
ATTRB=(ASKIP), X00324
LENGTH=007 00325
F732334 DFHMDF POS=(23,34), X00326
ATTRB=(ASKIP), X00327
LENGTH=006 00328
F732341 DFHMDF POS=(23,41), X00329
ATTRB=(ASKIP), X00330
LENGTH=007 00331
F732349 DFHMDF POS=(23,49), X00332
ATTRB=(ASKIP), X00333
LENGTH=007 00334
F732401 DFHMDF POS=(24,01), X00335
ATTRB=(ASKIP), X00336
LENGTH=008 00337
F732410 DFHMDF POS=(24,10), X00338
ATTRB=(ASKIP), X00339
LENGTH=058 00340
DFHMDF POS=(24,69), X00341
ATTRB=(ASKIP), X00342
LENGTH=006, X00343
INITIAL='GO TO:' 00344
F732476 DFHMDF POS=(24,76), X00345
ATTRB=(ASKIP), X00346
LENGTH=002 00347
DFHMDF POS=(24,79), X00348
ATTRB=(ASKIP), X00349
LENGTH=001 00350
SPACE 00351

16
Maps/DTSMSET.xml
View File

@ -59083,7 +59083,7 @@
</BMSField>
<BMSField
Length="26"
Initial="LETTER TO EMPLOYER "
Initial="LETTER TO EMPLOYER/AGENT "
Line="15"
Col="4"
>
@ -59131,7 +59131,7 @@
</BMSField>
<BMSField
Length="26"
Initial="LETTER TO AGENT "
Initial="FIELD VISIT "
Line="16"
Col="4"
>
@ -59179,7 +59179,7 @@
</BMSField>
<BMSField
Length="26"
Initial="FIELD VISIT "
Initial="SEARCH TAX SYSTEM "
Line="17"
Col="4"
>
@ -59227,7 +59227,7 @@
</BMSField>
<BMSField
Length="26"
Initial="SEARCH TAX SYSTEM "
Initial="SEARCH EXTERNAL SOURCES "
Line="18"
Col="4"
>
@ -59275,7 +59275,7 @@
</BMSField>
<BMSField
Length="26"
Initial="SEARCH EXTERNAL SOURCES "
Initial="SEARCH FILES "
Line="19"
Col="4"
>
@ -59323,7 +59323,7 @@
</BMSField>
<BMSField
Length="26"
Initial="SEARCH FILES "
Initial="INACTIVATION/CHANGE IN SOL"
Line="20"
Col="4"
>
@ -59371,7 +59371,7 @@
</BMSField>
<BMSField
Length="26"
Initial="INACTIVATION/CHANGE IN SOL"
Initial="RATE CHANGE "
Line="21"
Col="4"
>
@ -59395,7 +59395,7 @@
</BMSField>
<BMSField
Length="35"
Initial="RATE CHANGE "
Initial="WRITE OFF "
Line="21"
Col="37"
>

59
Procs/(DTSUTVSM).seq
View File

@ -1,21 +1,21 @@
//BACKUP JOB
??*
//STEP002 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTA'
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTA'
//SYSPRINT DD SYSOUT=*
//*
//STEP003 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTB'
//STEP002 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTB'
//SYSPRINT DD SYSOUT=*
//*
//STEP004 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTC'
//STEP003 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTC'
//SYSPRINT DD SYSOUT=*
//*
//STEP005 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTD'
//STEP004 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTD'
//SYSPRINT DD SYSOUT=*
//*
//STEP006 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTE'
//STEP005 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTE'
//SYSPRINT DD SYSOUT=*
//*
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTF'
//STEP006 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTF'
//SYSPRINT DD SYSOUT=*
//*
//STEP007 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTG'
@ -24,42 +24,61 @@
//STEP008 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTH'
//SYSPRINT DD SYSOUT=*
//*
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTI'
//STEP009 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTI'
//SYSPRINT DD SYSOUT=*
//*
//STEP001 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTJ'
//STEP010 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTJ'
//SYSPRINT DD SYSOUT=*
//*
//STEP009 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.AIX'
//STEP011 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.AIX'
//SYSPRINT DD SYSOUT=*
//*
//STEP010 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.ATC'
//STEP012 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.ATC'
//SYSPRINT DD SYSOUT=*
//*
//*STEP011 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.BTC'
//*SYSPRINT DD SYSOUT=*
//*
//STEP012 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.OLA'
//STEP013 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.ATH'
//SYSPRINT DD SYSOUT=*
//*
//STEP013 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.REF'
//STEP014 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.OLA'
//SYSPRINT DD SYSOUT=*
//*
//STEP015 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME'
//STEP015 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.REF'
//SYSPRINT DD SYSOUT=*
//*
//STEP016 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WESQ'
//STEP016 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WAGE.NAME'
//SYSPRINT DD SYSOUT=*
//*
//STEP017 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WG2'
//STEP017 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WAGENAME'
//SYSPRINT DD SYSOUT=*
//*
//STEP018 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WGH'
//STEP018 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WESQ'
//SYSPRINT DD SYSOUT=*
//*
//STEP019 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WG2'
//SYSPRINT DD SYSOUT=*
//*
//STEP020 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WGH'
//SYSPRINT DD SYSOUT=*
//*
//STEP019 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WRK'
//SYSPRINT DD SYSOUT=*
//*
//STEP020 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WTC'
//STEP021 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WTC'
//SYSPRINT DD SYSOUT=*
//*
//STEP022 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.BTNO'
//SYSPRINT DD SYSOUT=*
//*
//STEP023 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.TAXWGH'
//SYSPRINT DD SYSOUT=*
//*
//STEP024 EXEC PGM=SORT, BTC FILE BACKUP
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BTC,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.BACKUP.BTC(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//****

127
Procs/DTSUFVSM Normal file
View File

@ -0,0 +1,127 @@
//***** 00010000
//* 00020000
//* UI TAX VSAM FILE TAPE BACKUP FOR PRODUCTION USE ONLY 00030000
//* 00040000
//* 05/29/2001 MODIFIED FOR TAPE TRACKNG FILES. GD 00041000
//* 06/18/2002 ADDED WTC & WGH JHP 00041200
//* 00042000
//* 11/18/2004 ADDED MSTH/MSTI FILES ZL1 00043000
//* 04/27/2006 REMOVED WYTD SI WAGE FILE ZL1 00043103
//* 09/12/2006 ADDED WESQ SI WAGE FILE ZL1 00043203
//* 01/16/2008 ADDED MSTJ FILE ZL1 00043305
//* 02/13/2008 ADDED BTC FILE ZL1 00043406
//* 09/29/2010 ADDED WG2 FILE ZL1 00043517
//* 00044000
//***** 00050000
//DTSUTVSM PROC LVLNODE='PROD', 00060000
// BCKNODE='BACKUP', 00061000
// BKUPGEN='(+1)' 00070000
//********************************************************************* 00100000
//STEP0120 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTA -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00241300
//STEP0110 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTB -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00249200
//STEP0130 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTC -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00300000
//STEP0140 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTD -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00430000
//STEP0150 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.AIX -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00439500
//STEP0160 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.ATC -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00560000
//STEP0170 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.OLA -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00690000
//STEP0180 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.REF -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00820000
//STEP0190 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WRK -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00950000
//STEP0200 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTE -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 01080000
//STEP0210 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTF -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 01210000
//STEP0220 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTG -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 01331000
//STEP0230 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTH -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 01339800
//STEP0240 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTI -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 01341200
//STEP0250 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WTC -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//******************************************************************* 01348000
//STEP0260 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WGH -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01351100
//STEP0270 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WAGE.NAME -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//STEP0280 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WESQ -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//STEP0290 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTJ -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01355000
//*STEP0300 EXEC PGM=backup,
//* PARM='-DD DOESTAX.&LVLNODE..BTC -FREQ &freq'
//*SYSPRINT DD SYSOUT=*
//****
//STEP0310 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WG2 -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01440006
//STEP0320 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WAGENAME -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01351100
//STEP0330 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.BTNO -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01351100
//STEP0340 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.TAXWGH -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01351100
//STEP0350 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.ATH -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//*
//STEP0360 EXEC PGM=SORT, BTC FILE BACKUP
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BTC,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.BACKUP.BTC(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//****

84
Procs/DTSUTVSM
View File

@ -1,6 +1,6 @@
//***** 00010000
//* 00020000
//* UI TAX VSAM FILE TAPE BACKUP FOR PRODUCTION USE ONLY 00030000
//* UI TAX RAIINCODE VSAM FILE BACKUP FOR PRODUCTION USE ONLY 00030000
//* 00040000
//* 05/29/2001 MODIFIED FOR TAPE TRACKNG FILES. GD 00041000
//* 06/18/2002 ADDED WTC & WGH JHP 00041200
@ -32,26 +32,6 @@
//STEP0140 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTD -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00430000
//STEP0150 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.AIX -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00439500
//STEP0160 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.ATC -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00560000
//STEP0170 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.OLA -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00690000
//STEP0180 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.REF -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00820000
//STEP0190 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WRK -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00950000
//STEP0200 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTE -FREQ &freq'
@ -72,10 +52,43 @@
//STEP0240 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTI -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//*
//STEP0290 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTJ -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00430000
//STEP0150 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.AIX -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00439500
//STEP0160 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.ATC -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//*
//STEP0350 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.ATH -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//*
//********************************************************************* 00560000
//STEP0170 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.OLA -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00690000
//STEP0180 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.REF -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 00820000
//STEP0190 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WRK -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//********************************************************************* 01341200
//STEP0250 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WTC -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//*
/STEP0250 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WG2 -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//******************************************************************* 01348000
//STEP0260 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WGH -FREQ &freq'
@ -87,15 +100,26 @@
//STEP0280 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WESQ -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//STEP0290 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTJ -FREQ &freq'
//***
//STEP0320 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WAGENAME -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01355000
//STEP0300 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..BTC -FREQ &freq'
//**** 01351100
//STEP0330 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.BTNO -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01351100
//STEP0340 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.TAXWGH -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01351100
//STEP0360 EXEC PGM=SORT, BTC FILE BACKUP
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BTC,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.BACKUP.BTC(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//****
//STEP0310 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WG2 -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//**** 01440006

0
SqlAgent/v2/01_Devl/1_Database_Setup/CreateDB.sql → SqlAgent/01_Devl/1_Database_Setup/CreateDB.sql
View File

0
SqlAgent/v2/01_Devl/1_Database_Setup/InsertHolidays.sql → SqlAgent/01_Devl/1_Database_Setup/InsertHolidays.sql
View File

0
SqlAgent/v2/01_Devl/1_Database_Setup/InsertJobControl.sql → SqlAgent/01_Devl/1_Database_Setup/InsertJobControl.sql
View File

0
SqlAgent/v2/01_Devl/1_Database_Setup/InsertJobDependencies.sql → SqlAgent/01_Devl/1_Database_Setup/InsertJobDependencies.sql
View File

0
SqlAgent/v2/01_Devl/2_Functions/fn_GetNextWorkday.sql → SqlAgent/01_Devl/2_Functions/fn_GetNextWorkday.sql
View File

0
SqlAgent/v2/01_Devl/2_Functions/fn_GetPreviousWorkday.sql → SqlAgent/01_Devl/2_Functions/fn_GetPreviousWorkday.sql
View File

0
SqlAgent/v1/01_Devl/2_Stored_Procedures/usp_CheckJobConditions.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_CheckJobConditions.sql
View File

0
SqlAgent/v1/01_Devl/2_Stored_Procedures/usp_CheckJobConditions_Generic.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_CheckJobConditions_Generic.sql
View File

0
SqlAgent/v2/01_Devl/3_Stored_Procedures/usp_CreateDailyJobSchedule.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_CreateDailyJobSchedule.sql
View File

0
SqlAgent/v2/01_Devl/3_Stored_Procedures/usp_CreateSQLAgentJob.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_CreateSQLAgentJob.sql
View File

0
SqlAgent/v2/01_Devl/3_Stored_Procedures/usp_CreateWeeklySchedules.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_CreateWeeklySchedules.sql
View File

0
SqlAgent/v1/01_Devl/2_Stored_Procedures/usp_ForceComplete.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_ForceComplete.sql
View File

0
SqlAgent/v2/01_Devl/3_Stored_Procedures/usp_GenerateJobSchedule.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_GenerateJobSchedule.sql
View File

0
SqlAgent/v2/01_Devl/3_Stored_Procedures/usp_ScheduleJob.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_ScheduleJob.sql
View File

0
SqlAgent/v2/01_Devl/3_Stored_Procedures/usp_ScheduleJobsForMonth.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_ScheduleJobsForMonth.sql
View File

0
SqlAgent/v1/01_Devl/2_Stored_Procedures/usp_TriggerMissedJobs.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_TriggerMissedJobs.sql
View File

0
SqlAgent/v1/01_Devl/2_Stored_Procedures/usp_UpdateJobStatus_Generic.sql → SqlAgent/01_Devl/3_Stored_Procedures/usp_UpdateJobStatus_Generic.sql
View File

0
SqlAgent/v2/01_Devl/4_Job_Maintenance/ActivateOnDemandJob.sql → SqlAgent/01_Devl/4_Job_Maintenance/ActivateOnDemandJob.sql
View File

0
SqlAgent/v2/01_Devl/4_Job_Maintenance/AddAllJobsToSQLAgent.sql → SqlAgent/01_Devl/4_Job_Maintenance/AddAllJobsToSQLAgent.sql
View File

0
SqlAgent/v2/01_Devl/4_Job_Maintenance/AddDailyJobSchedule.sql → SqlAgent/01_Devl/4_Job_Maintenance/AddDailyJobSchedule.sql
View File

0
SqlAgent/v2/01_Devl/4_Job_Maintenance/AddNewJobToSQLAgent.sql → SqlAgent/01_Devl/4_Job_Maintenance/AddNewJobToSQLAgent.sql
View File

0
SqlAgent/v2/01_Devl/4_Job_Maintenance/AddWeeklyJobSchedule.sql → SqlAgent/01_Devl/4_Job_Maintenance/AddWeeklyJobSchedule.sql
View File

0
SqlAgent/v1/01_Devl/3_Job_Maintenance/DailyJobScheduleLookup.sql → SqlAgent/01_Devl/4_Job_Maintenance/DailyJobScheduleLookup.sql
View File

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