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 00002 * DTSIS82
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004 00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
00004 * DTSIS82 00004 * DTSIS82
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82 00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82 00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
@ -139,19 +139,19 @@
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82 00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82 00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
00141 SKIP1 DTSIS82 00141 SKIP1 DTSIS82
00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3 00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5
00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2 00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5
00144 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**2 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**2 00145 * 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**5
00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2 00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5
00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2 00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5
00148 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**2 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**2 00149 * 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**5
00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2 00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5
00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2 00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5
00152 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**2 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**2 00153 * 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**5
00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2 00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5
00155 SKIP1 DTSIS82 00155 SKIP1 DTSIS82
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82 00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
00157 15 MAP-UC30-FINAL-ACTION-MM-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 //STEP017 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
//DD1001 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4, //DD1001 DD DSN=DOESTAX.PROD.RPT414R1,
// DISP=(NEW,CATLG,CATLG), // DISP=(NEW,CATLG,CATLG),
// DCB=(LRECL=133,RECFM=FB), // DCB=(LRECL=134,RECFM=FBA),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.R414.EXCL.RPT4', // PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
// COPY) // 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 LVLNODE='DEVL' 00021008
// SET MSTNODE='PROD' 00021108 // SET MSTNODE='PROD' 00021108
//* 00021608 //* 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=DTSIJLIB 00021808
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908 //*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
//* 00022008 //* 00022008
@ -54,7 +54,7 @@
//SYSABEND DD SYSOUT=* 00270000 //SYSABEND DD SYSOUT=* 00270000
//SYSUDUMP DD SYSOUT=* 00280000 //SYSUDUMP DD SYSOUT=* 00280000
//* 00290000 //* 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 // AMP=('BUFNI=5,BUFND=10') 00310000
//* 00320000 //* 00320000
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006 //DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
@ -64,7 +64,8 @@
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP, //DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
//* DISP=SHR 00351013 //* DISP=SHR 00351013
// DISP=(NEW,CATLG,DELETE), 00050206 // 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) // DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
//* 00360000 //* 00360000
//********************************************************************* 00370000 //********************************************************************* 00370000
@ -75,7 +76,26 @@
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007 //COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007 //IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
//** 00450007 //** 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 //SYSPRINT DD SYSOUT=(*) 00500007
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007 //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), //STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
// DISP=SHR // 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 //* 00001700
//STEP0100 EXEC DTSBX202 //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 //DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN, //* TYPRUN=SCAN,
// USER=#DOADTS, // USER=#DOADTS,RESTART=STEP0900,
// NOTIFY=ECNTSUP, // NOTIFY=ECNTSUP,
// REGION=0M // REGION=0M
//* //*
@ -16,13 +16,28 @@
//* 00070000 //* 00070000
//STEP0200 EXEC DTSBX215 //STEP0200 EXEC DTSBX215
//* //*
// 00014000 //*
//***************************************** //*********************************************************************
//STEP0210 EXEC PGM=FTP, //* // CODEPAGE=1252,AUTOENCODE=YES,
// COND=(0,LT) //*
//**
//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=* //SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //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=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE), //* DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE), // 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 //* RAINCODE TESTED 08/20/25 ZL1 r
@ -31,13 +32,25 @@
//****************************************************************** //******************************************************************
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1 //**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
//* //*
//*TEP0200 EXEC PGM=FTP,COND=(0,LT) //*********************************************************************
//*YSPRINT DD SYSOUT=* //* // CODEPAGE=1252,AUTOENCODE=YES,
//*UTOUT DD SYSOUT=*
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*YSGET DD *,DCB=BLKSIZE=80
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
//* //*
//**
//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 //* JOB : SAVE A COPY OF THE FTP REFUND FILE

37
JCL/DTSBX305.jcl
View File

