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

DUTAS re-platformed to Raincode - 29Jul2025-update-from-Srujani

Browse Source
This commit is contained in:
Neeraj Kumar
2025-08-01 06:27:38 -04:00
parent ca3572c5df
commit cbd5346313
56 changed files with 3234 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
JCL/DTSBK325.jcl Normal file
View File

@ -0,0 +1,30 @@
//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET LHOLD='YES'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//* 00001700
//STEP0100 EXEC DTSUX325,
// RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
325
/*
//****
//*******************************************************************
//*** SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT325),DISP=SHR
//****

2
JCL/DTSBX479.jcl
View File

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

7
JCL/DTSBX552.jcl
View File

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

6
JCL/DTSBX553.jcl
View File

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

3
JCL/DTSBX629.jcl
View File

@ -57,7 +57,8 @@
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR 00350001
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//* 00360000
//************************************************************** 01210000
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012

32
JCL/DTSFT902.jcl Normal file
View File

@ -0,0 +1,32 @@
//DTSFT902 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K,
//* USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//*SET QTR='084'
//********************************************************************
//* *
//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 FILE *
//* *
//* *
//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO *
//* PASSPARM CWFEB1ES *
//********************************************************************
//********************************************************************
//PGPEMBAG EXEC PROC=PGP,COND=(0,LT)
//*
//TEXTIN DD DSN=DOESTAX.PROD.UC30DATA,DISP=SHR
//ENCOUT DD DSN=DOESTAX.PROD.UC30.CRYPTD.DDOC,
// DISP=(,PASS,DELETE),
//* DISP=OLD,
// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE),
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=5775)
//IN DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR
//*
//********************************************************************
//FTPMBAG EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT DD SYSOUT=(*)
//SYSMDUMP DD SYSOUT=(*)
//OUTPUT DD SYSOUT=(*)
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT902),DISP=SHR
//*

32
JCL/DTSFT910.jcl Normal file
View File

@ -0,0 +1,32 @@
//DTSFT910 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K,
//* USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//*
//********************************************************************
//* *
//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 HOUSEHOLD *
//* FILE *
//* *
//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO *
//* PASSPARM CWFEB1ES *
//********************************************************************
//********************************************************************
//PGPEMBAG EXEC PROC=PGP,COND=(0,LT)
//*
//TEXTIN DD DSN=DOESTAX.PROD.UC30HDAT,DISP=SHR
//ENCOUT DD DSN=DOESTAX.PROD.UC30H.CRYPTD.DDOC,
// DISP=(,PASS,DELETE),
//* DISP=OLD,
// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE),
// DCB=(RECFM=FB,LRECL=490,BLKSIZE=4900)
//IN DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR
//*
//********************************************************************
//FTPMBAG EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT DD SYSOUT=(*)
//SYSMDUMP DD SYSOUT=(*)
//OUTPUT DD SYSOUT=(*)
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT910),DISP=SHR
//*

2
JCL/DTSGSID0.jcl
View File

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

15
JCL/DTSPODC2.jcl Normal file
View File

@ -0,0 +1,15 @@
//DTSPODC2 JOB (PCFHF,CA7),'FTP NOTIFY',CLASS=G,MSGCLASS=2,
// MSGLEVEL=(1,1),USER=PCUCC7
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//*LOGONID PCUCC7
//**********************************************************************
//* GOV1 FTP GET FILE PROCESS *
//* RUNS ON OS12 *
//* DEMANDS JOB DTSPG1G1 ON OS12 CA/7 TO PUT FILE TO GOV1 *
//**********************************************************************
/*JOBPARM SYSAFF=OS12
//CA7BAT EXEC PROC=CA7BTI
//BTERM.SYSIN DD DSN=SYS2.CA7.ODC2.TRAILERS(DTSPG1G1),DISP=SHR
//BTERM.SYSPRINT DD SYSOUT=R,DCB=BLKSIZE=133
//*

15
JCL/DTSPODC5.jcl Normal file
View File

@ -0,0 +1,15 @@
//DTSPODC5 JOB (TOPFF0,CA7),'FTP NOTIFY',CLASS=G,MSGCLASS=2,
// MSGLEVEL=(1,1),USER=PCUCC7
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//*LOGONID PCUCC7
//**********************************************************************
//* GOV1 FTP PUT FILE PROCESS *
//* RUNS ON OS12 *
//* DEMANDS JOB DTSPG1P1 ON OS12 CA/7 TO PUT FILE TO GOV1 *
//**********************************************************************
/*JOBPARM SYSAFF=OS12
//CA7BAT EXEC PROC=CA7BTI
//BTERM.SYSIN DD DSN=SYS2.CA7.ODC2.TRAILERS(DTSPG1P1),DISP=SHR
//BTERM.SYSPRINT DD SYSOUT=R,DCB=BLKSIZE=133
//*

3
JCL/DTSPODCA.jcl Normal file
View File

@ -0,0 +1,3 @@
/LOGON CA7BTCH,UIB1USR
DEMAND,JOB=DTSPODC4
/LOGOFF

22
JCL/DTSUC30X.jcl Normal file
View File

@ -0,0 +1,22 @@
//DTSUC30X JOB (UI,4300,3400,T),PROD.SEND.UC30,
// CLASS=P,MSGCLASS=X,
// USER=#DOADTS,
// NOTIFY=ECNTJP2,
//**** TYPRUN=SCAN,
// REGION=0M /* RUNS AFTER DTSRQ902/ECNTV902
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//**
//** TRANSMIT THE QTRLY UC30 DATA FILE TO DHS. THIS DATA MUST
//** BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO DOES, AND
//** THEN, **>TO A VENDOR FOR PRINTING & MAILING<** OF THE UC30'S.
//**
//** 1. CHECK NOTIFICATION OF ECNTJP2 (FOR JOB COMPLETION) AND
//** 2. NOTIFICATION OF ECNTSUP (FOR X'FER OF DATA) AND
//** JCL OUTPUT UNDER ODC1UC30 (FOR CART. NUMBER)
//**
//STEP0100 EXEC PROC=NJESEND, /* UC30 DATA
// INFILE='DOESTAX.PROD.UC30DATA',
// JCLSTART=NJEUC30S,
// JCLEND=NJEUC30E
//**

18
JCL/DTSUC3HX.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSUC3HX JOB (UI,4300,3400,T),PROD.SEND.UC30H,
// CLASS=P,MSGCLASS=X,
// NOTIFY=ECNTJP2,
// USER=#DOADTS,
//**** TYPRUN=SCAN,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//**
//** TRANSMIT THE YRLY UC30H DATA FILE TO DHS. THIS DATA MUST
//** BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO A **>VENDOR
//** FOR PRINTING & MAILING<** OF THE UC30H FORMS.
//**
//STEP0100 EXEC PROC=NJESEND, /* UC30 DATA
// INFILE='DOESTAX.PROD.UC30HDAT',
// JCLSTART=NJEUC3HS,
// JCLEND=NJEUC3HE
//**

24
JCL/DTSXMTBX.jcl Normal file
View File

@ -0,0 +1,24 @@
//DTSXMTBX JOB (UI,4300,3400,T),PROD.OTR.EMPLR.REXMT, 00000010
// CLASS=P,MSGCLASS=X, 00000010
// USER=#DOADTS,
//**** TYPRUN=SCAN,
// NOTIFY=ECNTJP2,REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET LVLNODE='PROD'
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* RETRANSMIT THE FILE FOR OFF. OF TAX & REV. 00001700
//* (DATA ARE UPDATES TO UI TAX EMPLOYER NAMES AND ADDRESSES) 00001700
//* {FILE AT SHARE IS FRDWH.PRD.RS21.PRNDOTRE.DAT} 00001700
//* {CONTACT PERSON AT OTR IS MS. WIGGLESWORTH} 00001700
//* (NO BKP NEEDED FOR THIS RUN) 00001700
//** TRANSMIT FILES TO DC SHARE FOR FORWARDING
//** TO THE OFFICE OF TAX AND REVENUE
//STEP0400 EXEC PROC=NJESEND,
// INFILE='DOESTAX.PROD.OTR.TRNS.FILE(+0)',
// JCLSTART=NJEOTRES,
// JCLEND=NJEOTREE
//* 00047000

73
JCL/ECNTVCGQ.jcl Normal file
View File

@ -0,0 +1,73 @@
//ECNTVCGQ JOB (UI,4300,3400,T),CHGQTR.VIEWDIR, 00010016
// CLASS=P,MSGCLASS=X, 00011016
//*** TYPRUN=SCAN, 00020001
//*** USER=#DOADTS, 00021024
//**** NOTIFY=ECNTJP2,REGION=0M 00030031
// NOTIFY=ECNTSUP,REGION=0M 00031031
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PRGNODE='PROD' /* CREATE THE QUARTERLY REPORTS 00050015
// SET LVLNODE='PROD' /* AND FILES FOR THE QTR GIVEN 00060015
// SET CHGNODE='PROD' 00070015
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072020
// SET QTRLY='QTR041' /* QTRYYQ 00080031
// SET LDEST=U@PRT65 00090027
// SET LHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00100018
// SET LVDHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00101018
//***** 00110000
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY 00120000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//* (W) FOR RATED EMPLOYERS, BILLS (I) FOR SELF-INSURED (S-I) 00170000
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
//* ALONG WITH LABELS FOR THE S-I, CWC & FEDS. 00200000
//**** 00210000
//* PARMS FOR CHGBD205: 00220000
//* COLS. RUN TYPE: 00240000
//* 01-03 QTR = QUARTERLY 00250000
//* ANN = ANNUAL 00260000
//* MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED 00270000
//* EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER 00280000
//* RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM 00300000
//* TEU = PRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM 00320014
//* 00330000
//* 05-10 MMDDYY = START DATE OF SELECTION 00340000
//* 12-17 MMDDYY = END DATE OF SELECTION 00350000
//* 00351000
//* 19-23 YYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED: 00360000
//* - Y/N RATED REPORT (W)(O) 00390000
//* - Y/N SELF-INSURED REPORT (I)(O) 00400000
//* - Y/N CWC REPORT (O) 00410000
//* - Y/N FEDERAL REPORT (O) 00420000
//* - Y/N TEUC REPORT (O) 00430012
//* 00431000
//* 25-30 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER 00440000
//* (USED WITH RUN TYPE = EMP/MNE) 00450000
//* 00460000
//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM) 00470000
//* (OR NOT... FOR NOW) 00471000
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD * 00491000
RPT,010104,033104,YYYYNY,000000 00492031
/* 00500000
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500117
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500218
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500317
//**** 00501000
//* SYSIN CARD: RPT,010102,033102,YYYYNY,000000 00502027
//**** 00504000
//STEP0300 EXEC DTSCVRPQ 00510019
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) <-- 00511017
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. <-- 00511117
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) <-- 00511217
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE <-- 00512017
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE <-- 00513017
//STEP0200.RPT907R1 DD DUMMY /* UNUS.COND. <-- 00513118
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. <-- 00513218
//STEP0200.RPT980R1 DD DUMMY /* CNTRL.RPT. <-- 00513318
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS <-- 00514017
//* 00515016

9
JCL/G1EPPUT3.jcl Normal file
View File

@ -0,0 +1,9 @@
10.27.12.1
FTG1DOS1
DESUSR
EBCDIC
MODE BLOCK
SITE TR PRI=500 SEC=300 UNIT=WORK
PUT 'DOESTAX.TEST.GOV1.EFTEXT' 'FTG1DOS1.DOESTAX.HDVL.EFTEXT'
DIR
QUIT

3
JCL/GOVPODCP.jcl Normal file
View File

@ -0,0 +1,3 @@
/LOGON CA7BTCH,UIB1USR
DEMAND,JOB=DTSPODC6
/LOGOFF

9
JCL/OD1TOOD2.jcl Normal file
View File

@ -0,0 +1,9 @@
10.27.12.1
FTG1DOS1
DESUSR
EBCDIC
MODE BLOCK
SITE TR PRI=500 SEC=300 UNIT=WORK
PUT 'DOESTAX.TEST.GOV1.EFTEXT' 'FTG1DOS1.DOESTAX.HDVL.EFTEXT'
DIR
QUIT

40
JCL/RUNBZ057.jcl Normal file
View File

@ -0,0 +1,40 @@
//RUNBZ057 JOB (UI,4300,3400,T),RUNBZ057,CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//*
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ057, CORRECT 09/4 REPORTS ENTERED
// COND=(0,LT), LATE BY MISTAKE
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFZ057 DD DSN=DOESTAX.PROD.FZ057,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(2300,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=23,BLKSIZE=2300)
//*
//*********************************************************************

30
JCL/RUNBZ084.jcl Normal file
View File

@ -0,0 +1,30 @@
//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ084,CLASS=P,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//* 00001700
//STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//**** /* MERGE
//STEP0100 EXEC PGM=DTSBZ084, /* CORRECT DISCREPANCY BETWEEN
// COND=(0,LT), /* MQTR AND MJRN CAUSED BY
// REGION=4096K /* ERROR IN DTSBD350
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****

41
JCL/RUNBZ258.jcl Normal file
View File

@ -0,0 +1,41 @@
//ECNTSUPP JOB (UI,4300,3400,T),RUNBZ258,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ258, SCAN ATC FOR ANNUAL REPORTS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//EXPBZ258 DD DSN=DOESTAX.DEVL.DTSBZ258,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(29000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000)
//*********************************************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT258),DISP=SHR
//*********************************************************************

22
JCL/RUNBZ268.jcl Normal file
View File

@ -0,0 +1,22 @@
//RUNBZ268 JOB (UI,4300,3400,T),RUNBZ268,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
// SET LVLNODE='PROD' REGION NON MASTER FILES
// SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB
//*
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ268, INIT MADJ, MQTR
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//*********************************************************************

25
JCL/RUNBZ279.jcl Normal file
View File

@ -0,0 +1,25 @@
//RUNBZ279 JOB (UI,4300,3400,T),RUNBZ279,CLASS=A,MSGCLASS=X, 00000010
//** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
// SET LVLNODE='PROD' REGION NON VSAM MASTER FILES
// SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB
//*
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB
//**
//STEP0100 EXEC PGM=DTSBZ279, INIT AADJ
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//*
//DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//

30
JCL/RUNBZ312.jcl Normal file
View File

@ -0,0 +1,30 @@
//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ312,CLASS=P,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//**** /* MERGE
//* 00001700
//STEP0100 EXEC PGM=DTSBZ312, /* WITHDRAW MISSING REPORT PENALTY
// COND=(0,LT), /* WHERE QTR IS NOT LIABLE
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****

30
JCL/RUNBZ313.jcl Normal file
View File

@ -0,0 +1,30 @@
//ECNTGD11 JOB (UI,4300,3400,T),RUNWNAME,CLASS=A,MSGCLASS=X, 00000010
//** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//STEP0100 EXEC PGM=DTSBZ313,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//WORKRIN DD DSN=DOESTAX.DEVL.NEWHIRE.WORKER,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(30000,(400,200),RLSE),
// DCB=(RECFM=FB,LRECL=150,BLKSIZE=30000)
//*
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*****

21
JCL/RUNBZ330.jcl Normal file
View File

@ -0,0 +1,21 @@
//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ330,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ330, REPROCESS REPORTS
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*********************************************************************

21
JCL/RUNBZ365.jcl Normal file
View File

@ -0,0 +1,21 @@
//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ365,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ365, REVERSE 2008/1 DELINQ
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*********************************************************************

21
JCL/RUNBZ385.jcl Normal file
View File

@ -0,0 +1,21 @@
//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ385,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ385, CORRECT 155378
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*********************************************************************

120
JCL/RUNBZ800.jcl Normal file
View File

@ -0,0 +1,120 @@
//ECNT800R JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTSUP 00000299
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00000499
// SET LVLNODE='PROD' 00000599
// SET MSTNODE='PROD' 00000699
// SET PGMNODE='PROD' 00000799
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001399
//* 00001400
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001599
//* 00001600
//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799
//DOESIEDG EXEC PGM=IEBDG 00001899
//SYSPRINT DD SYSOUT=* 00001999
//LBLOUT DD DSN=&&TEMP,DISP=(,PASS,DELETE), 00002099
// UNIT=SYSDA, 00002199
// SPACE=(TRK,1), 00002299
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002399
//SYSIN DD * 00002499
DSD OUTPUT=(LBLOUT) 00002599
FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0' 00002699
CREATE QUANTITY=1,NAME=(F1) 00002799
END 00002899
/* 00002999
//DOESICAN EXEC PGM=IDCAMS 00003099
//SYSPRINT DD SYSOUT=* 00003199
//FILEIN DD DSN=&&TEMP, 00003299
// DISP=(OLD,PASS), 00003399
// UNIT=SYSDA 00003499
//*OESVRO1 DD DSN=DOESTAX.DEVL.TESTR901.LABELS,DISP=SHR 00003599
//DOESVRO1 DD DSN=&&LABELS, 00003699
// DISP=(NEW,PASS,DELETE), 00003799
// UNIT=SYSDA, 00003899
// SPACE=(8192,(1000,1000),RLSE), 00003999
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004099
//SYSIN DD * 00004199
REPRO INFILE(FILEIN) OUTFILE(DOESVRO1) 00004299
/* 00004399
//* 00004499
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G1245V00,DISP=SHR 00005099
//* DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G1569V00,DISP=SHR 00005099
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
// UNIT=SYSDA, 00007099
// SPACE=(8192,(1000,1000),RLSE), 00007199
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
//** TIME=(0,20), 00018299
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
//PARMIN DD * 00018899
DTSBD800,INC,117 00019199
/* 00019599
//** 00019699
//ATLSTIN DD * 00020000
DTSBD800, 00030000
/* 00031000
//** 117 W CLASS 00040099
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099
//**** NEED FOR 604 ONLY***** 00051099
//** 00060000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//* 00090099
//DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199
//RPC100R1 DD SYSOUT=* 00100299
//RPC100R2 DD SYSOUT=* 00100399
//RPC100R3 DD SYSOUT=* 00100499
//RPC110R1 DD SYSOUT=* 00100699
//RPC110R2 DD SYSOUT=* 00100799
//RPT117R1 DD SYSOUT=* 00100899
//RPT117R2 DD SYSOUT=* 00100899
//RPC120R1 DD SYSOUT=* 00100899
//RPC130R1 DD SYSOUT=* 00100999
//RPT414R1 DD SYSOUT=* 00100999
//RPT414R2 DD SYSOUT=* 00100999
//RPT416R1 DD SYSOUT=* 00100999
//RPT416R2 DD SYSOUT=* 00100999
//RPT303R1 DD SYSOUT=* 00100999
//RPT303R2 DD SYSOUT=* 00100999
//RPT907R1 DD SYSOUT=* 00100999
//RPT907R2 DD SYSOUT=* 00101099
//RPC150R1 DD SYSOUT=* 00101199
//RPC160R1 DD SYSOUT=* 00101299
//RPT908R1 DD SYSOUT=* 00106799
//*************************************************************** 00106899
//PRINTER DD SYSOUT=* 00110599
//** CONTROL REPORT SUMMARY 00110699
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799
// HOLD=YES, 00110899
// DEST=U@PRT65 00110999
//** 00111000
//* 00120099
//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099
// COND=(0,LT), 00140099
// REGION=4096K 00150099
//SYSOUT DD SYSOUT=* 00151099
//SYSABOUT DD SYSOUT=* 00152099
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//DOESLBL1 DD SYSOUT=* 00155299
//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199
// 00157099

97
JCL/RUNGPAYT.jcl Normal file
View File

@ -0,0 +1,97 @@
//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//********************************************************************
//**** TDEC PAYMENT FILES ARE ENCRYPTED USING PKZIP
//**** WITH OCTO DATA CENTER PUBLIC KEY.
//****
//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN
//****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//****
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//******** CHANGE QTR PARM TO CURRENT QTR **********
// SET CURRQTR='Q2017Q4'
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES'
// SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//**** GET TDEC ENCRYPTED REPORT PAYMENT FILE
//********************************************************************
//*********************************************************************
//*STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
//* COND=(4,LT) GENERATION
//*SYSPRINT DD SYSOUT=*
//*INDD01 DD DUMMY
//*OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//*
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
//*
//********************************************************************
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//********************************************************************
//*
//*ECRYPT EXEC SECPDEC,COND=(0,LT)
//DECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//*** COPY TDEC REPORT PAYMENT FILE TO BACKUP QUARTER FILE
//**
//********************************************************************
//**
//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR.,
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//**