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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
JCL/CHGBD800.jcl Normal file
View File

@ -0,0 +1,93 @@
//ECNT800R JOB (UI,4300,3400,T),'DTSBR451/452',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.CHG.BD220.RPT.QTR142,DISP=SHR 00005099
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
// UNIT=SYSDA, 00007099
// SPACE=(8192,(1000,1000),RLSE), 00007199
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 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=CHGBD800, 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
CHGBD800,INC,100 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
//RPC120R1 DD SYSOUT=* 00100899
//RPC130R1 DD SYSOUT=* 00100999
//RPC140R1 DD SYSOUT=* 00101099
//RPC150R1 DD SYSOUT=* 00101199
//RPC160R1 DD SYSOUT=* 00101299
//RPT980R1 DD SYSOUT=* 00101299
//RPT980R2 DD SYSOUT=* 00101299

38
JCL/DESBD100.jcl Normal file
View File

@ -0,0 +1,38 @@
//DESBD100 JOB (UI,4300,3400,T),PROD.BD100.UPDT, 00000010
// CLASS=P,MSGCLASS=X, 00000010
//*** TYPRUN=SCAN,
// NOTIFY=ECNTSUP,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//****
// SET LVLNODE='PROD'
// SET LHOLD='YES'
//****
//* RPT101R1 = PACKING LIST REPORT
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//**** /* GET PACKING LIST RECORD(S)
//STEP0150 EXEC PGM=DESBD100
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFOLAI DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR,
// AMP=('BUFND=10')
//DESBD100 DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DESBD100),
// DISP=SHR
//DTSFVRO1 DD DSN=&&BD100R,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//****
//**** SORT REPORT RECORDS
//STEP0200 EXEC DESRSORT,
// LGEN='(+1)'
//STEP0100.SORTIN DD DSN=&&BD100R,
// DISP=(OLD,DELETE,DELETE)
//* REPORT GENERATION
//STEP0300 EXEC DESRQRPT
//STEP0100.RPT101R1 DD HOLD=NO
//STEP0100.RPT980R1 DD HOLD=NO
//**

77
JCL/DESBD427.jcl Normal file
View File

@ -0,0 +1,77 @@
//DESBD427 JOB (UI,4300,3400,T),ZZ,CLASS=A,MSGLEVEL=(1,1), 00010001
// USER=#DOADTS, 00020011
// MSGCLASS=X,NOTIFY=ECNTZL1,REGION=4096K 00020111
//* 00020208
//*************************************************** 00020308
//***** LOAD ESSP SSN AND NAMES INTO DUTAS NAME FILE 00020408
//*************************************************** 00020508
//* LOAD DUTAS WAGE NAME FILE WITH SSN AND NAMES FROM ESSP DAILY 00020608
//* WAGE FILE. NAMES WILL BE MERGED WITH SSN ON OHTER JOBS. 02/10/18 00020708
//*************************************************** 00020808
//* 00020908
// SET LVLNODE='DEVL' 00021008
// SET MSTNODE='PROD' 00021108
//* 00021608
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00021708
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
//* 00022008
//******************************************************************** 00029800
//* SORT OUT UNIQUE SSN(S) RECORDS FROM ESSP X144 QUARTERLY WAGE 00029903
//* FILE. ZL1 00030000
//* FILE. ZL1 00030112
//* CHANGED SYNCSORT TO SORT PER OCTO, SYNCSORT ENDED 10/01/22 ZL1 00030212
//***************************************************************** 00030312
//* 00030412
//STEP0200 EXEC PGM=SORT 00031012
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR 00050007
//SORTOUT DD DSN=&&ESSPSSN, 00050106
// DISP=(NEW,PASS,DELETE), 00050206
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=120,BLKSIZE=1200) 00050406
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00110000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00120000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00130000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00140000
//SYSIN DD * 00150000
SORT FIELDS=(28,9,CH,A) 00160002
SUM FIELDS=NONE 00170000
END 00180000
//* 00201006
//******************************************************************** 00202000
//* READ WAGE NAME FILE IF SSN FOUND CHECK NAME, IF DIFFERENT UPDATE 00203000
//* IF SSN NOT FOUND ADD TO DATABASE ZL1 00204000
//***************************************************************** 00205000
//* 00206000
//****************************************************************** 00210000
//STEP0300 EXEC PGM=DESBD427, 00220001
// COND=(0,LT), 00230000
// REGION=0M 00240000
//SYSOUT DD SYSOUT=* 00250000
//SYSABOUT DD SYSOUT=* 00260000
//SYSABEND DD SYSOUT=* 00270000
//SYSUDUMP DD SYSOUT=* 00280000
//* 00290000
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR, 00300006
// AMP=('BUFNI=5,BUFND=10') 00310000
//* 00320000
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
//* 00340000
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,DISP=SHR 00351013
//* 00360000
//********************************************************************* 00370000
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007
//** 00400007
//******************************************************************** 00410007
//** 00420007
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
//** 00450007
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD 00460011
//SYSPRINT DD SYSOUT=(*) 00500007
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
//** 00520007

73
JCL/DESBD998.jcl Normal file
View File

@ -0,0 +1,73 @@
//ECNTSUP9 JOB (UI,4300,3400,T),ZARATH,CLASS=A,MSGCLASS=X, 00000010
//*** TYPRUN=SCAN,
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//*********************************************************************
//* 00000200
// SET LVLNODE='PROD'
//* 00000200
//* 00000200
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00000300
//* 00000400
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=IDCAMS, DELETE/DEFINE MSTE FILE
// COND=(0,LT),
// REGION=0K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSE),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBD998, INITIALIZE ELF FILES
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTE DD DSN=DOESTAX.&LVLNODE..VSAM.MSTE,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIMSTE),DISP=SHR
//* 00001700
//STEP0300 EXEC PGM=IDCAMS, DELETE/DEFINE MSTF FILE
// COND=(0,LT),
// REGION=0K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSF),DISP=SHR
//*
//STEP0400 EXEC PGM=DTSBD998, INITIALIZE ELF FILES
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTF DD DSN=DOESTAX.&LVLNODE..VSAM.MSTF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIMSTF),DISP=SHR
//*
//STEP0500 EXEC PGM=IDCAMS, DELETE/DEFINE MSTG FILE
// COND=(0,LT),
// REGION=0K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDMSG),DISP=SHR
//*
//STEP0600 EXEC PGM=DTSBD998, INITIALIZE ELF FILES
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTG DD DSN=DOESTAX.&LVLNODE..VSAM.MSTG,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIMSTG),DISP=SHR
//*
//*TEP0700 EXEC PGM=DTSBZ067, CLEAR AIX FILE
//* COND=(0,LT),
//* REGION=4096K
//*YSOUT DD SYSOUT=*
//*YSABOUT DD SYSOUT=*
//*YSABEND DD SYSOUT=*
//*AIMRPTS DD SYSOUT=*
//*TSFAIX DD DSN=DOESTAX.&LVLNODE..VSAM.AIX,DISP=SHR,
//* AMP=('BUFNI=5,BUFND=10')
//*

15
JCL/DESBLAIX.jcl Normal file
View File

@ -0,0 +1,15 @@
//ECNTSUPX JOB (UI,4300,3400,T),BLDAIX,CLASS=P,MSGCLASS=X, 00000113
// USER=#DOADTS, 00000212
//*** TYPRUN=SCAN, 00000311
// NOTIFY=ECNTSUP 00000412
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00000515
// SET LVLNODE='PROD' 00000612
//**** 00000715
//* REBUILDS ALTERNATE INDEX FILE (AIX) 00001215
//**** 00001515
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001715
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001800
//** 00001915
//STEP0100 EXEC DESUAIX 00002005
//**** 00003015

103
JCL/DESEMTD1.jcl Normal file
View File

@ -0,0 +1,103 @@
//DESEMTD1 JOB (UI,4300,3400,T),PROD.EMTDLY.INPROD, 00010009
// CLASS=P,MSGCLASS=X 00020009
//**** TYPRUN=SCAN, 00030002
// USER=#DOADTS, 00040016
// NOTIFY=ECNTSUP,REGION=0M 00050015
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00051018
//**********************************************************************00051018
//** 00051018
//** THIS JOB WAS REMOVED FROM SCHEDULE ON 8/12/11 DUE TO INACTIVITY 00051018
//** ON THE L5 THRU L9 SCREENS. ..................... ZL1 00051018
//** 00051018
//**********************************************************************00051018
//* RUN THE TAPE TRACKING (TT) DAILY 00052018
//* (MORE FORMALLY KNOWN AS {EMT} IN SOME CIRCLES) 00053018
//* 00054018
//* NOTE: THIS JOB RUNS AFTER A SUCCESSFUL UI TAX PROD DAILY 00055018
//**** 00060009
// SET LVLNODE='PROD' 00070009
// SET LDEST=U@PRT65 00080004
// SET LHOLD='YES' 00090004
// SET BKUPGEN='(+1)' 00093006
//*** SET TRANEMI='DOESTAX.PROD.BKP.EMTRAN(+0)' 00100010
//*** SET TRANW4I='DOESTAX.PROD.BKP.W4TRAN(+0)' 00110010
//*** SET TRANEMI='DOESTAX.CONV.GBEMTRAN' 00120002
//*** SET TRANW4I='DOESTAX.CONV.GBW4TRAN' 00130002
//**** 00190002
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00210002
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00220002
//**** 00220106
//* BACKUP THE GBEMTRAN FILE 00220206
//**** 00220406
//STEP0050 EXEC PGM=IDCAMS, 00221006
// COND=(0,LT) 00222006
//SYSPRINT DD SYSOUT=* 00223006
//INDD01 DD DSN=DOESTAX.CONV.GBEMTRAN,DISP=SHR 00224006
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BKP.EMTRAN&BKUPGEN., 00225006
// DISP=(,CATLG,DELETE), 00226006
// UNIT=CART, 00227006
// VOLUME=(,RETAIN), 00228006
// LABEL=(1,SL), 00229006
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00229106
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00229214
//**** 00229306
//* BACKUP THE GBW4TRAN FILE 00229406
//**** 00229506
//STEP0075 EXEC PGM=IDCAMS, 00229706
// COND=(0,LT) 00229806
//SYSPRINT DD SYSOUT=* 00229906
//INDD01 DD DSN=DOESTAX.CONV.GBW4TRAN,DISP=SHR 00230006
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BKP.W4TRAN&BKUPGEN., 00230106
// DISP=(,CATLG,DELETE), 00230206
// UNIT=CART, 00230306
// VOLUME=(,RETAIN,REF=*.STEP0050.OUTDD01), 00230406
// LABEL=(2,SL), 00230506
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=90,BLKSIZE=9000) 00230606
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00230714
//**** 00231002
//* RESTORE THE SPEC OLA BACKUP FROM THE DAILY (DTSPDAY1) 00240004
//**** 00250002
//STEP0100 EXEC DESOLARS, 00260004
// LVLNDIN='PROD',LVLNDOUT='PROD', 00270010
// BKUPGEN='(+0)' 00271017
//**** 00280002
//* SCAN THE PROD.OLA FOR ANY TYPE 061 TT UPDT TRX'S 00290004
//* (SUCH AS EMT RECS, OR W4 RECS, ETC.) 00300002
//* 00310002
//STEP0200 EXEC DESBD110 00320002
//**STEP0100.INDD01 DD DSN=&TRANEMI.,DISP=SHR 00330010
//**STEP0110.INDD01 DD DSN=&TRANW4I.,DISP=SHR 00340010
//**** 00350002
//* PERFORM THE ELECTRONIC MEDIA DAILY UPDATE 00360002
//* (SAVE THE EMT TRX'S OFF TO GDG FILES) 00370002
//* 00380002
//STEP0300 EXEC DESBD220 00390002
//**** 00400002
//* PERFORM EHDR MAINTENANCE 00410002
//* (SUCH AS UPDATING THE LOG # LAST USED) 00420002
//* 00430002
//STEP0400 EXEC DESBD130 00440002
//**** 00450002
//* ZAP THE OLA FILE (AGAIN - SAME AS AT END OF DAILY) 00460005
//* 00470002
//STEP0500 EXEC DESOLAZP 00480005
//**** 00501005
//* SORT THE DES RPT RECORDS 00502005
//* 00503005
//STEP0700 EXEC DESRSORT, 00504005
// LGEN='(+1)' 00505005
//**** 00506005
//* PRINT THE DES RPT RECORDS 00510002
//* 00520002
//STEP0800 EXEC DESRQRPT 00530002
//STEP0100.RPT101R1 DD HOLD=YES 00540002
//STEP0100.RPT102R1 DD HOLD=YES 00550002
//STEP0100.RPT102R2 DD HOLD=YES 00560002
//STEP0100.RPT980R1 DD HOLD=YES 00570002
//**** 00590007
//* STD BACKUP AFTER EMT DAILY 00600007
//* 00610007
//STEP0900 EXEC DTSUTVSM, 00620008
// BKUPGEN='(+1)' 00630007
//**** 00640007

22
JCL/DESRQ300.jcl Normal file
View File

@ -0,0 +1,22 @@
//DESRQ300 JOB (UI,4300,3400,T),WAGE-FILE-UPD,CLASS=S,MSGCLASS=X, 00000010
//** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET UINODE='PROD' REGION VSAM MASTER FILES
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB
//*
//****
//* UI TAX DAILY WAGE FILE REBUILD *
//* *
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES IN THE *
//* CICS REGION. *
//* *
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC DESBD300 EXTRACT DATA FROM WAGE FILE
//*********************************************************************

20
JCL/DESRQ320.jcl Normal file
View File

@ -0,0 +1,20 @@
//DESRQ320 JOB (UI,4300,3400,T),WAGE-NAME,CLASS=S,MSGCLASS=X, 00000010
//** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//**
// SET UINODE='PROD' REGION BENEFITS FILE
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB
//***********************************************************
//* RUNTYPE = C: REBUILD FILE
//* RUNTYPE = D: DAILY INCREMENTAL UPDATE
//***********************************************************
// SET RUNTYPE='D'
//*
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC DESBD320 BUILD WORKER NAME FILE
//*********************************************************************

27
JCL/DESTTCNV.jcl Normal file
View File

@ -0,0 +1,27 @@
//DESTTCNV JOB (UI,4300,3400,T),EMT2PRD,CLASS=A,MSGCLASS=X, 00000010
//**** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTJP2,REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//****
// SET LVLNODE='PROD'
// SET BCKNODE='BACKUP'
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00000300
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//**** 00000500
//* SPECIAL JOB TO RUN A CONVERSION OF EMT TO THE PROD REGION. 00000700
//****
//STEP0100 EXEC DTSUTVSM, /* BACKUP THE WORKING REGION
// LVLNODE='PROD',BKUPGEN='(+1)'
//****
//**STEP0200 EXEC AXXX2XXX, /* BRING IN ALL MST FILES FROM PROD
//** LVLNDIN='PROD',LVLNDOUT='PROD',BKUPGEN='(-1)'
//****
//STEP0300 EXEC EXXX2XXX, /* BRING IN MSTE/F/G FROM TEST
// LVLNDIN='TEST',LVLNDOUT='PROD',BKUPGEN='(+0)'
//****
//STEP0400 EXEC DESBZ067 /* DELETE TAPE TRACKING AIX RECS
//***
//STEP0400 EXEC DESUAIX /* REBUILD AIX RECORDS
//***