@ -2,7 +2,7 @@
// CLASS=S,MSGCLASS=X, 00000010 // CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN, //* TYPRUN=SCAN,
// USER=#DOADTS, // USER=#DOADTS,
// NOTIFY=ECNTSUP, // NOTIFY=ECNTSUP,
// REGION=0M // REGION=0M
//* 00001700 //* 00001700
// SET LVLNODE='PROD' // SET LVLNODE='PROD'
@ -35,7 +35,7 @@
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1 //* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* | //* |
//********************************************************************* //*********************************************************************
//STEP0250 EXEC PGM=IDCAMS //STEP0100 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR //INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=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 //* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* | //* |
//********************************************************************* //*********************************************************************
//STEP0250 EXEC PGM=IDCAMS //STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR //INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1), //OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
@ -68,7 +68,7 @@
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700 //* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
//* 00001700 //* 00001700
//******************************************************************** //********************************************************************
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS //STEP0300 EXEC PGM=SORT SORT FTP RECORDS
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR //SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,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) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//********************************************************************* //*********************************************************************
//*STEP0100 EXEC DTSUTVSM, //*STEP0400 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)' //* BKUPGEN='(+1)',freq='DAILY'
//***** //*****
//STEP0200 EXEC DTSBX305 //STEP0500 EXEC DTSBX305
//** 00001700 //** 00001700
//STEP0300 EXEC DTSBX306 //STEP0600 EXEC DTSBX306
//** 00001700 //** 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, //DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
//* DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
// DISP=SHR // DISP=SHR
//* UNIT=SYSDA, // UNIT=SYSDA,
//* SPACE=(CYL,(10,10),RLSE), // SPACE=(CYL,(10,10),RLSE),
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0) // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=1732,BLKSIZE=0)
//* //*
//DTSLN405 DD DUMMY //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=* //SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=* //SYSUDUMP DD SYSOUT=*
//* //*
//*DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//* //*
//DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0), //DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0),
// DISP=SHR // DISP=SHR
@ -34,10 +34,28 @@
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD, //DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
//* DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
// DISP=SHR // DISP=SHR
//* UNIT=SYSDA, // UNIT=SYSDA,
//* SPACE=(CYL,(10,10),RLSE), // SPACE=(CYL,(10,10),RLSE),
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0) // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=323,BLKSIZE=0)
//* //*
//DTSLN403 DD DUMMY //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, //* TYPRUN=SCAN,
// USER=#DOADTS, // USER=#DOADTS,
//** NOTIFY=ECNTSUP, //** NOTIFY=ECNTSUP,
// NOTIFY=ECNTZL1, // NOTIFY=ECNTZL1,RESTART=STEPFTP,
// REGION=0M // REGION=0M
//* 00001700 //* 00001700
// SET LVLNODE='DEVL' // SET LVLNODE='DEVL'
@ -31,4 +31,25 @@
//STEP0200 EXEC DTSBX441 //STEP0200 EXEC DTSBX441
//* //*
//STEP0300 EXEC DTSBX433 //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') // AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10') // 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 //STEP0400 EXEC DTSBX626
//*********************************************************** //***********************************************************
// //*
// //*
// IF (STEP0400.STEP0450.RC EQ 0) THEN // IF (STEP0400.STEP0450.RC EQ 0) THEN
//STEP0500 EXEC PGM=IEBGENER,REGION=4M, //STEP0500 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT) // COND=(0,LT)
@ -140,7 +140,7 @@
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'), // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR //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 //SYSIN DD DUMMY
//* //*
// ENDIF // ENDIF

8
JCL/DTSCHGQ1.jcl
View File

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

10
JCL/DTSCHGQ2.jcl
View File

@ -35,16 +35,16 @@
//********************************************************************* //*********************************************************************
//* STEP TO COPY CONVERT FILE TO DASD-PART1 * //* STEP TO COPY CONVERT FILE TO DASD-PART1 *
//********************************************************************* //*********************************************************************
//* //
//STEP0200 EXEC PGM=SORT //STEP0200 EXEC PGM=SORT
//* //*
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT, //SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
// DISP=SHR // DISP=SHR
//* //*
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED, //SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
// DISP=(,CATLG,DELETE), //* DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE), //* SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400) //* DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
//SYSIN DD * //SYSIN DD *
SORT FIELDS=COPY SORT FIELDS=COPY
INCLUDE COND=(6,1,CH,EQ,C'0',OR, 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 //* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099
//** 01430000 //** 01430000
//** SM - TOTAL CHARGES (RATED) 01440000 //** SM - TOTAL CHARGES (RATED) 01440000
//RPC100R1 DD SYSOUT=E, 01451099 //RPC100R1 DD SYSOUT=E,
//* CODEPAGE=1252,AUTOENCODE=YES, 01451099
// DEST=&LDEST., 01460000 // DEST=&LDEST., 01460000
// HOLD=&LHOLD. 01470000 // HOLD=&LHOLD. 01470000
//** CHRG SUMMARY-RATED 01480000 //** CHRG SUMMARY-RATED 01480000
//RPC100R3 DD SYSOUT=0 01491099 //RPC100R3 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=I
//** 01520099 //* 01491099
//**
//RPC100R4 DD DUMMY 01520099
//**** SORT REPORT RECORDS (901/907) 01800000 //**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT, 01810000 //STEP0150 EXEC PGM=SORT, 01810000
// COND=(0,LT), 01820000 // COND=(0,LT), 01820000

19
JCL/DTSDX145.jcl
View File

@ -28,3 +28,22 @@
SORT FIELDS=(1,11,CH,A) SORT FIELDS=(1,11,CH,A)
END 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 //*TEP0100.DTSFVRO1 DD DUMMY 00270006
//STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.HOLIDAYS,DISP=SHR 00270109 //STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.HOLIDAYS,DISP=SHR 00270109
//**** 00284000 //**** 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), // SPACE=(8192,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) // 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), //* DISP=(NEW,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE), //* 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, //DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR,
//* DISP=(,CATLG,DELETE), //* DISP=(,CATLG,DELETE),
@ -49,10 +50,11 @@
// SPACE=(CYL,(100,50),RLSE), // SPACE=(CYL,(100,50),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//**** //****
//DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR //DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR,
//* DISP=(,CATLG,DELETE), //* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE), //* SPACE=(8192,(100,200),RLSE),
//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) // CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//* //*
//********************************* //*********************************
//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147 //STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147
@ -70,11 +72,35 @@
// SPACE=(8192,(100,200),RLSE), // SPACE=(8192,(100,200),RLSE),
// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120)
//**** //****
//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR //DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR,
//* DISP=(,CATLG,DELETE), //* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE), //* 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, //EMAIL EXEC PGM=IEBGENER,
// COND=(0,LT), // COND=(0,LT),

28
JCL/DTSFT202.jcl
View File

@ -18,12 +18,32 @@
//** TO TURN OFF LINE NUMBER TYPE "NONUM" //** TO TURN OFF LINE NUMBER TYPE "NONUM"
//** FTP COMMANDS MUST be in lower case //** 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=* //SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //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 //* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*----------------------------------------------------- //*-----------------------------------------------------
//*STEPWF EXEC PGM=FTP, //*-----------------------------------------------------
//* PARM='-r TLS safetrans.wellsfargo.com' //*STEPWF EXEC PGM=SFTP,
//* PARM='-Sftp=TRUE 10.57.110.160' //* PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
//*ENVVAR DD * //*ENVVAR DD *
//* CLIENT=sftp //* CLIENT=sftp
//* SFTP_AUTH=3 //* SFTP_STRICTHOSTKEY=accept-new
/* //* SFTP_AUTH=5
//*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) //*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) //*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) //*SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
//* DD *
//*FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*,HOLD=YES //*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR //*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
/* //*
//******************************************************************** //********************************************************************
//*** COPY essp ach RETURNS to backup ach file. //*** COPY essp ach RETURNS to backup ach file.
//** //**
@ -68,7 +63,7 @@
//*** send email ach returns received from wells fargo. //*** send email ach returns received from wells fargo.
//* //*
//******************************************************************** //********************************************************************
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), //ESSPMAIL EXEC PGM=IEBGENER,COND=(4,LT),
// REGION=4M // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
@ -87,7 +82,7 @@
// MAILFROM=DUTAS@DC.GOV // MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR, //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES, // 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 //SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)

65
JCL/DTSGCHKS.jcl
View File

@ -8,8 +8,8 @@
//**** //****
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1 //*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
//*** PAYMENTS ARE NOW MADE IN JOB BX530................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. //*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//******************************************************************** //********************************************************************
@ -24,10 +24,10 @@
// SET EXTNODE='CONV' // SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT' // 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 //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) //**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
@ -37,10 +37,10 @@
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY //INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1), //OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
// DISP=(,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, //* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//********************************************************************* //*********************************************************************
//******************************************************************** //********************************************************************
@ -61,13 +61,13 @@
//* //*
//*DECRYPT EXEC SECPDEC,COND=(0,LT) //*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,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 //IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1), //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
// DISP=(,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, //* CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120) // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
@ -110,7 +110,7 @@
//** //**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS, //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
//* DISP=(NEW,CATLG,DELETE), //* DISP=(NEW,CATLG,DELETE),
//* DISP=MOD, //* DISP=MOD,
// DISP=SHR, // DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, // CODEPAGE=1252,AUTOENCODE=YES,
@ -131,6 +131,27 @@
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR //*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR //***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 //STEP0200 EXEC DTSBXCHK
//* //*
//*STEP0300 EXEC DTSRSESP //*STEP0300 EXEC DTSRSESP
@ -143,4 +164,24 @@
//STEP0100.RPT907R2 DD HOLD=YES //STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 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 **************************** **************************** 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.USER.PARMLIB(DTSGPAYT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),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 //**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//******************************************************************** //********************************************************************
@ -73,8 +86,12 @@
//*ECRYPT EXEC SECODEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT)
//DECRYPT EXEC PGM=IDCAMS,COND=(0,LT) //DECRYPT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR //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), //OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*) //SYSPRINT DD SYSOUT=(*)
@ -139,7 +156,7 @@
//** //**
//STEP0200 EXEC DTSBXPAY //STEP0200 EXEC DTSBXPAY
//* //*
//STEP0200 EXEC DTSRSESP //*STEP0200 EXEC DTSRSESP
//*** //***
//* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION //* NEED TO FIX FOR PRODUCTION USE REPORT GENERATION
//*STEP0300 EXEC DTSRQRPT //*STEP0300 EXEC DTSRQRPT
@ -148,4 +165,23 @@
//STEP0100.RPT907R1 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES //STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 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, //XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE) // 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, //XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(,CATLG,DELETE), // DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE), // 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, //STEP0100 EXEC PGM=FTP,PARM='(EXIT'
// COND=(0,LT) //INPUT DD *
//SYSPRINT DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR 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=* //OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //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 //* COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
//********************************************************************** //**********************************************************************
//* //*
//STEP0101 EXEC PGM=IDCAMS //STEP0101 EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR //INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
//* //*
//OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1), //OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
// DISP=(NEW,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE), // 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 * //SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01) REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/* /*
//
//*** send email daily charges transmitted to dutas //*** 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 //FAIL01 IF STEP0100.ABEND THEN
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100), //X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100),
// REGION=4M // REGION=4M

37
JCL/DTSGSID1.jcl
View File

@ -23,24 +23,24 @@
//**** 00003325 //**** 00003325
//STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963 //STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963
//**** 00005461 //**** 00005461
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560 //*STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
// LDEST=U@PRT65, 00005660 //* LDEST=U@PRT65, 00005660
// LHOLD='YES' 00005760 //* LHOLD='YES' 00005760
//** 00005860 //** 00005860
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049 //*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149 //*STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049 //*DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//* 00001749 //* 00001749
//* DAILY BENEFIT CHARGE BACKUP 00002003 //* DAILY BENEFIT CHARGE BACKUP 00002003
//********************************************************************* //*********************************************************************
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP //* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
//******************************************************************** //********************************************************************
//* //*
//STEP0100 EXEC DTSUTCHG, //*STEP0100 EXEC DTSUTCHG,
// BKUPGEN='(+1)' 00002425 //* BKUPGEN='(+1)',freq='DAILY'
//* //*
// IF (STEP0100.STEP0100.RC NE 0) THEN // IF (STEP0100.STEP0100.RC NE 0) THEN
//EMAIL EXEC PGM=IEBGENER, //EMAIL001 EXEC PGM=IEBGENER,
// REGION=4M // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
@ -55,7 +55,7 @@
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE // ELSE
//EMAIL EXEC PGM=IEBGENER, //EMAIL002 EXEC PGM=IEBGENER,
// REGION=4M // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
@ -71,3 +71,22 @@
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF // 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) // DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*) //SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
// //*
//******************************************************************** //********************************************************************
//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER //**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER
//******************************************************************** //********************************************************************
//TDECDEL EXEC PGM=FTP,COND=(0,LT) //*TDECDEL EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=* //*SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=* //*OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80 //*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRWAG),DISP=SHR //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRWAG),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),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 //***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 // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,
@ -132,7 +132,7 @@
//SYSIN DD DUMMY //SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP) //SYSUDUMP DD SYSOUT=(*,,DUMP)
//* //*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), //EMAILWGE2 EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M // REGION=4M
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003, //OUT1 OUTPUT DEST=U1003,

19
JCL/DTSMIN02.jcl
View File

@ -178,6 +178,25 @@
// SPACE=(8192,(100,200),RLSE), // SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) // 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 //* EMAIL STEP
//***************************************************************** //*****************************************************************

51
JCL/DTSPACHD.jcl
View File

@ -58,28 +58,49 @@
//*----------------------------------------------------- //*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS //* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*----------------------------------------------------- //*-----------------------------------------------------
//STEPWF EXEC PGM=FTP, //*-----------------------------------------------------
// PARM='-r TLS safetrans.wellsfargo.com' //STEPWF EXEC PGM=SFTP,
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN) // 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) //NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) //SFTPPPK DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
// DD * //SYSPRINT DD SYSOUT=*,HOLD=YES
FWFRIENDLY TRUE //*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
//SYSPRINT DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR //SYSIN DD *
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR 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. //*** send email ach transimmited to wells fargo.
//** //**
//******************************************************************** //********************************************************************
//STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR //*STEP0100 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
// COND=(0,LT), //* COND=(0,LT),
// REGION=0M //* REGION=0M
//SYSOUT DD SYSOUT=* //*SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=* //*SYSABOUT DD SYSOUT=*
//SYSABEND 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) //COPYPACH EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR //IFILE DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR

27
JCL/DTSPDAY1.jcl
View File

@ -86,8 +86,8 @@
//* /* STD DAILY BEFORE DAILY BATCH //* /* STD DAILY BEFORE DAILY BATCH
//*STEP0175 EXEC DTSUTVSM, //*STEP0175 EXEC DTSUTVSM,
//* BKUPGEN='(+1)' //* BKUPGEN='(+1)'
//STEP0100 EXEC DTSUTVSM, 00002102 //*STEP0100 EXEC DTSUTVSM, 00002102
// BKUPGEN='(+1)',freq='DAILY' //* BKUPGEN='(+1)',freq='DAILY'
//** //**
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB //* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
//STEP0200 EXEC DTSDUPDT, //STEP0200 EXEC DTSDUPDT,
@ -138,6 +138,27 @@
//*STEP0400 EXEC DTSUTVSM, //*STEP0400 EXEC DTSUTVSM,
//* BKUPGEN='(+2)' //* BKUPGEN='(+2)'
//*STEP0100 EXEC DTSUTVSM, 00002102 //*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 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//** //**
//STEP0100 EXEC DTSBX425 //STEP0100 EXEC DTSBX425
// //*
//******************************************************************** //********************************************************************
//*** send email ach transimmited to wells fargo. //*** 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) // DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
//********************************************************************* //*********************************************************************
//* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700 //* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700
//******************************************************************** 00001700 //********************************************************************
//* 00001700 //*********************************************************************
//*STEP0050 EXEC DTSUTVSM, //STEP0400 EXEC DTSUTVSM, 00002102
//* BKUPGEN='(+1)' // BKUPGEN='(+1)',freq='DAILY'
//STEP0100 EXEC DTSUTVSM, 00002102 //*****
// BKUPGEN='(+1)',freq='DAILY' 00003000
//*
//******************************************************************** //********************************************************************
//* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700 //* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700
//******************************************************************** //********************************************************************

51
JCL/DTSRQ335.jcl
View File

@ -123,7 +123,56 @@
//* 00843099 //* 00843099
//* 00844099 //* 00844099
//************************************************************** 00845099 //************************************************************** 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 //COPY1 EXEC PGM=IDCAMS 00851099
//SYSPRINT DD SYSOUT=* 00860099 //SYSPRINT DD SYSOUT=* 00860099
//INDD01 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR 00870099 //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 //* STD BACKUP *AFTER* DATA FILE UPDATE
//* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE* //* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
//* A REGULAR DAILY RUN - SEE STEP0100 ABOVE) //* A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
//STEP0500 EXEC DTSUTVSM, //*STEP0500 EXEC DTSUTVSM,
//** BKUPGEN='(+2)' /* USE ONLY IF BKP DONE IN STEP0100 //** 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 // REGION=0M 00000514
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000614 //* 00000614
//*PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
//**** 00000914 //**** 00000914
//* UI TAX BACKUP VSAM FILES * 00001000 //* UI TAX BACKUP VSAM FILES * 00001000

6
JCL/DTSVRSTR.jcl
View File

@ -26,9 +26,9 @@
//**** //****
//*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1 //*** TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
//* //*
//*STEP0100 EXEC DTSURVSM0 00002000 //*STEP0100 EXEC DTSURVSM0 NO LONGER USED 00002000
//** 00003029 //** 00003029
//*STEP0100 EXEC DTSURVSM1 CHANGE PROC FOR - GENERATION NEEDED 00002000 //*STEP0100 EXEC DTSURVSM1 NO LONGER USED - GENERATION NEEDED 00002000
//* //*
//STEP0100 EXEC DTSURVSM, 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 //* 00001700
//STEP0100 EXEC DES300T1 EXTRACT DATA FROM WAGE FILE //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 //LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
//* // USER=#DOADTS,
//*STEP001 EXEC PGM=IEFBR14 // CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
//*SYSPRINT DD SYSOUT=* /*ROUTE PRINT U@PRT65
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
//* DISP=(NEW,CATLG,CATLG),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
//* COPY)
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY)
//*
//STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP003 EXEC PGM=IEFBR14 //STEP003 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB), // DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104', // CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X102',
// COPY) // 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 //STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB), // DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108', // CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X104',
// COPY) // COPY)
//* //*
//STEP002 EXEC PGM=IEFBR14 //STEP004 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110, //DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP006 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
// DISP=(NEW,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB), // CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X110', // DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106',
// COPY) // 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 //STEP009 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB), // CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD', // DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD',
// COPY) // 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 //STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB), // CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X144', // DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X108',
// COPY) // 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 //STEP013 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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, //DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
// DISP=(NEW,CATLG,DELETE), // 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', // PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.X147',
// COPY) // 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', //* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
//* COPY) //* 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 //STEP002 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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 //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 //STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
@ -40,7 +25,7 @@
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT, //DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
// DISP=(NEW,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=512,RECFM=FB), // DCB=(LRECL=512,RECFM=LSEQ),
// PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT', // PATH=('E:\FLAT_FILES\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
// COPY) // COPY)
//STEP005 EXEC PGM=IEFBR14 //STEP005 EXEC PGM=IEFBR14
@ -76,51 +61,6 @@
//STEP005 EXEC PGM=IEFBR14 //STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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, //DD1001 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE) // DISP=(OLD,DELETE,DELETE)
//* //*
@ -190,21 +130,6 @@
//STEP005 EXEC PGM=IEFBR14 //STEP005 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT 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, //DD1001 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,
// DISP=(OLD,DELETE,DELETE) // 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), //DD1001 DD DSN=DOESTAX.CONV.CURRMINI(+1),
// DISP=(NEW,CATLG,DELETE), // DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000), // DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0270V00', // PATH=('E:\FLAT_FILES\DOESTAX.CONV.CURRMINI.G0281V00',
// COPY) // COPY)
// //
//STEP005 EXEC PGM=IEFBR14 //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 //STEP0100 EXEC PGM=SORT, 00004600
// COND=(0,LT) 00004700 // COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800 //SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.DD080925,DISP=SHR 00005099 //SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G0004V00,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(-2),DISP=SHR 00005099 //*SORTIN DD DSN=DOESTAX.PROD.SOAMONTH(+0),DISP=SHR
//* 00006399 //* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899 //SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999 // DISP=(,PASS,DELETE), 00006999
@ -33,7 +33,7 @@
//SYSUDUMP DD SYSOUT=* 00018600 //SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799 //*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
//PARMIN DD * 00018899 //PARMIN DD * 00018899
DTSBD800,INC,503 00019199 DTSBD800,INC,102 00019199
/* 00019599 /* 00019599
//** 00019699 //** 00019699
//ATLSTIN DD * 00020000 //ATLSTIN DD * 00020000
@ -53,14 +53,26 @@ DTSBD800, 00030000
//* 00090099 //* 00090099
//*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099 //*DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199 //* 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 //RPT503R2 DD SYSOUT=X 00100299
//RPT325R1 DD SYSOUT=X 00100299 //RPT325R1 DD SYSOUT=X 00100299
//RPT405R1 DD SYSOUT=* 00100299 //RPT405R1 DD SYSOUT=* 00100299
//RPT405R2 DD SYSOUT=* 00100299 //RPT405R2 DD SYSOUT=* 00100299
//RPT412R1 DD SYSOUT=* 00100299 //*RPC110R2 DD DSN=DOESTAX.PROD.RPC110R2,
//RPT412R2 DD SYSOUT=* 00100299 //* DISP=(NEW,CATLG,DELETE),
//RPT412R3 DD SYSOUT=* 00100299 //* 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 //RPT530R1 DD SYSOUT=* 00100299
//RPT909R8 DD SYSOUT=* 00100299 //RPT909R8 DD SYSOUT=* 00100299
//RPT909R9 DD SYSOUT=* 00100299 //RPT909R9 DD SYSOUT=* 00100299
@ -79,5 +91,5 @@ DTSBD800, 00030000
//RPT321R3 DD SYSOUT=* 00100299 //RPT321R3 DD SYSOUT=* 00100299
//RPT321R4 DD SYSOUT=* 00100299 //RPT321R4 DD SYSOUT=* 00100299
//RPT332R1 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 //STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSIN DD * //SYSIN DD *
DELETE ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101 DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT
SET MAXCC=0 SET MAXCC=0
//* //*
//STEP011 EXEC PGM=IEFBR14 //STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=* //SYSOUT DD SYSOUT=*
//DD0011 DD ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101, //DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
// DISP=(NEW,CATLG,CATLG), // DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=VB,LRECL=256,BLKSIZE=0), // CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101', // DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120),
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
// COPY) // COPY)

2
JCL/createGDG.jcl
View File

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

16
Maps/DTSMSET.xml
View File

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

59
Procs/(DTSUTVSM).seq
View File

@ -1,21 +1,21 @@
//BACKUP JOB //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=* //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=* //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=* //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=* //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=* //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=* //SYSPRINT DD SYSOUT=*
//* //*
//STEP007 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTG' //STEP007 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTG'
@ -24,42 +24,61 @@
//STEP008 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTH' //STEP008 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.MSTH'
//SYSPRINT DD SYSOUT=* //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=* //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=* //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=* //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=* //SYSPRINT DD SYSOUT=*
//* //*
//*STEP011 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.BTC' //STEP013 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.ATH'
//*SYSPRINT DD SYSOUT=*
//*
//STEP012 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.OLA'
//SYSPRINT DD SYSOUT=* //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=* //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=* //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=* //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=* //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=* //SYSPRINT DD SYSOUT=*
//* //*
//STEP019 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WRK' //STEP019 EXEC PGM=backup,PARM='-DD DOESTAX.PROD.VSAM.WRK'
//SYSPRINT DD SYSOUT=* //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=* //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 //***** 00010000
//* 00020000 //* 00020000
//* UI TAX VSAM FILE TAPE BACKUP FOR PRODUCTION USE ONLY 00030000 //* UI TAX RAIINCODE VSAM FILE BACKUP FOR PRODUCTION USE ONLY 00030000
//* 00040000 //* 00040000
//* 05/29/2001 MODIFIED FOR TAPE TRACKNG FILES. GD 00041000 //* 05/29/2001 MODIFIED FOR TAPE TRACKNG FILES. GD 00041000
//* 06/18/2002 ADDED WTC & WGH JHP 00041200 //* 06/18/2002 ADDED WTC & WGH JHP 00041200
@ -32,26 +32,6 @@
//STEP0140 EXEC PGM=backup, //STEP0140 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTD -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTD -FREQ &freq'
//SYSPRINT DD SYSOUT=* //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 //********************************************************************* 00950000
//STEP0200 EXEC PGM=backup, //STEP0200 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTE -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTE -FREQ &freq'
@ -72,10 +52,43 @@
//STEP0240 EXEC PGM=backup, //STEP0240 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTI -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.MSTI -FREQ &freq'
//SYSPRINT DD SYSOUT=* //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 //********************************************************************* 01341200
//STEP0250 EXEC PGM=backup, //STEP0250 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WTC -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.WTC -FREQ &freq'
//SYSPRINT DD SYSOUT=* //SYSPRINT DD SYSOUT=*
//*
/STEP0250 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WG2 -FREQ &freq'
//SYSPRINT DD SYSOUT=*
//******************************************************************* 01348000 //******************************************************************* 01348000
//STEP0260 EXEC PGM=backup, //STEP0260 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WGH -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.WGH -FREQ &freq'
@ -87,15 +100,26 @@
//STEP0280 EXEC PGM=backup, //STEP0280 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..VSAM.WESQ -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.WESQ -FREQ &freq'
//SYSPRINT DD SYSOUT=* //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=* //SYSPRINT DD SYSOUT=*
//**** 01355000 //**** 01351100
//STEP0300 EXEC PGM=backup, //STEP0330 EXEC PGM=backup,
// PARM='-DD DOESTAX.&LVLNODE..BTC -FREQ &freq' // PARM='-DD DOESTAX.&LVLNODE..VSAM.BTNO -FREQ &freq'
//SYSPRINT DD SYSOUT=* //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