42
JCL/DTS715R1.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTS715R1 JOB (UI,4300,3400,T),TPS-STATUS-NEW, 00010041
// CLASS=P,MSGCLASS=X, 00020038
//**** TYPRUN=SCAN, 00030038
// NOTIFY=ECNTSUP 00040038
//** 00050038
// SET LVLNODE='PROD' 00060038
// SET TPSFILE1='DOESTAX.PROD.RPT715.YR2014' <<< CHANGE CC BEF RUN 00070043
// SET PRINTER1='DOESTAX.PROD.STATUS1.YR2014' <<< CHANGE CC BEF RUN 00080045
// SET PICKLST='DOESTAX.PROD.PICKLST1.YR2014' <<< CHANGE CC BEF RUN 00080045
// SET LDEST=U@PRT65 00090038
//**----------------------------------------------------------------- 00100038
//* JOB: TPS RUN FROM RPT715 - STATUS DETERMINATION 00110038
//* (RPT715 IS PRODUCED BY RUNRQ715) 00120038
//* 00130038
//* THE PRINTER FILE IS NOW CREATED ON DASD. SEE SET STATEMENT 00140038
//* FOR THE DATASET NAME. DOWNLOAD THE FILE FOR INPUTTO A SPREAD SHEET00150038
//* 00200038
//* RUN THIS JOB FOR STATUS1 = NEW 00160040
//* RUN JOB DTS715R2 STATUS2 = SUCCESSOR 00170040
//* RUN JOB DTS715R3 STATUS3 = INACTIVATED 00180040
//* 00200038
//**----------------------------------------------------------------- 00210038
//* DEFINITION FOR PARMIN: 00220038
//* COLS 1-1 TRANSACTION TYPE (1, 2 OR 3) 00230038
//* - 1 = NEW, 2 = SUCCESSOR, 3 = INACTIVATED 00240038
//* COLS 3-5 RANDOM NUMBER (PICK ONE) 00250038
//* 7-10 NUMBER TO BE SAMPLED 00260038
//* - 4 DIGITS RIGHT JUSTIFIED 00270038
//* - ENTER LEADING ZEROES IF NEEDED 00280038
//* 12-13 SAMPLE TYPE 00290038
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
//* 15-18 YYYY 00310038
//**----------------------------------------------------------------- 00320038
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
//** 00350038
//STEP0100 EXEC DTSTP715 00360038
//STEP0100.PARMIN DD * 00370038
1,398,0060,A1,2014 00380045
/* 00390038
// 00400038
//** 00410038

42
JCL/DTS715R2.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTS715R2 JOB (UI,4300,3400,T),TPS-STATUS-SUCC, 00010041
// CLASS=P,MSGCLASS=X, 00020038
//**** TYPRUN=SCAN, 00030038
// NOTIFY=ECNTSUP 00040038
//** 00050038
// SET LVLNODE='PROD' 00060038
// SET TPSFILE1='DOESTAX.PROD.RPT715.YR2012' <<< CHANGE CC BEF RUN 00070043
// SET PRINTER1='DOESTAX.PROD.STATUS2.YR2012' <<< CHANGE CC BEF RUN 00080045
// SET PICKLST='DOESTAX.PROD.PICKLST2.YR2012' <<< CHANGE CC BEF RUN 00080045
// SET LDEST=U@PRT65 00090038
//**----------------------------------------------------------------- 00100038
//* JOB: TPS RUN FROM RPT715 - STATUS DETERMINATION 00110038
//* (RPT715 IS PRODUCED BY RUNRQ715) 00120038
//* 00130038
//* THE PRINTER FILE IS NOW CREATED ON DASD. SEE SET STATEMENT 00140038
//* FOR THE DATASET NAME. DOWNLOAD THE FILE FOR INPUTTO A SPREAD SHEET00150038
//* 00130038
//* RUN JOB DTS715R1 FOR STATUS1 = NEW 00160040
//* RUN THIS JOB FOR STATUS2 = SUCCESSOR 00170040
//* RUN JOB DTS713R3 FOR STATUS3 = INACTIVATED 00180040
//* 00200038
//**----------------------------------------------------------------- 00210038
//* DEFINITION FOR PARMIN: 00220038
//* COLS 1-1 TRANSACTION TYPE (1, 2 OR 3) 00230038
//* - 1 = NEW, 2 = SUCCESSOR, 3 = INACTIVATED 00240038
//* COLS 3-5 RANDOM NUMBER (PICK ONE) 00250038
//* 7-10 NUMBER TO BE SAMPLED 00260038
//* - 4 DIGITS RIGHT JUSTIFIED 00270038
//* - ENTER LEADING ZEROES IF NEEDED 00280038
//* 12-13 SAMPLE TYPE 00290038
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
//* 15-18 YYYY 00310038
//**----------------------------------------------------------------- 00320038
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
//** 00350038
//STEP0100 EXEC DTSTP715 00360038
//STEP0100.PARMIN DD * 00370038
2,547,0060,A1,2012 00380045
/* 00390038
// 00400038
//** 00410038

42
JCL/DTS715R3.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTS715R3 JOB (UI,4300,3400,T),TPS-STATUS-INAV, 00010041
// CLASS=P,MSGCLASS=X, 00020038
//**** TYPRUN=SCAN, 00030038
// NOTIFY=ECNTSUP 00040038
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00050038
// SET LVLNODE='PROD' 00060038
// SET TPSFILE1='DOESTAX.PROD.RPT715.YR2012' <<< CHANGE CC BEF RUN 00070043
// SET PRINTER1='DOESTAX.PROD.STATUS3.YR2012' <<< CHANGE CC BEF RUN 00080045
// SET PICKLST='DOESTAX.PROD.PICKLST3.YR2012' <<< CHANGE CC BEF RUN 00080045
// SET LDEST=U@PRT65 00090038
//**----------------------------------------------------------------- 00100038
//* JOB: TPS RUN FROM RPT715 - STATUS DETERMINATION 00110038
//* (RPT715 IS PRODUCED BY RUNRQ715) 00120038
//* 00130038
//* THE PRINTER FILE IS NOW CREATED ON DASD. SEE SET STATEMENT 00140038
//* FOR THE DATASET NAME. DOWNLOAD THE FILE FOR INPUTTO A SPREAD SHEET00150038
//* RUN JOB DTS715R1 FOR STATUS1 = NEW 00160040
//* RUN JOB DTS715R2 FOR STATUS2 = SUCCESSOR 00170040
//* RUN THIS JOB FOR STATUS3 = INACTIVATED 00180040
//* 00200038
//**----------------------------------------------------------------- 00210038
//* DEFINITION FOR PARMIN: 00220038
//* COLS 1-1 TRANSACTION TYPE (1, 2 OR 3) 00230038
//* - 1 = NEW, 2 = SUCCESSOR, 3 = INACTIVATED 00240038
//* COLS 3-5 RANDOM NUMBER (PICK ONE) 00250038
//* 7-10 NUMBER TO BE SAMPLED 00260038
//* - 4 DIGITS RIGHT JUSTIFIED 00270038
//* - ENTER LEADING ZEROES IF NEEDED 00280038
//* 12-13 SAMPLE TYPE 00290038
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
//* 15-18 YYYY 00310038
//**----------------------------------------------------------------- 00320038
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
//** 00350038
//STEP0100 EXEC DTSTP715 00360038
//STEP0100.PARMIN DD * 00370038
3,483,0060,A1,2012 00380045
/* 00390038
// 00400038
//** 00410038

100
JCL/DTSACH01.jcl Normal file
View File

@ -0,0 +1,100 @@
//DTSACH01 JOB (UI,4300,3400,T),'ACHREPORT',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTSUP 00000299
//** 00000499
// SET LVLNODE='PROD' 00000599
// SET MSTNODE='PROD' 00000699
// SET FYYEAR='FY2009' 00000699
// SET LVDHOLD='YES'
// SET LDEST='LOCAL'
//** 00000499
//******************************************************************** 00000499
//** THIS JOB WILL REPRINT ANY REPORT TYPES THAT HAVE BEEN ARCHIVED * 00000499
//** SEE PROGRAM DTSACH01 FOR A LIST OF REPORTS THAT HAVE BEEN * 00000499
//** ARCHIVED. * 00000499
//** DUTAS ARCHIVE MASTER FILE: DOESTAX.PROD.ARCHIVE.FY2009.FY???? * 00000499
//** * 00000499
//** TO REPRINT REPORTS PERFORM THE FOLLOWING BEFORE SUBMITTING JOB: * 00000499
//** 1. INPUT EMPLOYER NUMBERS INTO DOESTAX.PROD.ARCHIVE.EMPL * 00000499
//** 2. CHANGE PARM CARD IN STEP0300 * 00000499
//** PARM CARD FORMAT: 417002009061020090610 * 00019199
//** A. 1-3 = REPORT TYPE TO REPRINT * 00000499
//** B. 4-5 = REPORT SUB TYPE(ALWAYS 00) * 00000499
//** C. 6-13 = MAIL START DATE (YYYYMMDD) * 00000499
//** D. 14-21 = MAIL END DATE (YYYYMMDD) * 00000499
//** * 00000499
//** 3. CHANGE PARM CARD IN STEP0100 FOR REPORT NUMBER -DTSAR309 * 00000499
//******************************************************************** 00004549
//** * 00000499
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001399
//* 00001400
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
//* 00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR 00005099
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.&FYYEAR.,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.RATE517.FIXRPT.YR2014,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.YR2014,DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G2621V00,DISP=SHR 00005099
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.REPORTS,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(8192,(9000,9000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR414),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.DEVL.ARCHIVE.COLLDBT,DISP=SHR 00071099
//*ORTOUT DD DSN=DOESTAX.DEVL.ARCHIVE.COLLDBT,DISP=SHR 00071099
//SORTIN DD DSN=DOESTAX.DEVL.ARCHIVE.EMPL,DISP=SHR 00005099
//SORTOUT DD DSN=DOESTAX.DEVL.ARCHIVE.EMPL,DISP=SHR 00005099
//*ORTIN DD DSN=ECNTSUP.DOESTAX.DEVL.ACH.EMPL,DISP=SHR 00071099
//*ORTOUT DD DSN=ECNTSUP.DOESTAX.DEVL.ACH.EMPL,DISP=SHR 00071099
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSEMPL),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE) 00007499
//********************************************************************* 00018000
//STEP0300 EXEC PGM=DTSACH01, ARCHIVE REPRINT PGM 00018100
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//DTSACHPM DD * 00018899
309002016010120160401 00019199
/* 00019599
//** 00019699
//*DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//* 00090099
//DTSACHEM DD DSN=DOESTAX.DEVL.ARCHIVE.EMPL,DISP=SHR 00071099
//*TSACHEM DD DSN=ECNTSUP.DOESTAX.DEVL.ACH.EMPL,DISP=SHR 00071099
//DTSACHIN DD DSN=DOESTAX.PROD.ARCHIVE.REPORTS,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFVRO1 DD DSN=&&RPTOUT,
//*TSFVRO1 DD DSN=DOESTAX.DEVL.REPORTS,
// DISP=(NEW,PASS,DELETE),
//* DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00100199
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//* 00157099
//STEP0400 EXEC DTSACH01 00018100
// 00157099

95
JCL/DTSACHZ1.jcl Normal file
View File

@ -0,0 +1,95 @@
//DTSACH01 JOB (UI,4300,3400,T),'ACHREPORT',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTSUP 00000299
//** 00000499
// SET LVLNODE='PROD' 00000599
// SET MSTNODE='PROD' 00000699
// SET FYYEAR='FY2009' 00000699
// SET LVDHOLD='YES'
// SET LDEST='LOCAL'
//** 00000499
//******************************************************************** 00000499
//** THIS JOB WILL REPRINT ANY REPORT TYPES THAT HAVE BEEN ARCHIVED * 00000499
//** SEE PROGRAM DTSACH01 FOR A LIST OF REPORTS THAT HAVE BEEN * 00000499
//** ARCHIVED. * 00000499
//** DUTAS ARCHIVE MASTER FILE: DOESTAX.PROD.ARCHIVE.FY2009.FY???? * 00000499
//** * 00000499
//** TO REPRINT REPORTS PERFORM THE FOLLOWING BEFORE SUBMITTING JOB: * 00000499
//** 1. INPUT EMPLOYER NUMBERS INTO DOESTAX.PROD.ARCHIVE.EMPL * 00000499
//** 2. CHANGE PARM CARD IN STEP0300 * 00000499
//** PARM CARD FORMAT: 417002009061020090610 * 00019199
//** A. 1-3 = REPORT TYPE TO REPRINT * 00000499
//** B. 4-5 = REPORT SUB TYPE(ALWAYS 00) * 00000499
//** C. 6-13 = MAIL START DATE (YYYYMMDD) * 00000499
//** D. 14-21 = MAIL END DATE (YYYYMMDD) * 00000499
//** * 00000499
//******************************************************************** 00004549
//** * 00000499
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001399
//* 00001400
//LOADLIBS INCLUDE MEMBER=DTSIXLIB 00001599
//* 00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR 00005099
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.&FYYEAR.,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.AN2010,DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G2621V00,DISP=SHR 00005099
//*SORTOUT DD DSN=&&SRTOUT,
//* DISP=(NEW,PASS,DELETE),
//SORTOUT DD DSN=DOESTAX.DEVL.ARCHIVE.R417,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(8192,(9000,9000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR417),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSEMPL),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE) 00007499
//********************************************************************* 00018000
//STEP0300 EXEC PGM=DTSACH01, ARCHIVE REPRINT PGM 00018100
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//DTSACHPM DD * 00018899
417002013082020130930 00019199
/* 00019599
//** 00019699
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//* 00090099
//DTSACHEM DD DSN=DOESTAX.&LVLNODE..ARCHIVE.EMPL,DISP=SHR 00071099
//*DTSACHIN DD DSN=&&SRTOUT,
//* DISP=(OLD,PASS,DELETE),
//DTSACHIN DD DSN=DOESTAX.DEVL.ARCHIVE.R417,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFVRO1 DD DSN=&&RPTOUT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00100199
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//* 00157099
//STEP0400 EXEC DTSACH01 00018100
// 00157099

38
JCL/DTSBE405.jcl Normal file
View File

@ -0,0 +1,38 @@
//DTSBE405 JOB (UI,4300,3400,T),DEVL.BE418,CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
//**** TYPRUN=SCAN,
// REGION=0M
//****
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
// SET LHOLD='YES'
//****
//* JOB : PRINT LIENS RELEASES (405) DAILY AFTER PDAY1
//****
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//****
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*********************************************************************
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
// RUNTYPE='QD',
// PREBACK='Y'
//STEP0100.EXTPARM DD *
405
/*
//*STOP HERE - CALL JOB DTSBX405 TO CREATE LIEN 405 RECORDS.
//*
//*TEP0200 EXEC DTSRSORT
//* REPORT GENERATION
//*TEP0300 EXEC DTSRQRPT
//*TEP0100.RPT405R1 DD HOLD=YES
//*TEP0100.RPT405R2 DD HOLD=YES
//*TEP0100.DTS901R1 DD HOLD=YES
//*TEP0100.RPT907R1 DD HOLD=YES
//*TEP0100.RPT907R2 DD HOLD=YES
//*TEP0100.RPT980R1 DD HOLD=YES
//*OESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
//* 00640000

18
JCL/DTSBINIT.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSBINIT JOB (UI,4300,3400,T),PROD.DAILY,CLASS=P,MSGCLASS=X,
// NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN,
//**** TYPRUN=HOLD,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET EXTNODE='CONV'
// SET PGMNODE='PROD'
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//STEP0100 EXEC DTSBINIT
//

18
JCL/DTSBKEXT.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSEXBKP JOB (UI,4300,3400,T),JHP.PROD.BKP, 00000112
//**** TYPRUN=SCAN, 00000205
//*** USER=#DOADTS, 00000317
// CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP, 00000415
// REGION=0M 00000514
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00000614
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00000714
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
//**** 00000914
//* UI TAX BACKUP EXTERNAL WEB FILES * 00001000
//* * 00001100
// SET LVLNODE='PROD' 00001712
// SET FTPNODE='PROD' 00001712
// SET EXTNODE='CONV' 00001712
//**** 00001712
//STEP0100 EXEC DTSBKEXT, 00002102
// BKUPGEN='(+1)' 00003000

18
JCL/DTSBKPDQ.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSBKPDQ JOB (ES),VCOPY3,CLASS=A,MSGCLASS=X, 00000010
// USER=#DTSDOA,
// NOTIFY=ECNTSUP
//**********************************************************************
//* TAKE A MONTHLY BACKUP OF TDEC DAILY DELINQ WAGE FILE
//*
//**********************************************************************
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09 DD DSN=DOESTAX.CONV.TDECX154.SAVDWAGE.DELQ,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.BKPDWAGE.MONEND.DELQ(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD *
REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************

18
JCL/DTSBKPOT.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSBKPOT JOB (ES),VCOPY3,CLASS=A,MSGCLASS=X, 00000010
// USER=#DTSDOA,
// NOTIFY=ECNTSUP
//**********************************************************************
//* TAKE A MONTHLY BACKUP OF TDEC DAILY ONTIME WAGE FILE
//*
//**********************************************************************
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09 DD DSN=DOESTAX.CONV.TDECX154.SAVDWAGE.OTIM,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.CONV.BKPDWAGE.MONEND.OTIM(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD *
REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************

19
JCL/DTSBKPW4.jcl Normal file
View File

@ -0,0 +1,19 @@
//DTSBKPW4 JOB (ES),BACKUP-W4FILE,CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//**********************************************************************
//*
//* TAKE MONTHLY BACKUP OF DTSPDAY1 WAGE W4FILE
//*
//**********************************************************************
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09 DD DSN=DOESTAX.PROD.BACKUP.W4FILE,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.BACKUP.MONEND.W4FILE(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
//SYSIN DD *
REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************

18
JCL/DTSBX122.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSBX122 JOB (UI,4300,3400,T),TEST.BX122,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//*
//* DAILY BATCH CONTROL SUMMARY REPORT RECORDS
//*
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*
//STEP0100 EXEC DTSBX122
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
// DISP=SHR
//*
//

12
JCL/DTSBX202.jcl Normal file
View File

@ -0,0 +1,12 @@
//DTSBX202 JOB (UI,4300,3400,T),RUNBX202,CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// 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 DTSBX202
//*********************************************************************

26
JCL/DTSBX215.jcl Normal file
View File

@ -0,0 +1,26 @@
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//*
//* DAILY BATCH CONTROL SUMMARY REPORT RECORDS
//*
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*
//* 00070000
//STEP0200 EXEC DTSBX215
//* 00014000
//*****************************************
//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(DTSFT310),DISP=SHR
//

83
JCL/DTSBX303.jcl Normal file
View File

@ -0,0 +1,83 @@
//DTSBX303 JOB (UI,4300,3400,T),DTSBX303,CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
//****************************************************************** 00001700
//* COPY REFUND TRANSACTIONS PRODUCTION. 00001700
//****************************************************************** 00001700
//* 00001700
// SET LVLNODE='PROD'
//* 00001700
//****************************************************************** 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//*********************************************************************
//STEP0100 EXEC PGM=DTSBU192, CHECK FOR EMPTY REFUND FILE
// COND=(0,LT)
//RFUNDINP DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
// DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE),
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//******************************************************************
//* |
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 |
//******************************************************************
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
//*
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
//*YSPRINT DD SYSOUT=*
//*UTOUT DD SYSOUT=*
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*YSGET DD *,DCB=BLKSIZE=80
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
//*
//*********************************************************************
//* |
//* JOB : SAVE A COPY OF THE FTP REFUND FILE
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.REFUND.X303FTP(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(7500,(10,20),RLSE),
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//*********************************************************************
//******* STOP HERE NEW SERVER JOB WILL PICK UP FILE FOR DIFS ZL1 |
//* |
//* JOB : DELETE THE FTP FILE
//
//*********************************************************************
//*TEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*FUNDEXP DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//* DISP=(OLD,DELETE,DELETE)
//*
//*********************************************************************
//* |
//* JOB : CREATE A NEW FTP FILE
//* |
//*********************************************************************
//*TEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*YSPRINT DD SYSOUT=*
//*FUNDINP DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//* DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
//* SPACE=(7500,(10,20),RLSE),
//* DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//*********************************************************************
//*TEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*EUNDEXP DD DSN=ECNTSUP.DOESTAX.PROD.FTP.TRAN,
//* DISP=(OLD,DELETE,DELETE)
//*
//******************************************************************

85
JCL/DTSBX305.jcl Normal file
View File

@ -0,0 +1,85 @@
//DTSBX305 JOB (UI,4300,3400,T),DTSBX305, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET FTPNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* IMPORT CFO REFUND CHECKS ISSUED FILE AND UPDATE 00001700
//* TAX MASTER FILE. 00001700
//* 00001700
//* RUNS DAILY AT 4:00 AM 00001700
//* 00001700
//* UPDATES MRFD AND MEVL RECORDS. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//********************************************************************
//* 00001700
//*TEP050 EXEC PGM=FTP
//*YSPRINT DD SYSOUT=*
//*UTOUT DD SYSOUT=*
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*YSGET DD *,DCB=BLKSIZE=80
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT305),DISP=SHR
//* 00001700
//** TAX SERVER PICK UP FILE FROM DIFS AND SEND TO MAINFRAME ZL1 00001700
//*********************************************************************
//* |
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//********************************************************************
//*********************************************************************
//* |
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
//* |
//*********************************************************************
//STEP0250 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//********************************************************************
//* 00001700
//* RECORDS ARE SORTED BY APPROVAL DATE IN ASCENDING ORDER 00001700
//* 00001700
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
//* 00001700
//********************************************************************
//STEP0075 EXEC PGM=SORT,PARM='VLTEST=0' SORT FTP RECORDS
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
//*********************************************************************
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*****
//STEP0200 EXEC DTSBX305
//** 00001700
//STEP0300 EXEC DTSBX306
//** 00001700

25
JCL/DTSBX347.jcl Normal file
View File

@ -0,0 +1,25 @@
//ECNTGD17 JOB (UI,4300,3400,T),RUNBX347,CLASS=S, 00010099
// MSGCLASS=X, 00020061
// NOTIFY=ECNTSUP, 00030099
// REGION=0M 00050022
//**** 00060025
//* BUILD ATC TRANSACTION UPDATE FILE EXTRACT FOR 00070099
//* EXPORT TO SERVER DATABASE. 00081099
//* 00082099
//* NO MASTER FILE UPDATES 00090099
//* 00100099
//* 00110099
//**** 00130090
// SET LVLNODE='PROD' 00140099
// SET MSTNODE='PROD' 00150099
//**** 00151099
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00160099
//**** 00170036
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00180036
//**** 00190086
//STEP0100 EXEC DTSBX347 EXTRACT MAINFRAME DATA 00200099
//* 00250099
//STEP0100.DTSFBTCO DD DUMMY 00260099
//STEP0100.DTSFVRO1 DD DUMMY 00270099
//* 00280099
//**** 00284099

43
JCL/DTSBX403.jcl Normal file
View File

@ -0,0 +1,43 @@
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
// USER=#DOADTS,
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
//*
//***************************************************
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
//***************************************************
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVDHOLD='YES'
// SET LDEST='LOCAL'
// SET LHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
//*
//******************************************************************
//STEP0100 EXEC PGM=DTSBX403,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAILY.RPT(0),
// DISP=SHR
//*
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,10),RLSE),
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
//*
//DTSLN405 DD DUMMY
//*
//*********************************************************************

43
JCL/DTSBX405.jcl Normal file
View File

@ -0,0 +1,43 @@
//DTSBX405 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
// USER=#DOADTS,
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
//*
//***************************************************
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
//***************************************************
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVDHOLD='YES'
// SET LDEST='LOCAL'
// SET LHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
//*
//******************************************************************
//STEP0100 EXEC PGM=DTSBX403,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRI1 DD DSN=DOESTAX.PROD.PER.RPT(+0),
// DISP=SHR
//*
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(CYL,(10,10),RLSE),
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0)
//*
//DTSLN403 DD DUMMY
//*
//*********************************************************************

33
JCL/DTSBX410.jcl Normal file
View File

@ -0,0 +1,33 @@
//DTSBX410 JOB (UI,4300,3400,T),DTSBX410, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//*
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET IMPNODE='PROD'
// SET EXPNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* EXTRACT EMPLOYER DATA FROM MAINFRAME FOR DOWNLOAD 00001700
//* TO WEB DATABASE. 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DESEMTD1) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC DTSBX410
//** 00001700
//** 00001700

31
JCL/DTSBX411.jcl Normal file
View File

@ -0,0 +1,31 @@
//DTSBX411 JOB (UI,4300,3400,T),DTSBX411, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
//*** USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* EXTRACT EMPLOYER AND WAGE DATA FROM MAINFRAME FOR 00001700
//* DOWNLOAD TO WEB DATABASE. 00001700
//* 00001700
//* >>> INITIAL CONVERSION 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//* EXTRACT EMPLOYER DATA 00001700
//** 00001700
//STEP0100 EXEC DTSBX411
//** 00001700

34
JCL/DTSBX415.jcl Normal file
View File

@ -0,0 +1,34 @@
//DTSBX415 JOB (UI,4300,3400,T),DTSBX415, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
//*!!!!!!!!! THIS JOB IS NOW PART OF DTSPDAY1 9/21/10 ZL1 00001700
//* 00001700
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* IMPORT EMPLOYER DATA FROM WEB DATABASE FOR UPLOAD 00001700
//* TO MAINFRAME. 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//*** GET DAILY WEB T011 DATA
//STEP0100 EXEC DTSBX415
//** 00001700

36
JCL/DTSBX420.jcl Normal file
View File

@ -0,0 +1,36 @@
//DTSBX420 JOB (UI,4300,3400,T),DTSBX420, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
//*!!!!!!!!!!!! THIS JOB IS NOW PART OF DTSPDAY1 9/21/10 ZL1 00001700
//* 00001700
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET IMPNODE='PROD'
// SET LVDHOLD='YES' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* IMPORT EMPLOYER DATA FROM WEB DATABASE FOR UPLOAD 00001700
//* TO MAINFRAME. 00001700
//* 00001700
//* RUNS DAILY AFTER TO WEB UPDATE (DTSBX415) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSBX420
//** 00001700

44
JCL/DTSBX427.jcl Normal file
View File

@ -0,0 +1,44 @@
//DTSBX427 JOB (UI,4300,3400,T),DTSBX420, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET IMPNODE='PROD'
// SET LVDHOLD='YES' 00001700
// SET RPTNODE='BX420.RPT'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* PROCESS EMP ADDRESS FROM ESSP WEB DATABASE,UPDATE DUTAS 00001700
//* MAINFRAME CICS SYSTEM. 00001700
//** 00001700
//** 00001700
//** ESSP FILES PROCESSED BY THIS JOB 00001700
//* - X110 -EMPLOYER MAILING AND DC ADDRESS UPDATES 00001700
//* 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* UPDATE DUTAS PROFILE AND MTAD ADDRESS FILES 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* RESTORE NEEDED 00001700
//** 00001700
//*****************************************************************
//**
//STEP0075 EXEC DTSBX427
//
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

88
JCL/DTSBX430.jcl Normal file
View File

@ -0,0 +1,88 @@
//DTSBX430 JOB (UI,4300,3400,T),DTSBXRPT-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSITLIB 00001600
//** 00001700
//* PROCESS EMPLOYER QUARTERLY REPORT AND WAGES 00001700
//* CREATE T028 TRANSACTIONS FOR DUTAS CICS SYSTEM 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP REPORT AND WAGES 00001700
//** 00001700
//** REPORTS(X140) WILL GO TO PENDING FILE WHEN NO EMPLOYER PROFILE 00001700
//** RECORD FOUND. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS: 00001700
//* - X140 -EMPLOYER REPORT DATA (ESSP/ESSP) 00001700
//* - X144 -EMPLOYER QUARTERLY WAGE DATA FROM (ESSP/TDEC) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T028 TRANSACTIONS 00001700
//* 00001700
//* OUTPUT FILES: 00001700
//* DOESTAX.PROD.ESSP.X430.BTC 00001700
//* DOESTAX.PROD.ESSP.PENDING.X140 00001700
//* 00001700
//* THIS JOB MAY BE RERUN BUT IT WILL CREATE DUPLICATE PENDING FILES 00001700
//***** DELETE LAST GENERATION OF PENDING FILES CREATED OR DUPLICATE 00001700
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
//** 00001700
//************************************* 01/19/17 ZL1
//STEP0100 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.REPORTS,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
INCLUDE COND=(19,8,CH,EQ,C'00000000')
END
//* 00001700
//*
//STEP0110 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
INCLUDE COND=(19,8,CH,EQ,C'00000000')
END
//*
//STEP0200 EXEC DTSBX430
//*
//STEP0200 EXEC DTSRSESP
//* REPORT GENERATION
//*TEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

33
JCL/DTSBX431.jcl Normal file
View File

@ -0,0 +1,33 @@
//DTSBX431 JOB (UI,4300,3400,T),DTSBX431, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET IMPNODE='PROD'
// SET LVDHOLD='YES' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* IMPORT CASE TRACKING DATA FROM THE WEB DATABASE 00001700
//* FOR UPLOAD TO MAINFRAME. 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSBX431
//** 00001700

34
JCL/DTSBX432.jcl Normal file
View File

@ -0,0 +1,34 @@
//DTSBX432 JOB (UI,4300,3400,T),DTSBX432, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
//** NOTIFY=ECNTSUP,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='DEVL'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* EXTRACT EMPLOYER DATA FROM MAINFRAME FOR DOWNLOAD 00001700
//* TO ESSP WEB DATABASE 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: PRODUCE DAILY UPDATES FROM DUTAS 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC DTSBX432
//*
//STEP0200 EXEC DTSBX441
//*
//STEP0300 EXEC DTSBX433
//** 00001700

108
JCL/DTSBX450.jcl Normal file
View File

@ -0,0 +1,108 @@
//DTSBX450 JOB (UI,4300,3400,T),DTSBX450-ESSP-AMDS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIZLIB 00001600
//** 00001700
//* PROCESS ESSP AMENDED DATA FILES (REPORTS ) 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP AMENDED REPORT 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (AMENDED FILES ONLY) 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.CONV.ESSPAMEN.DAYX140(+1) 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//STEP0010 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX140(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
//* SPACE=(30720,(3000,3000),RLSE),
// SPACE=(CYL,(20,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
INCLUDE COND=(19,8,CH,GT,C'00000000')
END
//*
//*****************************************************************
//STEP0020 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX144(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
//* SPACE=(30720,(3000,3000),RLSE),
// SPACE=(CYL,(20,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
INCLUDE COND=(19,8,CH,GT,C'00000000')
END
//*
//STEP0030 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX147(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
//* SPACE=(30720,(3000,3000),RLSE),
// SPACE=(CYL,(20,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
END
//*
//*
//*TEP0200 EXEC DTSRP451 / REGULAR
//*
//*TEP0200 EXEC DTSSN451 / X147 PROCESS
//*
//** 00001700

88
JCL/DTSBX451.jcl Normal file
View File

@ -0,0 +1,88 @@
//DTSBX451 JOB (UI,4300,3400,T),DTSBX451-ESSP-AMDS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIZLIB 00001600
//** 00001700
//* PROCESS ESSP AMENDED DATA FILES (REPORTS PAYMENTS AND WAGES) 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP AMENDED REPORT WAGES AND PAYMENTS 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (AMENDED FILES ONLY) 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* - X144 -EMPLOYER WAGE DETAIL 00001700
//* - X145 -EMPLOYER PAYMENT DATA 00001700
//* - X147 -EMPLOYER WAGE DATA TO BE DELETED 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.X451.BTC 00001700
//* DOESTAX.PROD.X451.W4FILE 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//STEP0200 EXEC DTSRP451 / X140 AMENDED REPORTS
//*
//STEP0200 EXEC DTSSN451 / X144 AND X147 AMENDED WAGES
//*
//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
//*
//X451MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:TIMOTHY.PERLOW@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'SUBJECT: FAILED AMENDED REPORTS',
// 'FILENAME:ESSP_X451_FAILED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//X452MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:TIMOTHY.PERLOW@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'SUBJECT: DUTAS DAILY AMENDED REPORTS',
// 'FILENAME:ESSP_X451_PASSED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//** 00001700

80
JCL/DTSBX452.jcl Normal file
View File

@ -0,0 +1,80 @@
//DTSBX452 JOB (UI,4300,3400,T),DTSBX452-ESSP-DUPS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET LVDHOLD='YES' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//****************************************************************** 00001700
//*---NOTE-----RE-PROCESS DUPLICATE AMENDMENTS ONLY ---------------- 00001700
//*---NOTE-----RE-PROCESS DUPLICATE AMENDMENTS ONLY ---------------- 00001700
//*---NOTE-----RE-PROCESS DUPLICATE AMENDMENTS ONLY ---------------- 00001700
//*---NOTE-----RE-PROCESS DUPLICATE AMENDMENTS ONLY ---------------- 00001700
//*---NOTE-----RE-PROCESS DUPLICATE AMENDMENTS ONLY ---------------- 00001700
//*---NOTE-----RE-PROCESS DUPLICATE AMENDMENTS ONLY ---------------- 00001700
//* 00001700
//** 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.X452.BTC 00001700
//* DOESTAX.PROD.X452.W4FILE 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//STEP0200 EXEC DTSBX452 / X140 AMENDED DUPLICATE REPORTS
//*
//*STEP0200 EXEC DTSZN451 / X144 AND X147 AMENDED WAGES
//*
//*------------------------------------------------------------------
//* CHANGE SORTIN BELOW TO CORRECT GDG YOU WANT TO REPROCESS ZL1
//*------------------------------------------------------------------
//*
//*TEP0100.SORTIN DD DSN=DOESTAX.CONV.ESSP.AMEND.FAILED.X140.G1651V00,
//STEP0100.SORTIN DD DSN=DOESTAX.CONV.ESSP.AMEND.FAILED.X140.NH,
// DISP=SHR
//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
//*
//X452MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'SUBJECT: DUTAS FAILED REPROCESSED AMENDED REPORTS',
// 'FILENAME:DUTAS_X452_FAILED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X452PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//Z452MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'SUBJECT: DUTAS REPROCESSED AMENDED REPORTS',
// 'FILENAME:DUTAS_X452_PASSED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X452PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//** 00001700

85
JCL/DTSBX453.jcl Normal file
View File

@ -0,0 +1,85 @@
//DTSBX453 JOB (UI,4300,3400,T),DTSBX453-ESSP-AMDS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIZLIB 00001600
//** 00001700
//* RELEASE AMENDED DATA FILES (WAGES TO BE DELETED) 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP AMENDED REPORT WAGES 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (AMENDED FILES ONLY) 00001700
//* - X147 -EMPLOYER WAGE DATA TO BE DELETED 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.X451.BTC 00001700
//* DOESTAX.PROD.MAG.W4FILE 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//*TEP0200 EXEC DTSRP451 / X140 AMENDED REPORTS
//*
//STEP0200 EXEC DTSSR451 / RELEASE X147 WAGES TO UIBS FOR DELETION
//*
//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
//
//X451MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:TIMOTHY.PERLOW@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'SUBJECT: FAILED AMENDED REPORTS',
// 'FILENAME:ESSP_X451_FAILED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//X452MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:TIMOTHY.PERLOW@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'SUBJECT: DUTAS DAILY AMENDED REPORTS',
// 'FILENAME:ESSP_X451_PASSED.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X451PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//** 00001700

104
JCL/DTSBX460.jcl Normal file
View File

@ -0,0 +1,104 @@
//DTSBX460 JOB (UI,4300,3400,T),PROD.OTR.EMPLR.DATA, 00000010
// CLASS=P,MSGCLASS=X, 00000010
// USER=#DOADTS,
//**** TYPRUN=SCAN,
// NOTIFY=ECNTSUP,REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET UINODE='PROD'
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* FILE IS CREATED FOR OTR. OTR WILL FTP (GET) FIRST WORK OF MON) 00001700
//* (DATA ARE UPDATES TO UI TAX EMPLOYER NAMES AND ADDRESSES) 00001700
//* {CONTACT PERSON AT OTR IS MS. WIGGLESWORTH} 00001700
//* (NO BKP NEEDED FOR THIS MONTHLY RUN) 00001700
//* 00001700
//STEP0100 EXEC PGM=DTSBX460,
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//* 00001700
//* IPRIFILE IS A DUMMY THE 1ST TIME (CREATES THE 1ST RECYCLE FILE) 00001700
//* (THEREAFTER IT'S LAST GEN. TO NEW GEN.) 00001700
//* 00001700
//****IPRIFILE DD DUMMY 00001700
//IPRIFILE DD DSN=DOESTAX.&LVLNODE..OTR.COMP.FILE(+0), 00001700
// DISP=SHR 00001700
//* 00001700
//OCURFILE DD DSN=DOESTAX.&LVLNODE..UI.OTR.COMP.FILE(+1), 00001700
// DISP=(NEW,CATLG,DELETE), 00001700
//**** UNIT=3490, 00001700
// UNIT=SYSDA, 00001700
// SPACE=(CYL,(60,10),RLSE), 00038000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=332,BLKSIZE=3320) 00001700
//* 00001700
//OTRNFILE DD DSN=&&TRANS01, 00001700
// DISP=(NEW,PASS,DELETE), 00001700
// UNIT=SYSDA, 00001700
//* SPACE=(3330,(2000,1000),RLSE), 00001700
// SPACE=(CYL,(40,10),RLSE), 00038000
// DCB=(RECFM=FB,LRECL=333,BLKSIZE=3330) 00001700
//* 00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 00015000
// COND=(0,NE) 00015000
//SYSOUT DD SYSOUT=(*) 00017000
//SYSPRINT DD SYSOUT=(*) 00018000
//* 00019000
//SORTIN DD DSN=&&TRANS01, 00020000
// DISP=(OLD,DELETE,DELETE) 00020000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00031000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00032000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00033000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00034000
//* 00030000
//SORTOUT DD DSN=&&TRANS02, 00035000
// DISP=(NEW,PASS,DELETE), 00036000
// UNIT=SYSDA, 00037000
// SPACE=(CYL,(40,10),RLSE), 00038000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=333,BLKSIZE=3330) 00001700
//SYSIN DD * 00043000
SORT FIELDS=(2,10,CH,A,12,8,CH,D)
/* 00046000
//* THIS SORT STEP ALSO ELIMINATES DUPLICATES 00047000
//* 00047000
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00015000
// COND=(0,NE) 00015000
//SYSOUT DD SYSOUT=(*) 00017000
//SYSPRINT DD SYSOUT=(*) 00018000
//* 00019000
//SORTIN DD DSN=&&TRANS02, 00020000
// DISP=(OLD,DELETE,DELETE) 00020000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00031000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00032000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00033000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00034000
//* 00030000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..UI.OTR.TRNS.FILE(+1), 00035000
// DISP=(NEW,CATLG,DELETE), 00036000
// UNIT=SYSDA, 00037000
// SPACE=(CYL,(50,10),RLSE), 00038000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=333,BLKSIZE=3330) 00040000
//* 00042000
//SYSIN DD * 00043000
SORT FIELDS=(2,9,CH,A) 00044000
SUM FIELDS=NONE 00046000
/* 00046000
//*
//STEP0400 EXEC PGM=FTP,REGION=2M
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//OUTPUT DD SYSOUT=*
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX460),DISP=SHR
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX460),DISP=SHR
//* 00047000

59
JCL/DTSBX461.jcl Normal file
View File

@ -0,0 +1,59 @@
//DTSBX461 JOB (UI,4300,3400,T),FPT-GET-OTRDATA,CLASS=S,
// MSGCLASS=X,
//*** USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//*********************************************************************
//** GET OTR FEIN DATA FILE EACH QUARTER AND CREATE A CD FOR VOS
//* BOBBY HAWKINS 00001700
//** FTP JCL CANNOT HAVE LINE NUMBER ON COLS 72 80
//** TO TURN OFF LINE NUMBER TYPE "NONUM"
//** FTP COMMANDS ARE CASE SENSATIVE
//*********************************************************************
//* 00001700
//FTPXFER EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD *
10.27.13.1
FTDEOTR2
DOES2OTR
GET 'ITS.PROD.SEQ.ITS560R.BF2Q1555' 'DOESTAX.CONV.OTR.EMPDATA' (REP
QUIT
/*
//STEP0100 EXEC PGM=DTX00001, OTR FILE REFORMAT
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//RPTX0001 DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//OTRINFLE DD DSN=DOESTAX.CONV.OTR.EMPDATA,DISP=SHR
//*
//OTROUTFL DD DSN=DOESTAX.CONV.OTR.EMPDATA.REFORMAT,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,DELETE),
// UNIT=SYSDA,
// SPACE=(5600,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=191,BLKSIZE=19100)
//*
//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)
//
//***
//STEP0300 EXEC PGM=FTP SEND DATA TO SERVER
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFTEIN),DISP=SHR
/*
//

100
JCL/DTSBX465.jcl Normal file
View File

@ -0,0 +1,100 @@
//DTSBX465 JOB (HS,0000,0000,P),DOESOTR.EXTRACT2,CLASS=P,MSGCLASS=X,
// NOTIFY=ECNTSUP,
// USER=#DOADTS,
// REGION=4M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//****
// SET UINODE='PROD'
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
// SET PRGNODE='PROD'
// SET OUTNODE='PROD'
//****
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR THE OFFICE OF TAX &
//* REVENUE CONTACT: CAMILLE WIGGLESWORTH 442-7033 FAX: 442-7076
//* REVENUE CONTACT: LOUISE SIMMONS 442-7035 FAX: 442-7076
//*
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (ON REQUEST)
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
//****
//** FTP FILES TO OTR SERVER
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//STEP0025 EXEC PGM=IEFBR14,REGION=1024K
//BUSINES DD DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
// DISP=(OLD,DELETE,DELETE)
//**
//STEP0050 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//GOVT DD DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
// DISP=(OLD,DELETE,DELETE)
//**
//STEP0075 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//FED DD DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
// DISP=(OLD,DELETE,DELETE)
//**
//STEP0100 EXEC PGM=DTSBX465
//PRNTR DD SYSOUT=(*)
//SYSOUT DD SYSOUT=(*)
//SYSUDUMP DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSDBOUT DD SYSOUT=(*)
//SYSCOUNT DD SYSOUT=(*)
//*
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//*WG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//BUSINES DD DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
// SPACE=(CYL,(90,5),RLSE),
// DISP=(NEW,CATLG,DELETE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//GOVT DD DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
// SPACE=(CYL,(5,1),RLSE),
// DISP=(NEW,CATLG,DELETE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//FED DD DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
// SPACE=(CYL,(1,1),RLSE),
// DISP=(NEW,CATLG,DELETE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//****
//** CHANGE QUARTER DATES ON THE PARMCARD BEFORE RUNNING JOB )
//****
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSBX465),
// DISP=SHR
//**
//*
//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.&LVLNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
/*
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:KALYAN.JILLUMUDI@DC.GOV',
// 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'TO:KELLY.DINKINS@DC.GOV',
// 'SUBJECT: DOES QUARERLY WAGES UPLOADED )',
// 'FILEDESC: DOES WAGES ',
// 'FILENAME:DOESWAGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.OTR.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**

76
JCL/DTSBX467.jcl Normal file
View File

@ -0,0 +1,76 @@
//DTSBX467 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..PROCLIB
//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=DTSBX467
//PRNTR DD SYSOUT=(*)
//SYSOUT DD SYSOUT=(*)
//SYSUDUMP DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSDBOUT DD SYSOUT=(*)
//SYSCOUNT DD SYSOUT=(*)
//*
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//*EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//BUSINES DD DSN=EFT.QWDATA.QTRLY.SDC.R231204,
// DISP=(NEW,CATLG,DELETE),VOL=SER=CXP002,
// UNIT=SYSDA,SPACE=(CYL,(900,50),RLSE),
// DCB=(RECFM=FB,LRECL=601)
//*USINES DD DSN=DOESTAX.CONV.NDNH.QTRWAGE,
//* DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(CYL,(300,100),RLSE),
//* DCB=(RECFM=FB,LRECL=601,BLKSIZE=6010)
//*
//*
//***DEFAULT IS LAST COMPLETED QUARTER & ALL THREE REC TYPES
//***
//SYSIN DD *
**DTSBX465 20230701 20230930 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)
//*
//**

41
JCL/DTSBX470.jcl Normal file
View File

@ -0,0 +1,41 @@
//DTSBX470 JOB (UI,4300,3400,T),RUNBX470,CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// NOTIFY=ECNTSUP,
// USER=#DOADTS
/*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=DTSBX470, EMPLOYER ADDRESS EXTRACT FOR OWC
// COND=(0,LT),
// PARM='UPDATE,W',
// 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')
//DTSBX470 DD DSN=DOESTAX.&LVLNODE..FTP.DTSBX470,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP)
//* UNIT=SYSDA,
//* SPACE=(CYL,(50,20),RLSE),
//* DCB=(RECFM=FB,LRECL=441,BLKSIZE=30870)
//***
//*** SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT470),DISP=SHR
/*
//***
//*
//*********************************************************************
//*

34
JCL/DTSBX475.jcl Normal file
View File

@ -0,0 +1,34 @@
//DTSBX475 JOB (UI,4300,3400,T),EMP.ADDR.EXTRACT.BEN, 00000010
// CLASS=P,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
//*** USER=ECNTSUP,
// NOTIFY=ECNTSUP,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET UINODE='PROD'
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS, RATE) 00001700
//* FROM TAX MASTER FILES FOR USE IN A BENEFITS WEB APPLICATION 00001700
//* 00001700
//* RUNS AS PART OF THE WEEK-END PROCESS 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: UI.TAX.PROD.WEEKLY.EXTRACT 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. THE TIMING IS NOT CRITICAL. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//* IF IT IS RERUN, IT MUST BE THROUGH CA7, SINCE IT WRITES TO 00001700
//* A FILE WITH A HIGH LEVEL NODE OF 'UI'. 00001700
//** 00001700
//STEP0100 EXEC DTSBX475
//*** (FOLLOWING FILE CAN BE USED FOR TEST OVERRIDE) 00001700
//***STEP0100.ADRFILE DD DSN=DOESTAX.DEVL.UI.WEEKLY.EXTRACT
//** 00001700

36
JCL/DTSBX476.jcl Normal file
View File

@ -0,0 +1,36 @@
//DTSBX476 JOB (UI,4300,3400,T),DTSBX476, 00000010
// CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
/*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
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) 00001700
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* *** JOB CHANGED 05/10/2010 - IT MAY RUN LATER THAN 00001700
//* *** 6:00 PM. CHANGE IN RESPONSE TO CHANGE IN JOB 00001700
//* *** SCHEDULES - THE DAILY JOBS HAVE BEEN MOVED 00001700
//* *** BACK ONE HOUR. 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: UI.PROD.TEMP.TAXCOPY 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//* IF IT IS RERUN, IT MUST BE THROUGH CA7, SINCE IT WRITES TO 00001700
//* A FILE WITH A HIGH LEVEL NODE OF 'UI'. 00001700
//** 00001700
//STEP0100 EXEC DTSBX476
//** 00001700

76
JCL/DTSBX479.jcl Normal file
View File

@ -0,0 +1,76 @@
//TSTBX479 JOB (UI,4300,3400,T),DTSBX479, 00000010
// CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='DEVL'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* *** JOB DTSPDAY1 MUST RUN SUCESSFULL ZL1 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC DTSBX479
//** 00001700
//STEP0200 EXEC PGM=SYNCSORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A)
INCLUDE COND=(11,2,CH,EQ,C'W2')
//*
//STEP0300 EXEC PGM=SYNCSORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A)
INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//** 00001700
//STEP0200 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
//
//*******************************************************************

106
JCL/DTSBX500.jcl Normal file
View File

@ -0,0 +1,106 @@
//DTSBX500 JOB (UI,4300,3400,T),SUTA.RUN,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//***** EXTRACT EMPLOYER AND WAGE QUARTERLY DATA FOR SUTA PACKAGE
//* 00001700
//* MUST CHANGE QTR BEFORE RUNNING JOB 03/09/17 ZL1 00001700
//* 00001700
//**SET AQTR='YRQ20182' /* PARM QUARTER
//* 00001700
//STEP0100 EXEC PGM=DTSBX500, EXTRACT EMPLOYER AND WAGE DATA FOR
// COND=(0,LT), SDDS.
// PARM='20251', /*..........CHANGE PARM QUARTER
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//*TSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE.&AQTR., 00005000
//DTSWAGE DD DSN=DOESTAX.PROD.SDDS.WAGE, 00005000
// DISP=(OLD,KEEP,KEEP), 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(100,25),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800) 00009000
//*
//*TSTAX DD DSN=DOESTAX.PROD.SDDS.TAX.&AQTR., 00005000
//DTSTAX DD DSN=DOESTAX.PROD.SDDS.TAX, 00005000
// DISP=(OLD,KEEP,KEEP) 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(7200,(5000,5000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200) 00009000
//*
//*TSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT.&AQTR., 00005000
//DTSCONT DD DSN=DOESTAX.PROD.SDDS.CONTACT, 00005000
// DISP=(OLD,KEEP,KEEP), 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(7070,(5000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=7070) 00009000
//*
//*TSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP.&AQTR., 00005000
//DTSEMPL DD DSN=DOESTAX.PROD.SDDS.SUTAEMP, 00005000
// DISP=(OLD,KEEP,KEEP), 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6800,(5000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=340,BLKSIZE=6800) 00009000
//*
//STEP0200 EXEC PGM=DTSBX801, BUILD PRED SUCC FILE FOR SDDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//*TSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC.&AQTR.,
//DTSFPRED DD DSN=DOESTAX.PROD.SDDS.PREDSUCC,
// DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(6600,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//*
//FTPXFER EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFA502),DISP=SHR
/*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:SUNNY.PANDIT@DC.GOV',
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:KIRAN.KOYYALAMUDY@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: SDDS QUARTERLY DATA DOWNLOADED..ZL1',
// 'FILEDESC: DUTAS SDDS QUARTERLY DATA AVAIL ',
// 'FILENAME:SDDS_DUTAS_QDATA.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//*************************END JOB *************************************

33
JCL/DTSBX501.jcl Normal file
View File

@ -0,0 +1,33 @@
//DTSBX501 JOB (UI,4300,3400,T),DTSBX501, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET BTCNODE='CONV'
// SET PRGNODE='CONV'
// SET LVDHOLD='YES' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* REPROCESS FAILED ACH DEBIT TRANSACTIONS TO DUTAS 00001700
//* 00001700
//* RUNS DAILY IN THE MORNING AFTER PROCESSING TODAYS RETURN FILE 00001700
//* FROM WELLS FARGO 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* <<<<< RESET X501 BTC FILE WHEN JOB IS RERUN >>>> 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC DTSBX501
//** 00001700

55
JCL/DTSBX530.jcl Normal file
View File

@ -0,0 +1,55 @@
//DTSBX530 JOB (UI,4300,3400,T),DTSBXPAY-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSITLIB 00001600
//** 00001700
//* PROCESS EMPLOYER QUARTERLY PAYMENT DATA FROM ESSP AND CREATE 00001700
//* T025 TRANSACTIONS FOR DUTAS CICS SYSTEM 00001700
//** 00001700
//** THIS JOB WILL PROCESS ALL TDEC AND ESSP PAYMENTS ---- 040119 ZL1 00001700
//** 00001700
//** PAYMENTS(X145) WILL GO TO PENDING FILE WHEN NO EMPLOYER PROFILE 00001700
//** RECORD FOUND. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS: 00001700
//* - X145 -EMPLOYER PAYMENT DATA (ESSP) 00001700
//* - PAYMT - TDEC REPORT PAYMENT DATA FROM TDEC 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T025 TRANSACTIONS 00001700
//* 00001700
//* OUTPUT FILES: 00001700
//* DOESTAX.PROD.ESSP.X530.BTC 00001700
//* DOESTAX.PROD.ESSP.PENDING.X145 00001700
//* 00001700
//* THIS JOB MAY BE RERUN BUT IT WILL CREATE DUPLICATE PENDING FILES 00001700
//***** DELETE LAST GENERATION OF PENDING FILES CREATED OR DUPLICATE 00001700
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
//** 00001700
//************************************* 01/19/17 ZL1
//* 00001700
//STEP0200 EXEC DTSBX530
//*
//STEP0200 EXEC DTSRSESP
//* REPORT GENERATION
//*TEP0300 EXEC DTSRQRPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

146
JCL/DTSBX552.jcl Normal file
View File

@ -0,0 +1,146 @@
//DTSBX552 JOB (UI,4300,3400,P),'UIXMATCH ',CLASS=A,MSGLEVEL=(1,1), 00010001
// MSGCLASS=X,USER=#DOADTS, 00020042
// REGION=2048K,NOTIFY=ECNTZL1 00030042
//** 00050300
//** 1/7/16 VERIFY AMENDED X147 WAGES MARKED FOR DELETION DO NOT 00051002
//** HAVE AN ACTIVE CLAIM. IF ACTIVE CLAIM FOUND DO NOT DELETE RECORD 00053002
//** ZL1 00054003
//** 00055000
// SET PRGNODE='DEVL.BEN' 00056000
// SET LVLNODE='CONV' 00056108
// SET IMPNODE='CONV' 00056208
// SET UINODE='PROD' 00057000
//** 00057100
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00058000
//JOBLIB DD DSN=DOESTAX.&PRGNODE..LOADLIB,DISP=SHR 00060000
// DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060100
// DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061000
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090007
// COND=(0,LT) 00100007
//SYSOUT DD SYSOUT=* 00110007
//* 00120007
//SORTIN DD DSN=DOESTAX.&IMPNODE..ESSPAMEN.DAYX147(+0),DISP=SHR 00131022
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140007
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150007
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00160007
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00170007
//SORTOUT DD DSN=&&SRTX147, 00180021
// DISP=(NEW,PASS,DELETE), 00190021
// UNIT=SYSDA, 00210007
//* 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
//* 00214007
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216009
// COND=(0,LT) 00217009
//SYSOUT DD SYSOUT=* 00218009
//* 00219009
//SORTIN DD DSN=DOESTAX.&IMPNODE..ESSPAMEN.DAYX144(+0),DISP=SHR 00230022
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00240009
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00250009
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00260009
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00270009
//SORTOUT DD DSN=&&SRTX144, 00280021
// DISP=(NEW,PASS,DELETE), 00300021
// UNIT=SYSDA, 00320021
//* 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
//* 00360009
//* 00370041
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380041
// COND=(0,LT) 00390041
//SYSOUT DD SYSOUT=* 00400041
//* 00410041
//SORTIN DD DSN=DOESTAX.&IMPNODE..ESSPAMEN.DAYX140(+0),DISP=SHR 00420041
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00430041
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00440041
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00450041
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00460041
//SORTOUT DD DSN=&&SRTX140, 00470041
// DISP=(NEW,PASS,DELETE), 00480041
// 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
//* 00530041
//************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000
//* ANY SSN THAT HAVE A CLAIM PAID WITHIN THE DC PAY PERIOD 01221000
//***************************************************************** 01230000
//STP0300 EXEC PGM=DTSBX551 01240041
//SYSPRINT DD SYSOUT=* 01250000
//SYSDBOUT DD SYSOUT=* 01260000
//SYSCOUNT DD DUMMY 01270000
//SYSUDUMP DD DUMMY 01280000
//ESP960F1 DD DSN=UI.PROD.DOCS.ESP960F1,DISP=SHR, 01280101
// AMP='BUFND=5,BUFNI=5,BUFSP=184320' 01280201
//EOP960F1 DD DSN=UI.PROD.DOCS.EOP960F1,DISP=SHR, 01280301
// AMP='BUFND=5,BUFNI=5,BUFSP=184320' 01280401
//EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR, 01280542
// AMP='BUFND=5,BUFNI=5,BUFSP=184320' 01280641
//DTSFX140 DD DSN=&&SRTX140,DISP=(OLD,DELETE,DELETE) 01290241
//DTSFX144 DD DSN=&&SRTX144,DISP=(OLD,DELETE,DELETE) 01290341
//DTSFX147 DD DSN=&&SRTX147,DISP=(OLD,DELETE,DELETE) 01290441
//DTSFB147 DD DSN=DOESTAX.CONV.AMENDOES.SAVEX147(+1), 01301023
// DISP=(NEW,CATLG,DELETE), 01302023
// UNIT=SYSDA, 01303023
//* SPACE=(30720,(2000,4000),RLSE), 01304050
// SPACE=(CYL,(20,50),RLSE), 01304150
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 01305023
//DTSFA147 DD DSN=DOESTAX.CONV.AMENDOES.DELTX147(+1), 01306039
// DISP=(NEW,CATLG,DELETE), 01306139
// UNIT=SYSDA, 01306239
//* SPACE=(30720,(1000,1000),RLSE), 01306348
// SPACE=(CYL,(20,50),RLSE), 01306450
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 01306539
//RPT551R1 DD DSN=DOESTAX.CONV.ESSP.RPT552,DISP=SHR 01307042
//SYSOUT DD SYSOUT=* 01308000
// 01360053
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361019
// REGION=4M 01362019
//SYSPRINT DD SYSOUT=* 01363019
//OUT1 OUTPUT DEST=U1003, 01364019
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01365019
// 'TO:CASS.INNOCENT@DC.GOV', 01366044
// 'TO:HELEN.FOSTER@DC.GOV', 01366143
// 'TO:ANDRE.CHISHOLM@DC.GOV', 01366244
// 'TO:GERALD.SMART@DC.GOV', 01367046
// 'TO:TIMOTHY.PERLOW@DC.GOV', 01367146
//** 'TO:DAVON.MALLARD@DC.GOV', 01367252
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368051
// 'SUBJECT: AMENDED WAGES DELETION REPORT', 01369233
// 'FILENAME:DOCS_WAGE_DELETION_RPT.TXT'), 01369445
// MAILFROM=DUTAS@DC.GOV 01369545
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT552,DISP=SHR 01369619
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369719
//SYSIN DD DUMMY 01369819
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01369919
//**********************************************************************01370000
//* 01371028
//STEP0400 EXEC PGM=IDCAMS, COPY X147 REPORT TO GDG 01372033
// COND=(4,LT) 01373033
//SYSPRINT DD SYSOUT=* 01374033
//INDD01 DD DSN=DOESTAX.CONV.ESSP.RPT552,DISP=SHR 01375033
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.RPT552.TXT(+1), 01379133
// DISP=(,CATLG,DELETE), 01379233
// SPACE=(25600,(100,200),RLSE), 01379333
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=133,BLKSIZE=1330) 01379433
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 01379533
// 01379633
//ESSZMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01390031
// REGION=4M 01400026
//SYSPRINT DD SYSOUT=* 01410026
//OUT1 OUTPUT DEST=U1003, 01420026
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01430026
// 'SUBJECT: ESSP X147 RECS WITH NO X144 -STAFF VERIFY', 01440032
// 'FILENAME:ESSP_WAGES_X147.TXT') 01450026
//SYSUT1 DD DSN=DOESTAX.CONV.AMENDOES.SAVEX147(+1),DISP=SHR 01460030
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01470026
//SYSIN DD DUMMY 01480026
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01490026
//**********************************************************************01500026

99
JCL/DTSBX553.jcl Normal file
View File

@ -0,0 +1,99 @@
//DTSBX553 JOB (UI,4300,3400,P),'UIXMATCH ',CLASS=A,MSGLEVEL=(1,1), 00010001
// USER=#DOADTS, 00011008
// MSGCLASS=X,REGION=2048K,NOTIFY=ECNTZL1 00020000
//** 00050300
//** 1/7/16 VERIFY AMENDED X140 WAGES MARKED FOR AMEND REPORTS 00051008
//** HAVE AN AT LEAST 1 X144(ADD WAGES) OR (X147(DELETE WAGE) RECORD 00053008
//** ZL1 00054000
//** 00055000
// SET PRGNODE='DEVL.BEN' 00056000
// SET LVLNODE='CONV' 00056100
// SET IMPNODE='CONV' 00056200
// SET UINODE='PROD' 00057000
//** 00057100
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00058000
//JOBLIB DD DSN=DOESTAX.&PRGNODE..LOADLIB,DISP=SHR 00060000
// DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060100
// DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061000
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090000
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//* 00120000
//SORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX140(+0),DISP=SHR 00130008
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00160000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00170000
//SORTOUT DD DSN=&&DAYX140, 00180001
// DISP=(NEW,PASS,DELETE), 00190001
// 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
//* 00214000
//* 00215001
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216002
// COND=(0,LT) 00217002
//SYSOUT DD SYSOUT=* 00218002
//* 00219002
//SORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX144(+0),DISP=SHR 00220008
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00240000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00250000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00260000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00270000
//SORTOUT DD DSN=&&DAYX144, 00280001
// DISP=(NEW,PASS,DELETE), 00300001
// 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
//* 00360000
//* 00370005
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380005
// COND=(0,LT) 00390005
//SYSOUT DD SYSOUT=* 00400005
//* 00410005
//SORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX147(+0),DISP=SHR 00420009
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00430005
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00440005
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00450005
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00460005
//SORTOUT DD DSN=&&DAYX147, 00470005
// DISP=(NEW,PASS,DELETE), 00480005
// 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
//* 00530005
//************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000
//* ANY SSN THAT HAVE A CLAIM PAID WITHIN THE DC PAY PERIOD 01221000
//***************************************************************** 01230000
//STP0400 EXEC PGM=DTSBX553 01240005
//SYSPRINT DD SYSOUT=* 01250000
//SYSDBOUT DD SYSOUT=* 01260000
//SYSCOUNT DD DUMMY 01270000
//SYSUDUMP DD DUMMY 01280000
//DTSFX147 DD DSN=&&DAYX147,DISP=(OLD,DELETE,DELETE) 01291005
//DTSFX144 DD DSN=&&DAYX144,DISP=(OLD,DELETE,DELETE) 01291102
//DTSFX140 DD DSN=&&DAYX140,DISP=(OLD,DELETE,DELETE) 01292002
//DTSFD147 DD DSN=DOESTAX.CONV.AMENDOES.DAYX144,DISP=SHR 01300008
//DTSFO140 DD DSN=DOESTAX.CONV.AMENDOES.DAYX140,DISP=SHR 01301007
//RPT552R1 DD DSN=DOESTAX.DEVL.RPT552R1,DISP=SHR 01307006
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01307106
// REGION=4M 01307206
//SYSPRINT DD SYSOUT=* 01307306
//OUT1 OUTPUT DEST=U1003, 01307406
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01307506
// 'SUBJECT: ESSP AMENDED ERROR REPORT', 01307606
// 'FILENAME:ESSP_X140S.TXT'), 01307710
// MAILFROM=DUTAS@DC.GOV 01307810
//SYSUT1 DD DSN=DOESTAX.DEVL.RPT552R1,DISP=SHR 01307906
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01308006
//SYSIN DD DUMMY 01308106
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01308206
//SYSOUT DD SYSOUT=* 01309000
//* 01360000
//**********************************************************************01370000

35
JCL/DTSBX601.jcl Normal file
View File

@ -0,0 +1,35 @@
//DTSBX601 JOB (UI,4300,3400,T),DTSBX601,CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTZL1
//*
//**********************************************************************
//*SCAN MLOG RECORDS AND LIST ALL ADDRESSES THAT WERE ADDED OR UPDATED
//*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING
//*REFUNDS
//***************************************************** 06/22/17 ZL1***
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBX601, LIST MPRF-RETURN EMAIL ADDRESS -INACTIV
// 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')
//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')
//DTSFX601 DD DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
//*
//*********************************************************************

146
JCL/DTSBX626.jcl Normal file
View File

@ -0,0 +1,146 @@
//DTSBX626 JOB (UI,4300,3400,T),DUTAS-WELLS-ACH, 00000010
// CLASS=S,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVDHOLD='YES' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSITLIB 00001600
//** 00001700
//* COMPARE WELLS FARGO ACH DEPOSIT FILE WITH ACH DEPOSIT FILE SENT 00001700
//* TO DUTAS. IF FILES TOTAL AMOUNT DOES NOT MATCH JOB WILL CONTINUE 00001700
//* PLEASE CHECK WITH ESSP TO WORK OUT THE DIFFERENCES 00001700
//* 00001700
//*>>>WILL NOT____STOP WELLS ACH DEPOSIT FROM TRANSMITTING .ZL1 92022 00001700
//* 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
//* 00001700
//* INPUT FILES: 00001700
//* ESSP ACH ALLOCATED PAYMENTS: DOESTAX.CONV.DOESESSP.X145EACH
//* OUTPUT FILE: 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082218,DISP=SHR
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,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)
//SORTOUT DD DSN=DOESTAX.CONV.DOESESSP.X145EACH(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),DISP=SHR
//*
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082218,DISP=SHR
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,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)
//SORTOUT DD DSN=&&RPTACH,
// DISP=(,PASS,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),DISP=SHR
//*
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082218,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)
//SORTOUT DD DSN=DOESTAX.CONV.DOESESSP.X145SCHK(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSS626),DISP=SHR
//*
//STEP0350 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR
//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+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=&&WEBIMPRT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400)
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSA626),DISP=SHR
//*
//STEP0400 EXEC DTSBX626
//***********************************************************
//*
// IF (STEP0400.STEP0450.RC EQ 0) THEN
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT: WELLS-DUTAS ACH DEPOSITS *** MATCH ***',
// 'FILEDESC: WELLS-DUTAS ACH REPORT ',
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
// ELSE
//***********************************************************
//STEP0600 EXEC PGM=IEBGENER,REGION=4M
//* COND=(0,EQ,STEP0400)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT: WELLS-DUTAS ACH DEPOSITS *** FAILED ***',
// 'FILEDESC: WELLS-DUTAS ACH DEPOSITS NOT MATCHING ',
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
// ENDIF
//** 00001700

96
JCL/DTSBX629.jcl Normal file
View File

@ -0,0 +1,96 @@
//DTSBX629 JOB (UI,4300,3400,P),'TDEC-ESSP',CLASS=A,MSGLEVEL=(1,1), 00010012
// MSGCLASS=X,REGION=2048K,USER=#DOADTS,NOTIFY=ECNTZL1 00020012
//** 00050300
//** CROSS CHECK TDEC DAILY WAGE FILE WITH ESSP X140 FILE FOR MISSING 00051001
//** TDEC REPORTS. 07/12/18 ZL1 00053010
//** 00054010
//** 00055000
// SET PRGNODE='DEVL' 00056000
// SET LVLNODE='CONV' 00056100
// SET MSTNODE='PROD' 00056210
// SET IMPNODE='CONV' 00056300
// SET UINODE='PROD' 00057000
//** 00057100
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00058000
//JOBLIB DD DSN=DOESTAX.PROD.BATCH.USER.LOADLIB,DISP=SHR 00060012
// DD DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR 00060112
// DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060212
//* DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061019
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090000
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//* 00120000
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR 00130010
// DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00160000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00170000
//SORTOUT DD DSN=&&TDECANN, 00180000
// DISP=(NEW,PASS,DELETE), 00190000
//* DISP=SHR 00200000
// UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR 00213002
//SYSIN DD * 00213102
SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202
SUM FIELDS=NONE 00213302
END 00213402
//* 00213502
//* 00214000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216000
// COND=(0,LT) 00217000
//SYSOUT DD SYSOUT=* 00218000
//* 00219000
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR 00230010
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX140.DD071018,DISP=SHR 00231010
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00240000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00250000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00260000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00270000
//SORTOUT DD DSN=&&TDECMISS, 00280000
// DISP=(NEW,PASS,DELETE), 00300000
//* DISP=SHR 00310000
// 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
//* 00360000
//************************************************************** 01210000
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
//* WAGES MAY BE REJECTED BY ESSP. 01221012
//***************************************************************** 01230000
//STP0300 EXEC PGM=DTSBX629 01240001
//SYSPRINT DD SYSOUT=* 01250000
//SYSDBOUT DD SYSOUT=* 01260000
//SYSCOUNT DD DUMMY 01270000
//SYSUDUMP DD DUMMY 01280000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01290014
//DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202
//DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013
//DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01307006
//SYSOUT DD SYSOUT=* 01308000
//* 01360006
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
// REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000
//OUT1 OUTPUT DEST=U1003, 01364000
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01365000
// 'CC:MARGARET.HERNANDEZ@DC.GOV', 01367017
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118
// 'CC:TIM.PERLOW@DC.GOV', 01369016
// 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
// 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212
// 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411
// 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515
// MAILFROM=DUTAS@DC.GOV 01369615
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369800
//SYSIN DD DUMMY 01369900
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000
//**********************************************************************01380000

99
JCL/DTSBX630.jcl Normal file
View File

@ -0,0 +1,99 @@
//DTSBX630 JOB (UI,4300,3400,P),'UIXMATCH ',CLASS=A,MSGLEVEL=(1,1), 00010018
// MSGCLASS=X,REGION=0M,NOTIFY=ECNTZL1,USER=#DOADTS 00020018
//** 00050300
//** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005
//** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005
//** 00054000
//** 00055000
// SET PRGNODE='DEVL' 00056000
// SET LVLNODE='CONV' 00056100
// SET MSTNODE='PROD' 00056200
// SET IMPNODE='CONV' 00056300
// SET UINODE='PROD' 00057000
//** 00057100
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00058000
//JOBLIB DD DSN=DOESTAX.PROD.BATCH.USER.LOADLIB,DISP=SHR 00060018
// DD DSN=DOESTAX.DEVL.BATCH.USER.LOADLIB,DISP=SHR 00060118
// DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060218
//* DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061026
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//******************************************************************** 00090017
//*** COPY ESSP DAILY FILE COUNT TO BACKUP GDG. 00100017
//** 00110017
//******************************************************************** 00120017
//** 00130017
//COPYX999 EXEC PGM=IDCAMS,COND=(0,LT) 00140017
//IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 00150017
//** 00160017
//OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017
// DISP=(NEW,CATLG,DELETE), 00180017
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE), 00190017
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=80) 00200017
//SYSPRINT DD SYSOUT=(*) 00210017
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017
//* 00230017
//***************************************************************** 01230000
//STEP0300 EXEC PGM=DTSBX630 01240010
//SYSPRINT DD SYSOUT=* 01250000
//SYSDBOUT DD SYSOUT=* 01260000
//SYSCOUNT DD DUMMY 01270000
//SYSUDUMP DD DUMMY 01280000
//DTSFX102 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR 01290201
//DTSFX104 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR 01290301
//DTSFX106 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR 01290401
//DTSFA106 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,DISP=SHR 01290501
//DTSFX108 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR 01290601
//DTSFX110 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR 01290701
//DTSFA110 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR 01290801
//DTSFX120 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR 01290901
//DTSFA120 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR 01291001
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR 01292001
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR 01293001
//DTSFX145 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR 01294001
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001
//DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002
//DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01307001
//SYSOUT DD SYSOUT=* 01308000
//* 01360000
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010
// REGION=4M 01362000
//SYSPRINT DD SYSOUT=* 01363000
//OUT1 OUTPUT DEST=U1003, 01364000
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01365000
// 'CC:ARAVIND.VITTA@SAGITEC.COM', 01367015
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368016
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368124
// 'CC:JOY.DIGGS@DC.GOV', 01369023
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01369225
// 'CC:MARGARET.HERNANDEZ@DC.GOV', 01369418
// 'SUBJECT: ESSP RECORDS SENT TO DUTAS--SUCESSFULL--', 01369516
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721
// MAILFROM=DUTAS@DC.GOV 01369821
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01369904
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01370004
//SYSIN DD DUMMY 01370104
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204
//* 01371006
//STEP0500 EXEC PGM=IEBGENER,COND=(5,NE,STEP0300), 01372010
// REGION=4M 01373006
//SYSPRINT DD SYSOUT=* 01374006
//OUT1 OUTPUT DEST=U1003, 01375006
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01376006
//* 'CC:NANCY.HUDAK@DC.GOV', 01377014
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01378024
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01379024
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01379114
//* 'CC:MACARENA.CANTELAS@DC.GOV', 01379214
// 'CC:MARGARET.HERNANDEZ@DC.GOV', 01379324
// 'SUBJECT: ESSP RECORDS SENT TO DUTAS----FAILED----', 01379410
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620
// MAILFROM=DUTAS@DC.GOV 01379720
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR 01379806
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01379906
//SYSIN DD DUMMY 01380006
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006
//**********************************************************************01390004

41
JCL/DTSBXACH.jcl Normal file
View File

@ -0,0 +1,41 @@
//DTSBXACH JOB (UI,4300,3400,T),DTSBXPEN-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP ACH PAYMENTS FILES 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP ACH PAYMENTS TO DUTAS 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSBXACH
//*
//STEP0300 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

62
JCL/DTSBXPEN.jcl Normal file
View File

@ -0,0 +1,62 @@
//DTSBXPEN JOB (UI,4300,3400,T),DTSBXPEN-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES) 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PEND7DAY FILE WHEN NO MATCHES TO 00001700
//** PAYMENT(X145) FOUND ALONG WITH THE WAGES. 00001700
//** 2. PAYMENT (145) WILL GO TO PEND7DAY FILE WHEN NO MATCHES TO 00001700
//** REPORT NOT FOUND. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* - X144 -EMPLOYER WAGE DETAIL 00001700
//* - X145 -EMPLOYER PAYMENT DATA 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T028 TRANSACTIONS 00001700
//* 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.ESSP.X435.BTC 00001700
//* DOESTAX.CONV.ESSP.X435.W4FILE 00001700
//* DOESTAX.CONV.ESSP.X435PAID.TXT 00001700
//* DOESTAX.CONV.ESSP.X435PEND.TXT 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN WITH CAUTION; DUPLICATE PAYMENTS MAY OCCUR 00001700
//* <<<< DELETE CURRENT GENERATION OF FILLES BEFORE RUNNING
//*
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSNXPEN
//*
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

90
JCL/DTSBXPFL.jcl Normal file
View File

@ -0,0 +1,90 @@
//DTSBXPFL JOB (UI,4300,3400,T),RUNRQ460,CLASS=S,MSGCLASS=X,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
//**** TYPRUN=SCAN,
//**** TYPRUN=HOLD,
// REGION=0M
//**
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//**
//**
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
//*
//**********SEE NOTE BELOW TO TRANSFER FILE TO UAT SERVER************
//*
//* CITYWIDE CLEAN HANDS EXTRACT -TESTING ONLY TO OCFO UAT SERVER*
//**** RUN JOB DTSFT460 FROM OS19 TO TRANSFER FILE.....01/23/20 ZL1 *
//*
//* CHANGED PROGRAM TO ZXPFL, OLD PROGRAM BXPFL HAD ISSIES 8/31/23 ZL1
//*
//*******************************************************************
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0010 EXEC PGM=SORT,PARM='VLTEST=0' SORT REPORT RECORDS
//SYSOUT DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
SORT FIELDS=(24,9,CH,A)
OMIT COND(24,9,CH,EQ,C'060726487')
//**
//STEP0100 EXEC PGM=DTSZXPFL,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//TAXFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//*
//*FLFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//PFLFILE1 DD DUMMY
//*
//TAXFILE2 DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
//*
//*******************************************************************
//STEP0200 EXEC PGM=SORT
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
SORT FIELDS=(1,386,CH,A)
OMIT COND(24,9,CH,EQ,C'060726487')
//*
//*******************************************************************
//STEP0300 EXEC PGM=FTP,REGION=2M
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//*
//*******************************************************************
//STEP0400 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//OUTDD01 DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*

77
JCL/DTSBXREG.jcl Normal file
View File

@ -0,0 +1,77 @@
//DTSBXREG JOB (UI,4300,3400,T),DTSBXREG-ESSP-REGA, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//**********************************************************************00001700
//**************** CANNOT ADD NAME TO EMAIL LIST - MAX REACHED 00001700
//**************** TO ADD NAME REMOVE SOMEONE 4/20/17 ZL1 00001700
//**********************************************************************00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB /ESSP LOAD LIBARY 00001600
//** 00001700
//* PROCESS EMPLOYER DATA FROM ESSP WEB DATABASE,UPDATE DUTAS 00001700
//* MAINFRAME CICS SYSTEM. 00001700
//** 00001700
//** THIS JOB WILL CREATE REGISTRATION DATA FOR DUTAS TO CREATE 00001700
//** EMPLOYERS REGISTERED IN ESSP 11/21/14 ZL1 00001700
//** 00001700
//** JOB CAN RUN AND RERUN AT ANY TIME DOES NOT UPDATE MASTER FILES 00001700
//** IT WILL CREATE T002 AND T003 TRANSACTIONS FOR DUTAS. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY THIS JOB 00001700
//* - X102 -EMPLOYER PROFILE 00001700
//* - X104 -DETERMINATION 00001700
//* - X106 -EMPLOYER NAME 00001700
//* - X108 -EMPLOYER RATES 00001700
//* - X110 -EMPLOYER ADDRESS 00001700
//* - X120 -EMPLOYER OPO DATA 00001700
//* 00001700
//* DAILY INPUT FILES ARE SORTED INTO: 00001700
//* - DOESTAX.CONV.FROMESSP (+1) GDG 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003 00001700
//* TRANSCATIONS 00001700
//*
//* OUTPUT FILES: 00001700
//* DOESTAX.CONV.ESSP.X421.BTC /EMPLOYER PROFILE CREATE 00001700
//* DOESTAX.CONV.ESSP.X424.BTC /EMPLOYER ADDRESS/OPO INFO 00001700
//* 00001700
//* OUTPUT FILES ARE PASSED ON THE DAILY UPDATE JOB DTSPDAY1 00001700
//* FOR PROCESSING 00001700
//* 00001700
//* ALL FILES INPUT AND OUTPUT ARE REINITLIZED EACH DAY AFTER 00001700
//* DAILY CYCLE COMPLETES SUCESSUFLLY BY JOB DTSRQ202 00001700
//* 00001700
//* BACKUPS: ALL FILES INPUT AND OUTPUT ARE ARCHIVED IN JOB 00001700
//* DTSRQ325 EACH DAY BEFORE THE DAILY CYCLE STARTS 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT BTC FILES EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//*
//STEP0200 EXEC DTSNXREG /CREATE DUTAS REGISTRATIONS DATA.
//*
//STEP0500 EXEC DTSRSESP / SORTS ERROR REPT FOR NEXT STEP
//***
//*
//*TEP0600 EXEC DTSRERPT / GENERATES ERROR REPORTS
//*TEP0600 EXEC DTSREGPT / GENERATES ERROR REPORTS
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//* 00001700
//************************* END PROC**************************** ZL1 00001700

57
JCL/DTSBXREJ.jcl Normal file
View File

@ -0,0 +1,57 @@
//DTSBXREJ JOB (UI,4300,3400,T),DTSBXPEN-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES) 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PENDING FILLE FOR 7 DAYS IF NO 00001700
//** PAYMENT(X145) FOUND. ALL REPORTS RELEASED FROM PENDING 00001700
//** FILE THE REMIT AMOUNT WILL BE ZEROED OUT. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* - X144 -EMPLOYER WAGE DETAIL 00001700
//* - X145 -EMPLOYER PAYMENT DATA 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.X418.BTC 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSBXDTS
//*
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
// 00001700
//STEP0999 EXEC DTSEINIT
//** 00001700

55
JCL/DTSBXREL.jcl Normal file
View File

@ -0,0 +1,55 @@
//DTSBXREL JOB (UI,4300,3400,T),DTSBXPEN-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS ESSP PENDING DATA FILES (REPORTS AND PAYMENTS) 00001700
//* 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP PENDING REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PENDING FILE IF NO 00001700
//** PAYMENT(X145) FOUND. ALL REPORTS RELEASED FROM PENDING 00001700
//** FILE THE REMIT AMOUNT WILL BE ZEROED OUT. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS (PENDING FILES ONLY) 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* - X145 -EMPLOYER PAYMENT DATA 00001700
//* 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003,T028 00001700
//* TRANSCATIONS 00001700
//* OUTPUT FILE: 00001700
//* DOESTAX.PROD.X436.BTC 00001700
//* DOESTAX.CONV.X435.W4FILE 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN WITH CAUTION OR DUPLICATE PAYMENT WILL OCCUR00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//**
//STEP0200 EXEC DTSNXREL
//*
//STEP0200 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

98
JCL/DTSBXRPT.jcl Normal file
View File

@ -0,0 +1,98 @@
//DTSBXRPT JOB (UI,4300,3400,T),DTSBXRPT-ESSP-RPTS, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//* 00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00001600
//** 00001700
//* PROCESS EMPLOYER QUARTERLY REPORTS DATA FROM ESSP AND CREATE 00001700
//* T028 TRANSACTIONS FOR DUTAS CICS SYSTEM 00001700
//** 00001700
//** THIS JOB WILL PROCESS ESSP REPORT WAGES AND PAYMENTS 00001700
//** 1. REPORTS(X140) WILL GO TO PENDING FILLE FOR 7 DAYS IF NO 00001700
//** PAYMENT(X145) FOUND. WAGES W(X144) WILL ALSO GO TO THE PENDING 00001700
//** FILES WITH REPORTS. 00001700
//** 00001700
//** 2. PAYMENTS(X145) WILL GO TO PENDING FILLE FOR 7 DAYS IF NO 00001700
//** REPORTS(X140) FOUND. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY DUTAS: 00001700
//* - X140 -EMPLOYER REPORT DATA (WAGE HEADER) 00001700
//* - X144 -EMPLOYER WAGE DETAIL 00001700
//* - X145 -EMPLOYER PAYMENT DATA (ESSP) 00001700
//* - PAYMT - TDEC REPORT PAYMENT DATA FROM TDEC 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T028 TRANSACTIONS 00001700
//* 00001700
//* OUTPUT FILES: 00001700
//* DOESTAX.PROD.ESSP.X430.BTC 00001700
//* DOESTAX.CONV.ESSP.X430.W4FILE 00001700
//* DOESTAX.PROD.ESSP.PENDING.X140 00001700
//* DOESTAX.CONV.ESSP.PENDING.X144 00001700
//* DOESTAX.PROD.ESSP.PENDING.X145 00001700
//* 00001700
//* THIS JOB MAY BE RERUN BUT IT WILL CREATE DUPLICATE PENDING FILES 00001700
//***** DELETE LAST GENERATION OF PENDING FILES CREATED OR DUPLICATE 00001700
//***** REPORT WILL BE REPORTED ON THE PENDING FILES WHEN PROCESSED 00001700
//* IT REBUILDS THE OUTPUT BTC AND WAGE FILE EACH TIME IT RUNS. 00001700
//** 00001700
//************************************* 01/05/15 ZL1
//* 00001700
//*****************************************************************
//* STEP0100 SEPARATES THE ORIGINAL REPORTS FROM THE AMENDMENTS FOR 00001700
//* FOR PROCESSING. 00001700
//* SYNC SORT ENDED 10/01/22 PER OCTO CHANGED TO SORT ZL1 00001700
//*****************************************************************
//STEP0100 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
INCLUDE COND=(19,8,CH,EQ,C'00000000')
END
//*
//STEP0110 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,17,CH,A)
INCLUDE COND=(19,8,CH,EQ,C'00000000')
END
//*
//STEP0200 EXEC DTSBXRPT
//*
//STEP0200 EXEC DTSRSESP
//* REPORT GENERATION
//STEP0300 EXEC DTSRERPT
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//** 00001700

39
JCL/DTSBZ057.jcl Normal file
View File

@ -0,0 +1,39 @@
//DTSBZ057 JOB (UI,4300,3400,T),GIL,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP,
// USER=#DOADTS
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ057, CORRECT 07/3 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.&LVLNODE..FZ057,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(2300,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=23,BLKSIZE=2300)
//*
//*********************************************************************

37
JCL/DTSBZ084.jcl Normal file
View File

@ -0,0 +1,37 @@
//DTSBZ084 JOB (UI,4300,3400,T),PROD.BZ084,CLASS=P,MSGCLASS=X, 00000010
// USER=#DOADTS,
//*** NOTIFY=ECNTSUP
// NOTIFY=ECNTJP2
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET PRGNODE='DEVL' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ084, /* T031 ADJUSTMENT FOR HOUSEHOLD
// COND=(0,LT), /* EMPS DELINQUENT IN 2002/1
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTA DD DSN=DOESTAX.&MSTNODE..VSAM.MSTA,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFMSTB DD DSN=DOESTAX.&MSTNODE..VSAM.MSTB,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFMSTC DD DSN=DOESTAX.&MSTNODE..VSAM.MSTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFMSTD DD DSN=DOESTAX.&MSTNODE..VSAM.MSTD,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFAIX DD DSN=DOESTAX.&MSTNODE..VSAM.AIX,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****

38
JCL/DTSBZ22X.jcl Normal file
View File

@ -0,0 +1,38 @@
//DTSBZ22X JOB (UI,4300,3400,T),PROD.HHCONV.SPEC, 00010002
// CLASS=P,MSGCLASS=X, 00020000
// NOTIFY=ECNTSUP, 00030001
//*** USER=OPCSUB, 00040000
// REGION=0M 00050000
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00060000
// SET LVLNODE='PROD' 00070003
//**** 00080000
//* 11/10/02 - JHP 00090001
//* THOSE STEPS FROM THE HH PARALLEL RUN TO CONVERT THE 00100001
//* PROD FILES FOR NEW FIELDS 00110001
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE HTST FILES 00120000
//**** 00130000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00190000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00200000
//**** 00261000
//**** /* SPEC. CONV. STEP TO INIT NEW MRTE & MRCT DATA ELEMENTS 00270000
//STEP0030 EXEC PGM=DTSBZ220, 00270100
// COND=(0,LT) 00270200
//SYSOUT DD SYSOUT=* 00270400
//SYSABOUT DD SYSOUT=* 00270500
//SYSABEND DD SYSOUT=* 00270600
//CAIMRPTS DD SYSOUT=* 00270700
//* 00270800
//DTSFMSTR INCLUDE MEMBER=DTSIMSTX 00270900
//**** 00271100
//**** /* SPEC. CONV. STEP TO INIT NEW FUIR DATA ELEMENTS 00271200
//STEP0040 EXEC PGM=DTSBZ225, 00271300
// COND=(0,LT) 00271400
//SYSOUT DD SYSOUT=* 00271500
//SYSABOUT DD SYSOUT=* 00271600
//SYSABEND DD SYSOUT=* 00271700
//CAIMRPTS DD SYSOUT=* 00271800
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00271900
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00272000
// AMP=('BUFNI=5,BUFND=10') 00273000
//**** 00279101

27
JCL/DTSBZ261.jcl Normal file
View File

@ -0,0 +1,27 @@
//ECNTGD1P JOB (UI,4300,3400,T),GIL,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=DTSBZ261, ANNUAL REPORT CORRECTION
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//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')
//*********************************************************************

79
JCL/DTSBZ387.jcl Normal file
View File

@ -0,0 +1,79 @@
//DTSBZ387 JOB (UI,4300,3400,T),JHP.PROD,CLASS=P,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//* 00001700
/*ROUTE PRINT U@PRT65 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//* 00001700
//STEP0100 EXEC PGM=DTSBZ387, /* PRINT ADMIN ASSESS NOTICES
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSWESQ DD DSN=DOESTAX.&MSTNODE..VSAM.WESQ,DISP=SHR
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BE325.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//********************************************************************* 00120000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00130000
// COND=(0,LT) 00140000
//SYSOUT DD SYSOUT=* 00150000
//SORTIN DD DSN=DOESTAX.PROD.BE325.RPT(+1),DISP=SHR 325 RPTS 00150199
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00240000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00250000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00260000
//SORTOUT DD DSN=&&SRTRPT, 00270000
// DISP=(,PASS,DELETE), 00280000
// UNIT=SYSDA, 00290000
// SPACE=(8192,(1000,1000),RLSE), 00300000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00310000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR 00320099
//********************************************************************* 00330000
//* 00543800
//STEP0300 EXEC PGM=DTSBD800, OUTPUT GENERATION 00543900
// TIME=(1,30), 00544000
// COND=(0,LT) 00545000
//SYSOUT DD SYSOUT=* 00546000
//SYSABOUT DD SYSOUT=* 00547000
//SYSUDUMP DD SYSOUT=* 00548000
//** 00548199
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00548299
//** 00548399
//PARMIN DD * 00549000
DTSBD800,INC,325 00550099
//*DTSBD800,EXC 00560000
/* 00570000
//** 00580000
//ATLSTIN DD * 00590000
DTSBD800 00600000
/* 00610000
//** 00620000
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00630000
//** 00640000
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, 00670000
// AMP=('BUFNI=5,BUFND=10') 00680000
//* 00738199
//DTSWESQ DD DSN=DOESTAX.PROD.VSAM.WESQ,DISP=SHR 00738299
//RPT325R1 DD SYSOUT=W,DEST=HOLD 00738499
//RPT325R2 DD SYSOUT=Z,DEST=HOLD 00738599
//RPT325R3 DD SYSOUT=Z,DEST=HOLD 00738699
//RPT325R4 DD SYSOUT=Z,DEST=HOLD 00738799
//RPT325R5 DD SYSOUT=Z,DEST=HOLD 00738899
//* 00738199
//RPT980R1 DD SYSOUT=* 00738199
//PRINTER DD SYSOUT=* 00738199
//**********************************************************************01190000
// 01200000

43
JCL/DTSCCGM1.jcl Normal file
View File

@ -0,0 +1,43 @@
//DTSCCGM1 JOB (UI,4300,3400,T),CHGCC.MNE,CLASS=P,MSGCLASS=X, 00010001
//** TYPRUN=SCAN, 00020000
// USER=#DOADTS,
// NOTIFY=ECNTSUP,REGION=0M 00031000
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PGMNODE='PROD' /* MONTHLY FOR DC CONV. CNTR. 00050004
// SET UINODE='PROD' 00060000
// SET LVLNODE='PROD' 00060100
// SET MSTNODE='PROD' 00061000
// SET CHGNODE='PROD' 00070000
// SET CHGMNBR='CHGM002' 00071000
// SET CHGMSSN='CHGM030' 00072000
// SET QTRLY='SPECM1' 00080000
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
// SET LVLHOLD='YES' 00101001
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130004
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140000
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//**** ********* FOR THE DC CONVENTION CENTER ONLY *************** 00161000
//**** 00480000
//STEP0200 EXEC DTSUXMCC 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGCC), 00491000
// DISP=SHR 00500000
//*TEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500100
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500200
//*TEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500300
//**** 00504000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511000
//STEP0100.CSV130R1 DD DUMMY /* FSDES FILE 00511000
//STEP0100.RPC130R2 DD DUMMY /* RATED (W) 00511000
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511100
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511200
//STEP0100.RPC110R2 DD SYSOUT=0 00511301
//STEP0100.RPC110R3 DD DUMMY /* S-I (I) 00511200
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
//* 00517001

140
JCL/DTSCHGA1.jcl Normal file
View File

@ -0,0 +1,140 @@
//DTSCHGA1 JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X, 00010099
//**** TYPRUN=SCAN, 00020099
// NOTIFY=ECNTSUP,REGION=0M 00030099
//**** 00040000
//* ANNUAL CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099
//**** 00041199
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299
//******************************************************************* 00042099
//8/13/12 PER TOM THIS JOB IS NO LONGER REQUIRED * 00042199
//******************************************************************* 00042299
//*DO NOT RUN THIS JOB UNTIL FUTHER NOTICE ZL1 8/14/12 ** 00042399
//******************************************************************* 00042499
// SET PRGNODE='PROD' 00043099
// SET LVLNODE='PROD' 00044099
// SET MSTNODE='PROD' 00045199
// SET CHGNODE='PROD' 00046099
// SET UINODE='PROD' 00047000
// SET CHGMNBR='CHGM002' 00048000
// SET CHGMSSN='CHGM030' 00049000
// SET QTRLY='FY2012' 00050099
// SET LDEST='LOCAL' 00070000
// SET LHOLD='YES' 00080000
// SET LVDHOLD='YES' 00081099
//***** 00090000
//****PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00100099
//****LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110099
//**** 00120000
//**** 00130000
//STEP0100 EXEC DTSUXCGR 00140099
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099
//STEP0300.EXTPARM DD * 00170065
ANN, , ,YNNNNN,000000 00190099
/* 00210000
//*ANN, , ,YYYYYY,000000 00220099
//*QTR, , ,YYYYNY,000000 00230099
//*EMP,070106,063007,YNNNNN,154162 00240099
//********************************************************************* 00940071
//STEP0200 EXEC PGM=CHGBD301, 00951099
// COND=(0,LT) 00970000
//SYSOUT DD SYSOUT=* 00980000
//SYSABOUT DD SYSOUT=* 00990000
//SYSUDUMP DD SYSOUT=* 01000000
//** 01010000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01020000
//** 01030000
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 01080099
// DISP=SHR, 01080199
//* DISP=(NEW,CATLG,DELETE), 01081099
// UNIT=SYSDA, 01082099
// SPACE=(80,(2,10),RLSE), 01083099
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 01084099
//** 01120000
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY, 01130099
// DISP=SHR, 01131099
//* DISP=(NEW,CATLG,DELETE), 01131199
// UNIT=SYSDA, 01132099
// SPACE=(31040,(1000,1000),RLSE), 01133099
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 01134099
//*D220CHG DD DSN=&&BD220RPT, 01140099
//* DISP=(OLD,PASS,DELETE) 01150099
//** 01160000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01170000
// AMP=('BUFNI=5,BUFND=10') 01180000
//** 01190000
//RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 01210000
// DISP=(NEW,CATLG,DELETE), 01230099
//** DISP=(OLD,KEEP,KEEP), 01231099
// UNIT=SYSDA, 01240099
// SPACE=(8000,(1000,1000),RLSE), 01250099
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 01260099
//** 01270000
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 01301099
// DISP=(NEW,CATLG,DELETE), 01310099
//** DISP=(OLD,KEEP,KEEP), 01320099
// UNIT=SYSDA, 01330000
// SPACE=(11800,(1000,1000),RLSE), 01340000
// DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 01350000
//** 01360000
//** TO BE PROCESSED IN THE NEXT DAILY RUN 01370000
//*TSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 01380099
//* DISP=(,CATLG,DELETE), 01390099
//* UNIT=SYSDA, 01400099
//* SPACE=(8192,(1000,1000),RLSE), 01410099
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099
//** 01430000
//** SM - TOTAL CHARGES (RATED) 01440000
//RPC100R1 DD SYSOUT=*, 01451099
// DEST=&LDEST., 01460000
// HOLD=&LHOLD. 01470000
//** CHRG SUMMARY-RATED 01480000
//RPC100R3 DD SYSOUT=O 01491099
//** 01520099
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 01810000
// COND=(0,LT), 01820000
// REGION=0M 01830000
//SYSOUT DD SYSOUT=* 01840000
//SORTIN DD DSN=&&BD205RPT, 01860099
// DISP=(OLD,DELETE,DELETE) 01870099
//SORTOUT DD DSN=&&SRTRPT, 01880000
// DISP=(,PASS,DELETE), 01890000
// UNIT=SYSDA, 01900000
// SPACE=(16384,(1000,1000),RLSE), 01910000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01920000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 01930099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01940099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01950000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01960000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01970000
//* 01980000
//**** 01990000
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 02000000
// COND=(0,LT) 02010000
//SYSOUT DD SYSOUT=* 02020000
//SYSABOUT DD SYSOUT=* 02030000
//SYSUDUMP DD SYSOUT=* 02040000
//** 02050000
//DTSFVRI1 DD DSN=&&SRTRPT, 02060000
// DISP=(OLD,DELETE,DELETE) 02070000
//** 02080000
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 02090062
// AMP=('BUFNI=5,BUFND=10') 02100000
//** 02110000
//PARMIN DD DUMMY 02120000
//** 02130000
//ATLSTIN DD DUMMY 02140000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02150000
//RPT907R1 DD SYSOUT=Z, 02160000
// DEST=&LDEST., 02170000
// HOLD=&LHOLD. 02180000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02190000
//RPT907R2 DD SYSOUT=Z, 02200000
// DEST=&LDEST., 02210000
// HOLD=&LHOLD. 02220000
//** CONTROL REPORT SUMMARY 02230000
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02240000
// HOLD=&LHOLD., 02250000
// DEST=&LDEST. 02260000
//** 02270000

69
JCL/DTSCHGCC.jcl Normal file
View File

@ -0,0 +1,69 @@
//DTSCHGCC JOB (UI,4300,3400,T),CHGCC.CNV,CLASS=P,MSGCLASS=X, 00010012
//** TYPRUN=SCAN, 00020011
// USER=#DOADTS,
// NOTIFY=ECNTSUP,REGION=0M 00031015
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PGMNODE='PROD' /* MONTHLY FOR DC CONV. CNTR. 00050022
// SET UINODE='PROD' 00060015
// SET LVLNODE='PROD' 00060115
// SET MSTNODE='PROD' 00061010
// SET CHGNODE='PROD' 00070010
// SET CHGMNBR='CHGM002' 00071000
// SET CHGMSSN='CHGM030' 00072006
// SET QTRLY='DCC202' 00080000
// SET LDEST='LOCAL' 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130022
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140006
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//**** ********* FOR THE DC CONVENTION CENTER ONLY *************** 00161020
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGCC), 00491020
// DISP=SHR 00500020
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500103
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500203
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500303
//**** 00504000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511014
//STEP0100.CSV130R1 DD DUMMY /* FSDES FILE 00511014
//STEP0100.RPC130R2 DD DUMMY /* FISC.AGNT. 00511100
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511100
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511214
//STEP0100.RPC110R2 DD DSN=DOESTAX.DEVL.CNVCHG.R1207,DISP=SHR 00511316
//STEP0100.RPC110R3 DD DUMMY /* S-I (I) 00511214
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
//** 00520000
/*JOBPARM LINES=99999
/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***************************************************************
//* U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
//* INCLUDE JOB SEPARATORS
//* U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
//* OMITS ALL JOB SEPARATORS INFORMATION
//***************************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:CAMILLE.GERALD@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT: DC CONVENTION CENTER CHARGES )',
// 'FILEDESC: DC CONVENTION CHARGES ',
// 'FILENAME:CONVCHGS.TXT')
//SYSUT1 DD DISP=SHR,
// DSN=DOESTAX.DEVL.CNVCHG.R1207
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

41
JCL/DTSCHGD1.jcl Normal file
View File

@ -0,0 +1,41 @@
//DTSCHGD1 JOB (UI,4300,3400,T),JHP.CHGDLY,CLASS=J,MSGCLASS=X, 00000160
//*** TYPRUN=SCAN, 00000225
// USER=#DOADTS,
// NOTIFY=ECNTSUP,REGION=0M 00000564
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000637
// SET PRGNODE='PROD' /* DAILY CHARGING UPDATE FROM 00000760
// SET LVLNODE='PROD' /* UI BENEFITS TO UI TAX 00000860
// SET MSTNODE='PROD' 00000960
// SET CHGNODE='PROD' 00001060
// SET CHGMNBR='CHGM002' 00001149
// SET CHGMSSN='CHGM030' 00001249
// SET BKPGEN='(+1)' /* 200 BACKUP GENERATIONS 00001349
// SET LDEST=U@PRT65 00001449
// SET LHOLD='YES' 00001549
// SET BD200='Y' /* TOLERATE DUPS OR NOT 00001662
//**** 00001749
//* DAILY BENEFIT CHARGE PROCESS 00002003
//**** 00002425
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00003026
//*OADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
//LOADLIBS INCLUDE MEMBER=DTSIKLIB 00003227
//**** 00003325
//STEP0100 EXEC DTSUXCD1 /*EXTRACT AND UPDATE CHARGE FILE 00003963
//**** 00005461
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
// LDEST=U@PRT65, 00005660
// LHOLD='YES' 00005760
//** 00005860
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//**** 00001749
//* DAILY BENEFIT CHARGE BACKUP 00002003
//*********************************************************************
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
//********************************************************************
//*
//STEP0100 EXEC DTSUTCHG,
// BKUPGEN='(+1)' 00002425
//*

27
JCL/DTSCHGD7.jcl Normal file
View File

@ -0,0 +1,27 @@
//DTSCHGD7 JOB (UI,4300,3400,T),JHPPROD.CHGMBKP, 00000103
// CLASS=P,MSGCLASS=X, 00000203
//**** TYPRUN=SCAN, 00000300
// USER=#DOADTS, 00000409
// NOTIFY=ECNTSUP, 00000710
// REGION=0M 00000804
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000900
//* UI TAX WEEKLY BACKUP OF CHGMXXX VSAM FILE(S) 00001105
//**** 00001800
// SET LVLNODE='PROD' 00001903
//**** 00002001
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00002101
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002200
//**** 00002301
//STEP0100 EXEC DTSCHGMB, 00002401
// CHGNOD2I='PROD', 00002505
// CHGNOD2O='PROD', 00002605
// CHGMN2R='CHGM002', 00002705
// CHGNOD3I='PROD', 00002805
// CHGNOD3O='PROD', 00002905
// CHGMN3R='CHGM030', 00003006
// BKPGEN='(+1)' 00003107
//**** 00003206
//** CHGMN3R='CHGM030', 00003306
//** BKPGEN='.G0013V00' /* SPEC. TO PUT BKP'S IN SYNC. 00003407
//**** 00004001

72
JCL/DTSCHGDC.jcl Normal file
View File

@ -0,0 +1,72 @@
//DTSCHGDC JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X, 00010014
//** TYPRUN=SCAN, 00011014
// USER=#DOADTS, 00014018
// NOTIFY=ECNTSUP,REGION=0M 00014018
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET UINODE='PROD' /* MONTHLY RUN FOR DC GOVT ONLY 00050020
// SET PGMNODE='PROD' 00051022
// SET LVLNODE='PROD' 00060014
// SET MSTNODE='PROD' 00061014
// SET CHGNODE='PROD' 00070014
// SET CHGMNBR='CHGM002' 00071002
// SET CHGMSSN='CHGM030' 00072009
// SET QTRLY='DCG203' 00080000
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130022
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//******************** DC GOVERNMENT ONLY ******************* 00170020
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGDC), 00491020
// DISP=SHR 00500020
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500105
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500221
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500305
//**** 00504000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511017
//STEP0100.CSV130R1 DD DUMMY /* FSDES FILE 00500105
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511101
//STEP0100.RPC130R2 DD DUMMY /* FISC.AGNT. 00511101
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511217
//STEP0100.RPC110R3 DD DUMMY /* S-I (I) 00511217
//STEP0100.RPC160R1 DD DSN=DOESTAX.DEVL.CNVCHG.R1107,DISP=SHR 00511319
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
// 00520000
/*JOBPARM LINES=99999
/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***************************************************************
//* U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
//* INCLUDE JOB SEPARATORS
//* U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
//* OMITS ALL JOB SEPARATORS INFORMATION
//***************************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:GERALD.SMART@DC.GOV',
// 'CC: CAMILLE.GERALD@DC.GOV',
// 'CC: RYAN.MOORE-LEE@DC.GOV',
// 'CC: SIA.KIAWU@DC.GOV',
// 'CC: LOUANN.CUDJOE@DC.GOV',
// 'CC: MOHAMED.HMAEY@DC.GOV',
// 'FILEDESC: DC GOVT MONTHLY CHARGES ',
// 'FILENAME:CONVCHGS.TXT')
//SYSUT1 DD DISP=SHR,
// DSN=DOESTAX.DEVL.CNVCHG.R1107
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

43
JCL/DTSCHGDW.jcl Normal file
View File

@ -0,0 +1,43 @@
//DTSCHGDW JOB (UI,4300,3400,T),CHGDC.WKE,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
// USER=#DOADTS, 00012024
// NOTIFY=ECNTSUP,REGION=0M 00013020
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET UINODE='PROD' /* WEEKLY RUN FOR DC GOVT. 00050019
// SET PRGNODE='PROD' 00051022
// SET LVLNODE='PROD' 00060017
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' 00071002
// SET CHGMSSN='CHGM030' 00072009
// SET QTRLY='SPECXX' 00080000
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
// SET LVDHOLD='YES' 00101020
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB /* PROD PROGS 00140017
//**** 00150000
//* WEEKLY CHARGE REPORTING PROCESS FOR DC GOVERNMENT 00160022
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGDW), 00491022
// DISP=SHR 00500022
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500105
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500323
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500513
//**** 00504000
//STEP0300 EXEC DTSCHGQ1 00510021
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511001
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511101
//STEP0100.RPC100R3 DD DUMMY /* FISC.AGNT. 00511220
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511320
//STEP0100.RPC110R2 DD DUMMY /* S-I (I) 00511420
//STEP0100.RPC120R1 DD DUMMY /* S-I (I) 00511520
//STEP0100.RPC130R1 DD DUMMY /* S-I (I) 00511620
//STEP0100.RPC160R1 DD SYSOUT=0 00511820
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00513125
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
//**** 00515020
//* 00516020

25
JCL/DTSCHGDZ.jcl Normal file
View File

@ -0,0 +1,25 @@
//DTSCHGD1 JOB (UI,4300,3400,T),JHP.CHGDLY,CLASS=J,MSGCLASS=X, 00000160
//*** TYPRUN=SCAN, 00000225
// NOTIFY=ECNTSUP,REGION=0M 00000564
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000637
// SET PRGNODE='PROD' /* DAILY CHARGING UPDATE FROM 00000760
// SET LVLNODE='PROD' /* UI BENEFITS TO UI TAX 00000860
// SET MSTNODE='PROD' 00000960
// SET CHGNODE='PROD' 00001060
// SET CHGMNBR='CHGM002' 00001149
// SET CHGMSSN='CHGM030' 00001249
// SET BKPGEN='(+1)' /* 200 BACKUP GENERATIONS 00001349
// SET LDEST=U@PRT65 00001449
// SET LHOLD='YES' 00001549
// SET BD200='Y' /* TOLERATE DUPS OR NOT 00001662
//**** 00001749
//* DAILY BENEFIT CHARGE PROCESS 00002003
//**** 00002425
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00003026
//*OADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
//LOADLIBS INCLUDE MEMBER=DTSIKLIB 00003227
//**** 00003325
//STEP0100 EXEC DTSUTCHG,
// BKUPGEN='(+1)' 00002425
//*

138
JCL/DTSCHGE1.jcl Normal file
View File

@ -0,0 +1,138 @@
//DTSCHGE1 JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X, 00010001
//**** TYPRUN=SCAN, 00020000
// NOTIFY=ECNTSUP,REGION=0M 00030000
//**** 00040000
//* BENEFIT CHARGE REPORTING PROCESS FOR ANY EMPLOYER 00041001
//**** 00041100
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041200
//**** 00042000
// SET PRGNODE='PROD' 00043000
// SET LVLNODE='PROD' 00044000
// SET MSTNODE='PROD' 00045100
// SET CHGNODE='PROD' 00046000
// SET UINODE='PROD' 00047000
// SET CHGMNBR='CHGM002' 00048000
// SET CHGMSSN='CHGM030' 00049000
// SET QTRLY='SPECXX' 00050000
// SET LDEST='LOCAL' 00070000
// SET LHOLD='YES' 00080000
// SET LVDHOLD='YES' 00081000
//***** 00090000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110000
//**** 00120000
//**** 00130000
//STEP0100 EXEC DTSUXCGR 00140000
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150000
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160000
//STEP0300.EXTPARM DD * 00170000
EMP,010105,101508,YNNNNN,143904 00200000
/* 00210000
//*ANN, , ,YYYYYY,000000 00220000
//*QTR, , ,YYYYNY,000000 00230000
//*EMP,070106,063007,YNNNNN,154162 00240000
//********************************************************************* 00940000
//STEP0200 EXEC PGM=CHGBD301, 00951000
// COND=(0,LT) 00970000
//SYSOUT DD SYSOUT=* 00980000
//SYSABOUT DD SYSOUT=* 00990000
//SYSUDUMP DD SYSOUT=* 01000000
//** 01010000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01020000
//** 01030000
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 01080000
// DISP=SHR, 01080100
//* DISP=(NEW,CATLG,DELETE), 01081000
// UNIT=SYSDA, 01082000
// SPACE=(80,(2,10),RLSE), 01083000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 01084000
//** 01120000
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY, 01130000
// DISP=SHR, 01131000
//* DISP=(NEW,CATLG,DELETE), 01131100
// UNIT=SYSDA, 01132000
// SPACE=(31040,(1000,1000),RLSE), 01133000
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 01134000
//*D220CHG DD DSN=&&BD220RPT, 01140000
//* DISP=(OLD,PASS,DELETE) 01150000
//** 01160000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01170000
// AMP=('BUFNI=5,BUFND=10') 01180000
//** 01190000
//RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 01210000
// DISP=(NEW,CATLG,DELETE), 01230000
//** DISP=(OLD,KEEP,KEEP), 01231000
// UNIT=SYSDA, 01240000
// SPACE=(8000,(1000,1000),RLSE), 01250000
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 01260000
//** 01270000
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 01301000
// DISP=(NEW,CATLG,DELETE), 01310000
//** DISP=(OLD,KEEP,KEEP), 01320000
// UNIT=SYSDA, 01330000
// SPACE=(11800,(1000,1000),RLSE), 01340000
// DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 01350000
//** 01360000
//** TO BE PROCESSED IN THE NEXT DAILY RUN 01370000
//*TSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 01380000
//* DISP=(,CATLG,DELETE), 01390000
//* UNIT=SYSDA, 01400000
//* SPACE=(8192,(1000,1000),RLSE), 01410000
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420000
//** 01430000
//** SM - TOTAL CHARGES (RATED) 01440000
//RPC100R1 DD SYSOUT=E, 01451000
// DEST=&LDEST., 01460000
// HOLD=&LHOLD. 01470000
//** CHRG SUMMARY-RATED 01480000
//RPC100R3 DD SYSOUT=Z, 01491001
// HOLD=&LHOLD., 01491101
// DEST=&LDEST. 01491200
//** 01520000
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 01810000
// COND=(0,LT), 01820000
// REGION=0M 01830000
//SYSOUT DD SYSOUT=* 01840000
//SORTIN DD DSN=&&BD205RPT, 01860000
// DISP=(OLD,DELETE,DELETE) 01870000
//SORTOUT DD DSN=&&SRTRPT, 01880000
// DISP=(,PASS,DELETE), 01890000
// UNIT=SYSDA, 01900000
// SPACE=(16384,(1000,1000),RLSE), 01910000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01920000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 01930000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01940000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01950000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01960000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01970000
//* 01980000
//**** 01990000
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 02000000
// COND=(0,LT) 02010000
//SYSOUT DD SYSOUT=* 02020000
//SYSABOUT DD SYSOUT=* 02030000
//SYSUDUMP DD SYSOUT=* 02040000
//** 02050000
//DTSFVRI1 DD DSN=&&SRTRPT, 02060000
// DISP=(OLD,DELETE,DELETE) 02070000
//** 02080000
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 02090000
// AMP=('BUFNI=5,BUFND=10') 02100000
//** 02110000
//PARMIN DD DUMMY 02120000
//** 02130000
//ATLSTIN DD DUMMY 02140000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02150000
//RPT907R1 DD SYSOUT=Z, 02160000
// DEST=&LDEST., 02170000
// HOLD=&LHOLD. 02180000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02190000
//RPT907R2 DD SYSOUT=Z, 02200000
// DEST=&LDEST., 02210000
// HOLD=&LHOLD. 02220000
//** CONTROL REPORT SUMMARY 02230000
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02240000
// HOLD=&LHOLD., 02250000
// DEST=&LDEST. 02260000
//** 02270000

46
JCL/DTSCHGM1.jcl Normal file
View File

@ -0,0 +1,46 @@
//DTSCHGM1 JOB (UI,4300,3400,T),CHGXX.MNE,CLASS=P,MSGCLASS=X, 00010021
//** TYPRUN=SCAN, 00011021
// NOTIFY=ECNTSUP,REGION=0M 00013022
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET UINODE='PROD' /* MONTHLY FOR DC GOVT. 00050026
// SET PGMNODE='PROD' 00051027
// SET LVLNODE='PROD' 00060021
// SET MSTNODE='PROD' 00061021
// SET CHGNODE='PROD' 00070021
// SET CHGMNBR='CHGM002' 00071000
// SET CHGMSSN='CHGM030' 00072015
// SET QTRLY='SPECM2' 00080000
// SET LDEST='LOCAL' 00090000
// SET LVDHOLD='YES' 00091024
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130027
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140010
//**** 00150000
//****** MONTHLY CHARGE REPORTING FOR DC GOVERNMENT 00160025
//**** 00480000
//STEP0200 EXEC DTSUXMCC 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGM1), 00491025
// DISP=SHR 00500025
//*TEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500103
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500203
//*TEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500303
//**** 00501000
//STEP0300 EXEC DTSCHGQ1 00511025
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00512024
//STEP0100.CSV130R1 DD DUMMY /* FISC.AGNT. 00513024
//STEP0100.RPC130R2 DD DUMMY /* FISC.AGNT. 00513024
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00513024
//STEP0100.RPC100R3 DD DUMMY /* FISC.AGNT. 00514024
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00515024
//STEP0100.RPC110R2 DD DUMMY /* S-I (I) 00516024
//STEP0100.RPC110R3 DD DUMMY /* S-I (I) 00516024
//STEP0100.RPC120R1 DD DUMMY /* S-I (I) 00517024
//STEP0100.RPC130R1 DD DUMMY /* S-I (I) 00518024
//STEP0100.RPC160R1 DD SYSOUT=0 00519024
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00519124
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00519124
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00519324
//**** 00519424
//* 00519524

46
JCL/DTSCHGQ1.jcl Normal file
View File

@ -0,0 +1,46 @@
//DTSCHGQ1 JOB (UI,4300,3400,T),CHGQTR,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
//** USER=#DOADTS, 00012018
// USER=#DOADTS, 00012018
//** NOTIFY=ECNTGD1,REGION=0M 00013026
// NOTIFY=ECNTZL1,REGION=0M 00014021
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
//**** 00480000
//**** 00042026
// SET PRGNODE='PROD' /* CHK '<--' LINES BELOW FOR A RERUN 00050017
// SET LVLNODE='PROD' 00060017
// SET UINODE='PROD' 00060124
// SET MSTNODE='PROD' /* QUARTERLY RUN FOR SI EMPLOYERS 00061032
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='QTR251' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
// SET LDEST=U@PRT65 00090000
// SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
// DISP=SHR 00500032
//**** 00504000
//STEP0300 EXEC DTSCHGQ1 00510031
//STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030
//STEP0100.RPC110R2 DD DUMMY 00511130
//STEP0100.RPC110R3 DD DUMMY 00511130
//STEP0100.CSV130R1 DD DUMMY 00511130
//STEP0100.RPC130R2 DD DUMMY 00511130
//*TEP0100.TPSCHRG DD DISP=SHR 00511130
//**** 00520000
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00579236
//**** 00579336
//STEP0200 EXEC DTSUXCGU 00579436
//* 00579536
//**** 00580025

119
JCL/DTSCHGQ2.jcl Normal file
View File

@ -0,0 +1,119 @@
//DTSCHGQ2 JOB (UI,4300,3400,T),QUARTERLY-CHRGS,CLASS=S, 00010011
// MSGCLASS=X, 00020011
// USER=#DOADTS,
// NOTIFY=ECNTZL1, 00020111
//*** TYPRUN=SCAN, 00030001
// REGION=0M 00040000
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00050000
//******************************************************************* 00051011
//* SELF INSURED QUARTERLY CHARGING ONLY 00052011
//**** JOB 1. DTSCHGQ1 - BEFORE DAYILY UPDATE (DTSPDAY1) 00053011
//**** JOB 2. DTSPDAY1 - DAILY UPDATE 00054011
//**** JOB 3. DTSCHGQ2 - UPDATE CHARGE RUN DATE 00055011
//**** 00055111
//**** CHANGE QTRLY PARM BELOW BEFORE RUNNING 00056011
//******************************************************************* 00057011
//**** 00058011
// SET LVLNODE='PROD' 00060009
// SET MSTNODE='PROD' 00070009
// SET CHGNODE='PROD' 00080000
// SET CHGMNBR='CHGM002' 00090000
// SET QTRLY='QTR251' <<<<<<<<<<<< CHANGE PARM <<<<<<<<< 00091021
// SET LDEST=U@PRT65 00092005
// SET LVDHOLD='YES' 00093014
// SET LHOLD='NO' 00094014
//** 00100000
// SET LDEST=U@PRT65 00110000
// SET LHOLD='NO' 00120000
//**** 00130000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00140000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00141006
//**** 00150000
//STEP0100 EXEC DTSCHGQ2 00180114
//* 00180513
//*********************************************************************
//* STEP TO COPY CONVERT FILE TO DASD-PART1 *
//*********************************************************************
//*
//STEP0200 EXEC PGM=SORT
//*
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
// DISP=SHR
//*
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(6,1,CH,EQ,C'0',OR,
6,1,CH,EQ,C'1',OR,
6,1,CH,EQ,C'2',OR,
6,1,CH,EQ,C'3',OR,
6,1,CH,EQ,C'4',OR,
6,1,CH,EQ,C'5',OR,
6,1,CH,EQ,C'6',OR,
6,1,CH,EQ,C'7',OR,
6,1,CH,EQ,C'8',OR,
6,1,CH,EQ,C'9')
OUTREC FIELDS=(1:6,54)
//SYSOUT DD SYSOUT=(*)
//*
//*
//* PRINT EVENT LOG (SCR 72) FOR SI BILLS SENT TO EMPLOYER
//*
//STEP0300 EXEC PGM=CHGBX666,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//*
//EMPFILE1 DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//*
//RPT093R1 DD SYSOUT=*
//RPT093R2 DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFREF DD DSN=DOESTAX.DEVL.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)
//*
//* *** THIS PROC MOVED TO DTSCHGQ1 *** 00183019
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00190008
//**** 00200008
//*TEP0200 EXEC DTSUXCGU 00210019
//* 00650000
//* /* STD BACKUP 00670010
//*TEP0300 EXEC DTSUTVSM, 00680020
//* BKUPGEN='(+1)' 00690020
//**** 00700010
//*
//X101MAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'TO:JOY.DIGGS@DC.GOV',
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED',
// 'FILENAME:SI_QTR_CHARGE.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//**

68
JCL/DTSCHGQ3.jcl Normal file
View File

@ -0,0 +1,68 @@
//DTSCHGQ3 JOB (UI,4300,3400,T),QTRLY-CWC-FED-CHGRS,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
//* USER=#DOADTS, 00014021
// NOTIFY=ECNTSUP,REGION=0M 00014021
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
//**** 00042026
// SET PRGNODE='PROD' /* CHANGE PARMS BEFORE RUNNING JOB 00050017
// SET LVLNODE='PROD' 00060017
// SET UINODE='PROD' 00060124
// SET MSTNODE='PROD' /* QRTLY RUN FOR CWC & FED EMPLOYERS 00061032
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='CWC241' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
// SET LDEST=U@PRT65 ALSO CHANGE LINE 30 00090000
// SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* QUARTERLYCHARGE REPORTING PROCESS FOR CWC AND FED EMPLYRS 00160032
//**** 00480000
//STEP0200 EXEC DTSUXCWC 00490000
//**** 00480000
//*>>>>>>>>PARM MUST BE CHANGED BEFORE RUNNING JOB (START/END DATES) 00160032
//**** 00480000
//STEP0100.SYSIN DD * 00491032
RPT,010124,033124,NNYYNN,000000
//**** 00504000
//STEP0300 EXEC DTSCHGQ3 00510031
// 00504000
//ZMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:TANISE.BROWN@DC.GOV',
// 'TO:DOES_ONPOINT@DC.GOV',
// 'CC:VERA.ORLANDO@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: QUARTERLY CWC FILE AVAILABLE FOR PROCESSING )',
// 'FILEDESC: LAST COMPLETED CWC QUARTERLY FILE FROM DUTAS',
// 'FILENAME:DOESTAX.PROD.CHG.BD220.CWC.QTRYYQ.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.PROD.CHG.BD220.CWC.&QTRLY,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//FSDES EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: QTR FSDES FILE AVAILABLE FOR PROCESSING )',
// 'FILEDESC: LAST COMPLETED FSDES FILE FROM DUTAS',
// 'FILENAME:DOESTAX.PROD.FSDES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DUMMY
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//**** 00520000

68
JCL/DTSCHGQ4.jcl Normal file
View File

@ -0,0 +1,68 @@
//DTSCHGQ4 JOB (UI,4300,3400,T),QTRLY-CWC-FED-CHGRS,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
//** USER=#DOADTS,
// NOTIFY=ECNTSUP,REGION=0M 00014021
//**** 00042026
// SET PRGNODE='PROD' 00050017
// SET LVLNODE='PROD' 00060017
// SET UINODE='PROD' 00060124
// SET MSTNODE='PROD' /* QRTLY RUN FOR CWC & FED EMPLOYERS 00061032
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' /* AND DC GOVT VIEW DIRECT REPORTS 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='CWC193' 00080038
// SET LDEST='LOCAL' 00090000
// SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* QUARTERLYCHARGE REPORTING PROCESS FOR CWC AND FED AND DC GOVT 00160032
//* VIEW DIRECT REPORTS 00160032
//**** 00480000
//STEP0200 EXEC DTSUXCWC 00490000
//**** 00480000
//*>>>>>>>>PARM MUST BE CHANGED BEFORE RUNNING JOB (START/END DATES) 00160032
//**** 00480000
//**STEP0100.SYSIN DD * 00491032
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT
//STEP0100.SYSIN DD *
RPT,070119,093019,NNYYYY,000000
//****** 00504000
//STEP0300 EXEC DTSCHGQ4 00510031
//* 00520000
//*********************************************************************
//*TEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//*HGFEDCW DD DSN=DOESTAX.PROD.CHG.BD220.CWC.TEMCWC,
//* DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***********************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:RAGINI.JUJJAVARAPU@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
// 'SUBJECT: EOP FILE READY )',
// 'FILEDESC: CHARGES FOR EOP OFFICE ',
//* 'FILENAME:DOESTAX.DEVL.IRSFUTA.QTRLY')
// 'FILENAME:EOP_QTR_CHARGES.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.EOPQTR.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//****************************************************************
//DTSFTCQ4 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(DTSFTCQ4),DISP=SHR
//*
**************************** BOTTOM OF DATA **********************
//*********************************************************************

41
JCL/DTSCHGR1.jcl Normal file
View File

@ -0,0 +1,41 @@
//ECNTCHGR JOB (UI,4300,3400,T),CHGRPT.RPT,CLASS=P,MSGCLASS=X, 00010056
//** TYPRUN=SCAN, 00011050
//*** USER=#DOADTS, 00012051
// NOTIFY=ECNTSUP,REGION=0M 00014051
/*ROUTE PRINT U@PRT65 - REURN CHARGES FOR A QTR
//**** 00040000
// SET UINODE='PROD' 00050055
// SET PRGNODE='PROD' 00051055
// SET LVLNODE='PROD' 00060050
// SET MSTNODE='PROD' 00061050
// SET CHGNODE='PROD' 00070050
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072028
// SET QTRLY='QTR104' 00080055
// SET LDEST=U@PRT65 00090000
// SET LVDHOLD='YES' 00100055
// SET LHOLD='YES' 00101055
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS REPORTS 00160058
//* 00170058
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
//**** 00210000
//**** 00480000
//*TEP0200 EXEC DTSUXCGP 00490000
//*TEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGR1), 00491058
//* DISP=SHR /* USE THESE FOR A RERUN <== 00500058
//STEP0300 EXEC DTSCHGRR 00510000
//*TEP0100.RPC110R2 DD SYSOUT=(V,DTSCG1Q1),HOLD=&LVDHOLD 00511057
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511156
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500138
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500238
//*TEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500339
//**** 00501000
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//*OESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
//**** 00514156
//**** 00530056

92
JCL/DTSCHGRR.jcl Normal file
View File

@ -0,0 +1,92 @@
//DTSCHGYX JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X, 00010011
//**** TYPRUN=SCAN, 00020000
// NOTIFY=ECNTSUP,REGION=0M 00030000
//**** 00040000
//* REPRINT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041001
//**** 00041100
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041200
//**** 00042000
// SET PRGNODE='PROD' 00043000
// SET LVLNODE='PROD' 00044000
// SET MSTNODE='PROD' 00045100
// SET CHGNODE='PROD' 00046000
// SET UINODE='PROD' 00047000
// SET CHGMNBR='CHGM002' 00048000
// SET CHGMSSN='CHGM030' 00049000
// SET QTRLY='QTR193' 00050012
// SET LDEST='LOCAL' 00070009
// SET LHOLD='YES' 00080000
// SET LVDHOLD='YES' 00081000
//***** 00090000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110012
//**** 00120000
//**** 00130000
//*TEP0100 EXEC DTSUXCGR 00140001
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150000
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160000
//*TEP0300.EXTPARM DD * 00170001
//*QTR, , ,YYYYYY,000000 00200001
//* 00210001
//*ANN, , ,YYYYYY,000000 00220000
//*QTR, , ,YYYYNY,000000 00230000
//*EMP,070106,063007,YNNNNN,154162 00240000
//********************************************************************* 00940000
//STEP0200 EXEC PGM=CHGBD301, 00951000
// COND=(0,LT) 00970000
//SYSOUT DD SYSOUT=* 00980000
//SYSABOUT DD SYSOUT=* 00990000
//SYSUDUMP DD SYSOUT=* 01000000
//** 01010000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01020000
//** 01030000
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 01080000
// DISP=SHR, 01080100
//* DISP=(NEW,CATLG,DELETE), 01081000
// UNIT=SYSDA, 01082000
// SPACE=(80,(2,10),RLSE), 01083000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 01084000
//** 01120000
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY, 01130005
//*D220CHG DD DSN=DOESTAX.DEVL.CHG.BD220.REPRINT, 01130105
// DISP=SHR, 01131000
//* DISP=(NEW,CATLG,DELETE), 01131100
// UNIT=SYSDA, 01132000
// SPACE=(31040,(1000,1000),RLSE), 01133000
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 01134000
//*D220CHG DD DSN=&&BD220RPT, 01140000
//* DISP=(OLD,PASS,DELETE) 01150000
//** 01160000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01170000
// AMP=('BUFNI=5,BUFND=10') 01180000
//** 01190000
//RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 01210000
//** DISP=(NEW,CATLG,DELETE), 01230001
// DISP=(OLD,KEEP,KEEP), 01231001
// UNIT=SYSDA, 01240000
// SPACE=(8000,(1000,1000),RLSE), 01250000
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 01260000
//** 01270000
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 01301000
//** DISP=(NEW,CATLG,DELETE), 01310001
// DISP=(OLD,KEEP,KEEP), 01320001
// UNIT=SYSDA, 01330000
// SPACE=(11800,(1000,1000),RLSE), 01340000
// DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 01350000
//** 01360000
//** TO BE PROCESSED IN THE NEXT DAILY RUN 01370000
//*TSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 01380000
//* DISP=(,CATLG,DELETE), 01390000
//* UNIT=SYSDA, 01400000
//* SPACE=(8192,(1000,1000),RLSE), 01410000
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420000
//** 01430000
//** SM - TOTAL CHARGES (RATED) 01440000
//RPC100R1 DD SYSOUT=*, 01451009
// DEST=&LDEST., 01460000
// HOLD=&LHOLD. 01470000
//** CHRG SUMMARY-RATED 01480000
//RPC100R3 DD SYSOUT=* 01491010
//** 01520000
//**** SORT REPORT RECORDS (901/907) 01800000
//**** 01990000

139
JCL/DTSCHGRT.jcl Normal file
View File

@ -0,0 +1,139 @@
//DTSCHGQ1 JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X, 00010099
//**** TYPRUN=SCAN, 00020099
// USER=#DOADTS, 00021099
// NOTIFY=ECNTSUP,REGION=0M 00030099
//**** 00040000
//* BENEFIT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY 00041099
//**** 00041199
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED 00041299
//**** 00042000
// SET PRGNODE='PROD' 00043099
// SET LVLNODE='PROD' 00044099
// SET MSTNODE='PROD' 00045199
// SET CHGNODE='PROD' 00046099
// SET UINODE='PROD' 00047000
// SET CHGMNBR='CHGM002' 00048000
// SET CHGMSSN='CHGM030' 00049000
// SET QTRLY='QTR251' 00050099
// SET LDEST='U@PRT155' 00070099
// SET LHOLD='YES' 00080099
// SET LVDHOLD='YES' 00081099
//***** 00090000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00110000
//**** 00120000
//**** 00130000
//STEP0100 EXEC DTSUXCGR 00140099
//*TEP0300.CHGPARM DD DISP=SHR /* CHARGE PARM 00150099
//*TEP1400.BD220CHG DD DISP=SHR /* CHARGE REPORT FILE 00160099
//STEP0300.EXTPARM DD * 00170065
QTR, , ,YYYYYY,000000 00200099
/* 00210000
//*ANN, , ,YYYYYY,000000 00220099
//*QTR, , ,YYYYNY,000000 00230099
//*EMP,070106,063007,YNNNNN,154162 00240099
//********************************************************************* 00940071
//STEP0200 EXEC PGM=CHGBD301, 00951099
// COND=(0,LT) 00970000
//SYSOUT DD SYSOUT=* 00980000
//SYSABOUT DD SYSOUT=* 00990000
//SYSUDUMP DD SYSOUT=* 01000000
//** 01010000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01020000
//** 01030000
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 01080099
// DISP=SHR 01080199
//** DISP=(NEW,CATLG,DELETE), 01081099
//** UNIT=SYSDA, 01082099
//** SPACE=(80,(2,10),RLSE), 01083099
//** DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 01084099
//** 01120000
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY, 01130099
// DISP=SHR 01131099
//** DISP=(NEW,CATLG,DELETE), 01131199
//** UNIT=SYSDA, 01132099
//** SPACE=(31040,(1000,1000),RLSE), 01133099
//** DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 01134099
//*D220CHG DD DSN=&&BD220RPT, 01140099
//* DISP=(OLD,PASS,DELETE) 01150099
//** 01160000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01170000
// AMP=('BUFNI=5,BUFND=10') 01180000
//** 01190000
//RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 01210000
//* DISP=SHR 01230099
// DISP=(NEW,CATLG,DELETE), 01230199
//** DISP=(OLD,KEEP,KEEP), 01231099
// UNIT=SYSDA, 01240099
// SPACE=(8000,(1000,1000),RLSE), 01250099
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 01260099
//** 01270000
//TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 01301099
//* DISP=SHR 01310099
// DISP=(NEW,CATLG,DELETE), 01311099
//** DISP=(OLD,KEEP,KEEP), 01320099
// UNIT=SYSDA, 01330099
// SPACE=(11800,(1000,1000),RLSE), 01340099
// DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 01350099
//** 01360000
//** TO BE PROCESSED IN THE NEXT DAILY RUN 01370000
//*TSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 01380099
//* DISP=(,CATLG,DELETE), 01390099
//* UNIT=SYSDA, 01400099
//* SPACE=(8192,(1000,1000),RLSE), 01410099
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420099
//** 01430000
//** SM - TOTAL CHARGES (RATED) 01440000
//RPC100R1 DD SYSOUT=E, 01451099
// DEST=&LDEST., 01460000
// HOLD=&LHOLD. 01470000
//** CHRG SUMMARY-RATED 01480000
//RPC100R3 DD SYSOUT=0 01491099
//** 01520099
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 01810000
// COND=(0,LT), 01820000
// REGION=0M 01830000
//SYSOUT DD SYSOUT=* 01840000
//SORTIN DD DSN=&&BD205RPT, 01860099
// DISP=(OLD,DELETE,DELETE) 01870099
//SORTOUT DD DSN=&&SRTRPT, 01880000
// DISP=(,PASS,DELETE), 01890000
// UNIT=SYSDA, 01900000
// SPACE=(16384,(1000,1000),RLSE), 01910000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01920000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 01930099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01940099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01950000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01960000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 01970000
//* 01980000
//**** 01990000
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 02000000
// COND=(0,LT) 02010000
//SYSOUT DD SYSOUT=* 02020000
//SYSABOUT DD SYSOUT=* 02030000
//SYSUDUMP DD SYSOUT=* 02040000
//** 02050000
//DTSFVRI1 DD DSN=&&SRTRPT, 02060000
// DISP=(OLD,DELETE,DELETE) 02070000
//** 02080000
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 02090062
// AMP=('BUFNI=5,BUFND=10') 02100000
//** 02110000
//PARMIN DD DUMMY 02120000
//** 02130000
//ATLSTIN DD DUMMY 02140000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02150000
//RPT907R1 DD SYSOUT=Z, 02160000
// DEST=&LDEST., 02170000
// HOLD=&LHOLD. 02180000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02190000
//RPT907R2 DD SYSOUT=Z, 02200000
// DEST=&LDEST., 02210000
// HOLD=&LHOLD. 02220000
//** CONTROL REPORT SUMMARY 02230000
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02240000
// HOLD=&LHOLD., 02250000
// DEST=&LDEST. 02260000
//** 02270000

35
JCL/DTSCHGT1.jcl Normal file
View File

@ -0,0 +1,35 @@
//DTSCHGT1 JOB (UI,4300,3400,T),CHGXXX.TEUC,CLASS=P,MSGCLASS=X, 00010015
//** TYPRUN=SCAN, 00011015
// USER=#DOADTS, 00012015
// NOTIFY=ECNTSUP,REGION=0M 00014016
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PRGNODE='PROD' 00050015
// SET UINODE='PROD' 00060016
// SET LVLNODE='PROD' 00060116
// SET MSTNODE='PROD' 00061015
// SET CHGNODE='PROD' 00070015
// SET CHGMNBR='CHGM002' 00071006
// SET CHGMSSN='CHGM030' 00072011
// SET QTRLY='SPECXX' 00080009
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140010
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS - TEUC REPORTS ONLY 00160016
//**** 00170016
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGT1), 00491016
// DISP=SHR /* USE THESE FOR A RERUN <== 00500116
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500210
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500310
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500410
//**** 00501000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511002
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512002
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513002
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514002
//**** 00520000

21
JCL/DTSCHGVB.jcl Normal file
View File

@ -0,0 +1,21 @@
//DTSCHGVB JOB (UI,4300,3400,T),JHPPROD.CHGMBKP, 00000103
// CLASS=P,MSGCLASS=X, 00000203
//**** TYPRUN=SCAN, 00000300
// REGION=0M, 00000400
// USER=#DOADTS, 00000600
// NOTIFY=ECNTSUP 00000600
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000900
//* UI TAX BACKUP OF CHARGE MSATER VSAM FILES *00001101
//* CHGIM002 & CHGIM030 09/12/2018 ZL1*00001101
//**** 00001800
// SET LVLNODE='PROD' 00001903
//**** 00002001
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00002101
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002200
//**** 00002301
//************************************
//*
//STEP0100 EXEC DTSUTCHG,
// BKUPGEN='(+1)'
// 00004001

21
JCL/DTSCHGVR.jcl Normal file
View File

@ -0,0 +1,21 @@
//DTSCHGVR JOB (UI,4300,3400,T),JHPPROD.CHGMRSTR, 00000105
// CLASS=S,MSGCLASS=X, 00000200
//**** TYPRUN=SCAN, 00000300
// REGION=0M, 00000400
// NOTIFY=ECNTSUP 00000506
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** NOTIFY=ECNTJP2 00000606
//**** 00000900
//* UI TAX RESTORE OF CHGMXXX VSAM FILE(S) 00001106
//**** 00001800
// SET LVLNODE='PROD' 00001905
//**** 00002000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00002100
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002200
//**** 00002300
//* IN THE CICS REGION.
//****
//STEP0100 EXEC DTSURCHG,
// BKUPGEN='(+0)'
//*** OLD RESTORE
//

42
JCL/DTSCHGVT.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTSCHGVT JOB (UI,4300,3400,T),JHP.CHGDLY.REAPPLY, 00000139
// CLASS=P,MSGCLASS=X, 00000239
//*** TYPRUN=SCAN, 00000339
//*** USER=#DOADTS, 00000439
// NOTIFY=ECNTSUP,REGION=0M 00000639
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000739
// SET PRGNODE='PROD' /* REAPPLY DAILY CHRG TRXS AFTER 00000839
// SET LVLNODE='PROD' /* RESTORE OF CHGM002 VSAM FILE 00000939
// SET CHGNODE='PROD' /* (DTSCHGVR) FROM LAST WEEKLY 00001039
// SET CHGMNBR='CHGM002' /* (DTSCHGD7) 00001139
// SET BKPGEN='(+0)' /* ONCE FOR EACH DAY NEEDED 00001239
// SET LDEST=U@PRT65 00001339
// SET LHOLD='YES' 00001439
//**** 00001539
//* DAILY BENEFIT CHARGE PROCESS 00002003
//**** 00002425
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00003026
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
//**** 00003325
//STEP0100 EXEC PGM=CHGBD200, 00004039
// COND=(0,LT) 00004139
//SYSOUT DD SYSOUT=* 00004239
//SYSABOUT DD SYSOUT=* 00004339
//SYSUDUMP DD SYSOUT=* 00004439
//BD100CHG DD DSN=DOESTAX.&LVLNODE..BKP.CHGBD200.TRX.DAILY&BKPGEN., 00004539
// DISP=SHR 00004639
//** 00004739
//BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR 00004839
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00004939
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00005039
// AMP=('BUFNI=5,BUFND=10') 00005139
//** 00005239
//* 00005318
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005428
// LDEST=U@PRT65, 00005505
// LHOLD='YES' 00005605
//** 00005726
//STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006038
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006138
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007026
//**** 00020025

65
JCL/DTSCHGXM.jcl Normal file
View File

@ -0,0 +1,65 @@
//DTSCHGXM JOB (UI,4300,3400,T),QTRLY-CWC-FED-CHGRS,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
//* USER=#DOADTS,
// NOTIFY=ECNTSUP,REGION=0M 00014021
//**** 00042026
// SET PRGNODE='PROD' 00050017
// SET LVLNODE='PROD' 00060017
// SET UINODE='PROD' 00060124
// SET MSTNODE='PROD' /* QRTLY RUN FOR CWC & FED EMPLOYERS 00061032
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' /* AND DC GOVT VIEW DIRECT REPORTS 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='CFOXM151' 00080038
// SET LDEST='LOCAL' 00090000
// SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* QUARTERLYCHARGE REPORTING PROCESS FOR CWC AND FED AND DC GOVT 00160032
//* VIEW DIRECT REPORTS 00160032
//**** 00480000
//STEP0200 EXEC DTSUXCWC 00490000
//**** 00480000
//*>>>>>>>>PARM MUST BE CHANGED BEFORE RUNNING JOB (START/END DATES) 00160032
//**** 00480000
//STEP0100.SYSIN DD * 00491032
RPT, , ,NNYYYY,000000
//**** 00504000
//STEP0300 EXEC DTSCHGXM 00510031
// 00520000
//*********************************************************************
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//CHGFEDCW DD DSN=DOESTAX.PROD.CHG.BD220.CWC.TEMCWC,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***********************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:RAGINI.JUJJAVARAPU@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
// 'SUBJECT: EOP FILE READY )',
// 'FILEDESC: CHARGES FOR EOP OFFICE ',
//* 'FILENAME:DOESTAX.DEVL.IRSFUTA.QTRLY')
// 'FILENAME:EOP_QTR_CHARGES.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.EOPQTR.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//****************************************************************
//DTSFTCQ4 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(DTSFTCQ4),DISP=SHR
//*
**************************** BOTTOM OF DATA **********************
//*********************************************************************

27
JCL/DTSCHRGF.jcl Normal file
View File

@ -0,0 +1,27 @@
//ECNTJRGF JOB (UI,4300,3400,T),TEST.FACHRGS.COPY,
// CLASS=A,MSGCLASS=X,
// NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//** PRIOR YRQTR
// SET FACPYIN='DOESTAX.CONV.CHRG.FISCAGNT.QTR20003.G0003V00'
// SET FACPYOU='DOESTAX.CONV.CHRG.FISCAGNT.QTR20004(+1)'
//** CURRENT YRQTR
//****
//* 01/01/01 - THIS JOB WILL COPY FISCAL AGENT CHARGE DATA FROM
//* A PRIOR YRQTR TO A NEW FILE FOR CURRENT YRQTR PROCESSING
//* (DOUBLE CHECK WHICH F.A. IS IN FILE CALLED FORWARD!!)
//****
//STEP0100 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&FACPYIN.,
// DISP=SHR
//OUTDD01 DD DSN=&FACPYOU.,
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//**

72
JCL/DTSCHRGI.jcl Normal file
View File

@ -0,0 +1,72 @@
//BCGBHRGI JOB (UI,4300,3400,T),PROD.FACHRGS.IN,
// CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP,
//**** TYPRUN=SCAN,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** /* UPLOAD FA DATA FROM CART.
//**** OUT OF AREA TAPE DSN MUST HAVE USER ID AS THE FIRST NODE
//**** IN DATA SET NAME (EXAMPLE: ECNTSUP.DCCHRG)
//****
// SET QTR='QTR20091' /* DATA FOR THIS QUARTER
// SET LVLNODE='PROD' /* DEVL/TEST/PROD
//*
//**SET LINPUT='DTSBCHGF' /* FROM UPLOADED FLOPPY
//**SET FAFILE='DOESTAX.CONV.CHRG.FISCAGNT.PCDATA.UPLOAD'
// SET LINPUT='DTSBCHGT' /* FROM F.A. CART.
//**SET LINPUT='DTSBCHGX' /* FROM F.A. CART. W/DCB
//**SET LBLOCKS='32720' /* BLKSIZE FOR CHGX CART
// SET FAFILE='ECNTSUP.UCB3020.DC.DCTAPE' /* ADP
//**SET FAFILE='QUCS.DC.ACCTLIST' /* GM
//**SET FAFILE='DCCHG' /* JF {NOW TALX}
//* SET FAFILE='EMPL.UNITY' /* EMPLOYERS UNITY
//**SET TVOLSER='12345'
// SET TVOLSER='035672'
//****
//**** 10/07/04 GEORGE BROWN
//****
//**** SET UP GENERATION DATASET UNDER FILEAID - O.19.3.2
//**** FOR THE DESIRED QUARTER
//**** DOESTAX.CONV.CHRG.FISCAGNT.QTR20043 EXAMPLE)
//****
//* SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
//* SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
//* SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
//* SEE ATTRIBUTES NEEDED FOR ALL AGENTS ON LINE 55
//****
//****
//* 02/01/01 - THIS JOB LOADS FISCAL-AGENT BENEFIT-CHARGING EMPLOYER-
//* INFO TO A GDG SET UP FOR THE GIVEN QTR. THE F.A. INPUT COMES
//* EITHER FROM A CART. OR FROM A DASD FILE UPLOADED FROM A FLOPPY.
//* (THE GDG DSN = DOESTAX.CONV.CHRG.FISCAGNT.&QTR(+1))..
//*
//* (IF NO DATA COMES IN FROM A FISC.AGNT FOR A QTR, THEN CALL THE
//* PRIOR QTR'S DATA FORWARD FOR THE GIVEN QTR. SEE RUNCHRGF.)
//*
//* -> PRESENTLY, THE CHRG.FISC.AGNTS ARE ADP (CART.), GM (CART.),
//* AND JF (CART.) USE RUNTP591 AT THE END OF THE QTRLY CHRG
//* PROCESS TO DOWNLOAD DATA FOR RETURN TO EACH F.A.
//* !!! FRICK AND GATES HAVE MERGED INTO TALX UCXPRESS !!!
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//****
//STEPJ100 EXEC &LINPUT.,
//***
//***
//***
//** TALX, ADP AND PAYCHEX 1,SL LRECL=80,BLKSIZE=800
//** EMPLOYERS UNITY ,NL, LRECL 80,BLKSIZE=80
//***
//***
// RECL='80', EMPLOYERS UNITY
// BLKIN='800',
//** LABEL=',NL'
// LABEL='1,SL' FOR ADP, TALX AND PAYCHEX
//** LABEL='2,BLP' FOR TALX
//****
//OUTDD01 DD DSN=DOESTAX.CONV.CHRG.FISCAGNT.&QTR(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),
// DISP=SHR
//****

71
JCL/DTSCHRGS.jcl Normal file
View File

@ -0,0 +1,71 @@
//DTSCHRGS JOB (SP,4230,3130,P),CHRG.QTRLY.SRTOUTFA,CLASS=A, 00010025
// MSGLEVEL=(1,1), 00010100
// MSGCLASS=X,NOTIFY=ECNTSUP, 00010426
// REGION=0M 00010614
//**** 00010714
//* SORT & SPLIT STEP AFTER QTRLY CHARGE RUN 00010814
//* TO PRODUCE FILES TO BE SENT BACK TO FISCAL AGENTS 00010914
//* (FTP - TALX, CD - ADP) 00011014
//* 00011214
//* SET QTRLY FROM THE DTSCHGQ1 RUN (CHECK OUTPUT FILE NAMES) 00011314
//**** (ADD NEW FISC.AGNTS AS NEEDED) 00012022
//* 00011214
// SET QTRLY='QTR251' 00013030
// SET LVLNODE='PROD' 00014014
//* FISCAL AGENT FILE 00015022
//STEP0100 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00017000
//SYSOUT DD SYSOUT=(*) 00018000
//SYSPRINT DD SYSOUT=(*) 00019000
//* 00019103
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00020014
// DISP=SHR 00030000
//SORTOF1 DD DSN=&&FAADP, 00040000
// DISP=(NEW,PASS,DELETE), 00041005
// UNIT=SYSDA, 00042000
// SPACE=(TRK,(10,05),RLSE), 00043020
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00044002
//SORTOF2 DD DSN=&&FATA, 00048221
// DISP=(NEW,PASS,DELETE), 00048305
// UNIT=SYSDA, 00048400
// SPACE=(TRK,(10,05),RLSE), 00048520
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00048602
//SYSIN DD * 00048700
SORT FIELDS=COPY 00048800
OUTFIL FILES=1, 00048900
INCLUDE=(1,3,CH,EQ,C'ADP') 00049000
OUTFIL FILES=2, 00070021
INCLUDE=(1,3,CH,EQ,C'TA ') 00080016
/* 00090000
//* FISCAL AGENT FILE (1) 00101022
//STEP0200 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00110000
//SYSOUT DD SYSOUT=(*) 00120000
//SYSPRINT DD SYSOUT=(*) 00130000
//SORTIN DD DSN=&&FAADP, 00131007
// DISP=(OLD,DELETE,DELETE) 00131107
//* 00131203
//SORTOUT DD DSN=DOESTAX.CONV.CHG.FAOUTADP.&QTRLY., 00132014
// DISP=(NEW,CATLG,DELETE), 00132214
// UNIT=SYSDA, 00132314
// SPACE=(TRK,(10,05),RLSE), 00132420
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300) 00132514
//SYSIN DD * 00132614
SORT FIELDS=COPY 00132714
INREC FIELDS=(1:4,133) 00132814
/* 00132914
//* FISCAL AGENT FILE (2) 00136222
//STEP0400 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00136300
//SYSOUT DD SYSOUT=(*) 00136400
//SYSPRINT DD SYSOUT=(*) 00136500
//SORTIN DD DSN=&&FATA, 00136616
// DISP=(OLD,DELETE,DELETE) 00136707
//* 00136803
//SORTOUT DD DSN=DOESTAX.CONV.CHG.FAOUTTA.&QTRLY., 00136916
// DISP=(NEW,CATLG,DELETE), 00137000
// UNIT=SYSDA, 00137100
// SPACE=(TRK,(10,05),RLSE), 00137220
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300) 00137302
//SYSIN DD * 00138000
SORT FIELDS=COPY 00138100
INREC FIELDS=(1:4,133) 00138202
/* 00138300
//* 00138500

70
JCL/DTSCHZE1.jcl Normal file
View File

@ -0,0 +1,70 @@
//DTSCHGE1 JOB (UI,4300,3400,T),CHGEMP,CLASS=P,MSGCLASS=X, 00010038
//** TYPRUN=SCAN, 00011038
//*** USER=#DOADTS, 00012039
//*** NOTIFY=ECNTJP2,REGION=0M 00013041
// NOTIFY=ECNTSUP,REGION=0M 00014041
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PRGNODE='PROD' /* CHK '<--' LINES BELOW FOR A RERUN 00050038
// SET LVLNODE='PROD' 00060038
// SET MSTNODE='PROD' 00061038
// SET UINODE='PROD' 00070044
// SET CHGNODE='PROD' 00070144
// SET CHGMNBR='CHGM002' 00071000
// SET CHGMSSN='CHGM030' 00072023
// SET QTRLY='SPECXX' 00080004
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY 00120000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140007
//**** 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
//* AGT = RECREATE FISCAL AGENT FILE 00310000
//* TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM 00320000
//* 00330000
//* 05-10 MMDDYY = START DATE OF SELECTION 00340000
//* 12-17 MMDDYY = END DATE OF SELECTION 00350000
//* 00351000
//* 19-24 YYYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED: 00360037
//* - 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) 00430134
//* - Y/N DC GOV REPORT (O) 00430234
//* 00431000
//* 26-31 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER 00440037
//* (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
EMP,010105,101508, ,143904 00492045
/* 00500000
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500110
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500211
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500308
//**** 00501000
//* SYSIN CARD: EMP,050102,053102, ,030302 00502137
//**** 00504000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. <-- 00511001
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE <-- 00512001
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE <-- 00513001
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS <-- 00514001
//**** 00520000

69
JCL/DTSDCCHG.jcl Normal file
View File

@ -0,0 +1,69 @@
//DTSDCCHG JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X, 00010014
//** TYPRUN=SCAN, 00011014
// NOTIFY=ECNTSUP,REGION=0M 00014018
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET UINODE='PROD' /* MONTHLY RUN FOR DC GOVT ONLY 00050020
// SET PGMNODE='PROD' 00051022
// SET LVLNODE='PROD' 00060014
// SET MSTNODE='PROD' 00061014
// SET CHGNODE='PROD' 00070014
// SET CHGMNBR='CHGM002' 00071002
// SET CHGMSSN='CHGM030' 00072009
// SET QTRLY='QTR191' 00080000
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130022
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//******************** DC GOVERNMENT ONLY ******************* 00170020
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDCCHG), 00491020
// DISP=SHR 00500020
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500105
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500221
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500305
// 00504000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511017
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511101
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511217
//STEP0100.RPC110R3 DD DUMMY /* S-I (I) 00511217
//STEP0100.RPC160R1 DD DSN=DOESTAX.DEVL.CNVCHG.R1107,DISP=SHR 00511319
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
//**** 00520000
/*JOBPARM LINES=99999
/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***************************************************************
//* U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
//* INCLUDE JOB SEPARATORS
//* U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
//* OMITS ALL JOB SEPARATORS INFORMATION
//***************************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:GERALD.SMART@DC.GOV',
// 'CC: CAMILLE.GERALD@DC.GOV',
// 'CC: RYAN.MOORE-LEE@DC.GOV',
// 'CC: SIA.KIAWU@DC.GOV',
// 'CC: LOUANN.CUDJOE@DC.GOV',
// 'CC: MOHAMED.HMAEY@DC.GOV',
// 'FILEDESC: DC GOVT MONTHLY CHARGES ',
// 'FILENAME:CONVCHGS.TXT')
//SYSUT1 DD DISP=SHR,
// DSN=DOESTAX.DEVL.CNVCHG.R1107
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

42
JCL/DTSDCGOV.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTSDCGOV JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X, 00010014
//** TYPRUN=SCAN, 00011014
// USER=#DOADTS, 00011014
// NOTIFY=ECNTSUP,REGION=0M 00014018
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET UINODE='PROD' /* MONTHLY RUN FOR DC GOVT ONLY 00050020
// SET PGMNODE='PROD' 00051022
// SET LVLNODE='PROD' 00060014
// SET MSTNODE='PROD' 00061014
// SET CHGNODE='PROD' 00070014
// SET CHGMNBR='CHGM002' 00071002
// SET CHGMSSN='CHGM030' 00072009
// SET QTRLY='SPECXX' 00080000
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130022
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//******************** DC GOVERNMENT VIEW DIRECT REPORT****** 00170020
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGDC), 00491020
// DISP=SHR 00500020
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500105
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500221
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500305
//**** 00504000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511017
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511101
//STEP0100.RPC110R3 DD DUMMY /* NOT NEEDED HERE 00511101
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511217
//STEP0100.CSV130R1 DD DUMMY /* FSDES UPLOAD FILE 00511217
//STEP0100.RPC130R2 DD DUMMY /* FSDES UPLOAD FILE 00511217
//STEP0100.RPC160R1 DD SYSOUT=(V,DTSCG4Q1),HOLD=NO 00511319
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
// 00514000

25
JCL/DTSDX145.jcl Normal file
View File

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

28
JCL/DTSDX148.jcl Normal file
View File

@ -0,0 +1,28 @@
//DTSDX148 JOB (UI,4300,3400,T),EDIT-TDEC-DELQ-WAGES, 00000010
// CLASS=A,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//* 00001700
//*************************************************** 00001700
//* MATCH W4 TRANSACTIONS TO REPORTS
//*************************************************** 00001700
//* 00001700
// SET LVLNODE='PROD'
// SET EXTNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='PROD'
// SET LVDHOLD='YES'
// SET LDEST='LOCAL'
// SET LHOLD='YES'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*****************************************************************
//***
//*****************************************************************
//* RUN TDEC DELING WAGES JOB
//*****************************************************************
//STEP0100 EXEC PROC=DTSDX148,
// RUNTYPE='DELINQ'
//***

31
JCL/DTSEMTPS.jcl Normal file
View File

@ -0,0 +1,31 @@
//DTSTPSEM JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X, 00010014
//** TYPRUN=SCAN, 00011014
// NOTIFY=ECNTSUP,REGION=0M 00014018
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
//**** 00520000
/*JOBPARM LINES=99999
/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***************************************************************
//* U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
//* INCLUDE JOB SEPARATORS
//* U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
//* OMITS ALL JOB SEPARATORS INFORMATION
//* U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
//* OMITS ALL JOB SEPARATORS INFORMATION
//***************************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:MARK.POWELL@DC.GOV',
// 'FILEDESC: TPS SI SECOND NOTICE ',
// 'FILENAME:TPSSIREPT.TXT')
//SYSUT1 DD DISP=SHR,
// DSN=DOESTAX.PROD.CHARGESI.QTR092
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

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