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

168
Procs/BXXX2XXX Normal file
View File

@ -0,0 +1,168 @@
//***** 00010004
//* 00020004
//* UI TAX VSAM FILE RESTORE. (EXCEPT MSTH & MSTI) 00030021
//* (WITH OLD!! LARGE VERSION OF MSTB) 00040021
//* 01/11/2000 SPECIAL VERSION FOR SPLITING MSTB FILE. 00041022
//***** 00043004
//BXXX2XXX PROC LVLNDIN='XXXX', 00044020
// LVLNDOUT='XXXX', 00044108
// BCKNODE='BACKUP', 00045004
// BKUPGEN='(+0)' 00046014
//****************************************************************** 00150004
//**** STEP 1A: 00150133
//STEP0100 EXEC PGM=IDCAMS, DELETE AND DEFINE VSAM FILES 00150233
// COND=(0,LT) 00150333
//SYSPRINT DD SYSOUT=* 00150433
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(&MSTTEST),DISP=SHR 00150535
//****************************************************************** 00151032
//STEP0310 EXEC PGM=SORT, MSTA RESTORE 00160004
// COND=(0,LT) 00170004
//SYSOUT DD SYSOUT=* 00180004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTA&BKUPGEN., 00190005
// DISP=SHR, 00200004
// VOLUME=(,RETAIN) 00210004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTA,DISP=SHR, 00220005
// AMP=('BUFNI=5,BUFND=30') 00230004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00240035
//****************************************************************** 00250004
//STEP0320 EXEC PGM=SORT, MSTB RESTORE 00260004
// COND=(0,LT) 00270004
//SYSOUT DD SYSOUT=* 00280004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTB&BKUPGEN., 00290005
// DISP=SHR, 00300004
// VOLUME=(,RETAIN) 00310004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTB,DISP=SHR, 00320005
// AMP=('BUFNI=5,BUFND=30') 00330004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00341035
//****************************************************************** 00350004
//STEP0330 EXEC PGM=SORT, MSTC RESTORE 00360004
// COND=(0,LT) 00370004
//SYSOUT DD SYSOUT=* 00380004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTC&BKUPGEN., 00390005
// DISP=SHR, 00400004
// VOLUME=(,RETAIN) 00410004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTC,DISP=SHR, 00420005
// AMP=('BUFNI=5,BUFND=30') 00430004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00441035
//****************************************************************** 00450004
//STEP0340 EXEC PGM=SORT, MSTD RESTORE 00460004
// COND=(0,LT) 00470004
//SYSOUT DD SYSOUT=* 00480004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTD&BKUPGEN., 00490005
// DISP=SHR, 00500004
// VOLUME=(,RETAIN) 00510004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTD,DISP=SHR, 00520005
// AMP=('BUFNI=5,BUFND=30') 00530004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00541035
//****************************************************************** 00550004
//STEP0350 EXEC PGM=SORT, AIX RESTORE 00560004
// COND=(0,LT) 00570004
//SYSOUT DD SYSOUT=* 00580004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..AIX&BKUPGEN., 00590005
// DISP=SHR, 00600004
// VOLUME=(,RETAIN) 00610004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.AIX,DISP=SHR, 00620005
// AMP=('BUFNI=5,BUFND=30') 00630004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00641035
//****************************************************************** 00650004
//STEP0360 EXEC PGM=SORT, ATC RESTORE 00660004
// COND=(0,LT) 00670004
//SYSOUT DD SYSOUT=* 00680004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..ATC&BKUPGEN., 00690005
// DISP=SHR, 00700004
// VOLUME=(,RETAIN) 00710004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.ATC,DISP=SHR, 00720005
// AMP=('BUFNI=5,BUFND=30') 00730004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00741035
//****************************************************************** 00750004
//STEP0370 EXEC PGM=IDCAMS, OLA RESTORE 00760004
// COND=(0,LT) 00770004
//SYSPRINT DD SYSOUT=* 00780004
//INDD01 DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..OLA&BKUPGEN., 00790005
// DISP=SHR, 00800004
// VOLUME=(,RETAIN) 00810004
//OUTDD01 DD DSN=DOESTAX.&LVLNDOUT..VSAM.OLA,DISP=SHR, 00820005
// AMP=('BUFNI=5,BUFND=30') 00830004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00841035
//****************************************************************** 00850004
//STEP0380 EXEC PGM=SORT, REF RESTORE 00860004
// COND=(0,LT) 00870004
//SYSOUT DD SYSOUT=* 00880004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..REF&BKUPGEN., 00890005
// DISP=SHR, 00900004
// VOLUME=(,RETAIN) 00910004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.REF,DISP=SHR, 00920005
// AMP=('BUFNI=5,BUFND=30') 00930004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 00941035
//****************************************************************** 00950004
//STEP0390 EXEC PGM=SORT, WRK RESTORE 00960004
// COND=(0,LT) 00970004
//SYSOUT DD SYSOUT=* 00980004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WRK&BKUPGEN., 00990005
// DISP=SHR, 01000017
// VOLUME=(,RETAIN) 01001016
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WRK,DISP=SHR, 01010005
// AMP=('BUFNI=5,BUFND=30') 01020004
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01040035
//****************************************************************** 01050012
//STEP0400 EXEC PGM=SORT, MSTE RESTORE 01060012
// COND=(0,LT) 01070012
//SYSOUT DD SYSOUT=* 01080012
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTE&BKUPGEN., 01090012
// DISP=SHR, 01100012
// VOLUME=(,RETAIN) 01110012
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTE,DISP=SHR, 01120012
// AMP=('BUFNI=5,BUFND=30') 01130012
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01141035
//****************************************************************** 01150012
//STEP0410 EXEC PGM=SORT, MSTF RESTORE 01160012
// COND=(0,LT) 01170012
//SYSOUT DD SYSOUT=* 01180012
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTF&BKUPGEN., 01190012
// DISP=SHR, 01200012
// VOLUME=(,RETAIN) 01210012
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTF,DISP=SHR, 01220012
// AMP=('BUFNI=5,BUFND=30') 01230012
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01241035
//****************************************************************** 01250012
//STEP0420 EXEC PGM=SORT, MSTG RESTORE 01260012
// COND=(0,LT) 01270012
//SYSOUT DD SYSOUT=* 01280012
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTG&BKUPGEN., 01290012
// DISP=SHR 01300017
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTG,DISP=SHR, 01320012
// AMP=('BUFNI=5,BUFND=30') 01330012
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01350035
//****************************************************************** 01360018
//**STEP0430 EXEC PGM=SORT, MSTH RESTORE 01370018
//** COND=(0,LT) 01380018
//**SYSOUT DD SYSOUT=* 01390018
//**SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTH&BKUPGEN., 01400018
//** DISP=SHR 01410018
//**SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTH,DISP=SHR, 01420018
//** AMP=('BUFNI=5,BUFND=30') 01430018
//**SIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01441035
//**** 01450018
//****************************************************************** 01460019
//STEP0440 EXEC PGM=SORT, WTC RESTORE 01470019
// COND=(0,LT) 01480019
//SYSOUT DD SYSOUT=* 01490019
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WTC&BKUPGEN., 01500019
// DISP=SHR, 01510019
// VOLUME=(,RETAIN), 01520019
// LABEL=(1,SL) 01530019
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WTC,DISP=SHR, 01540019
// AMP=('BUFNI=5,BUFND=30') 01550019
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01561035
//****************************************************************** 01570019
//STEP0450 EXEC PGM=SORT, WGH RESTORE 01580025
// COND=(0,LT) 01590025
//SYSOUT DD SYSOUT=* 01600025
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WGH&BKUPGEN., 01610025
// DISP=SHR, 01620025
// VOLUME=(,RETAIN,REF=*.STEP0440.SORTIN), 01630025
// LABEL=(2,SL) 01640025
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WGH,DISP=SHR, 01650025
// AMP=('BUFNI=5,BUFND=30') 01660025
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR 01671035
//****************************************************************** 01680019

153
Procs/CHGRT300 Normal file
View File

@ -0,0 +1,153 @@
//**** 00000125
//* SELF-INSURED REPRINTING SI BILLS 00061091
//**** 00080025
//DTSRT300 PROC 00081091
//* DEFNS NEEDED FOR THIS PROC: 00082025
//* LVLNODE=DEVL/TEST/PROD 00083025
//* MSTNODE=DEVL/TEST/PROD 00083170
//* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084036
//* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084151
//* =SPECXX FOR ALL SPECIAL RUNS 00084276
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085036
//* LHOLD=NO/YES 00085136
//* >> THE PARM FOR CHGBD300 MUST BE SET TO '2'. WITH THIS 00085287
//* >> SETTING, THE PROC WILL PRINT THE SELF-INSURED BILLS. 00085387
//**** 00085457
//STEP0100 EXEC PGM=CHGRT300, 00091091
// PARM='2', 00092085
// COND=(0,LT) 00100020
//SYSOUT DD SYSOUT=* 00110020
//SYSABOUT DD SYSOUT=* 00120020
//SYSUDUMP DD SYSOUT=* 00130020
//** 00210040
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00211086
//* 00212086
//DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00220083
// DISP=SHR 00230084
//** 00231083
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00232083
// DISP=SHR 00233083
//** 00233192
//CHGEMPL DD DSN=DOESTAX.&LVLNODE..CHG.EMPL, 00234092
// DISP=SHR 00235092
//** 00240079
//BD220CHG DD DSN=&&SRTOUT, 00243096
// DISP=(OLD,DELETE,DELETE) 00244094
//** 00247176
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248076
// AMP=('BUFNI=5,BUFND=10') 00249075
//** 00250075
//RPC100R2 DD DUMMY 00260088
//** 00291040
//TPSCHRG DD DUMMY 00360088
//** 00400127
//** TO BE PROCESSED IN THE NEXT DAILY RUN 00401027
//DTSFBTCO DD DUMMY 00411088
//** 00451040
//** SM - TOTAL CHARGES (RATED) 00540246
//RPC100R1 DD DUMMY 00550090
//** CHRG SUMMARY-RATED 00550348
//RPC100R3 DD DUMMY /* COPIES=2, 00550490
//** LTR - CHARGES (SELF-INS) 00551046
//RPC110R1 DD SYSOUT=I, 00560091
// DEST=&LDEST., 00560136
// HOLD=&LHOLD. 00560236
//** CHRG SUMMARY-REIMBURSABLES (S-I) 00561046
//RPC110R2 DD SYSOUT=O, 00570091
// DEST=&LDEST., 00570191
// HOLD=&LHOLD. 00570291
//** CHRG SUMMARY-CWC (OTHER STS) 00571051
//RPC120R1 DD DUMMY 00580090
//** CHRG SUMMARY-FEDERAL 00581036
//RPC130R1 DD DUMMY 00590090
//** NO CHARGES FOUND REPORT 00602071
//RPC140R1 DD DUMMY 00603090
//** CHRG SUMMARY-TEUC 00606072
//RPC150R1 DD DUMMY 00607090
//** CHRG SUMMARY-DC GOVERNMENT 00640282
//RPC160R1 DD DUMMY 00640390
//**** SORT REPORT RECORDS (901/907) 00640689
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00641046
// COND=(0,LT), 00642046
// REGION=0M 00643046
//SYSOUT DD SYSOUT=* 00644046
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00646077
// DISP=SHR 00646177
//SORTOUT DD DSN=&&SRTRPT, 00647046
// DISP=(,PASS,DELETE), 00648046
// UNIT=SYSDA, 00649046
// SPACE=(16384,(1000,1000),RLSE), 00649146
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00649246
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00649393
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649446
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649546
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649646
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649746
//* 00649857
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00649957
//DOESLBL1 EXEC PGM=IEBDG 00650057
//SYSPRINT DD SYSOUT=* 00650157
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00650257
// UNIT=SYSDA, 00650357
// SPACE=(TRK,1), 00650457
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650557
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL01), 00650693
// DISP=SHR 00650757
//**** /* POPULATE THE LABELS WORK FILE 00650857
//DOESLBL2 EXEC PGM=IDCAMS 00650957
//SYSPRINT DD SYSOUT=* 00651057
//FILEIN DD DSN=&&TMP901, 00651157
// DISP=(OLD,DELETE,DELETE), 00651257
// UNIT=SYSDA 00651357
//DOESVRO1 DD DSN=&&LBL901, 00651457
// DISP=(NEW,PASS,DELETE), 00651557
// UNIT=SYSDA, 00651657
// SPACE=(8192,(1000,1000),RLSE), 00651757
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00651857
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00651993
// DISP=SHR 00652057
//**** 00652157
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 00653080
// COND=(0,LT) 00660020
//SYSOUT DD SYSOUT=* 00670020
//SYSABOUT DD SYSOUT=* 00680020
//SYSUDUMP DD SYSOUT=* 00690020
//** 00700020
//DTSFVRI1 DD DSN=&&SRTRPT, 00710146
// DISP=(OLD,DELETE,DELETE) 00711046
//** 00720020
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00720457
//** 00721057
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730076
// AMP=('BUFNI=5,BUFND=10') 00740020
//** 00750020
//PARMIN DD DUMMY 00760020
//** 00770020
//ATLSTIN DD DUMMY 00780020
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831041
//RPT907R1 DD SYSOUT=Z, 00832041
// DEST=&LDEST., 00833041
// HOLD=&LHOLD. 00834041
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835041
//RPT907R2 DD SYSOUT=Z, 00836041
// DEST=&LDEST., 00837041
// HOLD=&LHOLD. 00838041
//** CONTROL REPORT SUMMARY 00839045
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00839145
// HOLD=&LHOLD., 00839245
// DEST=&LDEST. 00839345
//** 00840056
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00842057
// COND=(0,LT), 00843057
// REGION=4096K 00844057
//DOESVRI1 DD DSN=&&LBL901, 00845057
// DISP=(OLD,DELETE,DELETE) 00846057
//SYSOUT DD SYSOUT=* 00847057
//SYSABOUT DD SYSOUT=* 00848057
//SYSABEND DD SYSOUT=* 00849057
//CAIMRPTS DD SYSOUT=* 00849157
//DOESLBL1 DD SYSOUT=(C), 00849257
// FCB=P104, 00849357
// DEST=U@PRT155, 00849457
// HOLD=&LHOLD. 00849557
//** 00849657

193
Procs/CHGXX100 Normal file
View File

@ -0,0 +1,193 @@
//DTSUXGSI PROC 00001000
//**** 00002000
//* ADD DAILY UI BENEFIT CHARGES TO DOESTAX VSAM CHARGE FILE 00003000
//* MODIFIED TO UPDATE CHGM030 - 08/02 00003100
//* INCREASED SPACE FOR &&BD100CHG - GD 02/24/2009 00003200
//* MODIFIED TO TAKE CHARGES FROM UIBS 2/28/24 ZL1 00003300
//**** 00003400
//**** DOESTAX.PROD.BACKUP.CHGM002.G0948V00 LAST DOCS BACKUP ZL1 00003500
//**** 00003602
//************ NO CHARGE DATE CHECKING *********************** ZL1 00003702
//**** 00003802
//STEP0050 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00003902
// COND=(0,LT) 00004002
//SYSOUT DD SYSOUT=* 00004102
//SORTIN DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, 00004202
//*ORTIN DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.G0053V00, 00004302
// DISP=SHR 00004402
//SORTOUT DD DSN=&&UIBSCHG, 00004502
// DISP=(NEW,PASS,DELETE), 00005000
//* DISP=SHR 00006000
// UNIT=SYSDA, 00006100
// SPACE=(CYL,(250,150),RLSE), 00006200
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000) 00006300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSGSI1),DISP=SHR 00006400
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00006500
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00006600
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00006700
//* 00006900
//STEP0100 EXEC PGM=CHGXX100, /* REFORMAT DATA 00007001
// COND=(0,LT) 00007100
//SYSOUT DD SYSOUT=* 00007200
//SYSABOUT DD SYSOUT=* 00007300
//SYSUDUMP DD SYSOUT=* 00007400
//* 00007500
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007600
//CHGFILE DD DSN=&&UIBSCHG,DISP=(OLD,PASS,DELETE) 00007700
//BD100CHG DD DSN=&&BD100CHG, 00007800
// DISP=(,PASS,DELETE), 00007900
// UNIT=SYSDA, 00008000
// SPACE=(CYL,(300,150),RLSE), 00008100
// DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00008200
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD100X.TEMPRPT.DAILY, 00008300
//* DISP=(NEW,CATLG,DELETE), 00008400
// DISP=SHR 00008500
//* UNIT=SYSDA, 00008600
//* SPACE=(8192,(3000,1000),RLSE), 00008700
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00008800
//** 00008900
// IF (STEP0100.RC EQ 0) THEN 00009000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00009100
// COND=(0,LT) 00009200
//SYSOUT DD SYSOUT=* 00009300
//SORTIN DD DSN=&&BD100CHG, 00009400
// DISP=(OLD,DELETE,DELETE) 00009500
//SORTOUT DD DSN=&&BD100SRT, 00009600
// DISP=(,PASS,DELETE), 00009700
// UNIT=SYSDA, 00009800
// SPACE=(CYL,(300,150),RLSE), 00009900
// DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00010000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC1),DISP=SHR 00010100
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010200
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010300
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010400
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010500
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010600
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010700
//* 00010800
//STEP0300 EXEC PGM=CHGBD200, 00010900
// PARM='&BD200.', 00011000
// COND=(0,LT) 00011100
//SYSOUT DD SYSOUT=* 00011200
//SYSABOUT DD SYSOUT=* 00011300
//SYSUDUMP DD SYSOUT=* 00011400
//BD100CHG DD DSN=&&BD100SRT, 00011500
// DISP=(OLD,PASS,DELETE) 00011600
//BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR 00011700
//BD200TOT DD DSN=&&BD200TOT, 00011800
// DISP=(,PASS,DELETE), 00011900
// UNIT=SYSDA, 00012000
// SPACE=(6400,(500,500),RLSE), 00012100
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=6400) 00012200
//** 00012300
//BD200SVR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.CHARGE,DISP=SHR 00012400
//** 00012500
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00012600
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00012700
// AMP=('BUFNI=5,BUFND=10') 00013000
//** 00014000
//STEP0400 EXEC PGM=IDCAMS, 00015000
// COND=(0,LT) 00016000
//SYSPRINT DD SYSOUT=* 00017000
//INDD01 DD DSN=&&BD100SRT, 00018000
// DISP=(OLD,PASS,DELETE) 00018100
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BKP.CHGBD200.TRX.DAILY&BKPGEN., 00018900
// DISP=(,CATLG,DELETE), 00019000
// UNIT=CART, 00019100
// VOLUME=(,RETAIN), 00019200
// LABEL=(1,SL,,,EXPDT=99000), 00019300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=104,BLKSIZE=10400) 00019400
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00019500
//**** 00019600
//** SELECT RECORDS FROM CHGBD200 OUTPUT FOR TOTAL CHARGE FILE 00019700
//**** 00019800
//STEP0500 EXEC PGM=CHGBD207, 00020000
// COND=(0,LT) 00030000
//SYSOUT DD SYSOUT=* 00040000
//SYSABOUT DD SYSOUT=* 00050000
//SYSUDUMP DD SYSOUT=* 00060000
//BD200DAY DD DSN=&&BD200TOT, 00070000
// DISP=(OLD,PASS,DELETE) 00080000
//* 00090000
//BD207CHG DD DSN=&&CHGBD207, 00100000
// DISP=(NEW,PASS,DELETE), 00110000
// UNIT=SYSDA, 00120000
// SPACE=(6400,(500,500),RLSE), 00130000
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=6400) 00140000
//** 00150000
// ENDIF 00150100
//***** BYPASS REMAINING JOB STEPS IF RETURN-CODE = +1 00150200
// IF (STEP0500.RC EQ 0) THEN 00151000
//** 00152000
//STEP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 00160000
// COND=(0,LT) 00170000
//SYSOUT DD SYSOUT=* 00180000
//SORTIN DD DSN=&&CHGBD207, 00190000
// DISP=(OLD,PASS,DELETE), 00200000
// UNIT=SYSDA, 00210000
// SPACE=(8192,(5000,1000),RLSE), 00220000
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00230000
//SORTOUT DD DSN=&&BD207SRT, 00240000
// DISP=(NEW,PASS,DELETE), 00250000
// UNIT=SYSDA, 00260000
// SPACE=(8192,(5000,1000),RLSE), 00270000
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00280000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRC30),DISP=SHR 00290000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00300000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00310000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00320000
//**** 00330000
//** BUILD TOTAL CHARGE RECORDS 00340000
//**** 00341000
//STEP0700 EXEC PGM=CHGBD230, 00342000
// COND=(0,LT) 00343000
//SYSOUT DD SYSOUT=* 00344000
//SYSABOUT DD SYSOUT=* 00345000
//SYSUDUMP DD SYSOUT=* 00346000
//BD200CHG DD DSN=&&BD207SRT, 00347000
// DISP=(OLD,DELETE,DELETE) 00348000
//* 00349000
//BD230CHG DD DSN=&&BD230CHG, 00350000
// DISP=(NEW,PASS,DELETE), 00360000
// UNIT=SYSDA, 00370000
// SPACE=(22000,(500,100),RLSE), 00380000
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00390000
//* 00400000
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 00410000
// COND=(0,LT) 00420000
//SYSOUT DD SYSOUT=* 00430000
//SORTIN DD DSN=&&BD230CHG, 00440000
// DISP=(OLD,PASS,DELETE), 00450000
// UNIT=SYSDA, 00460000
// SPACE=(22000,(500,100),RLSE), 00470000
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00480000
//SORTOUT DD DSN=&&BD230SRT, 00481000
// DISP=(NEW,PASS,DELETE), 00482000
// UNIT=SYSDA, 00483000
// SPACE=(22000,(500,100),RLSE), 00484000
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00485000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRC31),DISP=SHR 00486000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00487000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00488000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00489000
//**** 00490000
//**** 00491000
//** UPDATE CHGM030 VSAM FILE 00492000
//**** 00493000
//STEP0900 EXEC PGM=CHGBD231, 00493100
// COND=(0,LT) 00493200
//SYSOUT DD SYSOUT=* 00493300
//SYSABOUT DD SYSOUT=* 00493400
//SYSUDUMP DD SYSOUT=* 00493500
//BD230CHG DD DSN=&&BD230SRT, 00496000
// DISP=(OLD,PASS,DELETE), 00497000
// UNIT=SYSDA, 00498000
// SPACE=(22000,(500,100),RLSE), 00499000
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00500000
//BD231CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMSSN, 00510000
// DISP=SHR, 00511000
// AMP=('BUFNI=5,BUFND=30') 00512000
//**** 00514000
//* 00515000
// ENDIF 00516000
//* 00517000

182
Procs/CXXX2XXX Normal file
View File

@ -0,0 +1,182 @@
//***** 00010004
//* 00020004
//* UI TAX VSAM FILE RESTORE. 00030004
//* 00040004
//* 03/25/2004 THIS PROC INCLUDES A PARM TO INDICTE WHETHER 00041023
//* THE INPUT WGH AND WTC FILES NEED TO BE RESTORED. 00041123
//* IF CONVERT = 0, CONVERT THE FILES 00041228
//* IF CONVERT = 1, USE THE BACKUP VERSIONS WITHOUT 00041328
//* CONVERTING 00041428
//* 00042004
//***** 00043004
//CXXX2XXX PROC LVLNDIN='XXXX', 00044023
// LVLNDOUT='XXXX', 00044108
// BCKNODE='BACKUP', 00045004
// BKUPGEN='(+0)' 00046032
//********************************************************************* 00047004
//STEP0100 EXEC PGM=IDCAMS, DELETE AND DEFINE VSAM FILES 00048004
// COND=(0,LT) 00049004
//SYSPRINT DD SYSOUT=* 00050004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSA),DISP=SHR 00060005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSB),DISP=SHR 00070005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSC),DISP=SHR 00080005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSD),DISP=SHR 00090005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDAIX),DISP=SHR 00100005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDATC),DISP=SHR 00110005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDOLA),DISP=SHR 00120005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDREF),DISP=SHR 00130005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWRK),DISP=SHR 00140005
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSE),DISP=SHR 00141019
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSF),DISP=SHR 00142019
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSG),DISP=SHR 00143019
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWGH),DISP=SHR 00144023
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWGX),DISP=SHR 00144130
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWTC),DISP=SHR 00145019
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDWTX),DISP=SHR 00145131
//*** 00145223
//****************************************************************** 00150004
//STEP0310 EXEC PGM=SORT, MSTA RESTORE 00160004
// COND=(0,LT) 00170004
//SYSOUT DD SYSOUT=* 00180004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTA&BKUPGEN., 00190005
// DISP=SHR, 00200004
// VOLUME=(,RETAIN) 00210004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTA,DISP=SHR, 00220005
// AMP=('BUFNI=5,BUFND=30') 00230004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00240005
//****************************************************************** 00250004
//STEP0320 EXEC PGM=SORT, MSTB RESTORE 00260004
// COND=(0,LT) 00270004
//SYSOUT DD SYSOUT=* 00280004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTB&BKUPGEN., 00290005
// DISP=SHR, 00300004
// VOLUME=(,RETAIN) 00310004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTB,DISP=SHR, 00320005
// AMP=('BUFNI=5,BUFND=30') 00330004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00340005
//****************************************************************** 00350004
//STEP0330 EXEC PGM=SORT, MSTC RESTORE 00360004
// COND=(0,LT) 00370004
//SYSOUT DD SYSOUT=* 00380004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTC&BKUPGEN., 00390005
// DISP=SHR, 00400004
// VOLUME=(,RETAIN) 00410004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTC,DISP=SHR, 00420005
// AMP=('BUFNI=5,BUFND=30') 00430004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00440005
//****************************************************************** 00450004
//STEP0340 EXEC PGM=SORT, MSTD RESTORE 00460004
// COND=(0,LT) 00470004
//SYSOUT DD SYSOUT=* 00480004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTD&BKUPGEN., 00490005
// DISP=SHR, 00500004
// VOLUME=(,RETAIN) 00510004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTD,DISP=SHR, 00520005
// AMP=('BUFNI=5,BUFND=30') 00530004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00540005
//****************************************************************** 00550004
//STEP0350 EXEC PGM=SORT, AIX RESTORE 00560004
// COND=(0,LT) 00570004
//SYSOUT DD SYSOUT=* 00580004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..AIX&BKUPGEN., 00590005
// DISP=SHR, 00600004
// VOLUME=(,RETAIN) 00610004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.AIX,DISP=SHR, 00620005
// AMP=('BUFNI=5,BUFND=30') 00630004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00640005
//****************************************************************** 00650004
//STEP0360 EXEC PGM=SORT, ATC RESTORE 00660004
// COND=(0,LT) 00670004
//SYSOUT DD SYSOUT=* 00680004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..ATC&BKUPGEN., 00690005
// DISP=SHR, 00700004
// VOLUME=(,RETAIN) 00710004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.ATC,DISP=SHR, 00720005
// AMP=('BUFNI=5,BUFND=30') 00730004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00740005
//****************************************************************** 00750004
//STEP0370 EXEC PGM=IDCAMS, OLA RESTORE 00760004
// COND=(0,LT) 00770004
//SYSPRINT DD SYSOUT=* 00780004
//INDD01 DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..OLA&BKUPGEN., 00790005
// DISP=SHR, 00800004
// VOLUME=(,RETAIN) 00810004
//OUTDD01 DD DSN=DOESTAX.&LVLNDOUT..VSAM.OLA,DISP=SHR, 00820005
// AMP=('BUFNI=5,BUFND=30') 00830004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSRONE),DISP=SHR 00840005
//****************************************************************** 00850004
//STEP0380 EXEC PGM=SORT, REF RESTORE 00860004
// COND=(0,LT) 00870004
//SYSOUT DD SYSOUT=* 00880004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..REF&BKUPGEN., 00890005
// DISP=SHR, 00900004
// VOLUME=(,RETAIN) 00910004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.REF,DISP=SHR, 00920005
// AMP=('BUFNI=5,BUFND=30') 00930004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00940005
//****************************************************************** 00950004
//STEP0390 EXEC PGM=SORT, WRK RESTORE 00960004
// COND=(0,LT) 00970004
//SYSOUT DD SYSOUT=* 00980004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WRK&BKUPGEN., 00990005
// DISP=SHR, 01000017
// VOLUME=(,RETAIN) 01001016
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WRK,DISP=SHR, 01010005
// AMP=('BUFNI=5,BUFND=30') 01020004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01030005
//****************************************************************** 01050012
//STEP0400 EXEC PGM=SORT, MSTE RESTORE 01060012
// COND=(0,LT) 01070012
//SYSOUT DD SYSOUT=* 01080012
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTE&BKUPGEN., 01090012
// DISP=SHR, 01100012
// VOLUME=(,RETAIN) 01110012
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTE,DISP=SHR, 01120012
// AMP=('BUFNI=5,BUFND=30') 01130012
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01140012
//****************************************************************** 01150012
//STEP0410 EXEC PGM=SORT, MSTF RESTORE 01160012
// COND=(0,LT) 01170012
//SYSOUT DD SYSOUT=* 01180012
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTF&BKUPGEN., 01190012
// DISP=SHR, 01200012
// VOLUME=(,RETAIN) 01210012
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTF,DISP=SHR, 01220012
// AMP=('BUFNI=5,BUFND=30') 01230012
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01240012
//****************************************************************** 01250012
//STEP0420 EXEC PGM=SORT, MSTG RESTORE 01260012
// COND=(0,LT) 01270012
//SYSOUT DD SYSOUT=* 01280012
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTG&BKUPGEN., 01290012
// DISP=SHR 01300017
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTG,DISP=SHR, 01320012
// AMP=('BUFNI=5,BUFND=30') 01330012
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01340012
//****************************************************************** 01350019
//STEP0440 EXEC PGM=SORT, WTC RESTORE 01360019
// COND=(0,LT) 01370019
//SYSOUT DD SYSOUT=* 01380019
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WTC&BKUPGEN., 01390020
// DISP=SHR, 01400019
// VOLUME=(,RETAIN), 01410019
// LABEL=(1,SL) 01420019
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WTX,DISP=SHR, 01430031
// AMP=('BUFNI=5,BUFND=30') 01440019
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01451021
//****************************************************************** 01460019
//STEP0445 EXEC DTSBZ263 CONVERT WTC 01460230
//****************************************************************** 01460330
//STEP0460 EXEC PGM=SORT, RESTORE WGH TO WGX 01461130
// COND=(0,LT) 01461229
//SYSOUT DD SYSOUT=* 01461329
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..WGH&BKUPGEN., 01461429
// DISP=SHR, 01461529
// VOLUME=(,RETAIN,REF=*.STEP0440.SORTIN), 01461629
// LABEL=(2,SL) 01461729
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.WGX,DISP=SHR, 01462329
// AMP=('BUFNI=5,BUFND=30') 01462429
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01462529
//** 01462629
//STEP0470 EXEC DTSBZ265 WGH CONVERSION 01462729
//****************************************************************** 01570019

281
Procs/DES300T1 Normal file
View File

@ -0,0 +1,281 @@
//DESBDGSI PROC 00000010
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//**************************************************************** 00001700
//STEP0200 EXEC PGM=DESBD470, DELETE WAGES TO TAX WHG FILE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//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')
//DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//*
//*
//*
//STEP0300 EXEC PGM=DESBD480, ADD WAGES TO TAX WHG FILE
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//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')
//DTSXWGH DD DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR
//DTSFWTRN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//* DD DSN=DOESTAX.CONV.DTS193.W4FILE,DISP=SHR
//* DD DSN=DOESTAX.CONV.DCGOV.ICESA.W4TRANS,DISP=SHR
//*TSFWTRN DD DSN=DOESTAX.PROD.DTS.W4FILE,
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(CYL,(10,5)),
//* DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//*********************************************************************
//STEP0400 EXEC PGM=SORT,REGION=0K, WWGH WAGE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=30')
//SORTOUT DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWGH(+1),
// DISP=(,CATLG,DELETE),
// UNIT=CART,
// VOLUME=(,RETAIN),
// LABEL=(1,SL,,,EXPDT=99000),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//*
//****
//**************************************************************** 00001700
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602
// COND=(0,LT) 00007702
//SYSOUT DD SYSOUT=* 00007802
//SORTIN DD DSN=DOESTAX.&MSTNODE..BACKUP.TAXWGH(+1),DISP=SHR
// DD DSN=DOESTAX.TEST.UIBS.WWGH,DISP=SHR
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202
//* 00009302
//**************************************************************** 00001700
//STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE
// COND=(0,LT), FIND SUCCESSOR IF ANY
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700
//*TSFWGHI DD DSN=&&WGESRT1,
//* DISP=(OLD,PASS,DELETE)
//DTSFWGHI DD DSN=DOESTAX.TEST.DAILY.WGESRT1,DISP=SHR
//*
//DTSFWGHO DD DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR
//*TSFWGHO DD DSN=&&WGEOUT2,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//DTSFWESQ DD DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR
//*TSFWESQ DD DSN=&&WESQOUT1,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//DTSFVRO1 DD DSN=&&RPT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//**************************************************************** 00001700
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=DOESTAX.TEST.DAILY.WGEOUT2,DISP=SHR
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//*ORTIN DD DSN=&&WGEOUT2, 00830055
//* DISP=(OLD,DELETE,DELETE) 00840055
//*ORTOUT DD DSN=&&WGESRT2,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//*TEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS
//* COND=(0,LT),
//* REGION=4096K
//*YSOUT DD SYSOUT=*
//*YSABOUT DD SYSOUT=*
//*YSABEND DD SYSOUT=*
//* 00001700
//*TSFWGHI DD DSN=&&WGESRT2,
//* DISP=(OLD,DELETE,DELETE)
//*
//*TSFWGHO DD DSN=&&WGEOUT3,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//**************************************************************** 00001700
//STEP0510 EXEC PGM=DESBD316, IDENTIFY NEW/DEL/CHG RECS 00740053
// COND=(0,LT), 00780053
// REGION=4096K
//SYSOUT DD SYSOUT=* 00750053
//SYSPRINT DD SYSOUT=* 00750053
//SYSABOUT DD SYSOUT=* 00750053
//SYSABEND DD SYSOUT=* 00750053
//DTSFWGIN DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//*TSFWGIN DD DSN=&&WGEOUT3,
//* DISP=(OLD,PASS,DELETE)
//*
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*
//DTSFWGC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE,
// DISP=(OLD,KEEP,KEEP)
//DTSFXSEQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE.SEQ,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(14,(14,14),RLSE),
// DCB=(RECFM=FB,LRECL=14,BLKSIZE=14)
//*
//**************************************************************** 00001700
//STEP0600 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH), 00760053
// DISP=SHR 00770053
//* 00780053
//STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=DOESTAX.TEST.DAILY.WGESRT2,DISP=SHR
//*NDD01 DD DSN=&&WGEOUT3,
//* DISP=(OLD,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************
//*
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/SSN/QTR 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=DOESTAX.TEST.DAILY.WESQOUT1,DISP=SHR
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR
//*ORTIN DD DSN=&&WESQOUT1, 00830055
//* DISP=(OLD,DELETE,DELETE) 00840055
//*ORTOUT DD DSN=&&WESQSRT1,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP0900 EXEC PGM=DESBD317, ADD YTD EARNINGS TO WESQ
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=DOESTAX.TEST.DAILY.WESQSRT1,DISP=SHR
//*TSFWESI DD DSN=&&WESQSRT1,
//* DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR
//*TSFWESO DD DSN=&&WESQOUT2,
//** DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//*
//STEP1000 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=DOESTAX.TEST.DAILY.WESQOUT2,DISP=SHR
//*ORTIN DD DSN=&&WESQOUT2, 00830055
//* DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR
//*ORTOUT DD DSN=&&WESQSRT2,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWESQ),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP1100 EXEC PGM=DESBD318, REFORMAT WESQ RECORDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=DOESTAX.TEST.DAILY.WESQSRT2,DISP=SHR
//*TSFWESI DD DSN=&&WESQSRT2,
//* DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR
//*TSFWESO DD DSN=&&WESQOUT3,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//**************************************************************** 00001700
//STEP1200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00760053
//* 00780053
//STEP1300 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=DOESTAX.TEST.DAILY.WESQOUT3,DISP=SHR
//*NDD01 DD DSN=&&WESQOUT3,
//* DISP=(OLD,DELETE,DELETE),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*OUTDD01 DD DSN=DOESTAX.&LVLNODE..WESQ, 00850055
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************

81
Procs/DESBD110 Normal file
View File

@ -0,0 +1,81 @@
//DESBD110 PROC
//****
//* BATCH UPDATE OF ELECTRONIC MEDIA FILES
//* STEP0100: SELECT RECORDS FOR UPDATE
//****
//* STEP0100: MERGE ELECTRONIC MEDIA RECORDS TO BE LOADED TO
//* MASTER FILE. INPUT FILES PRODUCED DURING DAILY PROCESSING
//* OF WAGE TAPES AND DISKS.
//*
//* INPUT FILES:
//* DOESTAX.&LVLNODE..XXEMTRAN
//* CONTAINS ELECTRONIC MEDIA RECORDS
//* DOESTAX.&LVLNODE..XXW4TRAN
//* CONTAINS W4 WAGE TRANSACTIONS
//* DOESTAX.&LVLNODE..VSAM.OLA
//* CONTAINS T061 TRIGGER RECORDS FOR EACH ITEM TO
//* BE PROCESSED. THE ITEMS ARE IDENTIFIED BY LOG NO.
//*
//* STEP0100: MERGE THE ELECTRONIC MEDIA INPUT FILES TO &&BD110EM
//* MERGE THE W4 WAGE TRANSACTION INPUT FILES TO &&BD110W4
//*
//* STEP0200 SELECTS THE LOG NUMBERS TO BE PROCESSED DURING
//* THIS RUN, AND EXTRACTS RECORDS WITH THOSE LOG
//* NUMBERS TO THE FOLLOWING DATA SETS:
//*
//* W4 TRANSACTIONS: DOESTAX.CONV.W4TRAN
//* EM TRANSACTIONS: DOESTAX.CONV.EMTRAN
//******************************************************************
//STEP0100 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.GBEMTRAN,DISP=SHR
//OUTDD01 DD DSN=&&BD110EM,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0110 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.GBW4TRAN,DISP=SHR
//OUTDD01 DD DSN=&&BD110W4,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,20),RLSE),
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//* SELECT RECORDS BY LOG NUMBER, BASED ON T061 RECORDS
//* IN OLA FILE.
//*********************************************************************
//STEP0200 EXEC PGM=DESBD110,
// COND=(0,LT)
//DTSFOLAI DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR,
// AMP=('BUFND=10')
//DTSFVRI1 DD DSN=&&BD110EM, ELECTRONIC MEDIA DATA
// DISP=(OLD,PASS,DELETE)
//DTSFVRO1 DD DSN=&&EMTRAN,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFVRO2 DD DUMMY
//**DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..EMTRIG(+1),
//** DISP=(NEW,CATLG,DELETE),
//** UNIT=SYSDA,
//** SPACE=(8192,(1000,1000),RLSE),
//** DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//BD110W4 DD DSN=&&BD110W4, WAGE DATA
// DISP=(OLD,PASS,DELETE)
//BD110W4O DD DSN=&&W4TRAN,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//**

25
Procs/DESBD120 Normal file
View File

@ -0,0 +1,25 @@
//DESBD120 PROC 00000010
//*
//*********************************************************************
//STEP0100 EXEC PGM=DESBD120,PARM='&LOGNO.'
//*
//BD120EMI DD DSN=DOESTAX.CONV.&EMFILE.,
// DISP=SHR
//*
//BD120EMO DD DSN=&&BD120,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(10,100),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00180028
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00220002
//***************************************************************** 00320000
//*
//STEP0200 EXEC PGM=IDCAMS,COND=(0,LT) 00590044
//SYSPRINT DD SYSOUT=* 00600044
//*
//INDD01 DD DSN=&&BD120,DISP=(OLD,DELETE,DELETE) 00610044
//OUTDD01 DD DSN=DOESTAX.CONV.&EMFILE,DISP=OLD 00620044
//*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00630044
//* 00640044

23
Procs/DESBD125 Normal file
View File

@ -0,0 +1,23 @@
//DESBD125 PROC 00000010
//*********************************************************************
//STEP0100 EXEC PGM=DESBD125,PARM='&LOGNO.'
//*
//BD125W4I DD DSN=DOESTAX.CONV.&W4FILE.,
// DISP=SHR
//*
//BD125W4O DD DSN=&&BD125,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(9000,(900,900),RLSE),
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00220002
//***************************************************************** 00320000
//STEP0200 EXEC PGM=IDCAMS,COND=(0,LT) 00590044
//SYSPRINT DD SYSOUT=* 00600044
//*
//INDD01 DD DSN=&&BD125,DISP=(OLD,DELETE,DELETE) 00610044
//OUTDD01 DD DSN=DOESTAX.CONV.&W4FILE.,DISP=OLD 00620044
//*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00630044
//* 00640044

10
Procs/DESBD130 Normal file
View File

@ -0,0 +1,10 @@
//DESBD130 PROC 00000010
//****
//* UPDATE THE YEAR PORTION OF THE LAST USED LOG NUMBER
//* WHEN THE YEAR CHANGES.
//*
//****
//STEP0100 EXEC PGM=DESBD130,
// COND=(0,LT)
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//**

44
Procs/DESBD220 Normal file
View File

@ -0,0 +1,44 @@
//DESBD220 PROC
//****
//* BATCH UPDATE OF ELECTRONIC MEDIA FILES
//*
//****
//* STEP0100: UPDATE THE ELECTRONIC MEDIA MASTER FILES WITH
//* RECORDS CREATED DURING DAILY PROCESSING OF WAGE
//* TAPES AND DISKS.
//*
//*********************************************************************
//* UPDATE ELECTRONIC MEDIA MASTER FILES
//*********************************************************************
//STEP0200 EXEC PGM=DESBD220,
// COND=(0,LT)
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD DSN=&&EMTRAN,DISP=(OLD,PASS,DELETE)
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..DES.RPT(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*********************************************************************
//* SAVE INPUT DATA IN GDG
//*********************************************************************
//**STEP0300 EXEC PGM=IDCAMS,
//** COND=(0,LT)
//**SYSPRINT DD SYSOUT=*
//**INDD01 DD DSN=&&EMTRAN,DISP=(OLD,PASS,DELETE)
//**OUTDD01 DD DSN=DOESTAX.&LVLNODE..EMTRAN.SRT(+1),
//** DISP=(,CATLG,DELETE),
//** SPACE=(16384,(1000,1000),RLSE),
//** DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//**SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0400 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&W4TRAN,DISP=(OLD,PASS,DELETE)
//OUTDD01 DD DSN=DOESTAX.CONV.W4TRAN.SRT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16384,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*

238
Procs/DESBD300 Normal file
View File

@ -0,0 +1,238 @@
//DESBD300 PROC 00000010
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//**************************************************************** 00001700
//STEP0100 EXEC PGM=DESBD300, EXTRACT DATA FROM WAGE FILE
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DOCFMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//WGEOUT1 DD DSN=&&WGEOUT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//* 00014000
//DTSFVRO1 DD DSN=&&RPT1, 00014000
// DISP=(NEW,PASS,DELETE), 00014000
// UNIT=SYSDA, 00014000
// SPACE=(8192,(500,200),RLSE), 00014000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00014000
//* 00014000
//**************************************************************** 00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602
// COND=(0,LT) 00007702
//SYSOUT DD SYSOUT=* 00007802
//SORTIN DD DSN=&&WGEOUT1, 00007917
// DISP=(OLD,DELETE,DELETE) 00008002
//SORTOUT DD DSN=&&WGESRT1, 00008417
// DISP=(,PASS,DELETE), 00008502
// UNIT=SYSDA, 00008602
// SPACE=(18000,(8000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202
//* 00009302
//**************************************************************** 00001700
//STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE
// COND=(0,LT), FIND SUCCESSOR IF ANY
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700
//DTSFWGHI DD DSN=&&WGESRT1,
// DISP=(OLD,PASS,DELETE)
//*
//DTSFWGHO DD DSN=&&WGEOUT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//DTSFWESQ DD DSN=&&WESQOUT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//DTSFVRO1 DD DSN=&&RPT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//**************************************************************** 00001700
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WGEOUT2, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WGESRT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//*TEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS
//* COND=(0,LT),
//* REGION=4096K
//*YSOUT DD SYSOUT=*
//*YSABOUT DD SYSOUT=*
//*YSABEND DD SYSOUT=*
//* 00001700
//*TSFWGHI DD DSN=&&WGESRT2,
//* DISP=(OLD,DELETE,DELETE)
//*
//*TSFWGHO DD DSN=&&WGEOUT3,
//* DISP=(NEW,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(18000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//**************************************************************** 00001700
//STEP0510 EXEC PGM=DESBD316, IDENTIFY NEW/DEL/CHG RECS 00740053
// COND=(0,LT), 00780053
// REGION=4096K
//SYSOUT DD SYSOUT=* 00750053
//SYSPRINT DD SYSOUT=* 00750053
//SYSABOUT DD SYSOUT=* 00750053
//SYSABEND DD SYSOUT=* 00750053
//DTSFWGIN DD DSN=&&WGESRT2,
// DISP=(OLD,PASS,DELETE)
//*
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*
//DTSFWGC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE,
// DISP=(OLD,KEEP,KEEP)
//DTSFXSEQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE.SEQ,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(14,(14,14),RLSE),
// DCB=(RECFM=FB,LRECL=14,BLKSIZE=14)
//*
//**************************************************************** 00001700
//STEP0600 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH), 00760053
// DISP=SHR 00770053
//* 00780053
//STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=&&WGESRT2,
// DISP=(OLD,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************
//*
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/SSN/QTR 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WESQOUT1, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WESQSRT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP0900 EXEC PGM=DESBD317, ADD YTD EARNINGS TO WESQ
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=&&WESQSRT1,
// DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=&&WESQOUT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//*
//STEP1000 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WESQOUT2, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WESQSRT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWESQ),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP1100 EXEC PGM=DESBD318, REFORMAT WESQ RECORDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=&&WESQSRT2,
// DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=&&WESQOUT3,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//**************************************************************** 00001700
//STEP1200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00760053
//* 00780053
//STEP1300 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=&&WESQOUT3,
// DISP=(OLD,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*OUTDD01 DD DSN=DOESTAX.&LVLNODE..WESQ, 00850055
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************

182
Procs/DESBD320 Normal file
View File

@ -0,0 +1,182 @@
//DESBD320 PROC 00010099
//**************************************************************** 00020000
//* BUILD A WORKER NAME FILE FROM DATA IN THE WAGE.NAME FILE 00030099
//* AND FROM THE BENEFITS CLAIM FILE 00040099
//**************************************************************** 00050000
//********************************************************************* 02470099
//STEP0100 EXEC PGM=DESBD320, EXTRACT NAMES FROM WAGE FILE 02480099
// COND=(0,LT) 02490099
//SYSOUT DD SYSOUT=* 02500099
//SYSABOUT DD SYSOUT=* 02510099
//SYSABEND DD SYSOUT=* 02520099
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02530099
//* 02540099
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 02550099
// AMP=('BUFNI=5,BUFND=10') 02560099
//* 02570099
//DESFB320 DD DSN=&&DESFB320, / WAGE NAMES 02580099
// DISP=(NEW,PASS,DELETE), 02590099
// UNIT=SYSDA, 02600099
// SPACE=(CYL,(100,10)), 02610099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02620099
//* 02630099
//********************************************************************* 02640099
//STEP0200 EXEC PGM=DESBD321, EXTRACT NAMES FROM BENEFIT CLAIMS 02650099
// COND=(0,LT) 02660099
//SYSOUT DD SYSOUT=(*) 02670099
//SYSABOUT DD SYSOUT=* 02680099
//SYSABEND DD SYSOUT=* 02690099
//DESFB321 DD DSN=&&DESFB321, / BENEFITS NAMES 02700099
// DISP=(NEW,PASS,DELETE), 02710099
// UNIT=SYSDA, 02720099
// SPACE=(CYL,(100,10)), 02730099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02740099
//**** 02750099
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR 02760099
//* 02770099
//********************************************************************* 02770199
//STEP0210 EXEC PGM=DESBD324, EXTRACT NAMES FROM IB6 FILE 02771099
// COND=(0,LT) 02772099
//SYSOUT DD SYSOUT=(*) 02773099
//SYSABOUT DD SYSOUT=* 02774099
//SYSABEND DD SYSOUT=* 02775099
//DESFB324 DD DSN=&&DESFB324, / BENEFITS NAMES 02776099
// DISP=(NEW,PASS,DELETE), 02777099
// UNIT=SYSDA, 02778099
// SPACE=(CYL,(100,10)), 02779099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02779199
//**** 02779299
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR 02779399
//* 02779499
//IB6960F1 DD DSN=UI.PROD.DOCS.IB6960F1,DISP=SHR 02779599
//* 02779699
//********************************************************************* 02780099
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT WAGE NAMES 02790099
// COND=(0,LT) /* SSN ASC, DATE DESC 02800002
//SYSOUT DD SYSOUT=* 02810002
//SORTIN DD DSN=&&DESFB320,DISP=(OLD,DELETE,DELETE) 02820099
// DD DSN=&&DESFB321,DISP=(OLD,DELETE,DELETE) 02830099
// DD DSN=&&DESFB324,DISP=(OLD,DELETE,DELETE) 02831099
//SORTOUT DD DSN=&&SRTFB320, 02840017
// DISP=(,PASS,DELETE), 02850002
// UNIT=SYSDA, 02860002
// SPACE=(CYL,(100,10)), 02870099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02880099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX147),DISP=SHR 02890099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02900002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02910002
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02920002
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02930002
//* 02940002
//********************************************************************* 03110099
//STEP0500 EXEC PGM=DESBD322, /* MERGE BENEFITS AND WAGE NAMES 03120099
// COND=(0,LT) 03130099
//SYSOUT DD SYSOUT=(*) 03140099
//SYSABOUT DD SYSOUT=* 03150099
//SYSABEND DD SYSOUT=* 03160099
//* 03170099
//DESFB320 DD DSN=&&SRTFB320, / WAGE NAMES 03180099
// DISP=(OLD,DELETE,DELETE), 03190099
// UNIT=SYSDA, 03200099
// SPACE=(CYL,(100,10)), 03210099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03220099
//**** 03230099
//DESFB322 DD DSN=&&DESFB322, / MERGED NAMES 03300099
// DISP=(NEW,PASS,DELETE), 03310099
// UNIT=SYSDA, 03320099
// SPACE=(CYL,(100,10)), 03330099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03340099
//**** 03350099
//STEP0700 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT NEW NAME FILE 03650099
// COND=(0,LT) /* SSN ASC, DATE DESC 03660002
//SYSOUT DD SYSOUT=* 03670002
//SORTIN DD DSN=&&DESFB322, 03680017
// DISP=(OLD,PASS,DELETE) 03690099
//SORTOUT DD DSN=&&SRTNEW22, 03700017
// DISP=(,PASS,DELETE), 03710002
// UNIT=SYSDA, 03720002
// SPACE=(CYL,(100,10)), 03730099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03740099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX147),DISP=SHR 03750099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03760002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03770002
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03780002
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03790002
//* 03800002
//********************************************************************* 03810099
//* >>> TO REBUILD FILE, SET THE RUNTYPE PARM TO 'C' <<< 03811099
//** 03813099
//STEP0800 EXEC PGM=DESBD323, /* SELECT NEW RECORDS ONLY 03820099
// COND=(0,LT), 03830099
// PARM='&RUNTYPE.' 03831099
//SYSOUT DD SYSOUT=(*) 03840099
//SYSABOUT DD SYSOUT=* 03850099
//SYSABEND DD SYSOUT=* 03860099
//* 03870099
//* TODAY'S NAME FILE 03880099
//DESFB32A DD DSN=&&SRTNEW22, 03890099
// DISP=(OLD,DELETE,DELETE), 03900099
// UNIT=SYSDA, 03910099
// SPACE=(CYL,(100,10)), 03920099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03930099
//**** 03940099
//* NEW RECORDS SELECTED FOR DOWNLOAD 03950099
//DESFB323 DD DSN=&&DESFB323, 03960099
// DISP=(NEW,PASS,DELETE), 03970099
// UNIT=SYSDA, 03980099
// SPACE=(CYL,(100,10)), 03990099
// DCB=(RECFM=FB,LRECL=76,BLKSIZE=30400) 04001099
//**** 04010099
//* PREVIOUS DAY'S NAME FILE 04020099
//* 04020399
//DESFB32B DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04021099
// DISP=(OLD,KEEP,KEEP), 04022099
// SPACE=(CYL,(100,10)), 04023099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04024099
//**** 04080099
//********************************************************************* 04090099
//** REBUILD OUTPUT FILE FOR EXPORT TO SERVER 04100099
//** 04110099
//STEP0900 EXEC PGM=IDCAMS 04120099
//SYSPRINT DD SYSOUT=* 04130099
//INDD01 DD DSN=&&DESFB323, 04140099
// DISP=(OLD,DELETE,DELETE) 04150099
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..WAGE.NAME.EXP, 04160099
// DISP=(OLD,KEEP,KEEP), 04173099
// SPACE=(CYL,(100,10)), 04180099
// DCB=(RECFM=FB,LRECL=76,BLKSIZE=30400) 04190099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 04200099
// DISP=SHR 04210053
//**** 04220099
//********************************************************************* 04220199
//** SAVE PREVIOUS NAME FILE 04220299
//** 04220399
//STEP0900 EXEC PGM=IDCAMS 04220499
//SYSPRINT DD SYSOUT=* 04220599
//INDD01 DD DSN=&&DESFB322, 04220699
// DISP=(OLD,DELETE,DELETE) 04220799
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04220899
// DISP=(OLD,KEEP,KEEP), 04221199
// SPACE=(CYL,(100,10)), 04221299
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04221399
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 04221599
// DISP=SHR 04221699
// 04221799
//********************************************************************* 04221899
//** BACKUP WORKER NAME FILE 04222099
//** 04223099
//STEP1000 EXEC PGM=SORT, 04230099
// COND=(0,LT) 04240099
//SYSOUT DD SYSOUT=* 04250099
//SORTIN DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04271099
// DISP=(OLD,KEEP,KEEP), 04272099
// SPACE=(CYL,(100,10)), 04273099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04274099
//SORTOUT DD DSN=DOESTAX.&LVLNODE..WAGE.NAME.BKP, 04280099
//* DISP=(NEW,CATLG,CATLG), 04291099
// DISP=MOD, 04292099
// UNIT=CART, 04300099
// VOLUME=(,RETAIN,,99), 04310099
// LABEL=(1,SL,,,RETPD=1826), 04320099
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04330099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 04340099

16
Procs/DESBZ067 Normal file
View File

@ -0,0 +1,16 @@
//************************************************************
//* DELETE TAPE TRACKING AIX RECORDS
//************************************************************
//DESBZ067 PROC 00000010
//*
//STEP0100 EXEC PGM=DTSBZ067, DELETE ELEC MEDIA AIX RECS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFAIX DD DSN=DOESTAX.&LVLNODE..VSAM.AIX,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//*********************************************************************

220
Procs/DESBZ300 Normal file
View File

@ -0,0 +1,220 @@
//DESBZ300 PROC 00000010
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//**************************************************************** 00001700
//STEP0100 EXEC PGM=DESBD300, EXTRACT DATA FROM WAGE FILE
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DOCFMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//WGEOUT1 DD DSN=&&WGEOUT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//* 00014000
//DTSFVRO1 DD DSN=&&RPT1, 00014000
// DISP=(NEW,PASS,DELETE), 00014000
// UNIT=SYSDA, 00014000
// SPACE=(8192,(500,200),RLSE), 00014000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00014000
//* 00014000
//**************************************************************** 00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602
// COND=(0,LT) 00007702
//SYSOUT DD SYSOUT=* 00007802
//SORTIN DD DSN=&&WGEOUT1, 00007917
// DISP=(OLD,DELETE,DELETE) 00008002
//SORTOUT DD DSN=&&WGESRT1, 00008417
// DISP=(,PASS,DELETE), 00008502
// UNIT=SYSDA, 00008602
// SPACE=(18000,(8000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202
//* 00009302
//**************************************************************** 00001700
//STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE
// COND=(0,LT), FIND SUCCESSOR IF ANY
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700
//DTSFWGHI DD DSN=&&WGESRT1,
// DISP=(OLD,PASS,DELETE)
//*
//DTSFWGHO DD DSN=&&WGEOUT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//DTSFWESQ DD DSN=&&WESQOUT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//DTSFVRO1 DD DSN=&&RPT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//**************************************************************** 00001700
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WGEOUT2, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WGESRT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWGHI DD DSN=&&WGESRT2,
// DISP=(OLD,DELETE,DELETE)
//*
//DTSFWGHO DD DSN=&&WGEOUT3,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//**************************************************************** 00001700
//STEP0510 EXEC PGM=DESBD316, IDENTIFY NEW/DEL/CHG RECS 00740053
// COND=(0,LT), 00780053
// REGION=4096K
//SYSOUT DD SYSOUT=* 00750053
//SYSPRINT DD SYSOUT=* 00750053
//SYSABOUT DD SYSOUT=* 00750053
//SYSABEND DD SYSOUT=* 00750053
//DTSFWGIN DD DSN=&&WGEOUT3,
// DISP=(OLD,PASS,DELETE)
//*
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*
//DTSFWGC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE,
// DISP=(OLD,KEEP,KEEP)
//DTSFXSEQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE.SEQ,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(14,(14,14),RLSE),
// DCB=(RECFM=FB,LRECL=14,BLKSIZE=14)
//*
//*
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/SSN/QTR 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WESQOUT1, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WESQSRT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP0900 EXEC PGM=DESBD317, ADD YTD EARNINGS TO WESQ
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=&&WESQSRT1,
// DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=&&WESQOUT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//*
//STEP1000 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WESQOUT2, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WESQSRT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWESQ),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP1100 EXEC PGM=DESBD318, REFORMAT WESQ RECORDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWESI DD DSN=&&WESQSRT2,
// DISP=(OLD,DELETE,DELETE)
//*
//DTSFWESO DD DSN=&&WESQOUT3,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//*
//**************************************************************** 00001700
//STEP1200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00760053
//* 00780053
//STEP1300 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=&&WESQOUT3,
// DISP=(OLD,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(25000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//*OUTDD01 DD DSN=DOESTAX.&LVLNODE..WESQ, 00850055
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25000,(8000,5000),RLSE),
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************

18
Procs/DESOLABK Normal file
View File

@ -0,0 +1,18 @@
//***** 00010000
//* UI TAX OLA VSAM FILE BACKUP TO DASD FOR IMMEDIATE USE. 00030001
//***** 00052005
//DESOLABK PROC LVLNDIN='PROD',LVLNDOUT='PROD', 00060005
// BKUPGEN='(+1)' 00070005
//**** 00100001
//STEP0170 EXEC PGM=IDCAMS, /* SPEC OLA BACKUP 00570001
// COND=(0,LT) 00580000
//SYSPRINT DD SYSOUT=* 00590000
//INDD01 DD DSN=DOESTAX.&LVLNDIN..VSAM.OLA,DISP=SHR, 00600002
// AMP=('BUFNI=5,BUFND=30') 00610000
//OUTDD01 DD DSN=DOESTAX.&LVLNDOUT..BKP.EMTOLA&BKUPGEN., 00620002
// DISP=(,CATLG,DELETE), 00630000
// UNIT=SYSDA, 00640002
// SPACE=(32760,(1000,1000),RLSE), 00650004
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4096,BLKSIZE=32760) 00670000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00680000
//**** 00690002

16
Procs/DESOLARS Normal file
View File

@ -0,0 +1,16 @@
//*****
//* RESTORE SPEC OLA BKP FROM DESOLABK (AS IN PROD DAILY)
//* (THIS JOB ASSUMES THAT THE VSAM.OLA HAS BEEN ZAPPED)
//*****
//DESOLARS PROC LVLNDIN='PROD',LVLNDOUT='PROD',
// BKUPGEN='(+0)'
//****
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNDIN..BKP.EMTOLA&BKUPGEN.,
// DISP=SHR
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.OLA,DISP=SHR,
// AMP=('BUFNI=5,BUFND=20')
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//****

19
Procs/DESOLAZP Normal file
View File

@ -0,0 +1,19 @@
//*****
//* ZAP THE OLA FILE (SAME AS (AT END OF) PROD DAILY)
//*****
//DESOLAZP PROC
//****
//STEP0100 EXEC PGM=IDCAMS, /* DELETE AND DEFINE OLA FILE
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDOLA),DISP=SHR
//****
//STEP0200 EXEC PGM=DTSBD998, /* INITIALIZE OLA FILE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFOLA DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIOLA),DISP=SHR
//****

90
Procs/DESRQRPT Normal file
View File

@ -0,0 +1,90 @@
//*****
//** ELECTRONIC MEDIA
//** ON REQ RPT GENERATION
//*****
//DESRQRPT PROC LDEST=U@PRT65
//****
//* 00210074
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00212099
//DOESLBL1 EXEC PGM=IEBDG, 00213099
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00214099
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00215099
// UNIT=SYSDA, 00216099
// SPACE=(TRK,1), 00217099
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00218099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00219199
// DISP=SHR 00219299
//** 00219799
//**** /* POPULATE THE LABELS WORK FILE 00219899
//DOESLBL2 EXEC PGM=IDCAMS, 00219999
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00220099
//FILEIN DD DSN=&&TMP901, 00220199
// DISP=(OLD,DELETE,DELETE), 00220299
// UNIT=SYSDA 00221099
//DOESVRO1 DD DSN=&&LBL901, 00222099
// DISP=(NEW,PASS,DELETE), 00223099
// UNIT=SYSDA, 00224099
// SPACE=(8192,(1000,1000),RLSE), 00225099
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00226099
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00226199
// DISP=SHR 00226299
//** 00229199
//STEP0100 EXEC PGM=DESBD800, OUTPUT GENERATION
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//**
//PARMIN DD DUMMY
//**
//ATLSTIN DD DUMMY
//**
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
//**
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE)
//**
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//** ELEC MEDIA PACKING LIST
//RPT101R1 DD SYSOUT=Q,
// DEST=&LDEST.,
// HOLD=&LHOLD.
//** ELEC MEDIA CONFIRMATION NOTICE
//RPT102R1 DD SYSOUT=Q,
// DEST=&LDEST.,
// HOLD=&LHOLD.
//** ELEC MEDIA ERROR NOTICE
//RPT102R2 DD SYSOUT=Q,
// DEST=&LDEST.,
// HOLD=&LHOLD.
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R1 DD SYSOUT=Z,
// DEST=&LDEST.,
// HOLD=&LHOLD.
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
//RPT907R2 DD DUMMY
//**RPT907R2 DD SYSOUT=Z, /* NOT NEEDED FOR THIS APP.
//** DEST=&LDEST.,
//** HOLD=&LHOLD.
//** CONTROL REPORT SUMMARY
//RPT980R1 DD SYSOUT=Q,
// DEST=&LDEST.,
// HOLD=&LHOLD.
//** 02560019
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02562099
// COND=(0,LT), 02563099
// REGION=4096K 02564099
//DOESVRI1 DD DSN=&&LBL901, 02565099
// DISP=(OLD,DELETE,DELETE) 02566099
//SYSOUT DD SYSOUT=* 02567099
//SYSABOUT DD SYSOUT=* 02568099
//SYSABEND DD SYSOUT=* 02569099
//CAIMRPTS DD SYSOUT=* 02569199
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02569299
// DEST=U@PRT155, 02569599
// HOLD=&LHOLD. 02569699
//** 02590099
//**

20
Procs/DESRSORT Normal file
View File

@ -0,0 +1,20 @@
//****
//DESRSORT PROC LGEN='(+0)'
//****
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..DES.RPT&LGEN.,
// DISP=SHR
//SORTOUT DD DSN=&&SRTRPT,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(16384,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),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)
//****

60
Procs/DESUAIX Normal file
View File

@ -0,0 +1,60 @@
//*****
//*
//* UI TAX ALTERNATE INDEX REBUILD.
//*
//*****
//DESUAIX PROC
//*********************************************************************
//STEP0100 EXEC PGM=IDCAMS, COPY DUTAS AIX RECORDS TO FLAT FILE 00000030
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00000040
//INDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.AIX,DISP=SHR
//OUTDD01 DD DSN=&&AIX,DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(3000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=64)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0200 EXEC PGM=DESBD992, AIX RECORD EXTRACT
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//**
//DTSFAIXO DD DSN=&&AIX,DISP=(MOD,PASS,DELETE)
//******************************************************************
//STEP0300 EXEC PGM=SORT, SORT AIX RECORDS
// PARM='VLTEST=0',
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&AIX,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD DSN=&&SRTAIX,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(3000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=64)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSAIX),DISP=SHR
//*********************************************************************
//STEP0400 EXEC PGM=IDCAMS, DELETE AND DEFINE AIX FILE 00000030
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00000040
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDAIX),DISP=SHR
//*********************************************************************
//STEP0500 EXEC PGM=SORT, LOAD AIX FROM SORTED EXTRACT
// PARM='VLTEST=0',
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&SRTAIX,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.AIX,DISP=SHR,
// AMP=('BUFNI=5,BUFND=20')
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR
//*********************************************************************

37
Procs/DESWLDDC Normal file
View File

@ -0,0 +1,37 @@
//****
//* COPY UNEDITED WAGE DATA FROM TAPE
//* TO DISK FILE TO BE EDITED
//*
//* PARMS NEEDED FOR THIS PROC:
//*
//* LVLNODE= DEVL/TEST/PROD
//* LOGNODE= LAST NODE IN OUTPUT FILE NAME, CONSISTING
//* OF OPERATOR'S INITIALS PLUS LOG NUMBER
//* LOGNO= 6 DIGIT LOG NUMBER ASSIGNED TO TAPE
//* LABEL= TYPE OF LABEL PROCESSING (NL, SL, BLP)
//* UNIT= TYPE OF UNIT (TAPE, CART)
//* RECL= RECORD LENGTH
//* BLKIN= BLOCKSIZE OF THE INPUT TAPE FILE
//* BLKOUT= BLOCKSIZE OF THE OUTPUT DISK FILE
//* WAGEIN= THE NAME OF THE INPUT TAPE, NORMALLY
//* 'WAGE.CART'
//*
//DESWLDDC PROC
//*
//STEP0100 EXEC PGM=IDCAMS,REGION=700K
//*FILE DD DSN=&WAGEIN.,
//* PEOPLESOFT BELOW
//IFILE DD DSN=ECNTSUP.DOESTAX.CONV.WAGEDC.Q32009,
// UNIT=&UNIT.,
// RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKIN.,
// DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.&LOGNODE.,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,5)),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKOUT)
//***
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(WAGECART),DISP=SHR
//SYSPRINT DD SYSOUT=(*)
//SYSUDUMP DD SYSOUT=(*)
//***

39
Procs/DESWLOAD Normal file
View File

@ -0,0 +1,39 @@
//****
//* COPY UNEDITED WAGE DATA FROM TAPE
//* TO DISK FILE TO BE EDITED
//*
//* PARMS NEEDED FOR THIS PROC:
//*
//* LVLNODE= DEVL/TEST/PROD
//* LOGNODE= LAST NODE IN OUTPUT FILE NAME, CONSISTING
//* OF OPERATOR'S INITIALS PLUS LOG NUMBER
//* LOGNO= 6 DIGIT LOG NUMBER ASSIGNED TO TAPE
//* VOLSER= 6 VOL SER NUMBER ASSIGNED TO TAPE
//* LABEL= TYPE OF LABEL PROCESSING (NL, SL, BLP)
//* UNIT= TYPE OF UNIT (TAPE, CART)
//* RECL= RECORD LENGTH
//* BLKIN= BLOCKSIZE OF THE INPUT TAPE FILE
//* BLKOUT= BLOCKSIZE OF THE OUTPUT DISK FILE
//* WAGEIN= THE NAME OF THE INPUT TAPE, NORMALLY
//* 'WAGE.CART'
//*
//DESWLOAD PROC
//*
//STEP0100 EXEC PGM=IDCAMS,REGION=700K
//IFILE DD DSN=&WAGEIN.,
// VOL=SER=&VOLSER., //**FOR CART
// LABEL=(&LABEL.,,,EXPDT=98000), //** ONLY
// UNIT=&UNIT.,
// RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKIN.,
// DISP=SHR
//***
//OFILE DD DSN=DOESTAX.CONV.&LOGNODE.,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,5)),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=&RECL.,BLKSIZE=&BLKOUT)
//***
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(WAGECART),DISP=SHR
//SYSPRINT DD SYSOUT=(*)
//SYSUDUMP DD SYSOUT=(*)
//***

24
Procs/DESZD320 Normal file
View File

@ -0,0 +1,24 @@
//DESBD320 PROC 00010000
//**************************************************************** 00020000
//* BUILD A WORKER NAME FILE FROM DATA IN THE WAGE.NAME FILE 00030000
//* AND FROM THE BENEFITS CLAIM FILE 00040000
//**************************************************************** 00050000
//********************************************************************* 02470000
//********************************************************************* 04221800
//** BACKUP WORKER NAME FILE 04222000
//** 04223000
//STEP1000 EXEC PGM=SORT, 04230000
// COND=(0,LT) 04240000
//SYSOUT DD SYSOUT=* 04250000
//SORTIN DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04271000
// DISP=(OLD,KEEP,KEEP), 04272000
// SPACE=(CYL,(100,10)), 04273000
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04274000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..WAGE.NAME.BKP, 04280000
//* DISP=(NEW,CATLG,CATLG), 04291000
// DISP=MOD, 04292000
// UNIT=CART, 04300000
// VOLUME=(,RETAIN,,99), 04310003
// LABEL=(1,SL,,,EXPDT=99365), 04320000
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04330000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 04340000

120
Procs/DEZBD300 Normal file
View File

@ -0,0 +1,120 @@
//DESBD300 PROC 00000010
//**************************************************************** 00001700
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
//* THE BENEFITS WAGE FILE
//**************************************************************** 00001700
//STEP0100 EXEC PGM=DESBD300, EXTRACT DATA FROM WAGE FILE
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//WGEOUT1 DD DSN=&&WGEOUT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//* 00014000
//DTSFVRO1 DD DSN=&&RPT1, 00014000
// DISP=(NEW,PASS,DELETE), 00014000
// UNIT=SYSDA, 00014000
// SPACE=(8192,(500,200),RLSE), 00014000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00014000
//* 00014000
//**************************************************************** 00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602
// COND=(0,LT) 00007702
//SYSOUT DD SYSOUT=* 00007802
//SORTIN DD DSN=&&WGEOUT1, 00007917
// DISP=(OLD,DELETE,DELETE) 00008002
//SORTOUT DD DSN=&&WGESRT1, 00008417
// DISP=(,PASS,DELETE), 00008502
// UNIT=SYSDA, 00008602
// SPACE=(18000,(8000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202
//* 00009302
//**************************************************************** 00001700
//STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE
// COND=(0,LT), FIND SUCCESSOR IF ANY
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700
//DTSFWGHI DD DSN=&&WGESRT1,
// DISP=(OLD,PASS,DELETE)
//*
//DTSFWGHO DD DSN=&&WGEOUT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//DTSFVRO1 DD DSN=&&RPT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//**************************************************************** 00001700
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055
// COND=(0,LT) 00800055
//SYSOUT DD SYSOUT=* 00810055
//SYSPRINT DD SYSOUT=* 00820055
//SORTIN DD DSN=&&WGEOUT2, 00830055
// DISP=(OLD,DELETE,DELETE) 00840055
//SORTOUT DD DSN=&&WGESRT2,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
//*
//**************************************************************** 00001700
//STEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWGHI DD DSN=&&WGESRT2,
// DISP=(OLD,DELETE,DELETE)
//*
//DTSFWGHO DD DSN=&&WGEOUT3,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//*
//**************************************************************** 00001700
//STEP0600 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH), 00760053
// DISP=SHR 00770053
//* 00780053
//STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=&&WGEOUT3,
// DISP=(OLD,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(18000,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************

12
Procs/DOCIMSTR Normal file
View File

@ -0,0 +1,12 @@
//********************************************************************
//*** DOCS MASTER FILES AS OF 4/25/04
//********************************************************************
//*** MAIN FILE
//ESP960F1 DD DSN=UI.&UINODE..DOCS.ESP960F1,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*** OVERPAYMENT
//EOP960F1 DD DSN=UI.&UINODE..DOCS.EOP960F1,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*** WAGES
//EWG960F1 DD DSN=UI.&UINODE..DOCS.EWG960F1,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')

387
Procs/DTSACH01 Normal file
View File

@ -0,0 +1,387 @@
//***** 00010000
//* UI TAX ARCHIVE REPORTING 00030001
//* HANDLE BD800 RPT ONLY 00041000
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00212000
//DOESLBL1 EXEC PGM=IEBDG, 00213000
// COND=(0,LT) 00213100
//SYSPRINT DD SYSOUT=* 00214000
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00215000
// UNIT=SYSDA, 00216000
// SPACE=(TRK,1), 00217000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00218000
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL01), 00219007
// DISP=SHR 00219100
//**** /* POPULATE THE LABELS WORK FILE 00219200
//DOESLBL2 EXEC PGM=IDCAMS, 00219300
// COND=(0,LT) 00219400
//SYSPRINT DD SYSOUT=* 00219500
//FILEIN DD DSN=&&TMP901, 00219600
// DISP=(OLD,DELETE,DELETE), 00219700
// UNIT=SYSDA 00219800
//DOESVRO1 DD DSN=&&LBL901, 00219900
// DISP=(NEW,PASS,DELETE), 00220000
// UNIT=SYSDA, 00220100
// SPACE=(8192,(1000,1000),RLSE), 00221000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00222000
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00223007
// DISP=SHR 00224000
//** 00225000
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 02270000
// COND=(0,LT) 02280000
//SYSOUT DD SYSOUT=* 02300000
//SYSABOUT DD SYSOUT=* 02310000
//SYSUDUMP DD SYSOUT=* 02320000
//SYSPRINT DD SYSOUT=* 02321000
//** 02330000
//DTSFVRI1 DD DSN=&&RPTOUT, 02340118
//*TSFVRI1 DD DSN=DOESTAX.DEVL.REPORTS, 02340218
// DISP=(OLD,PASS,DELETE), 02340318
//* DISP=SHR, 02340418
// UNIT=SYSDA, 02340515
// SPACE=(8192,(1000,1000),RLSE), 02340615
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 02340715
//** 02341000
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 02342000
//** 02350000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02351000
//* 02352000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02360000
// AMP=('BUFNI=5,BUFND=10') 02370000
//** 02381000
//PARMIN DD DUMMY 02390000
//** 02400000
//ATLSTIN DD DUMMY 02410000
//** GEN. 1ST LETTER, REG. CYCLE A 02420000
//RPT102R1 DD SYSOUT=I,HOLD=YES, 02430002
// DEST=&LDEST. 02440000
//** GEN. 2ND LETTER, REG. CYCLE A 02450000
//RPT103R1 DD SYSOUT=I,HOLD=YES, 02460004
// DEST=&LDEST. 02470000
//** LTR TO OUT-OF-STATE AGENCY 02480000
//RPT105R1 DD SYSOUT=I,HOLD=YES, 02490004
// DEST=&LDEST. 02500000
//** NOT LIABLE LTR 02510000
//RPT108R1 DD SYSOUT=I,HOLD=YES, 02511005
// DEST=&LDEST. 02521000
//** MISSING CONTRIB & WAGE RPTS 02522000
//RPT109R1 DD SYSOUT=I,HOLD=YES, 02523005
// DEST=&LDEST. 02524000
//** HOUSEHOLD - ANNUAL VERS. 02524100
//RPT109R2 DD SYSOUT=I,HOLD=YES, 02524205
// DEST=&LDEST. 02524300
//** NOTICE OF SUBJECTIVETY 02525000
//RPT112R1 DD SYSOUT=I,HOLD=YES, 02526005
// DEST=&LDEST. 02527000
//** HOUSEHOLD - ANNUAL VERS. 02527100
//RPT112R2 DD SYSOUT=I,HOLD=YES, 02527205
// DEST=&LDEST. 02527300
//** WELCOME LETTER 02528000
//RPT115R1 DD SYSOUT=I,HOLD=YES, 02529005
// DEST=&LDEST. 02529100
//** NEW/REACT/ACTIVATED EMPLYRS 02529200
//RPT116R1 DD SYSOUT=*, 02529300
// DEST=&LDEST. 02529400
//** (FOR FUTURE USE) 02529500
//RPT116R2 DD SYSOUT=Z, 02529600
// DEST=&LDEST. 02529700
//** GEN INACT LTR 02529800
//RPT117R1 DD SYSOUT=W,HOLD=YES, 02529906
// DEST=&LDEST. 02530000
//** REPORT INACTVATN LTR 02530100
//RPT117R2 DD SYSOUT=I, 02530206
// DEST=&LDEST., 02530300
// HOLD=&LVDHOLD. 02530400
//** '8 QTRS NONE' CANCELLATION LTR 02530500
//RPT117R3 DD SYSOUT=I,HOLD=YES, 02530605
// DEST=&LDEST. 02530700
//** FR-500 EMPLYR REG. 02530800
//RPT127R1 DD SYSOUT=I,HOLD=YES, 02530905
// DEST=&LDEST. 02531000
//RPT128R1 DD SYSOUT=I, 02531100
// DEST=&LDEST., 02531200
// HOLD=&LVDHOLD. 02531300
//** WEB REGISTRATIONS 02531400
//RPT128R2 DD SYSOUT=I, 02531500
// DEST=&LDEST., 02531600
// HOLD=&LVDHOLD. 02531700
//** WEB REGISTRATIONS 02531800
//RPT128R3 DD SYSOUT=I, 02531900
// DEST=&LDEST., 02532000
// HOLD=&LVDHOLD. 02532100
//** WEB REGISTRATIONS 02532200
//RPT128R4 DD SYSOUT=I, 02532300
// DEST=&LDEST., 02532400
// HOLD=&LVDHOLD. 02532500
//** HOUSEHOLD REQUESTS 02532600
//RPT131R1 DD SYSOUT=I,HOLD=YES, 02532705
// DEST=&LDEST. 02532800
//** HOUSEHOLD CONFIRMATIONS 02532900
//RPT131R2 DD SYSOUT=W,HOLD=YES, 02533006
// DEST=&LDEST. 02533100
//** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 02533200
//RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR 02533400
//** 02534100
//** ACCOUNT NUMBER CHANGED 02534200
//RPT204R1 DD SYSOUT=O,HOLD=&LVDHOLD., 02534300
// DEST=&LDEST. 02534400
//** BATCH CONTROL SUMMARY 02534500
//RPT301R1 DD SYSOUT=*, 02534600
// DEST=&LDEST. 02534700
//** ACCT DTL RPT (GL) 02534800
//RPT302R1 DD SYSOUT=*, 02534900
// DEST=&LDEST. 02535000
//** REVENUE REFUND VOUCHER 02535100
//RPT303R1 DD SYSOUT=O,HOLD=&LVDHOLD., 02535200
// DEST=&LDEST. 02535300
//** LETTER FOR 303R1 (309R1 FORM) 02535400
//RPT303R2 DD SYSOUT=I,HOLD=YES, 02535505
// DEST=&LDEST. 02535600
//** 02535700
//** 02536500
//** STATEMENT OF ACCT (CREDIT MEMO-SM) 02536600
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02536700
//RPT309R1 DD SYSOUT=W,HOLD=YES, 02536806
// DEST=&LDEST. 02536900
//** STATEMENT OF ACCT (CREDIT MEMO-PC) 02537000
//RPT309R2 DD SYSOUT=X,HOLD=YES, 02537106
// DEST=&LDEST. 02537200
//** STATEMENT OF ACCT (CONTROL RPT) 02537300
//RPT310R1 DD SYSOUT=Z, 02537400
// DEST=&LDEST. 02537500
//** ESTIMATED REPORT LETTER 02537600
//RPT316R1 DD SYSOUT=W,HOLD=YES, 02537706
// DEST=&LDEST. 02537800
//** TAXABLE WAGE ERROR LETTER 02537900
//RPT317R1 DD SYSOUT=W, 02538006
// DEST=&LDEST., 02538100
// HOLD=YES 02538205
//** ELECTRONIC PAYMENT LISTING 1 02538300
//RPT318R1 DD SYSOUT=O, 02538400
// DEST=&LDEST., 02538500
// HOLD=&LVDHOLD. 02538600
//** ELECTRONIC PAYMENT LISTING 2 02538700
//RPT318R2 DD SYSOUT=O, 02538800
// DEST=&LDEST., 02538900
// HOLD=&LVDHOLD. 02539000
//** DAILY RETURNED CHECKS 02539100
//RPT319R1 DD SYSOUT=W, 02539206
// DEST=&LDEST., 02539300
// HOLD=YES 02539405
//** DAILY DEBIT REPORT 02539500
//RPT319R2 DD SYSOUT=Z, 02539600
// DEST=&LDEST., 02539700
// HOLD=&LVDHOLD. 02539800
//** DAILY ADMIN ASSESS BILLS 02539900
//RPT325R1 DD SYSOUT=W, 02540006
// DEST=&LDEST., 02540100
// HOLD=YES 02540205
//** DAILY ADMIN ASSESS ALL WAGES 02540300
//RPT325R2 DD SYSOUT=Z, 02540400
// DEST=&LDEST., 02540500
// HOLD=&LVDHOLD. 02540600
//** DAILY ADMIN ASSESS TOLERATED 02540700
//RPT325R3 DD SYSOUT=Z, 02540800
// DEST=&LDEST., 02540900
// HOLD=&LVDHOLD. 02541000
//** DAILY ADMIN ASSESS NOT TOLERATED 02541100
//RPT325R4 DD SYSOUT=Z, 02541200
// DEST=&LDEST., 02541300
// HOLD=&LVDHOLD. 02541400
//** DAILY ADMIN ASSESS NO WAGES 02541500
//RPT325R5 DD SYSOUT=Z, 02541600
// DEST=&LDEST., 02541700
// HOLD=&LVDHOLD. 02541800
//** LIEN FORMS (& R3?) 02541900
//RPT403R1 DD SYSOUT=I,HOLD=YES, 02542005
// DEST=&LDEST. 02542100
//** LICENSE LIEN LTR 02542200
//** (NO LONGER PRODUCED IN THIS FORM 991025) 02542300
//RPT403R2 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02542400
//**RPT403R2 DD SYSOUT=I, 02542500
//** DEST=&LDEST. 02542600
//** LIEN PKG PRTED CONTROL RPT 02542700
//RPT404R1 DD SYSOUT=*, 02542800
// DEST=&LDEST. 02542900
//** STATEMENT OF ACCT (DEBIT MEMO-SM) 02543000
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02543100
//RPT414R1 DD SYSOUT=W,HOLD=YES, 02543206
// DEST=&LDEST. 02543300
//** STATEMENT OF ACCT (PAGE 2) 02543400
//RPT414R2 DD SYSOUT=W,HOLD=&LVDHOLD., 02543506
// DEST=&LDEST. 02543600
//** COPY FOR DEPT. 02543700
//** (NO LONGER PRODUCED IN THIS FORM 991125) 02543800
//RPT414R3 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02543900
//RPT414R4 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02544011
//RPT414R5 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02544113
//RPT414R6 DD SYSOUT=*,DEST=LOCAL,HOLD=YES 02544213
//**RPT414R3 DD SYSOUT=I, 02544313
//** DEST=&LDEST. 02544413
//** STATEMENT OF ACCT- OVERNIGHT 02544513
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 02544613
//RPT415R1 DD SYSOUT=W, 02544713
// DEST=&LDEST., 02544813
// HOLD=YES 02544913
//** STATEMENT OF ACCT (CONTROL RPT) 02545013
//RPT416R1 DD SYSOUT=Z, 02545113
// DEST=&LDEST., 02545213
// HOLD=&LVDHOLD. 02545313
//** FIRST DELINQUENCY 02545413
//RPT417R1 DD SYSOUT=W,HOLD=YES, 02545513
// DEST=&LDEST. 02545613
//** FINAL DELINQUENCY 02545713
//RPT421R1 DD SYSOUT=W,HOLD=YES, 02545813
// DEST=&LDEST. 02545913
//** MISSING RPTS ESTB LST (FCO) 02546013
//** ACCTS REC AUDIT TRAIL RPT 02546113
//** INCR IN TOTAL BAL DUE 02546213
//RPT424R1 DD SYSOUT=*, 02546313
// DEST=&LDEST. 02546413
//** MISSING RPTS ESTB LST (FCO) 02546513
//RPT425R1 DD SYSOUT=*, 02546613
// DEST=&LDEST. 02546713
//** ACCTS REC AUDIT TRAIL RPT 02546813
//RPT432R1 DD SYSOUT=*, 02546913
// DEST=&LDEST. 02547013
//** SI SECOND NOTICE 02547113
//RPT433R1 DD SYSOUT=W,HOLD=YES, 02547213
// DEST=&LDEST. 02547313
//** SI SECOND NOTICE 02547413
//RPT433R2 DD SYSOUT=W,HOLD=YES, 02547513
// DEST=&LDEST. 02547613
//** DEFERRED PAYMENT CONTRACT 02547713
//RPT434R1 DD SYSOUT=I,HOLD=YES, 02547813
// DEST=&LDEST. 02547913
//** RATE DISCREPANCY LST 02548013
//RPT436R1 DD SYSOUT=W,HOLD=&LVDHOLD., 02548113
// DEST=&LDEST. 02548213
//** RATE DISCREPANCY LST 02548313
//RPT502R1 DD SYSOUT=*, 02548413
// DEST=&LDEST. 02548513
//** RATE NOTICES (632) 02548613
//RPT503R1 DD SYSOUT=W,HOLD=YES, 02548713
// DEST=&LDEST. 02548813
//** RATE NOTICES (632A) 02548913
//RPT503R2 DD SYSOUT=W,HOLD=&LVDHOLD., 02549013
// DEST=&LDEST. 02549113
//** FLD ASSGN RPT - TAX DATA 02549213
//RPT603R1 DD SYSOUT=*, 02549313
// HOLD=&LVDHOLD., 02549413
// DEST=&LDEST. 02549513
//** FLD ASSGN RPT - TAX DATA - TEXT 02549613
//*RPT603R1 DD DSN=DOESTAX.&LVLNODE..R603.EXP, 02549713
//* DISP=(NEW,CATLG,CATLG), 02549813
//* DISP=(OLD,KEEP,KEEP), 02549913
//* UNIT=SYSDA, 02550013
//* SPACE=(CYL,(10,5),RLSE), 02550113
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) 02550213
//** 02550313
//** FLD ASSGN RPT - WAGE DATA 02550413
//RPT604R1 DD SYSOUT=*, 02550513
// HOLD=&LVDHOLD., 02550613
// DEST=&LDEST. 02550713
//** FLD ASSGN RPT - WAGE DATA - TEXT 02550813
//*RPT604R1 DD DSN=DOESTAX.&LVLNODE..R604.EXP, 02550913
//** DISP=(NEW,CATLG,CATLG), 02551013
//* DISP=(OLD,KEEP,KEEP), 02551113
//* UNIT=SYSDA, 02551213
//* SPACE=(CYL,(10,5),RLSE), 02551313
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) 02551413
//** 02551513
//*EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR 02551613
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR 02551713
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR 02551813
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02551913
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 02552013
//** 02552113
//REPORTF1 DD DSN=&&REPORTF1, 02552213
// DISP=(,PASS,DELETE), 02552313
// UNIT=SYSDA, 02552413
// SPACE=(18000,(100,100),RLSE), 02552513
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) 02552613
//** 02552713
//** AUDIT SURVEY CARDS 02552813
//RPT608R1 DD SYSOUT=W,HOLD=&LVDHOLD., 02552913
// DEST=&LDEST. 02553013
//** AUDIT NOTIFICATION LETTER 02553114
//RPT615R1 DD SYSOUT=I, 02553214
// DEST=&LDEST., 02553314
// HOLD=&LVDHOLD. 02553414
//** FUTA CERTIFICATION 02553513
//RPT711R1 DD SYSOUT=I, 02553613
// DEST=&LDEST., 02553713
// HOLD=&LVDHOLD. 02553813
//** REQ FOR FEIN LETTER 02553913
//** (DISTINCT FROM RPT903R1) 02554013
//RPT712R1 DD SYSOUT=W,HOLD=YES, 02554113
// DEST=&LDEST. 02554213
//** TICKLER TRIG OVERDUE LST 02554313
//** TRIG DTE<=(CURRDTE-#PARMDAYS) 02554413
//RPT724R1 DD SYSOUT=*, 02554513
// DEST=&LDEST. 02554613
//** LMI MISSING EMPLOYEE LTR 02554713
//RPT726R1 DD SYSOUT=W,HOLD=&LVDHOLD., 02554813
// DEST=&LDEST. 02554913
//** EMPLOYER WAGE REQUEST 02555013
//RPT751R1 DD SYSOUT=X,HOLD=&LVDHOLD., 02555113
// DEST=&LDEST. 02555213
//** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02555313
//** /* EXTRACT & PRINT LABELS (8-LINE) 02555413
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02555513
//** DEST=&LDEST. 02555613
//** WAGE RPTS (UC-30/FORM 30) DAILY 02555713
//RPT902R1 DD SYSOUT=I,HOLD=YES, 02555813
// DEST=&LDEST. 02555913
//** SUR TAX (UC-30/FORM 30) DAILY 02556013
//RPT902R2 DD SYSOUT=I,HOLD=YES, 02556113
// DEST=&LDEST. 02556213
//** 02556313
//DTS902F1 DD DUMMY 02556413
//** REQ FOR FED ID (UC-643) 02556513
//RPT903R1 DD SYSOUT=W,HOLD=YES, 02556613
// DEST=&LDEST. 02556713
//** DAILY UPDATE CONTROL REPORT 02556813
//RPT904R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02556913
// DEST=&LDEST. 02557013
//** ONLINE RECOVERY/RESTART REPORT 02557113
//RPT905R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02557213
// DEST=&LDEST. 02557313
//** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02557413
//PARM906 DD DUMMY,DCB=BLKSIZE=80 02557513
//** ONLINE UPDT LOG RPT 02557613
//** (DAILY -NORMALLY AN 'ON REQ' RPT 02557713
//RPT906R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02557813
// DEST=&LDEST. 02557913
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02558013
//RPT907R1 DD SYSOUT=Q,HOLD=&LVDHOLD., 02558113
// DEST=&LDEST. 02558213
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02558313
//RPT907R2 DD SYSOUT=Q,HOLD=&LVDHOLD., 02558413
// DEST=&LDEST. 02558513
//** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02558613
//DTS910F1 DD DUMMY 02558713
//** UC-30 NOTICES - HOUSEHOLD DAILY 02558813
//RPT910R1 DD SYSOUT=I,HOLD=YES, 02558913
// DEST=&LDEST. 02559013
//** UC-30 NOTICES - HOUSEHOLD DAILY AFTER 2006 02559113
//RPT910R2 DD SYSOUT=I,HOLD=YES, 02559213
// DEST=&LDEST. 02559313
//** CONTROL REPORT SUMMARY 02559413
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02559513
// DEST=&LDEST. 02559613
//** EXPORT CONTROL REPORTS 02559713
//RPT991R1 DD SYSOUT=Q, 02559813
// DEST=&LDEST. 02559913
//** 02560013
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02560113
// COND=(0,LT), 02560213
// REGION=4096K 02560313
//DOESVRI1 DD DSN=&&LBL901, 02560413
// DISP=(OLD,DELETE,DELETE) 02560513
//SYSOUT DD SYSOUT=* 02560613
//SYSABOUT DD SYSOUT=* 02560713
//SYSABEND DD SYSOUT=* 02560813
//CAIMRPTS DD SYSOUT=* 02560913
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02561013
// DEST=&LDEST. 02562000
//** 02570000

19
Procs/DTSACHD1 Normal file
View File

@ -0,0 +1,19 @@
//******************************************************************* 00020105
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE * 00020205
//* DAILY RUN. * * 00020305
//* * 00020405
//******************************************************************* 00020805
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(4,LT) 00032011
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+1),DISP=SHR 00060005
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060513
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSACHD1),DISP=SHR 00150008
//******************************************************************* 00260007

19
Procs/DTSACHM1 Normal file
View File

@ -0,0 +1,19 @@
//******************************************************************** 00020102
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE * 00020202
//* MONTHLY RUN DTSPMON1. * 00020302
//* * 00020402
//******************************************************************** 00020502
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.SRTMONTH.RPT(+1),DISP=SHR 00060002
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR,DISP=MOD 00060505
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSACHM1),DISP=SHR 00150003
//**** 00180002

249
Procs/DTSACHRT Normal file
View File

@ -0,0 +1,249 @@
//***** 00010000
//* UI TAX ARCHIVE REPRINT. 00020001
//* HANDLE BD800 RPT ONLY 00030000
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040000
//DOESLBL1 EXEC PGM=IEBDG, 00050000
// COND=(0,LT) 00060000
//SYSPRINT DD SYSOUT=* 00070000
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000
// UNIT=SYSDA, 00090000
// SPACE=(TRK,1), 00100000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000
// DISP=SHR 00130000
//**** /* POPULATE THE LABELS WORK FILE 00140000
//DOESLBL2 EXEC PGM=IDCAMS, 00150000
// COND=(0,LT) 00160000
//SYSPRINT DD SYSOUT=* 00170000
//FILEIN DD DSN=&&TMP901, 00180000
// DISP=(OLD,DELETE,DELETE), 00190000
// UNIT=SYSDA 00200000
//DOESVRO1 DD DSN=&&LBL901, 00210000
// DISP=(NEW,PASS,DELETE), 00220000
// UNIT=SYSDA, 00230000
// SPACE=(8192,(1000,1000),RLSE), 00240000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260000
// DISP=SHR 00270000
//** 00280000
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290000
// COND=(0,LT) 00300000
//SYSOUT DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//SYSUDUMP DD SYSOUT=* 00330000
//SYSPRINT DD SYSOUT=* 00340000
//** 00350000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360000
//** 00370000
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..ARCHIVE.&FYYEAR(&S0910.),DISP=SHR 00380003
//** 00390000
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00400000
//** 00410000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00420000
// AMP=('BUFNI=5,BUFND=10') 00430000
//** 00440000
//PARMIN DD DUMMY 00450000
//** 00460000
//ATLSTIN DD DUMMY 00470000
//** GEN. 1ST LETTER, REG. CYCLE A 00480000
//RPT102R1 DD SYSOUT=I, 00490000
// DEST=&LDEST., 00500000
// HOLD=&PRTHOLD. 00501000
//** GEN. 2ND LETTER, REG. CYCLE A 00510000
//RPT103R1 DD SYSOUT=I, 00520000
// DEST=&LDEST., 00530000
// HOLD=&PRTHOLD. 00531000
//** LTR TO OUT-OF-STATE AGENCY 00540000
//RPT105R1 DD SYSOUT=I, 00550000
// DEST=&LDEST., 00560000
// HOLD=&PRTHOLD. 00561000
//** NOT LIABLE LTR 00570000
//RPT108R1 DD SYSOUT=W, 00580000
// HOLD=&PRTHOLD., 00581000
// DEST=U@PRT155 00590000
//** MISSING CONTRIB & WAGE RPTS 00600000
//RPT109R1 DD SYSOUT=I, 00610000
// DEST=&LDEST., 00620000
// HOLD=&PRTHOLD. 00621000
//** HOUSEHOLD - ANNUAL VERS. 00630000
//RPT109R2 DD SYSOUT=I, 00640000
// DEST=&LDEST., 00650000
// HOLD=&PRTHOLD. 00651000
//** NOTICE OF SUBJECTIVETY 00660000
//RPT112R1 DD SYSOUT=I, 00670000
// DEST=&LDEST., 00680000
// HOLD=&PRTHOLD. 00681000
//** HOUSEHOLD - ANNUAL VERS. 00690000
//RPT112R2 DD SYSOUT=I, 00700000
// DEST=&LDEST., 00710000
// HOLD=&PRTHOLD. 00711000
//** WELCOME LETTER 00720000
//RPT115R1 DD SYSOUT=I, 00730000
// DEST=&LDEST., 00740000
// HOLD=&PRTHOLD. 00741000
//** GEN INACT LTR 00810000
//RPT117R1 DD SYSOUT=W, 00820000
// HOLD=&PRTHOLD., 00821000
// DEST=U@PRT155 00830000
//** '8 QTRS NONE' CANCELLATION LTR 00840000
//RPT117R2 DD SYSOUT=I, 00850000
// HOLD=&PRTHOLD., 00851000
// DEST=&LDEST. 00860000
//** '8 QTRS NONE' CANCELLATION LTR 00870000
//RPT117R3 DD SYSOUT=I, 00880000
// HOLD=&PRTHOLD., 00881000
// DEST=&LDEST. 00890000
//** FR-500 EMPLYR REG. 00900000
//RPT127R1 DD SYSOUT=I, 00910000
// HOLD=&PRTHOLD., 00911000
// DEST=&LDEST. 00920000
//** HOUSEHOLD REQUESTS 00930000
//RPT131R1 DD SYSOUT=I, 00940000
// HOLD=&PRTHOLD., 00941000
// DEST=&LDEST. 00950000
//** HOUSEHOLD CONFIRMATIONS 00960000
//RPT131R2 DD SYSOUT=W, 00970000
// HOLD=&PRTHOLD., 00971000
// DEST=U@PRT155 00980000
//** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 00981000
//** STATEMENT OF ACCT (CREDIT MEMO-SM) 01149000
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 01150000
//RPT309R1 DD SYSOUT=W, 01160000
// HOLD=&PRTHOLD., 01161000
// DEST=U@PRT155 01170000
//** STATEMENT OF ACCT (CREDIT MEMO-PC) 01180000
//RPT309R2 DD SYSOUT=*, 01190000
// HOLD=&PRTHOLD., 01191000
// DEST=&LDEST. 01200000
//** ESTIMATED REPORT LETTER 01210000
//RPT316R1 DD SYSOUT=W, 01220000
// HOLD=&PRTHOLD., 01221000
// DEST=U@PRT155 01230000
//** TAXABLE WAGE ERROR LETTER 01240000
//RPT317R1 DD SYSOUT=W, 01250000
// DEST=U@PRT155, 01260000
// HOLD=&PRTHOLD. 01270000
//** DAILY RETURNED CHECKS 01360000
//RPT319R1 DD SYSOUT=W, 01370000
// DEST=U@PRT155 01380000
//* HOLD=&PRTHOLD. 01390000
//** DAILY DEBIT REPORT 01400000
//RPT319R2 DD SYSOUT=Z, 01410000
// DEST=&LDEST. 01420000
//* HOLD=&PRTHOLD. 01430000
//** SI ADMIN ASSESSMENT LETTER 01431000
//RPT325R1 DD SYSOUT=Z, 01432000
// HOLD=YES 01433000
//* DEST=U@PRT155 01433100
//* HOLD=&PRTHOLD. 01434000
//** SI ADMIN ASSESSMENT RPT2 01435000
//RPT325R2 DD SYSOUT=Z, 01436000
// DEST=&LDEST. 01437000
//* HOLD=&PRTHOLD. 01438000
//** SI ADMIN ASSESSMENT RPT3 01439000
//RPT325R3 DD SYSOUT=Z, 01439100
// DEST=&LDEST. 01439200
//* HOLD=&PRTHOLD. 01439300
//** SI ADMIN ASSESSMENT RPT4 01439400
//RPT325R4 DD SYSOUT=Z, 01439500
// DEST=&LDEST. 01439600
//* HOLD=&PRTHOLD. 01439700
//** SI ADMIN ASSESSMENT RPT5 01440100
//RPT325R5 DD SYSOUT=Z, 01440200
// DEST=&LDEST. 01440300
//* HOLD=&PRTHOLD. 01440400
//** LIEN FORMS (& R3?) 01441000
//RPT403R1 DD SYSOUT=I, 01450000
// HOLD=&PRTHOLD., 01451000
// DEST=&LDEST. 01460000
//RPT414R1 DD SYSOUT=W, 01580000
// HOLD=&PRTHOLD., 01581000
// DEST=U@PRT155 01590000
//** STATEMENT OF ACCT (PAGE 2) 01600000
//RPT414R2 DD SYSOUT=W, 01610000
// HOLD=&PRTHOLD., 01611000
// DEST=U@PRT155 01620000
//** COPY FOR DEPT. 01630000
//** (NO LONGER PRODUCED IN THIS FORM 991125) 01640000
//RPT414R3 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01650000
//**RPT414R3 DD SYSOUT=I, 01660000
//** DEST=&LDEST. 01670000
//** STATEMENT OF ACCT OVERNIGHT PRINTING 01671000
//RPT414R4 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,DISP=SHR 01671100
//RPT414R5 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5,DISP=SHR 01671300
//RPT414R6 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6,DISP=SHR 01671500
//** STATEMENT OF ACCT OVERNIGHT PRINTING 01671600
//RPT415R1 DD SYSOUT=W, 01672000
// HOLD=&PRTHOLD., 01672100
// DEST=U@PRT155 01673000
//** DEFERRED PAYMENT CONTRACT 01770000
//RPT434R1 DD SYSOUT=I,COPIES=3, 01780000
// HOLD=&PRTHOLD., 01781000
// DEST=&LDEST. 01790000
//** RATE DISCREPANCY LST 01800000
//** RATE NOTICES (632) 01830000
//RPT503R1 DD SYSOUT=W, 01840000
// HOLD=&PRTHOLD., 01841000
// DEST=U@PRT155 01850000
//** RATE NOTICES (632A) 01860000
//RPT503R2 DD SYSOUT=W, 01870000
// HOLD=&PRTHOLD., 01871000
// DEST=U@PRT155 01880000
//** FLD ASSGN RPT - TAX DATA 01890000
//** 02050000
//** AUDIT SURVEY CARDS 02060000
//RPT608R1 DD SYSOUT=W, 02070000
// HOLD=&PRTHOLD., 02071000
// DEST=U@PRT155 02080000
//** FUTA CERTIFICATION OVERNIGHT PRINTING 02081000
//RPT711R1 DD SYSOUT=I, 02082000
// HOLD=&PRTHOLD., 02082100
// DEST=&LDEST. 02083000
//** REQ FOR FEIN LETTER 02090000
//** (DISTINCT FROM RPT903R1) 02100000
//RPT712R1 DD SYSOUT=W, 02110000
// HOLD=&PRTHOLD., 02111000
// DEST=U@PRT155 02120000
//RPT726R1 DD SYSOUT=W, 02180000
// HOLD=&PRTHOLD., 02181000
// DEST=U@PRT155 02190000
//** EMPLOYER WAGE REQUEST 02200000
//RPT751R1 DD SYSOUT=I, 02210000
// HOLD=&PRTHOLD., 02211000
// DEST=&LDEST. 02220000
//RPT902R1 DD SYSOUT=I, 02280000
// HOLD=&PRTHOLD., 02281000
// DEST=&LDEST. 02290000
//** SUR TAX (UC-30/FORM 30) DAILY 02291000
//RPT902R2 DD SYSOUT=I, 02292000
// HOLD=&PRTHOLD., 02293000
// DEST=&LDEST. 02294000
//** WAGE RPTS (UC-30/FORM 30) QTRLY 02300000
//DTS902F1 DD DUMMY 02310000
//** REQ FOR FED ID (UC-643) 02320000
//RPT903R1 DD SYSOUT=W, 02330000
// HOLD=&PRTHOLD., 02331000
// DEST=U@PRT155 02340000
//RPT910R1 DD SYSOUT=I, 02560000
// HOLD=&PRTHOLD., 02561000
// DEST=&LDEST. 02570000
//** ADMIN ASSESSMENT UC-30 NOTICES - HOUSEHOLD DAILY 02571000
//RPT910R2 DD SYSOUT=I, 02572000
// HOLD=&PRTHOLD., 02573000
// DEST=&LDEST. 02574000
//** CONTROL REPORT SUMMARY 02580000
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02590000
// HOLD=&PRTHOLD., 02591000
// DEST=&LDEST. 02600000
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000
// COND=(0,LT), 02660000
// REGION=4096K 02670000
//DOESVRI1 DD DSN=&&LBL901, 02680000
// DISP=(OLD,DELETE,DELETE) 02690000
//SYSOUT DD SYSOUT=* 02700000
//SYSABOUT DD SYSOUT=* 02710000
//SYSABEND DD SYSOUT=* 02720000
//CAIMRPTS DD SYSOUT=* 02730000
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000
// DEST=U@PRT155 02750000
//** 02760000

19
Procs/DTSACHW1 Normal file
View File

@ -0,0 +1,19 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE * 00020200
//* WEEKLY RUN DTSPDAY7. (RPT433R1 SI 2ND LETTER) * 00020301
//* * 00020400
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+1),DISP=SHR 00060001
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR,DISP=MOD 00060500
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSACHW1),DISP=SHR 00150001
//**** 00180000

22
Procs/DTSAR414 Normal file
View File

@ -0,0 +1,22 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 414 TO BE ARCHIVED FROM THE * 00020201
//* MONTHLY SOA WHEN DTSRQ414 RUNS STANDALONE. THIS JOB IS PART OF * 00020301
//* THE MONTH END PROCESSING * 00020401
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR 00060007
//**** 00060100
//SORTOUT DD DSN=DOESTAX.&LVLNODE..SOAMONTH(+1), 00060605
// DISP=(,CATLG,DELETE), 00060704
// SPACE=(CYL,(50,25),RLSE), 00060906
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00061004
//**** 00062000
//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 DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00160004
//**** 00180000

18
Procs/DTSAR417 Normal file
View File

@ -0,0 +1,18 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 417 TO BE ARCHIVED FROM THE * 00020201
//* 1ST DELINQUENCY DTSRQ417. * 00020301
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR 00060000
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060503
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR417),DISP=SHR 00150001
//**** 00180000

18
Procs/DTSAR420 Normal file
View File

@ -0,0 +1,18 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 421 TO BE ARCHIVED FROM THE * 00020201
//* 2ND DELINQUENCY DTSRQ420. * 00020301
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR 00060000
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060503
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR420),DISP=SHR 00150001
//**** 00180000

18
Procs/DTSAR433 Normal file
View File

@ -0,0 +1,18 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 433 TO BE ARCHIVED FROM THE * 00020201
//* SELF INSURED DELINQUENCY DTSRQ433. * 00020301
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR 00060000
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060503
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR433),DISP=SHR 00150001
//**** 00180000

19
Procs/DTSAR451 Normal file
View File

@ -0,0 +1,19 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 451 TO BE ARCHIVED FROM THE * 00020201
//* ANNUAL DELINQUENCY RUN DTSRQ451 * 00020301
//* * 00020400
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR 00060001
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060503
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR451),DISP=SHR 00150001
//**** 00180000

18
Procs/DTSAR500 Normal file
View File

@ -0,0 +1,18 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 503 TO BE ARCHIVED FROM THE * 00020200
//* ANNUAL RATE NOTICES (RATED & SI) DTSRQ517 * 00020304
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.RATE517.RPT..&RATEYR.,DISP=SHR 00060000
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060503
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR503),DISP=SHR 00150000
//**** 00180000

18
Procs/DTSAR518 Normal file
View File

@ -0,0 +1,18 @@
//******************************************************************** 00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 503 TO BE ARCHIVED FROM THE * 00020201
//* ANNUAL FILERS RATE NOTICES DTSRQ518 * 00020302
//******************************************************************** 00020500
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000
//SORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.&RATEYR.,DISP=SHR 00060005
//**** 00060100
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060504
//**** 00060900
//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 DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR503),DISP=SHR 00150001
//**** 00180000

103
Procs/DTSARRPT Normal file
View File

@ -0,0 +1,103 @@
//**** 00000125
//* REPORTING FOR THE YEARLY RATINGS RUNS 1 & 2 00061036
//**** 00080025
//* 10.26.04 MOD TPS FILE 723 TO INCLUDE YEAR AT END -ZL1 00080155
//**** 00080255
//DTSARRPT PROC 00081038
//* DEFNS NEEDED FOR THIS PROC: 00082025
//* LVLNODE=DEVL/TEST/PROD 00083025
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085028
//* LHOLD=NO/YES 00085136
//* RATEYR=CALENDAR YEAR FOR WHICH RATES ARE BEING CALCULATED 00085245
//**** 00086027
//STEP0100 EXEC PGM=DTSBD800, REPORT GENERATION 00650036
// COND=(0,LT) 00660020
//SYSOUT DD SYSOUT=* 00670020
//SYSABOUT DD SYSOUT=* 00680020
//SYSUDUMP DD SYSOUT=* 00690020
//** 00700020
//DTSFVRI1 DD DSN=&&SRPTREC, 00710036
// DISP=(OLD,DELETE,DELETE) 00711034
//** 00720020
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00721056
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730029
// AMP=('BUFNI=5,BUFND=10') 00740020
//** 00750020
//PARMIN DD DUMMY 00760020
//** 00770020
//ATLSTIN DD DUMMY 00780020
//** RATE NOTICES (632) MASS MAILING 00800037
//RPT503R1 DD SYSOUT=W, 00810037
// DEST=U@PRT155, 00820036
// HOLD=&LHOLD. 00821036
//** RATE NOTICES (632A) PENALTY RATES 00821137
//RPT503R2 DD SYSOUT=W, 00821237
// DEST=U@PRT155, 00821337
// HOLD=&LHOLD. 00821437
//** TRANSFERS OF EXPERIENCE RPT 00821537
//RPT506R1 DD SYSOUT=Z, 00821637
// DEST=&LDEST., 00821737
// HOLD=&LHOLD. 00821837
//** RATE CUTOFF ERROR LST 00822036
//RPT507R1 DD SYSOUT=Z, 00823036
// DEST=&LDEST., 00824036
// HOLD=&LHOLD. 00825036
//** RATE ASSIGNMENT DETAIL LST (REG) 00825153
//RPT515R1 DD SYSOUT=Z, 00825237
// DEST=&LDEST., 00825337
// HOLD=&LHOLD. 00825437
//** RATE ASSIGNMENT DETAIL LST (EST) 00825553
//RPT515R2 DD SYSOUT=Z, 00825653
// DEST=&LDEST., 00825753
// HOLD=&LHOLD. 00825853
//** RATE ASSIGNMENT DETAIL LST (FIN) 00825953
//RPT515R3 DD SYSOUT=Z, 00826053
// DEST=&LDEST., 00826153
// HOLD=&LHOLD. 00826253
//** RATE ASSIGNMENT ERROR LST 00826337
//RPT515R4 DD DSN=DOESTAX.PROD.ANNRATE.RPT515R4.TXT,DISP=SHR 00826457
//** RATE ASSIGNMENT ERROR LST 00826557
//RPT516R1 DD SYSOUT=Z, 00826637
// DEST=&LDEST., 00826737
// HOLD=&LHOLD. 00826837
//** ETA204 REPORT 00826937
//RPT517R1 DD SYSOUT=I, 00827037
// DEST=&LDEST., 00827137
// HOLD=&LHOLD. 00827237
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00827341
//RPT517R2 DD DUMMY 00827446
//** TRUST FUND INTEREST DISTRIBUTN RPT 00827546
//RPT520R1 DD SYSOUT=Z, 00827646
// DEST=&LDEST., 00828036
// HOLD=&LHOLD. 00829036
//** RATE ASSIGNMENT SUMMARY RPT 00829137
//RPT521R1 DD SYSOUT=Z, 00829237
// DEST=&LDEST., 00829337
// HOLD=&LHOLD. 00829437
//** DETERIME NEW EMPLYR RATE 00829536
//RPT522R1 DD SYSOUT=Z, 00829636
// DEST=&LDEST., 00829736
// HOLD=&LHOLD. 00829836
//** TPS EXPERIENCE RATING RECORDS (EXPORT) 00829937
//RPT723R1 DD DSN=DOESTAX.&LVLNODE..RPT723.&TPSYRQ, 00830055
// DISP=(,CATLG,DELETE), 00830255
// SPACE=(8192,(100,200),RLSE), 00830355
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=161,BLKSIZE=16100) 00830455
//** 00831037
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831137
//RPT907R1 DD SYSOUT=Z, 00832036
// DEST=&LDEST., 00833036
// HOLD=&LHOLD. 00834036
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835036
//RPT907R2 DD SYSOUT=Z, 00836036
// DEST=&LDEST., 00837036
// HOLD=&LHOLD. 00838036
//** CONTROL REPORT SUMMARY 00838139
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00838239
// HOLD=&LHOLD., 00838339
// DEST=&LDEST. 00838439
//** EXPORT CONTROL REPORT 00838537
//RPT991R1 DD SYSOUT=Q,COPIES=2, 00838647
// DEST=&LDEST., 00838737
// HOLD=&LHOLD. 00838837
//* 00839036

68
Procs/DTSARRVD Normal file
View File

@ -0,0 +1,68 @@
//**** 00000100
//* REPORTING FOR THE YEARLY RATINGS RUNS 1 & 2 00061000
//**** 00080000
//* 10.26.04 MOD TPS FILE 723 TO INCLUDE YEAR AT END -ZL1 00080100
//**** 00080200
//DTSARRPT PROC 00081000
//* DEFNS NEEDED FOR THIS PROC: 00082000
//* LVLNODE=DEVL/TEST/PROD 00083000
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085000
//* LHOLD=NO/YES 00085100
//* RATEYR=CALENDAR YEAR FOR WHICH RATES ARE BEING CALCULATED 00085200
//**** 00086000
//STEP0100 EXEC PGM=DTSBD800, REPORT GENERATION 00650000
// COND=(0,LT) 00660000
//SYSOUT DD SYSOUT=* 00670000
//SYSABOUT DD SYSOUT=* 00680000
//SYSUDUMP DD SYSOUT=* 00690000
//** 00700000
//DTSFVRI1 DD DSN=DOESTAX.PROD.RATE517.ANNRPT.YR2007,DISP=SHR 00710001
// DD DSN=DOESTAX.PROD.RATE506.RPT.YR2007,DISP=SHR 00711002
//** 00720000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00721000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730000
// AMP=('BUFNI=5,BUFND=10') 00740000
//** 00750000
//PARMIN DD DUMMY 00760000
//** 00770000
//ATLSTIN DD DUMMY 00780000
//** RATE NOTICES (632) MASS MAILING 00800000
//** 00810001
//RPT503R1 DD DUMMY 00821603
//RPT503R2 DD DUMMY 00821703
//RPT517R1 DD DUMMY 00821803
//RPT517R2 DD DUMMY 00821903
//RPT723R1 DD DUMMY 00822003
//RPT907R1 DD DUMMY 00822103
//RPT907R2 DD DUMMY 00822203
//RPT980R1 DD DUMMY 00822303
//RPT991R1 DD DUMMY 00822403
//RPT506R1 DD SYSOUT=(V,DTS506Y1),HOLD=&LVDHOLD 00822503
//** 00822603
//** RATE CUTOFF ERROR LST 00822703
//** 00823001
//RPT507R1 DD SYSOUT=(V,DTS507Y1),HOLD=&LVDHOLD 00824002
//** 00825001
//** RATE ASSIGNMENT DETAIL LST (REG) 00825100
//RPT515R1 DD SYSOUT=(V,DTS515Y1),HOLD=&LVDHOLD 00825302
//** 00825401
//** RATE ASSIGNMENT DETAIL LST (EST) 00825600
//RPT515R2 DD SYSOUT=(V,DTS515Y2),HOLD=&LVDHOLD 00825802
//** 00825901
//** RATE ASSIGNMENT DETAIL LST (FIN) 00826100
//** 00826201
//RPT515R3 DD SYSOUT=(V,DTS515Y3),HOLD=&LVDHOLD 00826302
//** 00826401
//** RATE ASSIGNMENT ERROR LST 00826600
//RPT516R1 DD SYSOUT=(V,DTS516Y1),HOLD=&LVDHOLD 00826802
//** 00826901
//** TRUST FUND INTEREST DISTRIBUTN RPT 00827700
//RPT520R1 DD SYSOUT=(V,DTS520Y1),HOLD=&LVDHOLD 00827902
//** 00828001
//** RATE ASSIGNMENT SUMMARY RPT 00829100
//RPT521R1 DD SYSOUT=(V,DTS521Y1),HOLD=&LVDHOLD 00829302
//** 00829401
//** DETERIME NEW EMPLYR RATE 00829600
//RPT522R1 DD SYSOUT=(V,DTS522Y1),HOLD=&LVDHOLD 00829802
//** 00829901
//* 00839000

10
Procs/DTSBCHGF Normal file
View File

@ -0,0 +1,10 @@
//****
//* DTSBCHGF - LOAD QTRLY CHARGE DATA FROM FISC AGNTS
//* (UPLOADED FLOPPY FILE)
//****
//STEPP100 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&FAFILE.,
// DISP=SHR
//**

17
Procs/DTSBCHGT Normal file
View File

@ -0,0 +1,17 @@
//****
//* DTSBCHGT - LOAD QTRLY CHARGE DATA FROM FISC AGNTS
//* (FROM F.A. CART.)
//****
//STEP0100 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//STEP0100.INDD01 DD DSN=&FAFILE.,
//*** UNIT=CART,
// UNIT=CART90,
//** UNIT=700,
//** UNIT=530,
// VOL=SER=&TVOLSER.,
// LABEL=(&LABEL.,,,EXPDT=98000),
// DCB=RECFM=FB,LRECL=&RECL,BLKSIZE=&BLKIN.,
// DISP=SHR
//**

14
Procs/DTSBCHGX Normal file
View File

@ -0,0 +1,14 @@
//****
//* DTSBCHGX - LOAD QTRLY CHARGE DATA FROM FISC AGNTS
//* (FROM F.A. CART.)
//****
//STEP0100 EXEC PGM=IDCAMS,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//STEP0100.INDD01 DD DSN=&FAFILE.,
// UNIT=CART,
// VOL=SER=&TVOLSER.,
// LABEL=(2,BLP,EXPDT=98000),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=&LBLOCKS.),
// DISP=SHR
//**

18
Procs/DTSBD515 Normal file
View File

@ -0,0 +1,18 @@
//STEP0991 EXEC PGM=DTSBD515, DAILY CREDIT/DEBIT REPORT 02580001
// COND=(0,LT) 02590000
//SYSOUT DD SYSOUT=* 02600000
//SYSABOUT DD SYSOUT=* 02610000
//SYSUDUMP DD SYSOUT=* 02620000
//SYSPRINT DD SYSOUT=* 02630000
//** 02640000
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 02650000
//** 02650100
//DTSIMSTR INCLUDE MEMBER=DTSIMSTR 02651000
//** 02660000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 02690000
// AMP=('BUFNI=5,BUFND=10') 02700000
//** 02701000
//RPT319R1 DD SYSOUT=(V,DTS319D1),HOLD=&LVDHOLD. 02704100
//** 02705000
//RPT319R2 DD SYSOUT=(V,DTS319D2),HOLD=&LVDHOLD. 02705100
//** 02710000

185
Procs/DTSBD551 Normal file
View File

@ -0,0 +1,185 @@
//DTSBD551 PROC 00000010
//* 00001700
//****************************************************************** 00001700
//* REMITAMT= TOTAL AMT FOR CHECKS SUBMITTED WITH TAPE
//* EMTLOGNO = LOG NUMBER ASSIGNED BY SYSTEM
//* CURRQTR = 0 = ACCEPT REPORTS WITHIN THE LAST 3 YEARS 00001700
//* 1 = ACCEPT ANY REPORT QTR
//* TIMELY = Y = PROCESS REPORTS AS TIMELY 00001700
//* N = PROCESS REPORTS AS LATE 00001700
//* RCVD = FOR LATE RPTS ONLY - RECEIVED DATE 00001700
//* ERRORBYP= Y = BYPASS FATAL ERRORS 00001700
//* DUP=Y = ALLOW DUPLICATE SUBMISSIONS 00001700
//****************************************************************** 00001700
//* 00001700
//STEP0100 EXEC PGM=DTSBD551, EDIT ICESA DATA
// COND=(0,LT),
// PARM='&REMIT,&LOGNO,&QTR,&TIMELY,&RCVD,&ERRORBYP,&DUP'
//SYSOUT DD SYSOUT=*
//SYSPRT1 DD SYSOUT=*
//SYSPRT2 DD SYSOUT=*
//SYSPRT3 DD SYSOUT=*
//SYSPRT4 DD SYSOUT=*
//SYSPRT5 DD SYSOUT=*
//SYSPRT6 DD SYSOUT=*
//SYSPRT7 DD DUMMY
//SYSPRT8 DD SYSOUT=*
//SYSPRT9 DD SYSOUT=*
//SYSFINAL DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//ICESAFIL DD DSN=&ICESAFIL,
// DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//CURRBTCH DD DSN=DOESTAX.&LVLNODE..CURRBTCH, 00005000
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(80,(80,80),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//*
//DTSFBTCO DD DSN=&&BTCTRAN, 00005000
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD DSN=&&WAGETMP, 00005000
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=&&WAGEOUT, BWTC OUTPUT
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSBX210 DD DSN=&&DTSBX210,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(2310,(900,900),RLSE),
// DCB=(RECFM=FB,LRECL=231,BLKSIZE=2310)
//CURBX210 DD DSN=DOESTAX.&MSTNODE..TST.BX210,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(2310,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310)
//*
//DTSBX212 DD DSN=&&DTSBX212,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(31800,(900,900),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*DTSBX212 DD DSN=DOESTAX.&LVLNODE..FTP.BX212(+1),
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(31800,(900,900),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//DTSBX216 DD DSN=&&DTSBX216,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(31800,(900,900),RLSE),
// DCB=(RECFM=FB,LRECL=318,BLKSIZE=31800)
//*DTSBX216 DD DSN=DOESTAX.&LVLNODE..FTP.BX216(+1),
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,
//* SPACE=(31800,(900,900),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//*
//DTSFVRO1 DD DSN=&&BD551RPT,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(16394,(900,900),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFVRO2 DD DSN=&&DTSR202,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(16394,(900,900),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//UC30ARCV DD DUMMY
//*C30ARCV DD DSN=&&UC30ARCV,
//* DISP=(,PASS,DELETE),
//* UNIT=SYSDA,
//* SPACE=(800,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//*DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..DESBD201,DISP=SHR,
//** DISP=(,CATLG,DELETE),
//* SPACE=(16394,(900,900),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR
//CBCTYST DD DSN=DOES.CICS.FIN730.CBCTYST.EX100102,DISP=SHR
//* 00080002
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
// COND=(05,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&BD551RPT,DISP=(OLD,DELETE,DELETE)
// DD DSN=&&DTSR202,DISP=(OLD,PASS,DELETE)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
//SORTOUT DD DSN=&&SRTRPT,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR
//***** 00110002
//* REPORT GENERATION 00110002
//STEP0300 EXEC PGM=DTSBD800, 00120002
// COND=(05,LT) 00130002
//SYSOUT DD SYSOUT=* 00140002
//SYSABOUT DD SYSOUT=* 00150002
//SYSUDUMP DD SYSOUT=* 00151002
//** 00152002
//PARMIN DD DUMMY 00153002
//** 00154002
//ATLSTIN DD DUMMY 00155002
//** 00156002
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00157002
//** 00158002
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00159002
// AMP=('BUFNI=5,BUFND=10') 00159102
//* 00159202
//** DEPOSIT TRANSMITTAL 00159302
//RPT202R1 DD SYSOUT=O, 00159402
// HOLD=NO, 00159502
// DEST=U@PRT65 00159602
//* 00159702
//** X202 EXPORT RECORD DUMMIED OUT. PRODUCED FROM DTSPDAY1. 00159302
//DTSX202F DD DUMMY 00159402
//* 00159202
//** FAILED TRANSACTION FATAL ERRORS REPORT 00159302
//RPT551R1 DD SYSOUT=Z, 00159402
// HOLD=&LHOLD., 00159502
// DEST=LOCAL 00159602
//* 00159702
//** FAILED TRANSACTION NON-FATAL ERRORS REPORT 00159302
//RPT551R2 DD SYSOUT=Z, 00159402
// HOLD=&LHOLD., 00159502
// DEST=LOCAL 00159602
//* 00159702
//** FAILED TRANSACTION NON-FATAL ERRORS REPORT MSG-E2 TO MSG-E5
//RPT551R3 DD SYSOUT=Z,
// HOLD=&LHOLD.,
// DEST=LOCAL
//*
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00164802
// HOLD=&LHOLD., 00164902
// DEST=LOCAL 00165002
//*
//**********
//*********************************************************************

77
Procs/DTSBDELT Normal file
View File

@ -0,0 +1,77 @@
//****************************************************************** 00001700
//**DTSBDELT PROC
//****************************************************************** 00001700
//* THIS PROC WILL DELETE ALL EXTERNAL GDG USED BY DTSPDAY1 00001700
//* CONV.BTC, WAGE.BTC, BX210, BX212, BX216, R202 00001700
//****************************************************************** 00001700
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X451BTC DD DSN=DOESTAX.PROD.ESSP.X451.BTC,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//********** CREATE BTC X451 AMENDED FILE ***********************
//********************************************************************
//STEP0150 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X451FBTC DD DSN=DOESTAX.&LVLNODE..ESSP.X451.BTC,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*********************************************************************
//****************************************************************** 00001700
//STEP0151 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X452BTC DD DSN=DOESTAX.PROD.ESSP.X452.BTC,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//********** CREATE BTC X451 AMENDED FILE ***********************
//********************************************************************
//STEP0152 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X452FBTC DD DSN=DOESTAX.&LVLNODE..ESSP.X452.BTC,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*********************************************************************
//****************************************************************** 00001700
//STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//WAGEBTC DD DSN=DOESTAX.CONV.WAGE.BTC,
// DISP=(OLD,DELETE,DELETE)
//*
//****************************************************************** 00001700
//STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X210FTP DD DSN=DOESTAX.CONV.FTP.BX210,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//****************************************************************** 00001700
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X212FTP DD DSN=DOESTAX.CONV.FTP.BX212,
// DISP=(OLD,DELETE,DELETE)
//*
//****************************************************************** 00001700
//STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//X216FTP DD DSN=DOESTAX.CONV.FTP.BX216,
// DISP=(OLD,DELETE,DELETE)
//*
//****************************************************************** 00001700
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//R202RPT DD DSN=DOESTAX.CONV.RPT.R202,
// DISP=(OLD,DELETE,DELETE)
//*
//****************************************************************** 00001700
//STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//EXTGRPT DD DSN=DOESTAX.PROD.EXTRQ.RPT,
// DISP=(OLD,DELETE,DELETE)
//*
//*********************************************************************
//********** DELETE W2 WAGE AMENDED FILE **************************
//********************************************************************
//STEP0701 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DELW4FIL DD DSN=DOESTAX.PROD.ESSP.X451.W4FILE,
// DISP=(OLD,DELETE,DELETE)
//********************************************************************
//********** CREATE W2 WAGE AMENDED FILE ***********************
//********************************************************************
//STEP0702 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//WAGEFILE DD DSN=DOESTAX.&LVLNODE..ESSP.X451.W4FILE,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
//*********************************************************************
//*********************************************************************

46
Procs/DTSBE328 Normal file
View File

@ -0,0 +1,46 @@
//**** 00000010
//** **** JOB RENAMED FROM RQ325 TO RQ327 TO RE328
//**** 00000010
//** DAILY SELF-INSURED BILLING PROCESS 00001700
//** NO MASTER FILE UPDATE. 00001700
//** PRODUCES T026, R325 RECORDS 00001700
//** 00001700
//**
//** DEFNS NEEDED FOR THIS PROC:
//** LVLNODE = DEVL/TEST/PROD
//**** 00000010
//DTSZX328 PROC RUNTYPE='OR',
// PREBACK='N',
// CHKONLY='N',
// IOTRACE='N'
//*********************************************************************
//STEP0100 EXEC PGM=DTSBD400, PERIODIC EXTRACT
// COND=(0,LT),
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//* 00001700
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP 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
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16384,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BE327.RPT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSF328 DD DSN=DOESTAX.&LVLNODE..FTP.R327,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(2,1),RLSE),
// DCB=(RECFM=FB,LRECL=114,BLKSIZE=11400)
//*
//SYSIN DD DDNAME=EXTPARM
//***********************************************************

61
Procs/DTSBE442 Normal file
View File

@ -0,0 +1,61 @@
//*****
//*
//* CFO AUDIT EXTRACT - DTSBE442
//*
//*****
//DTSBE442 PROC RUNTYPE='OR',
// PREBACK='N',
// CHKONLY='N',
// IOTRACE='N'
//*********************************************************************
//STEP0100 EXEC PGM=DTSBD400, PERIODIC EXTRACT
// COND=(0,LT),
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DUMMY
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DDNAME=EXTPARM
//**
//AGINGFLE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..DTSBE442.AGING,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(5000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=5000)
//**
//AUDTFILE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..DTSBE442.AUDIT,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(9700,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=97,BLKSIZE=9700)
//**
//QTRFILE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..DTSBE442.QTR,
//** DISP=(NEW,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(30300,(1000,1000),RLSE),
//* DCB=(RECFM=FB,LRECL=101,BLKSIZE=30300)
//**
//PAYFILE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..DTSBE442.PAY,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(9700,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=97,BLKSIZE=9700)
//**
//CREDFILE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..DTSBE442.CREDIT,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25800,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800)
//**

142
Procs/DTSBESSP Normal file
View File

@ -0,0 +1,142 @@
//***** 00010000
//* 00020000
//* UI TAX ESSP WEB EXTERNAL FILES BACKUP 00030003
//* 00040000
//* 09/09/2014 CREATE BACKUP PROC ZL1 00043203
//* 00044000
//***** 00050000
//DTSBESSP PROC BKUPGEN='(+1)', 00060004
// BCKNODE='BACKUP' 00060100
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, X102 BACKUP 00240103
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X102,DISP=SHR 00240406
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X102&BKUPGEN., 00240606
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240800
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00241204
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241306
//********************************************************************* 00241400
//STEP0120 EXEC PGM=SORT, X104 BACKUP 00241503
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X104,DISP=SHR 00243106
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X104&BKUPGEN., 00246006
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00249003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249106
//********************************************************************* 00249203
//STEP0130 EXEC PGM=SORT, X106 BACKUP 00249303
// COND=(0,LT) 00249403
//SYSOUT DD SYSOUT=* 00249503
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X106,DISP=SHR 00249606
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X106&BKUPGEN., 00249706
// DISP=(,CATLG,DELETE), 00249803
// UNIT=CART, 00249903
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00250003
// LABEL=(3,SL,,,EXPDT=99000), 00251003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00252003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00253006
//********************************************************************* 00260000
//STEP0140 EXEC PGM=SORT, X108 BACKUP 00270003
// COND=(0,LT) 00280003
//SYSOUT DD SYSOUT=* 00290003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X108,DISP=SHR 00300006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X108&BKUPGEN., 00310006
// DISP=(,CATLG,DELETE), 00320003
// UNIT=CART, 00330003
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00340003
// LABEL=(4,SL,,,EXPDT=99000), 00350003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00360003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00370006
//********************************************************************* 00371003
//STEP0150 EXEC PGM=SORT, X110 BACKUP 00372003
// COND=(0,LT) 00373003
//SYSOUT DD SYSOUT=* 00374003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X110,DISP=SHR 00375006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X110&BKUPGEN., 00376006
// DISP=(,CATLG,DELETE), 00377003
// UNIT=CART, 00378003
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00379003
// LABEL=(5,SL,,,EXPDT=99000), 00379103
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00379203
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00379306
//********************************************************************* 00379403
//STEP0160 EXEC PGM=SORT, X120 BACKUP 00379503
// COND=(0,LT) 00379603
//SYSOUT DD SYSOUT=* 00379703
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X120,DISP=SHR 00379806
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X120&BKUPGEN., 00379906
// DISP=(,CATLG,DELETE), 00380003
// UNIT=CART, 00381003
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 00382003
// LABEL=(6,SL,,,EXPDT=99000), 00383003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00384003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00385006
//********************************************************************* 00390003
//STEP0170 EXEC PGM=SORT, X140 BACKUP 00400003
// COND=(0,LT) 00410003
//SYSOUT DD SYSOUT=* 00420003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X140,DISP=SHR 00430006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X140&BKUPGEN., 00440006
// DISP=(,CATLG,DELETE), 00450003
// UNIT=CART, 00460003
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 00470003
// LABEL=(7,SL,,,EXPDT=99000), 00480003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00490003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00500006
//********************************************************************* 00510003
//STEP0180 EXEC PGM=SORT, X144 BACKUP 00520003
// COND=(0,LT) 00530003
//SYSOUT DD SYSOUT=* 00540003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X144,DISP=SHR 00550006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X144&BKUPGEN., 00560006
// DISP=(,CATLG,DELETE), 00570003
// UNIT=CART, 00580003
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 00590003
// LABEL=(8,SL,,,EXPDT=99000), 00600003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00610003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00620006
//********************************************************************* 00630003
//STEP0190 EXEC PGM=SORT, X145 BACKUP 00640003
// COND=(0,LT) 00650003
//SYSOUT DD SYSOUT=* 00660003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..FROMESSP.X145,DISP=SHR 00670006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FESSP.&BCKNODE..X145&BKUPGEN., 00680006
// DISP=(,CATLG,DELETE), 00690003
// UNIT=CART, 00700003
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 00710003
// LABEL=(9,SL,,,EXPDT=99000), 00720003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00730003
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00740006
//********************************************************************* 00750003
//STEP0200 EXEC PGM=SORT, X240.BTC BACKUP 00770004
// COND=(0,LT) 00780004
//SYSOUT DD SYSOUT=* 00790004
//SORTIN DD DSN=DOESTAX.&EXTNODE..ESSP.X420.BTC,DISP=SHR 00800006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..ESSP.&BCKNODE..X420.BTC&BKUPGEN., 00810006
// DISP=(,CATLG,DELETE), 00820004
// UNIT=CART, 00830004
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 00840004
// LABEL=(10,SL,,,EXPDT=99000), 00850004
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00861004
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00870006
//********************************************************************* 00871004
//STEP0210 EXEC PGM=SORT, X422.BTC BACKUP 00880004
// COND=(0,LT) 00890004
//SYSOUT DD SYSOUT=* 00900004
//SORTIN DD DSN=DOESTAX.&EXTNODE..ESSP.X422.BTC,DISP=SHR 00910006
//SORTOUT DD DSN=DOESTAX.&EXTNODE..ESSP.&BCKNODE..X422.BTC&BKUPGEN., 00920006
// DISP=(,CATLG,DELETE), 00930004
// UNIT=CART, 00940004
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 00950004
// LABEL=(11,SL,,,EXPDT=99000), 00960004
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00971004
//SYSIN DD DSN=DOESTAX.&EXTNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00980006

119
Procs/DTSBFWEB Normal file
View File

@ -0,0 +1,119 @@
//***** 00010000
//* 00020000
//* UI TAX ESSP WEB EXTERNAL FILES BACKUP 00030003
//* 00040000
//* 09/09/2014 CREATE BACKUP PROC ZL1 00043203
//* 00044000
//***** 00050000
//DTSBFWEB PROC BKUPGEN='(+1)', 00060003
// BCKNODE='BACKUP' 00060100
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, X102 BACKUP 00240103
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X102,DISP=SHR 00240403
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X102&BKUPGEN., 00240603
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240800
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00241103
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241200
//********************************************************************* 00241300
//STEP0120 EXEC PGM=SORT, X104 BACKUP 00241403
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X104,DISP=SHR 00243103
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X104&BKUPGEN., 00246003
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00249003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
//********************************************************************* 00249203
//STEP0130 EXEC PGM=SORT, X106 BACKUP 00249303
// COND=(0,LT) 00249403
//SYSOUT DD SYSOUT=* 00249503
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X106,DISP=SHR 00249603
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X106&BKUPGEN., 00249703
// DISP=(,CATLG,DELETE), 00249803
// UNIT=CART, 00249903
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00250003
// LABEL=(3,SL,,,EXPDT=99000), 00251003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00252003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00253003
//********************************************************************* 00260000
//STEP0140 EXEC PGM=SORT, X108 BACKUP 00270003
// COND=(0,LT) 00280003
//SYSOUT DD SYSOUT=* 00290003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X108,DISP=SHR 00300003
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X108&BKUPGEN., 00310003
// DISP=(,CATLG,DELETE), 00320003
// UNIT=CART, 00330003
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00340003
// LABEL=(4,SL,,,EXPDT=99000), 00350003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00360003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00370003
//********************************************************************* 00371003
//STEP0150 EXEC PGM=SORT, X110 BACKUP 00372003
// COND=(0,LT) 00373003
//SYSOUT DD SYSOUT=* 00374003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X110,DISP=SHR 00375003
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X110&BKUPGEN., 00376003
// DISP=(,CATLG,DELETE), 00377003
// UNIT=CART, 00378003
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00379003
// LABEL=(5,SL,,,EXPDT=99000), 00379103
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00379203
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00379303
//********************************************************************* 00379403
//STEP0160 EXEC PGM=SORT, X120 BACKUP 00379503
// COND=(0,LT) 00379603
//SYSOUT DD SYSOUT=* 00379703
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X120,DISP=SHR 00379803
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X120&BKUPGEN., 00379903
// DISP=(,CATLG,DELETE), 00380003
// UNIT=CART, 00381003
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 00382003
// LABEL=(6,SL,,,EXPDT=99000), 00383003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00384003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00385003
//********************************************************************* 00390003
//STEP0170 EXEC PGM=SORT, X140 BACKUP 00400003
// COND=(0,LT) 00410003
//SYSOUT DD SYSOUT=* 00420003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X140,DISP=SHR 00430003
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X140&BKUPGEN., 00440003
// DISP=(,CATLG,DELETE), 00450003
// UNIT=CART, 00460003
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 00470003
// LABEL=(7,SL,,,EXPDT=99000), 00480003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00490003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00500003
//********************************************************************* 00510003
//STEP0180 EXEC PGM=SORT, X144 BACKUP 00520003
// COND=(0,LT) 00530003
//SYSOUT DD SYSOUT=* 00540003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X144,DISP=SHR 00550003
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X144&BKUPGEN., 00560003
// DISP=(,CATLG,DELETE), 00570003
// UNIT=CART, 00580003
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 00590003
// LABEL=(8,SL,,,EXPDT=99000), 00600003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00610003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00620003
//********************************************************************* 00630003
//STEP0190 EXEC PGM=SORT, X145 BACKUP 00640003
// COND=(0,LT) 00650003
//SYSOUT DD SYSOUT=* 00660003
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FROMWEB.X145,DISP=SHR 00670003
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..FWEB.X145&BKUPGEN., 00680003
// DISP=(,CATLG,DELETE), 00690003
// UNIT=CART, 00700003
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 00710003
// LABEL=(9,SL,,,EXPDT=99000), 00720003
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 00730003
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00740003
//********************************************************************* 00750003

147
Procs/DTSBINIT Normal file
View File

@ -0,0 +1,147 @@
//****************************************************************** 00001700
//**DTSBINIT PROC
//****************************************************************** 00001700
//* THIS PROC WILL CREATE A NEW EMPTY FILES OF ALL EXTERNAL FILES 00001700
//* USED IN THE DAILY RUN DTSPDAY1 00001700
//****************************************************************** 00001700
//* 00001700
//STEP0100 EXEC PGM=IDCAMS, INITIALIZE EMPTY CONV.BTC
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0200 EXEC PGM=IDCAMS, INITIALIZE EMPTY CONV.WAGE.BTC
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.WAGE.BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0300 EXEC PGM=IDCAMS, INITIALIZE EMPTY BX210
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.FTP.BX210(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(2310,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0400 EXEC PGM=IDCAMS, INITIALIZE EMPTY BX212
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.FTP.BX212(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0500 EXEC PGM=IDCAMS, INITIALIZE EMPTY BX216
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.FTP.BX216(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0700 EXEC PGM=IDCAMS, INITIALIZE EMPTY RPT.R202
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.RPT.R202(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0800 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFR202 DD DSN=DOESTAX.PROD.RPT.R202,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0900 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFR202 DD DSN=DOESTAX.PROD.RPT.R202,
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182)
//*********************************************************************
//STEP0910 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.PROD.AUDIT.X144,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0920 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.PROD.AUDIT.X144,
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600)
//*********************************************************************
//STEP0930 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX440 DD DSN=DOESTAX.PROD.BX440.BTC,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0940 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX440 DD DSN=DOESTAX.PROD.BX440.BTC,
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182)
//*********************************************************************
//STEP0950 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX442 DD DSN=DOESTAX.PROD.BX442.BTC,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0960 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX442 DD DSN=DOESTAX.PROD.BX442.BTC,
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182)
//*********************************************************************
//STEP0970 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX442 DD DSN=DOESTAX.PROD.BX442.WAGE,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0980 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX442 DD DSN=DOESTAX.PROD.BX442.WAGE,
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//*********************************************************************
//STEP0985 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0990 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600)
//*********************************************************************
//STEP0986 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFD145 DD DSN=DOESTAX.PROD.BD145.BTC,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0987 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFA145 DD DSN=DOESTAX.PROD.BD145.BTC,
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*********************************************************************
//STEP0991 EXEC PGM=IDCAMS, INITIALIZE EMPTY EXTRQ
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.PROD.EXTRQ.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************

77
Procs/DTSBK770 Normal file
View File

@ -0,0 +1,77 @@
//*****
//* UI TAX PERIODIC EXTRACT: DATA VALIDATION
//*****
//DTSUX770 PROC RUNTYPE='OR',
// PREBACK='N',
// CHKONLY='N',
// IOTRACE='Y'
//****
//STEP0100 EXEC PGM=DTSBD400, PERIODIC EXTRACT
// COND=(0,LT),
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//*
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 01760006
// AMP=('BUFNI=5,BUFND=10') 01770006
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BE770TRN.&QTR,
// DISP=(,CATLG,DELETE),
// SPACE=(16384,(100,100),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//BE770PRM DD DSN=DOESTAX.&LVLNODE..BE770PRM.&QTR,
// DISP=(,CATLG,DELETE),
// SPACE=(77,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=77,BLKSIZE=77)
//DTSFVRO1 DD DUMMY
//SYSIN DD DDNAME=EXTPARM
//*********************************************************************
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..BE770TRN.&QTR,DISP=SHR
//SORTOUT DD DSN=&&BE770SRT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(16384,(100,100),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSY770),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
//*********************************************************************
//STEP0300 EXEC PGM=DTSBX770, BUILD RECONSTRUCTION FILE
// COND=(0,LT)
//*
//BE770PRM DD DSN=DOESTAX.&LVLNODE..BE770PRM.&QTR,DISP=SHR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 01760006
// AMP=('BUFNI=5,BUFND=10') 01770006
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFBTCI DD DSN=&&BE770SRT,
// DISP=(OLD,PASS,DELETE)
//DTSX771 DD DSN=DOESTAX.&LVLNODE..BX771TRN,
// DISP=(,CATLG,DELETE),
// SPACE=(23500,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=235,BLKSIZE=23500)
//DTSX772 DD DSN=DOESTAX.&LVLNODE..BX772TRN,
// DISP=(,CATLG,DELETE),
// SPACE=(24800,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=124,BLKSIZE=24800)
//DTSX773 DD DSN=DOESTAX.&LVLNODE..BX773TRN,
// DISP=(,CATLG,DELETE),
// SPACE=(16300,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=163,BLKSIZE=16300)
//DTSX774 DD DSN=DOESTAX.&LVLNODE..BX774TRN,
// DISP=(,CATLG,DELETE),
// SPACE=(23250,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=155,BLKSIZE=23250)
//DTSX775 DD DSN=DOESTAX.&LVLNODE..BX775TRN,
// DISP=(,CATLG,DELETE),
// SPACE=(24600,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=246,BLKSIZE=24600)

96
Procs/DTSBKCNV Normal file
View File

@ -0,0 +1,96 @@
//***** 00010000
//* 00020000
//* UI TAX CONV ONLY EXTERNAL FILES BACKUP 00030001
//* 00040000
//* 08/09/2012 CREATE BACKUP PROC ZL1 00043201
//* 00044000
//***** 00050000
//DTSBKEXT PROC BKUPGEN='(+1)', 00060000
// BCKNODE='BACKUP' 00060100
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, CONV.BTC BACKUP 00240100
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=DOESTAX.&EXTNODE..BTC,DISP=SHR 00240400
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..BTC&BKUPGEN., 00240600
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240800
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241100
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241200
//********************************************************************* 00241300
//STEP0120 EXEC PGM=SORT, WAGE.BTC BACKUP 00241400
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=DOESTAX.&EXTNODE..WAGE.BTC,DISP=SHR 00243100
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..WAGE.BTC&BKUPGEN., 00246000
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
//********************************************************************* 00249200
//STEP0130 EXEC PGM=SORT, BACKUP SUBMITTER FILE 00249300
// COND=(0,LT) 00249400
//SYSOUT DD SYSOUT=* 00249500
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX210,DISP=SHR 00249600
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX210&BKUPGEN., 00249800
// DISP=(,CATLG,DELETE), 00249900
// UNIT=CART, 00250000
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
// LABEL=(3,SL,,,EXPDT=99000), 00271000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290000
//********************************************************************* 00300000
//STEP0140 EXEC PGM=SORT, BACKUP EMPLOYER FILE 00310000
// COND=(0,LT) 00320000
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX212,DISP=SHR 00340000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX212&BKUPGEN., 00360000
// DISP=(,CATLG,DELETE), 00370000
// UNIT=CART, 00380000
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
// LABEL=(4,SL,,,EXPDT=99000), 00401000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420000
//********************************************************************* 00430000
//STEP0150 EXEC PGM=SORT, BACKUP MESSAGES FILE 00431000
// COND=(0,LT) 00432000
//SYSOUT DD SYSOUT=* 00433000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX216,DISP=SHR 00434000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX216&BKUPGEN., 00436000
// DISP=(,CATLG,DELETE), 00437000
// UNIT=CART, 00438000
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
// LABEL=(5,SL,,,EXPDT=99000), 00439200
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439400
//********************************************************************* 00439500
//STEP0160 EXEC PGM=SORT, BACKUP R202 RECS 01430000
// COND=(0,LT) 01440000
//SYSOUT DD SYSOUT=* 01450000
//SORTIN DD DSN=DOESTAX.&EXTNODE..RPT.R202,DISP=SHR 01460000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..RPT.R202&BKUPGEN., 01470000
// DISP=(,CATLG,DELETE), 01480000
// UNIT=CART, 01490000
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500000
// LABEL=(6,SL,,,EXPDT=99000), 01510000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530000
//********************************************************************* 01550001
//STEP0170 EXEC PGM=SORT, BACKUP AUDIT FILE 01560001
// COND=(0,LT) 01570001
//SYSOUT DD SYSOUT=* 01580001
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..AUDIT.X144,DISP=SHR 01590001
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..AUDIT.X144&BKUPGEN., 01600001
// DISP=(,CATLG,DELETE), 01610001
// UNIT=CART, 01620001
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01630001
// LABEL=(7,SL,,,EXPDT=99000), 01640001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 01650001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01660001
//********************************************************************* 01670001
//**********************END PROC - ZL1********************************* 01680001

275
Procs/DTSBKEXT Normal file
View File

@ -0,0 +1,275 @@
//***** 00010000
//* 00020000
//* UI TAX EXTERNAL FILES BACKUP 00030001
//* 00040000
//* 05/15/2009 CREATE BACKUP PROC ZL1 00043201
//* 00044000
//***** 00050000
//DTSBKEXT PROC BKUPGEN='(+1)', 00060006
// BCKNODE='BACKUP' 00060107
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, CONV.BTC BACKUP 00240102
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=DOESTAX.&EXTNODE..BTC,DISP=SHR 00240407
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..BTC&BKUPGEN., 00240616
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240808
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241102
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241204
//********************************************************************* 00241300
//STEP0120 EXEC PGM=SORT, WAGE.BTC BACKUP 00241402
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=DOESTAX.&EXTNODE..WAGE.BTC,DISP=SHR 00243107
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..WAGE.BTC&BKUPGEN., 00246015
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248008
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249002
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249104
//********************************************************************* 00249200
//STEP0130 EXEC PGM=SORT, BACKUP SUBMITTER FILE 00249302
// COND=(0,LT) 00249400
//SYSOUT DD SYSOUT=* 00249500
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX210,DISP=SHR 00249607
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX210&BKUPGEN., 00249815
// DISP=(,CATLG,DELETE), 00249900
// UNIT=CART, 00250008
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
// LABEL=(3,SL,,,EXPDT=99000), 00271000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280002
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290004
//********************************************************************* 00300000
//STEP0140 EXEC PGM=SORT, BACKUP EMPLOYER FILE 00310002
// COND=(0,LT) 00320000
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX212,DISP=SHR 00340007
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX212&BKUPGEN., 00360015
// DISP=(,CATLG,DELETE), 00370000
// UNIT=CART, 00380008
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
// LABEL=(4,SL,,,EXPDT=99000), 00401000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410002
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420004
//********************************************************************* 00430000
//STEP0150 EXEC PGM=SORT, BACKUP MESSAGES FILE 00431002
// COND=(0,LT) 00432000
//SYSOUT DD SYSOUT=* 00433000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX216,DISP=SHR 00434007
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX216&BKUPGEN., 00436015
// DISP=(,CATLG,DELETE), 00437000
// UNIT=CART, 00438008
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
// LABEL=(5,SL,,,EXPDT=99000), 00439200
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439302
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439404
//********************************************************************* 00439500
//STEP0160 EXEC PGM=SORT, BACKUP R202 RECS 01430009
// COND=(0,LT) 01440009
//SYSOUT DD SYSOUT=* 01450009
//SORTIN DD DSN=DOESTAX.&EXTNODE..RPT.R202,DISP=SHR 01460009
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..RPT.R202&BKUPGEN., 01470015
// DISP=(,CATLG,DELETE), 01480009
// UNIT=CART, 01490009
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500009
// LABEL=(6,SL,,,EXPDT=99000), 01510009
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520009
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530009
//********************************************************************* 01531009
//STEP0170 EXEC PGM=SORT, EMPLOYER ON WEB DB 01540009
// COND=(0,LT) 01550009
//SYSOUT DD SYSOUT=* 01560009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101,DISP=SHR 01570009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X101&BKUPGEN., 01580012
// DISP=(,CATLG,DELETE), 01590009
// UNIT=CART, 01600009
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01610009
// LABEL=(7,SL,,,EXPDT=99000), 01620009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=6,BLKSIZE=6000) 01630010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01640009
//****************************************************************** 01650009
//STEP0180 EXEC PGM=SORT, REGISTRATION PROFILE 01660009
// COND=(0,LT) 01670009
//SYSOUT DD SYSOUT=* 01680009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,DISP=SHR 01690009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X102&BKUPGEN., 01700012
// DISP=(,CATLG,DELETE), 01710009
// UNIT=CART, 01720009
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 01730009
// LABEL=(8,SL,,,EXPDT=99000), 01740009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01750010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01760009
//****************************************************************** 01770009
//STEP0190 EXEC PGM=SORT, REGISTRATION DETERMINATIONS 01780009
// COND=(0,LT) 01790009
//SYSOUT DD SYSOUT=* 01800009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,DISP=SHR 01810009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X104&BKUPGEN., 01820012
// DISP=(,CATLG,DELETE), 01830009
// UNIT=CART, 01840009
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 01850009
// LABEL=(9,SL,,,EXPDT=99000), 01860009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01870013
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01880009
//****************************************************************** 01881009
//STEP0200 EXEC PGM=SORT, REGISTRATION EMP NAME 01882009
// COND=(0,LT) 01883009
//SYSOUT DD SYSOUT=* 01884009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,DISP=SHR 01885009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X106&BKUPGEN., 01886012
// DISP=(,CATLG,DELETE), 01887009
// UNIT=CART, 01888009
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 01889009
// LABEL=(10,SL,,,EXPDT=99000), 01889109
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01889210
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01889309
//****************************************************************** 01889409
//STEP0210 EXEC PGM=SORT, REGISTRATION RATES 01889509
// COND=(0,LT) 01889609
//SYSOUT DD SYSOUT=* 01889709
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,DISP=SHR 01889809
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X108&BKUPGEN., 01889912
// DISP=(,CATLG,DELETE), 01890009
// UNIT=CART, 01891009
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 01892009
// LABEL=(11,SL,,,EXPDT=99000), 01893009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01894010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01895009
//****************************************************************** 01896009
//STEP0220 EXEC PGM=SORT, REGISTRATION EMP ADDRESS 01897009
// COND=(0,LT) 01898009
//SYSOUT DD SYSOUT=* 01899009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,DISP=SHR 01899109
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X110&BKUPGEN., 01899212
// DISP=(,CATLG,DELETE), 01899309
// UNIT=CART, 01899409
// VOLUME=(,RETAIN,REF=*.STEP0210.SORTOUT), 01899509
// LABEL=(12,SL,,,EXPDT=99000), 01899609
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01899710
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01899809
//****************************************************************** 01899909
//STEP0230 EXEC PGM=SORT, REGISTRATION OPO 01900009
// COND=(0,LT) 01901009
//SYSOUT DD SYSOUT=* 01902009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,DISP=SHR 01903009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X120&BKUPGEN., 01904012
// DISP=(,CATLG,DELETE), 01905009
// UNIT=CART, 01906009
// VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01907009
// LABEL=(13,SL,,,EXPDT=99000), 01908009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01909010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01909109
//****************************************************************** 01909209
//STEP0240 EXEC PGM=SORT, REPORTS 01909309
// COND=(0,LT) 01909409
//SYSOUT DD SYSOUT=* 01909509
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,DISP=SHR 01909609
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X140&BKUPGEN., 01909712
// DISP=(,CATLG,DELETE), 01909809
// UNIT=CART, 01909909
// VOLUME=(,RETAIN,REF=*.STEP0230.SORTOUT), 01910009
// LABEL=(14,SL,,,EXPDT=99000), 01911009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01912010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01913009
//****************************************************************** 01914009
//STEP0250 EXEC PGM=SORT, WAGES 01915009
// COND=(0,LT) 01916009
//SYSOUT DD SYSOUT=* 01917009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,DISP=SHR 01918009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X144&BKUPGEN., 01919012
// DISP=(,CATLG,DELETE), 01919109
// UNIT=CART, 01919209
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01919309
// LABEL=(15,SL,,,EXPDT=99000), 01919409
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01919510
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01919609
//****************************************************************** 01919709
//STEP0260 EXEC PGM=SORT, PAYMENTS 01919809
// COND=(0,LT) 01919909
//SYSOUT DD SYSOUT=* 01920009
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,DISP=SHR 01921009
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X145&BKUPGEN., 01922012
// DISP=(,CATLG,DELETE), 01923009
// UNIT=CART, 01924009
// VOLUME=(,RETAIN,REF=*.STEP0250.SORTOUT), 01925009
// LABEL=(16,SL,,,EXPDT=99000), 01926009
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01927010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01928009
//****************************************************************** 01929009
//STEP0270 EXEC PGM=SORT, BATCH HEADERS 01929109
// COND=(0,LT) 01929209
//SYSOUT DD SYSOUT=* 01929309
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149,DISP=SHR 01929409
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X149&BKUPGEN., 01929512
// DISP=(,CATLG,DELETE), 01929609
// UNIT=CART, 01929709
// VOLUME=(,RETAIN,REF=*.STEP0260.SORTOUT), 01929809
// LABEL=(17,SL,,,EXPDT=99000), 01929909
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01930010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01931009
//****************************************************************** 01932010
//STEP0280 EXEC PGM=SORT, BATCH HEADERS 01933010
// COND=(0,LT) 01934010
//SYSOUT DD SYSOUT=* 01935010
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144,DISP=SHR 01936010
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X144&BKUPGEN., 01937011
// DISP=(,CATLG,DELETE), 01938010
// UNIT=CART, 01939010
// VOLUME=(,RETAIN,REF=*.STEP0270.SORTOUT), 01939110
// LABEL=(18,SL,,,EXPDT=99000), 01939210
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01939310
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01939410
//****************************************************************** 01939510
//STEP0290 EXEC PGM=SORT, BATCH HEADERS 01939610
// COND=(0,LT) 01939710
//SYSOUT DD SYSOUT=* 01939810
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,DISP=SHR 01939910
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X150&BKUPGEN., 01940011
// DISP=(,CATLG,DELETE), 01941010
// UNIT=CART, 01942010
// VOLUME=(,RETAIN,REF=*.STEP0280.SORTOUT), 01943010
// LABEL=(19,SL,,,EXPDT=99000), 01944010
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01945010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01946010
//****************************************************************** 01947010
//STEP0300 EXEC PGM=SORT, BATCH HEADERS 01948010
// COND=(0,LT) 01949010
//SYSOUT DD SYSOUT=* 01949110
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,DISP=SHR 01949210
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X151&BKUPGEN., 01949311
// DISP=(,CATLG,DELETE), 01949410
// UNIT=CART, 01949510
// VOLUME=(,RETAIN,REF=*.STEP0290.SORTOUT), 01949610
// LABEL=(20,SL,,,EXPDT=99000), 01949710
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01949810
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01949910
//****************************************************************** 01950010
//STEP0310 EXEC PGM=SORT, BATCH HEADERS 01951010
// COND=(0,LT) 01952010
//SYSOUT DD SYSOUT=* 01953010
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,DISP=SHR 01954010
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X152&BKUPGEN., 01955011
// DISP=(,CATLG,DELETE), 01956010
// UNIT=CART, 01957010
// VOLUME=(,RETAIN,REF=*.STEP0300.SORTOUT), 01958010
// LABEL=(21,SL,,,EXPDT=99000), 01959010
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01959110
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01959210
//****************************************************************** 01959310
//STEP0320 EXEC PGM=SORT, BATCH HEADERS 01959410
// COND=(0,LT) 01959510
//SYSOUT DD SYSOUT=* 01959610
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155,DISP=SHR 01959710
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X155&BKUPGEN., 01959811
// DISP=(,CATLG,DELETE), 01959910
// UNIT=CART, 01960010
// VOLUME=(,RETAIN,REF=*.STEP0310.SORTOUT), 01961010
// LABEL=(22,SL,,,EXPDT=99000), 01962010
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01963010
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01964010
//****************************************************************** 01970009

275
Procs/DTSBKPRD Normal file
View File

@ -0,0 +1,275 @@
//***** 00010000
//* 00020000
//* UI TAX EXTERNAL PROD AND PROD.CONV FILES BACKUP 00030001
//* 00040000
//* 08/09/2012 CREATE BACKUP PRODUCTION EXTERNAL FILES ZL1 00043201
//* 00044000
//***** 00050000
//DTSBKEXT PROC BKUPGEN='(+1)', 00060000
// BCKNODE='BACKUP' 00060100
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, PROD.CONV.BTC BACKUP 00240101
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=DOESTAX.&FTPNODE..CONV.BTC,DISP=SHR 00240401
//SORTOUT DD DSN=DOESTAX.&FTPNODE..BKUPCONV.BTC&BKUPGEN., 00240602
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240800
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241100
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241200
//********************************************************************* 00241300
//STEP0120 EXEC PGM=SORT, PROD.WAGE.BTC BACKUP 00241401
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=DOESTAX.&FTPNODE..CONV.WAGE.BTC,DISP=SHR 00243101
//SORTOUT DD DSN=DOESTAX.&FTPNODE..BKUPCONV.WAGE.BTC&BKUPGEN., 00246002
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
//********************************************************************* 00249200
//STEP0130 EXEC PGM=SORT, BACKUP PROD.CONV SUBMITTER FILE 00249301
// COND=(0,LT) 00249400
//SYSOUT DD SYSOUT=* 00249500
//SORTIN DD DSN=DOESTAX.&FTPNODE..CONV.FTP.BX210,DISP=SHR 00249601
//SORTOUT DD DSN=DOESTAX.&FTPNODE..BKUPCONV.FTP.BX210&BKUPGEN., 00249802
// DISP=(,CATLG,DELETE), 00249900
// UNIT=CART, 00250000
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
// LABEL=(3,SL,,,EXPDT=99000), 00271000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290000
//********************************************************************* 00300000
//STEP0140 EXEC PGM=SORT, BACKUP PROD.CONV EMPLOYER FILE 00310001
// COND=(0,LT) 00320000
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.&FTPNODE..CONV.FTP.BX212,DISP=SHR 00340001
//SORTOUT DD DSN=DOESTAX.&FTPNODE..BKUPCONV.FTP.BX212&BKUPGEN., 00360002
// DISP=(,CATLG,DELETE), 00370000
// UNIT=CART, 00380000
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
// LABEL=(4,SL,,,EXPDT=99000), 00401000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420000
//********************************************************************* 00430000
//STEP0150 EXEC PGM=SORT, BACKUP PROD.CONV MESSAGES FILE 00431001
// COND=(0,LT) 00432000
//SYSOUT DD SYSOUT=* 00433000
//SORTIN DD DSN=DOESTAX.&FTPNODE..CONV.FTP.BX216,DISP=SHR 00434001
//SORTOUT DD DSN=DOESTAX.&FTPNODE..BKUPCONV.FTP.BX216&BKUPGEN., 00436002
// DISP=(,CATLG,DELETE), 00437000
// UNIT=CART, 00438000
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
// LABEL=(5,SL,,,EXPDT=99000), 00439200
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439400
//********************************************************************* 00439500
//STEP0160 EXEC PGM=SORT, BACKUP PROD.CONV R202 FILE 01430001
// COND=(0,LT) 01440000
//SYSOUT DD SYSOUT=* 01450000
//SORTIN DD DSN=DOESTAX.&FTPNODE..CONV.RPT.R202,DISP=SHR 01460001
//SORTOUT DD DSN=DOESTAX.&FTPNODE..BKUPCONV.RPT.R202&BKUPGEN., 01470002
// DISP=(,CATLG,DELETE), 01480000
// UNIT=CART, 01490000
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500000
// LABEL=(6,SL,,,EXPDT=99000), 01510000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530000
//********************************************************************* 01531000
//STEP0170 EXEC PGM=SORT, EMPLOYER ON WEB DB 01540000
// COND=(0,LT) 01550000
//SYSOUT DD SYSOUT=* 01560000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101,DISP=SHR 01570000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X101&BKUPGEN., 01580000
// DISP=(,CATLG,DELETE), 01590000
// UNIT=CART, 01600000
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01610000
// LABEL=(7,SL,,,EXPDT=99000), 01620000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=6,BLKSIZE=6000) 01630000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01640000
//****************************************************************** 01650000
//STEP0180 EXEC PGM=SORT, REGISTRATION PROFILE 01660000
// COND=(0,LT) 01670000
//SYSOUT DD SYSOUT=* 01680000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,DISP=SHR 01690000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X102&BKUPGEN., 01700000
// DISP=(,CATLG,DELETE), 01710000
// UNIT=CART, 01720000
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 01730000
// LABEL=(8,SL,,,EXPDT=99000), 01740000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01750000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01760000
//****************************************************************** 01770000
//STEP0190 EXEC PGM=SORT, REGISTRATION DETERMINATIONS 01780000
// COND=(0,LT) 01790000
//SYSOUT DD SYSOUT=* 01800000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,DISP=SHR 01810000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X104&BKUPGEN., 01820000
// DISP=(,CATLG,DELETE), 01830000
// UNIT=CART, 01840000
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 01850000
// LABEL=(9,SL,,,EXPDT=99000), 01860000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01870000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01880000
//****************************************************************** 01881000
//STEP0200 EXEC PGM=SORT, REGISTRATION EMP NAME 01882000
// COND=(0,LT) 01883000
//SYSOUT DD SYSOUT=* 01884000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,DISP=SHR 01885000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X106&BKUPGEN., 01886000
// DISP=(,CATLG,DELETE), 01887000
// UNIT=CART, 01888000
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 01889000
// LABEL=(10,SL,,,EXPDT=99000), 01889100
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01889200
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01889300
//****************************************************************** 01889400
//STEP0210 EXEC PGM=SORT, REGISTRATION RATES 01889500
// COND=(0,LT) 01889600
//SYSOUT DD SYSOUT=* 01889700
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,DISP=SHR 01889800
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X108&BKUPGEN., 01889900
// DISP=(,CATLG,DELETE), 01890000
// UNIT=CART, 01891000
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 01892000
// LABEL=(11,SL,,,EXPDT=99000), 01893000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01894000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01895000
//****************************************************************** 01896000
//STEP0220 EXEC PGM=SORT, REGISTRATION EMP ADDRESS 01897000
// COND=(0,LT) 01898000
//SYSOUT DD SYSOUT=* 01899000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,DISP=SHR 01899100
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X110&BKUPGEN., 01899200
// DISP=(,CATLG,DELETE), 01899300
// UNIT=CART, 01899400
// VOLUME=(,RETAIN,REF=*.STEP0210.SORTOUT), 01899500
// LABEL=(12,SL,,,EXPDT=99000), 01899600
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01899700
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01899800
//****************************************************************** 01899900
//STEP0230 EXEC PGM=SORT, REGISTRATION OPO 01900000
// COND=(0,LT) 01901000
//SYSOUT DD SYSOUT=* 01902000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,DISP=SHR 01903000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X120&BKUPGEN., 01904000
// DISP=(,CATLG,DELETE), 01905000
// UNIT=CART, 01906000
// VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01907000
// LABEL=(13,SL,,,EXPDT=99000), 01908000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01909000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01909100
//****************************************************************** 01909200
//STEP0240 EXEC PGM=SORT, REPORTS 01909300
// COND=(0,LT) 01909400
//SYSOUT DD SYSOUT=* 01909500
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,DISP=SHR 01909600
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X140&BKUPGEN., 01909700
// DISP=(,CATLG,DELETE), 01909800
// UNIT=CART, 01909900
// VOLUME=(,RETAIN,REF=*.STEP0230.SORTOUT), 01910000
// LABEL=(14,SL,,,EXPDT=99000), 01911000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01912000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01913000
//****************************************************************** 01914000
//STEP0250 EXEC PGM=SORT, WAGES 01915000
// COND=(0,LT) 01916000
//SYSOUT DD SYSOUT=* 01917000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,DISP=SHR 01918000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X144&BKUPGEN., 01919000
// DISP=(,CATLG,DELETE), 01919100
// UNIT=CART, 01919200
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01919300
// LABEL=(15,SL,,,EXPDT=99000), 01919400
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01919500
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01919600
//****************************************************************** 01919700
//STEP0260 EXEC PGM=SORT, PAYMENTS 01919800
// COND=(0,LT) 01919900
//SYSOUT DD SYSOUT=* 01920000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,DISP=SHR 01921000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X145&BKUPGEN., 01922000
// DISP=(,CATLG,DELETE), 01923000
// UNIT=CART, 01924000
// VOLUME=(,RETAIN,REF=*.STEP0250.SORTOUT), 01925000
// LABEL=(16,SL,,,EXPDT=99000), 01926000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01927000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01928000
//****************************************************************** 01929000
//STEP0270 EXEC PGM=SORT, BATCH HEADERS 01929100
// COND=(0,LT) 01929200
//SYSOUT DD SYSOUT=* 01929300
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149,DISP=SHR 01929400
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X149&BKUPGEN., 01929500
// DISP=(,CATLG,DELETE), 01929600
// UNIT=CART, 01929700
// VOLUME=(,RETAIN,REF=*.STEP0260.SORTOUT), 01929800
// LABEL=(17,SL,,,EXPDT=99000), 01929900
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01930000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01931000
//****************************************************************** 01932000
//STEP0280 EXEC PGM=SORT, BATCH HEADERS 01933000
// COND=(0,LT) 01934000
//SYSOUT DD SYSOUT=* 01935000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144,DISP=SHR 01936000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X144&BKUPGEN., 01937000
// DISP=(,CATLG,DELETE), 01938000
// UNIT=CART, 01939000
// VOLUME=(,RETAIN,REF=*.STEP0270.SORTOUT), 01939100
// LABEL=(18,SL,,,EXPDT=99000), 01939200
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01939300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01939400
//****************************************************************** 01939500
//STEP0290 EXEC PGM=SORT, BATCH HEADERS 01939600
// COND=(0,LT) 01939700
//SYSOUT DD SYSOUT=* 01939800
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,DISP=SHR 01939900
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X150&BKUPGEN., 01940000
// DISP=(,CATLG,DELETE), 01941000
// UNIT=CART, 01942000
// VOLUME=(,RETAIN,REF=*.STEP0280.SORTOUT), 01943000
// LABEL=(19,SL,,,EXPDT=99000), 01944000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01945000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01946000
//****************************************************************** 01947000
//STEP0300 EXEC PGM=SORT, BATCH HEADERS 01948000
// COND=(0,LT) 01949000
//SYSOUT DD SYSOUT=* 01949100
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,DISP=SHR 01949200
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X151&BKUPGEN., 01949300
// DISP=(,CATLG,DELETE), 01949400
// UNIT=CART, 01949500
// VOLUME=(,RETAIN,REF=*.STEP0290.SORTOUT), 01949600
// LABEL=(20,SL,,,EXPDT=99000), 01949700
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01949800
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01949900
//****************************************************************** 01950000
//STEP0310 EXEC PGM=SORT, BATCH HEADERS 01951000
// COND=(0,LT) 01952000
//SYSOUT DD SYSOUT=* 01953000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,DISP=SHR 01954000
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X152&BKUPGEN., 01955000
// DISP=(,CATLG,DELETE), 01956000
// UNIT=CART, 01957000
// VOLUME=(,RETAIN,REF=*.STEP0300.SORTOUT), 01958000
// LABEL=(21,SL,,,EXPDT=99000), 01959000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01959100
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01959200
//****************************************************************** 01959300
//STEP0320 EXEC PGM=SORT, BATCH HEADERS 01959400
// COND=(0,LT) 01959500
//SYSOUT DD SYSOUT=* 01959600
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155,DISP=SHR 01959700
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X155&BKUPGEN., 01959800
// DISP=(,CATLG,DELETE), 01959900
// UNIT=CART, 01960000
// VOLUME=(,RETAIN,REF=*.STEP0310.SORTOUT), 01961000
// LABEL=(22,SL,,,EXPDT=99000), 01962000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01963000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01964000
//****************************************************************** 01970000

215
Procs/DTSBKZXT Normal file
View File

@ -0,0 +1,215 @@
//***** 00010000
//* 00020000
//* UI TAX EXTERNAL FILES BACKUP 00030000
//* 00040000
//* 05/15/2009 CREATE BACKUP PROC ZL1 00043200
//* 00044000
//***** 00050000
//DTSBKEXT PROC BKUPGEN='(+1)', 00060000
// BCKNODE='BACKUP' 00060100
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, CONV.BTC BACKUP 00240100
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=DOESTAX.&EXTNODE..BTC,DISP=SHR 00240400
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..BTC&BKUPGEN., 00240600
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240800
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241100
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241200
//********************************************************************* 00241300
//STEP0120 EXEC PGM=SORT, WAGE.BTC BACKUP 00241400
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=DOESTAX.&EXTNODE..WAGE.BTC,DISP=SHR 00243100
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..WAGE.BTC&BKUPGEN., 00246000
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
//********************************************************************* 00249200
//STEP0130 EXEC PGM=SORT, BACKUP SUBMITTER FILE 00249300
// COND=(0,LT) 00249400
//SYSOUT DD SYSOUT=* 00249500
//SORTIN DD DSN=DOESTAX.&FTPNODE..FTP.BX210,DISP=SHR 00249601
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.BX210&BKUPGEN., 00249801
// DISP=(,CATLG,DELETE), 00249900
// UNIT=CART, 00250000
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
// LABEL=(3,SL,,,EXPDT=99000), 00271000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290000
//********************************************************************* 00300000
//STEP0140 EXEC PGM=SORT, BACKUP EMPLOYER FILE 00310000
// COND=(0,LT) 00320000
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX212,DISP=SHR 00340000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX212&BKUPGEN., 00360000
// DISP=(,CATLG,DELETE), 00370000
// UNIT=CART, 00380000
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
// LABEL=(4,SL,,,EXPDT=99000), 00401000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420000
//********************************************************************* 00430000
//STEP0150 EXEC PGM=SORT, BACKUP MESSAGES FILE 00431000
// COND=(0,LT) 00432000
//SYSOUT DD SYSOUT=* 00433000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX216,DISP=SHR 00434000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX216&BKUPGEN., 00436000
// DISP=(,CATLG,DELETE), 00437000
// UNIT=CART, 00438000
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
// LABEL=(5,SL,,,EXPDT=99000), 00439200
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439400
//********************************************************************* 00439500
//STEP0160 EXEC PGM=SORT, BACKUP R202 RECS 01430000
// COND=(0,LT) 01440000
//SYSOUT DD SYSOUT=* 01450000
//SORTIN DD DSN=DOESTAX.&EXTNODE..RPT.R202,DISP=SHR 01460000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..RPT.R202&BKUPGEN., 01470000
// DISP=(,CATLG,DELETE), 01480000
// UNIT=CART, 01490000
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500000
// LABEL=(6,SL,,,EXPDT=99000), 01510000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530000
//********************************************************************* 01531000
//STEP0170 EXEC PGM=SORT, EMPLOYER ON WEB DB 01540000
// COND=(0,LT) 01550000
//SYSOUT DD SYSOUT=* 01560000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101,DISP=SHR 01570000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X101&BKUPGEN., 01580000
// DISP=(,CATLG,DELETE), 01590000
// UNIT=CART, 01600000
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01610000
// LABEL=(7,SL,,,EXPDT=99000), 01620000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01630000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01640000
//****************************************************************** 01650000
//STEP0180 EXEC PGM=SORT, REGISTRATION PROFILE 01660000
// COND=(0,LT) 01670000
//SYSOUT DD SYSOUT=* 01680000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,DISP=SHR 01690000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X102&BKUPGEN., 01700000
// DISP=(,CATLG,DELETE), 01710000
// UNIT=CART, 01720000
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 01730000
// LABEL=(8,SL,,,EXPDT=99000), 01740000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01750000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01760000
//****************************************************************** 01770000
//STEP0190 EXEC PGM=SORT, REGISTRATION DETERMINATIONS 01780000
// COND=(0,LT) 01790000
//SYSOUT DD SYSOUT=* 01800000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,DISP=SHR 01810000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X104&BKUPGEN., 01820000
// DISP=(,CATLG,DELETE), 01830000
// UNIT=CART, 01840000
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 01850000
// LABEL=(9,SL,,,EXPDT=99000), 01860000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01870000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01880000
//****************************************************************** 01881000
//STEP0200 EXEC PGM=SORT, REGISTRATION EMP NAME 01882000
// COND=(0,LT) 01883000
//SYSOUT DD SYSOUT=* 01884000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,DISP=SHR 01885000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X106&BKUPGEN., 01886000
// DISP=(,CATLG,DELETE), 01887000
// UNIT=CART, 01888000
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 01889000
// LABEL=(10,SL,,,EXPDT=99000), 01889100
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01889200
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01889300
//****************************************************************** 01889400
//STEP0210 EXEC PGM=SORT, REGISTRATION RATES 01889500
// COND=(0,LT) 01889600
//SYSOUT DD SYSOUT=* 01889700
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,DISP=SHR 01889800
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X108&BKUPGEN., 01889900
// DISP=(,CATLG,DELETE), 01890000
// UNIT=CART, 01891000
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 01892000
// LABEL=(11,SL,,,EXPDT=99000), 01893000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01894000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01895000
//****************************************************************** 01896000
//STEP0220 EXEC PGM=SORT, REGISTRATION EMP ADDRESS 01897000
// COND=(0,LT) 01898000
//SYSOUT DD SYSOUT=* 01899000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,DISP=SHR 01899100
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X110&BKUPGEN., 01899200
// DISP=(,CATLG,DELETE), 01899300
// UNIT=CART, 01899400
// VOLUME=(,RETAIN,REF=*.STEP0210.SORTOUT), 01899500
// LABEL=(12,SL,,,EXPDT=99000), 01899600
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01899700
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01899800
//****************************************************************** 01899900
//STEP0230 EXEC PGM=SORT, REGISTRATION OPO 01900000
// COND=(0,LT) 01901000
//SYSOUT DD SYSOUT=* 01902000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,DISP=SHR 01903000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X120&BKUPGEN., 01904000
// DISP=(,CATLG,DELETE), 01905000
// UNIT=CART, 01906000
// VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01907000
// LABEL=(13,SL,,,EXPDT=99000), 01908000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01909000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01909100
//****************************************************************** 01909200
//STEP0240 EXEC PGM=SORT, REPORTS 01909300
// COND=(0,LT) 01909400
//SYSOUT DD SYSOUT=* 01909500
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,DISP=SHR 01909600
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X140&BKUPGEN., 01909700
// DISP=(,CATLG,DELETE), 01909800
// UNIT=CART, 01909900
// VOLUME=(,RETAIN,REF=*.STEP0230.SORTOUT), 01910000
// LABEL=(14,SL,,,EXPDT=99000), 01911000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01912000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01913000
//****************************************************************** 01914000
//STEP0250 EXEC PGM=SORT, WAGES 01915000
// COND=(0,LT) 01916000
//SYSOUT DD SYSOUT=* 01917000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,DISP=SHR 01918000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X144&BKUPGEN., 01919000
// DISP=(,CATLG,DELETE), 01919100
// UNIT=CART, 01919200
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01919300
// LABEL=(15,SL,,,EXPDT=99000), 01919400
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01919500
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01919600
//****************************************************************** 01919700
//STEP0260 EXEC PGM=SORT, PAYMENTS 01919800
// COND=(0,LT) 01919900
//SYSOUT DD SYSOUT=* 01920000
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,DISP=SHR 01921000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X145&BKUPGEN., 01922000
// DISP=(,CATLG,DELETE), 01923000
// UNIT=CART, 01924000
// VOLUME=(,RETAIN,REF=*.STEP0250.SORTOUT), 01925000
// LABEL=(16,SL,,,EXPDT=99000), 01926000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01927000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01928000
//****************************************************************** 01929000
//STEP0270 EXEC PGM=SORT, BATCH HEADERS 01929100
// COND=(0,LT) 01929200
//SYSOUT DD SYSOUT=* 01929300
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149,DISP=SHR 01929400
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..X149&BKUPGEN., 01929500
// DISP=(,CATLG,DELETE), 01929600
// UNIT=CART, 01929700
// VOLUME=(,RETAIN,REF=*.STEP0260.SORTOUT), 01929800
// LABEL=(17,SL,,,EXPDT=99000), 01929900
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01930000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01931000
//****************************************************************** 01940000

264
Procs/DTSBLCNV Normal file
View File

@ -0,0 +1,264 @@
//***** 00010000
//* 00020000
//* UI TAX CONV ONLY EXTERNAL FILES BACKUP 00030000
//* 00040000
//* 08/09/2012 CREATE BACKUP PROC ZL1 00043200
//* 00044000
//***** 00050000
//DTSBKEXT PROC BKUPGEN='(+1)', 00060000
// BCKNODE='BACKUP' 00060100
//* 00061000
//********************************************************************* 00100000
//STEP0110 EXEC PGM=SORT, CONV.BTC BACKUP 00240100
// COND=(0,LT) 00240200
//SYSOUT DD SYSOUT=* 00240300
//SORTIN DD DSN=DOESTAX.&EXTNODE..BTC,DISP=SHR 00240400
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..BTC&BKUPGEN., 00240600
// DISP=(,CATLG,DELETE), 00240700
// UNIT=CART, 00240800
// VOLUME=(,RETAIN), 00240900
// LABEL=(1,SL,,,EXPDT=99000), 00241000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241100
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241200
//********************************************************************* 00241300
//STEP0120 EXEC PGM=SORT, WAGE.BTC BACKUP 00241400
// COND=(0,LT) 00242000
//SYSOUT DD SYSOUT=* 00243000
//SORTIN DD DSN=DOESTAX.&EXTNODE..WAGE.BTC,DISP=SHR 00243100
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..WAGE.BTC&BKUPGEN., 00246000
// DISP=(,CATLG,DELETE), 00247000
// UNIT=CART, 00248000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
// LABEL=(2,SL,,,EXPDT=99000), 00248300
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
//********************************************************************* 00249200
//STEP0130 EXEC PGM=SORT, BACKUP SUBMITTER FILE 00249300
// COND=(0,LT) 00249400
//SYSOUT DD SYSOUT=* 00249500
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX210,DISP=SHR 00249600
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX210&BKUPGEN., 00249800
// DISP=(,CATLG,DELETE), 00249900
// UNIT=CART, 00250000
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
// LABEL=(3,SL,,,EXPDT=99000), 00271000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290000
//********************************************************************* 00300000
//STEP0140 EXEC PGM=SORT, BACKUP EMPLOYER FILE 00310000
// COND=(0,LT) 00320000
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX212,DISP=SHR 00340000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX212&BKUPGEN., 00360000
// DISP=(,CATLG,DELETE), 00370000
// UNIT=CART, 00380000
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
// LABEL=(4,SL,,,EXPDT=99000), 00401000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420000
//********************************************************************* 00430000
//STEP0150 EXEC PGM=SORT, BACKUP MESSAGES FILE 00431000
// COND=(0,LT) 00432000
//SYSOUT DD SYSOUT=* 00433000
//SORTIN DD DSN=DOESTAX.&EXTNODE..FTP.BX216,DISP=SHR 00434000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX216&BKUPGEN., 00436000
// DISP=(,CATLG,DELETE), 00437000
// UNIT=CART, 00438000
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
// LABEL=(5,SL,,,EXPDT=99000), 00439200
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439400
//********************************************************************* 00439500
//STEP0160 EXEC PGM=SORT, BACKUP R202 RECS 01430000
// COND=(0,LT) 01440000
//SYSOUT DD SYSOUT=* 01450000
//SORTIN DD DSN=DOESTAX.&EXTNODE..RPT.R202,DISP=SHR 01460000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..RPT.R202&BKUPGEN., 01470000
// DISP=(,CATLG,DELETE), 01480000
// UNIT=CART, 01490000
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500000
// LABEL=(6,SL,,,EXPDT=99000), 01510000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530000
//********************************************************************* 01550000
//STEP0170 EXEC PGM=SORT, BACKUP AUDIT FILE 01560000
// COND=(0,LT) 01570000
//SYSOUT DD SYSOUT=* 01580000
//SORTIN DD DSN=ECNTSUP.DOESTAX.&EXTNODE..AUDIT.X144,DISP=SHR 01590000
//SORTOUT DD DSN=DOESTAX.&EXTNODE..&BCKNODE..AUDIT.X144&BKUPGEN., 01600000
// DISP=(,CATLG,DELETE), 01610000
// UNIT=CART, 01620000
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01630000
// LABEL=(7,SL,,,EXPDT=99000), 01640000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=25600) 01650000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01660000
//********************************************************************* 01661001
//STEP0180 EXEC PGM=SORT, BACKUP TDEC MISSING RPTS 01662001
// COND=(0,LT) 01663001
//SYSOUT DD SYSOUT=* 01664001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.MISSRPTS,DISP=SHR 01665001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.MISSRPTS&BKUPGEN., 01666001
// DISP=(,CATLG,DELETE), 01667001
// UNIT=CART, 01668001
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 01669001
// LABEL=(8,SL,,,EXPDT=99000), 01669101
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=83,BLKSIZE=8300) 01669202
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01669301
//********************************************************************* 01670000
//STEP0190 EXEC PGM=SORT, BACKUP TDEC PENDING FILE 01671001
// COND=(0,LT) 01672001
//SYSOUT DD SYSOUT=* 01673001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.PENDING,DISP=SHR 01674001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.PENDING&BKUPGEN., 01675001
// DISP=(,CATLG,DELETE), 01676001
// UNIT=CART, 01677001
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 01678001
// LABEL=(9,SL,,,EXPDT=99000), 01679001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 01679101
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01679201
//********************************************************************* 01679301
//STEP0200 EXEC PGM=SORT, BACKUP TDEC SUMMARY COUNTS 01679401
// COND=(0,LT) 01679501
//SYSOUT DD SYSOUT=* 01679601
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.SUMYCNTS,DISP=SHR 01679701
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.SUMYCNTS&BKUPGEN., 01679801
// DISP=(,CATLG,DELETE), 01679901
// UNIT=CART, 01680001
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 01681001
// LABEL=(10,SL,,,EXPDT=99000), 01682001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=37,BLKSIZE=3700) 01683001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01684001
//********************************************************************* 01685001
//STEP0210 EXEC PGM=SORT, BACKUP TDEC WAGE BTC 01686001
// COND=(0,LT) 01687001
//SYSOUT DD SYSOUT=* 01688001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,DISP=SHR 01689001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.WAGE.BTC&BKUPGEN., 01689101
// DISP=(,CATLG,DELETE), 01689201
// UNIT=CART, 01689301
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 01689401
// LABEL=(11,SL,,,EXPDT=99000), 01689501
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 01689601
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01689701
//********************************************************************* 01689801
//STEP0220 EXEC PGM=SORT, BACKUP TDEC WAGE ERROR 01689901
// COND=(0,LT) 01690001
//SYSOUT DD SYSOUT=* 01691001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGEEROR,DISP=SHR 01692001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.WAGEEROR&BKUPGEN., 01693001
// DISP=(,CATLG,DELETE), 01694001
// UNIT=CART, 01695001
// VOLUME=(,RETAIN,REF=*.STEP0210.SORTOUT), 01696001
// LABEL=(12,SL,,,EXPDT=99000), 01697001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=126,BLKSIZE=12600) 01698002
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01699001
//********************************************************************* 01699101
//STEP0230 EXEC PGM=SORT, BACKUP TDEC W4 FILE 01699201
// COND=(0,LT) 01699301
//SYSOUT DD SYSOUT=* 01699401
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,DISP=SHR 01699501
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.W4FILE&BKUPGEN., 01699601
// DISP=(,CATLG,DELETE), 01699701
// UNIT=CART, 01699801
// VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01699901
// LABEL=(13,SL,,,EXPDT=99000), 01700001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 01701001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01702001
//********************************************************************* 01703001
//STEP0240 EXEC PGM=SORT, BACKUP TDEC BAD SSN 01704001
// COND=(0,LT) 01705001
//SYSOUT DD SYSOUT=* 01706001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,DISP=SHR 01707001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148DQ.X153&BKUPGEN., 01708001
// DISP=(,CATLG,DELETE), 01709001
// UNIT=CART, 01709101
// VOLUME=(,RETAIN,REF=*.STEP0230.SORTOUT), 01709201
// LABEL=(14,SL,,,EXPDT=99000), 01709301
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=93,BLKSIZE=9300) 01709401
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01709501
//********************************************************************* 01709601
//STEP0250 EXEC PGM=SORT, BACKUP TDEC MISSING RPTS 01709701
// COND=(0,LT) 01709801
//SYSOUT DD SYSOUT=* 01709901
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.MISSRPTS,DISP=SHR 01710001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.MISSRPTS&BKUPGEN., 01711001
// DISP=(,CATLG,DELETE), 01712001
// UNIT=CART, 01713001
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01714001
// LABEL=(15,SL,,,EXPDT=99000), 01715001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=83,BLKSIZE=8300) 01716002
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01717001
//********************************************************************* 01718001
//STEP0260 EXEC PGM=SORT, BACKUP TDEC PENDING FILE 01719001
// COND=(0,LT) 01719101
//SYSOUT DD SYSOUT=* 01719201
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.PENDING,DISP=SHR 01719301
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.PENDING&BKUPGEN., 01719401
// DISP=(,CATLG,DELETE), 01719501
// UNIT=CART, 01719601
// VOLUME=(,RETAIN,REF=*.STEP0250.SORTOUT), 01719701
// LABEL=(16,SL,,,EXPDT=99000), 01719801
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 01719901
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01720001
//********************************************************************* 01721001
//STEP0270 EXEC PGM=SORT, BACKUP TDEC SUMMARY COUNTS 01722001
// COND=(0,LT) 01723001
//SYSOUT DD SYSOUT=* 01724001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.SUMYCNTS,DISP=SHR 01725001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.SUMYCNTS&BKUPGEN., 01726001
// DISP=(,CATLG,DELETE), 01727001
// UNIT=CART, 01728001
// VOLUME=(,RETAIN,REF=*.STEP0260.SORTOUT), 01729001
// LABEL=(17,SL,,,EXPDT=99000), 01729101
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=37,BLKSIZE=3700) 01729201
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01729301
//********************************************************************* 01729401
//STEP0280 EXEC PGM=SORT, BACKUP TDEC WAGE BTC 01729501
// COND=(0,LT) 01729601
//SYSOUT DD SYSOUT=* 01729701
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,DISP=SHR 01729801
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.WAGE.BTC&BKUPGEN., 01729901
// DISP=(,CATLG,DELETE), 01730001
// UNIT=CART, 01731001
// VOLUME=(,RETAIN,REF=*.STEP0270.SORTOUT), 01732001
// LABEL=(18,SL,,,EXPDT=99000), 01733001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 01734001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01735001
//********************************************************************* 01736001
//STEP0290 EXEC PGM=SORT, BACKUP TDEC WAGE ERROR 01737001
// COND=(0,LT) 01738001
//SYSOUT DD SYSOUT=* 01739001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGEEROR,DISP=SHR 01739101
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.WAGEEROR&BKUPGEN., 01739201
// DISP=(,CATLG,DELETE), 01739301
// UNIT=CART, 01739401
// VOLUME=(,RETAIN,REF=*.STEP0280.SORTOUT), 01739501
// LABEL=(19,SL,,,EXPDT=99000), 01739601
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=126,BLKSIZE=12600) 01739702
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01739801
//********************************************************************* 01739901
//STEP0300 EXEC PGM=SORT, BACKUP TDEC W4 FILE 01740001
// COND=(0,LT) 01741001
//SYSOUT DD SYSOUT=* 01742001
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,DISP=SHR 01743001
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.W4FILE&BKUPGEN., 01744001
// DISP=(,CATLG,DELETE), 01745001
// UNIT=CART, 01746001
// VOLUME=(,RETAIN,REF=*.STEP0290.SORTOUT), 01747001
// LABEL=(20,SL,,,EXPDT=99000), 01748001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) 01749001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01749101
//********************************************************************* 01749201
//STEP0310 EXEC PGM=SORT, BACKUP TDEC BAD SSN 01749301
// COND=(0,LT) 01749401
//SYSOUT DD SYSOUT=* 01749501
//SORTIN DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,DISP=SHR 01749601
//SORTOUT DD DSN=DOESTAX.CONV.BACKUP.X148OT.X153&BKUPGEN., 01749701
// DISP=(,CATLG,DELETE), 01749801
// UNIT=CART, 01749901
// VOLUME=(,RETAIN,REF=*.STEP0300.SORTOUT), 01750001
// LABEL=(21,SL,,,EXPDT=99000), 01751001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=93,BLKSIZE=9300) 01752001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01753001
//********************************************************************* 01754001
//**********************END PROC - ZL1********************************* 01760000

95
Procs/DTSBU190 Normal file
View File

@ -0,0 +1,95 @@
//****************************************************************** 00001700
//DTSBU190 PROC
//****************************************************************** 00001700
//* COPY CONV REPORT AND WAGE TRANSACTIONS FROM ICESA FORMAT 00001700
//* SUBMISSIONS TO PRODUCTION BTC AND WAGE.BTC FILES. 00001700
//****************************************************************** 00001700
//* 00001700
//****************************************************************** 00001700
//* 00001700
//STEP0100 EXEC PGM=DTSBU190, COPY REPORTS
// COND=(0,LT),
// PARM='T027,N'
//DTSFBTCI DD DSN=DOESTAX.CONV.BTC,
// DISP=SHR,
//* DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,300),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//* 00001700
//STEP0200 EXEC PGM=DTSBU190, COPY WAGES
// COND=(0,LT),
// PARM='WAGE,N'
//WAGEINP DD DSN=DOESTAX.CONV.WAGE.BTC,
// DISP=SHR,
//* DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=DOESTAX.&MSTNODE..WAGE.BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//*********************************************************************
//STEP0250 EXEC PGM=DTSBU190, COPY SUBMITTER OUTPUT
// COND=(0,LT),
// PARM='SUBM,N'
//SUBMTINP DD DSN=DOESTAX.CONV.FTP.BX210,
// DISP=SHR,
//* DISP=(,CATLG,DELETE),
// SPACE=(2310,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310)
//*
//SUBMTOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX210,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(,CATLG,DELETE),
// SPACE=(2310,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310)
//*********************************************************************
//STEP0275 EXEC PGM=DTSBU190, COPY EMPLOYER OUTPUT
// COND=(0,LT),
// PARM='EMPR,N'
//EMPLRINP DD DSN=DOESTAX.CONV.FTP.BX212,
// DISP=SHR,
//* DISP=(,CATLG,DELETE),
// SPACE=(31800,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//EMPLROUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX212,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(,CATLG,DELETE),
// SPACE=(31800,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//*********************************************************************
//STEP0280 EXEC PGM=DTSBU190, COPY MESSAGES OUTPUT
// COND=(0,LT),
// PARM='INFO,N'
//INFOMINP DD DSN=DOESTAX.CONV.FTP.BX216,
// DISP=SHR,
//* DISP=(,CATLG,DELETE),
// SPACE=(31800,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//*
//INFOMOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX216,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(,CATLG,DELETE),
// SPACE=(31800,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//*********************************************************************
//STEP0290 EXEC PGM=IDCAMS, COPY R202 DEPOSIT TRANSMITTAL
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.RPT.R202,
// DISP=SHR
//*
//OUTDD01 DD DSN=DOESTAX.&MSTNODE..RPT.R202,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(16394,(900,900),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************

26
Procs/DTSBX122 Normal file
View File

@ -0,0 +1,26 @@
//*
//* WEEKLY REGISTRATION COUNTS (R122)
//*
//DTSBX122 PROC
//** DEFNS NEEDED FOR THIS PROC:
//** LVLNODE = DEVL/TEST/PROD
//****
//*
//STEP0100 EXEC PGM=DTSBX122,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTDAY07.RPT(+0),DISP=SHR
//* 00014000
//DTSFREG DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.REG122, 00005000
// DISP=(OLD,KEEP,KEEP),
//** DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(28200,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=28200)
//* 00014000
//*****************************************

245
Procs/DTSBX148 Normal file
View File

@ -0,0 +1,245 @@
//DTSBX148 PROC RUNTYPE='ONTIME' 00000010
//* 00001700
//*************************************************** 00001700
//* MATCH W4 TRANSACTIONS TO REPORTS
//*************************************************** 00001700
//* 00001700
//*****************************************************************
//***
//*****************************************************************
//* SORT TDEC FILE
//*****************************************************************
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY BATCH/EMP/YRQ/SSN
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
// DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&TDECSRT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR
//*
//*****************************************************************
//* EDIT TDEC FILE
//*****************************************************************
//STEP0200 EXEC PGM=DESBD420,
// PARM='&RUNTYPE.',
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWG2 DD DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFTDIN DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
//*
//DTSFTDO DD DSN=&&TDECEDIT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:GIL.DIMATTIA@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: NO TDEC WAGES ON MAINFRAME...........ZL1',
// 'FILEDESC: TDEC WAGE REPORT ',
// 'FILENAME:NO_TDEC_WAGES.TXT')
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC WAGES ON MAINFRAME IN ERROR..ZL1',
// 'FILEDESC: TDEC WAGE REPORT ',
// 'FILENAME:NO_TDEC_WAGES.TXT')
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//* FIND REPORTS, WRITE TRANSACTIONS
//***********************************************************
//STEP0400 EXEC PGM=DESBD422,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWG2 DD DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFITM DD DSN=DOESTAX.DEVL.VSAM.ITM,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFTDIN DD DSN=&&TDECEDIT,
// DISP=(OLD,DELETE,DELETE)
//**
//** WAGES IN W4 FORMAT PASSED TO DTSPDAY1
//DTSFW004 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..W4FILE,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//** WAGES IN W4 FORMAT PASSED TO DTSPDAY1
//DTSFW153 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..X153,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//** WTC WAGES
//DTSFW001 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGE.BTC,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFPEND DD DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
// DISP=(NEW,PASS,DELETE),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//DTSFMISS DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(7800,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=78,BLKSIZE=7800)
//*
//DTSFERR DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(12100,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=12100)
//*
//*
//DTSFCNT DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(3700,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//****************************************************
//**
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', REBUILD PENDING FILE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
// DISP=(OLD,DELETE,DELETE)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..PENDING,
//** DISP=(,CATLG,DELETE),
// DISP=(MOD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
//*
//****************************************************
//**
//STEP0600 EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC MISSING REPORTS )',
// 'FILEDESC: TDEC MISSING REPORTS ',
// 'FILENAME: TDEC.ERROR1.TXT')
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
// DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****************************************************
//**
//STEP0700 EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC WAGE DISCREPANCIES )',
// 'FILEDESC: TDEC WAGE DISCREPANCIES ',
// 'FILENAME: TDEC.ERROR2.TXT')
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
// DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****************************************************
//**
//STEP0800 EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC COUNTS )',
// 'FILEDESC: TDEC COUNTS ',
// 'FILENAME: TDEC.COUNTS.TXT')
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
// DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//*********************************************************************
//STEP0900 EXEC PGM=IDCAMS,COND=(0,LT)
//**
//********************************************************************
//*** COPY TDEC WAGE FILE TO ARCHIVE UPDATE FILE.
//**
//********************************************************************
//IFILE DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
//**
//OFILE DD DSN=DOESTAX.CONV.TDECX154.SAVED.&RUNTYPE.(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.DEVL.BEN.APPL.PARMLIB(DTSBREPO),DISP=SHR
//********************************************************************
//*** DELETE TDEC DELINQ WAGE FILE(S).
//**
//********************************************************************
//STEP0910 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*
//PDDELINQ DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
// DISP=(OLD,DELETE,DELETE)
//*
//**************************END OF PROC*******************************

42
Procs/DTSBX201 Normal file
View File

@ -0,0 +1,42 @@
//**** 00000100
//** DAILY REPORT TRANSACTION EXTRACT FOR INTRANET 00000369
//** WEB APPLICATION 00000469
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX201 PROC 00000787
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX201, 00001587
// COND=(0,LT) 00001669
//SYSOUT DD SYSOUT=* 00002069
//SYSABOUT DD SYSOUT=* 00002169
//SYSABEND DD SYSOUT=* 00002269
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00002369
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00002469
// AMP=('BUFNI=5,BUFND=10') 00002569
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 00002669
// AMP=('BUFNI=5,BUFND=10') 00002769
//** 00003269
//BX200SUM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00003997
//** DISP=(NEW,CATLG,CATLG), 00004099
// DISP=(MOD,KEEP,KEEP), 00004199
// UNIT=SYSDA, 00004269
// SPACE=(CYL,(20,5),RLSE), 00004399
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00004488
//** 00005069
//BX200TRN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERRTRN, 00420190
//** DISP=(NEW,CATLG,KEEP), 00420299
// DISP=(OLD,KEEP,KEEP), 00420399
// UNIT=SYSDA, 00420488
// SPACE=(CYL,(20,5),RLSE), 00420599
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050) 00420699
//* 00420788
//BX200HDR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.HEADER, 00420899
//** DISP=(NEW,CATLG,KEEP), 00420999
// DISP=(OLD,KEEP,KEEP), 00421099
// UNIT=SYSDA, 00422099
// SPACE=(28200,(1000,1000),RLSE), 00423099
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00424099
//* 00425099
//* 00470073

35
Procs/DTSBX202 Normal file
View File

@ -0,0 +1,35 @@
//**** 00000100
//** DAILY ACCT TRANSACTION EXTRACT FOR TDEC 00000399
//** VALIDATION FILE 00000499
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX202 PROC 00000799
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX202, 00001599
// COND=(0,LT) 00001669
//SYSOUT DD SYSOUT=* 00002069
//SYSABOUT DD SYSOUT=* 00002169
//SYSABEND DD SYSOUT=* 00002269
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00002369
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00002469
// AMP=('BUFNI=5,BUFND=10') 00002569
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 00002669
// AMP=('BUFNI=5,BUFND=10') 00002769
//** 00003269
//DTSFTRAN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERRTRN.AM, 00420199
//* DISP=(NEW,CATLG,KEEP), 00420299
// DISP=(OLD,KEEP,KEEP), 00420399
// UNIT=SYSDA, 00420488
// SPACE=(CYL,(20,5),RLSE), 00420599
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050) 00420699
//* 00420788
//DTSFHDR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX217.AM, 00420899
//* DISP=(NEW,CATLG,KEEP), 00420999
// DISP=(OLD,KEEP,KEEP), 00421099
// UNIT=SYSDA, 00422099
// SPACE=(28200,(1000,1000),RLSE), 00423099
// DCB=(RECFM=FB,LRECL=148,BLKSIZE=29600) 00424099
//* 00425099
//* 00470073

30
Procs/DTSBX206 Normal file
View File

@ -0,0 +1,30 @@
//**** 00000100
//** DAILY R204 (CHANGES TO ARPT-EMP-NO) EXTRACT 00000396
//** FOR INTRANET WEB APPLICATION 00000496
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX206 PROC 00000796
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX206, 00001596
// COND=(0,LT) 00001669
//SYSOUT DD SYSOUT=* 00002069
//SYSABOUT DD SYSOUT=* 00002169
//SYSABEND DD SYSOUT=* 00002269
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00002369
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00002469
// AMP=('BUFNI=5,BUFND=10') 00002569
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 00002669
// AMP=('BUFNI=5,BUFND=10') 00002769
//** 00003269
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTDAILY.RPT(+0), 00003397
// DISP=SHR 00003497
//* 00003596
//DTSFEAUD DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX206, 00003696
//** DISP=(NEW,CATLG,KEEP), 00003799
// DISP=(OLD,KEEP,KEEP), 00003899
// UNIT=SYSDA, 00003996
// SPACE=(CYL,(10,5),RLSE), 00004098
// DCB=(RECFM=FB,LRECL=47,BLKSIZE=2350) 00005096
//* 00470073

42
Procs/DTSBX215 Normal file
View File

@ -0,0 +1,42 @@
//*
//* DAILY BATCH CONTROL SUMMARY REPORT RECORDS (R301)
//*
//* 05/08/2009 ADDED DEPOSIT FILE GD
//*
//DTSBX215 PROC
//** DEFNS NEEDED FOR THIS PROC:
//** LVLNODE = DEVL/TEST/PROD
//****
//*
//STEP0100 EXEC PGM=DTSBX215,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD DSN=DOESTAX.&MSTNODE..SRTDAILY.RPT(+0),DISP=SHR
//*
//DTSFX215 DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX215, 00005000
// DISP=(OLD,KEEP,KEEP),
//** DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=103,BLKSIZE=22660)
//* 00014000
//DTSFX220 DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX220, 00005000
// DISP=(OLD,KEEP,KEEP),
//** DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=52,BLKSIZE=26000)
//* 00014000
//DTSFDPST DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DEPOSIT,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(20600,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=103,BLKSIZE=20600)
//*
//*****************************************

40
Procs/DTSBX305 Normal file
View File

@ -0,0 +1,40 @@
//**** 00000010
//* IMPORT CFO REFUND CHECKS ISSUED FILE 00001700
//* AND UPDATE TAX MASTER. 00001700
//* 00001700
//* RUNS DAILY AT 7:00 PM. 00001700
//** 00001700
//DTSBX305 PROC
//** 00001700
//STEP0200 EXEC PGM=DTSBX305,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//X305PARM DD DSN=DOESTAX.&FTPNODE..FTP.REFUND.X305PARM,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(5050,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=101,BLKSIZE=5050)
//* 00001700
//X305IMP DD DSN=DOESTAX.&FTPNODE..FTP.REFUND.X305IMP,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(5450,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=109,BLKSIZE=5450)
//* 00001700
//X306EXP DD DSN=DOESTAX.&FTPNODE..FTP.REFUND.X305EXP,
//** DISP=(NEW,CATLG,KEEP),
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(5050,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=109,BLKSIZE=5450)
//* 00001700
//*********************************************************************

18
Procs/DTSBX306 Normal file
View File

@ -0,0 +1,18 @@
//**** 00000010
//* WRITE DUMMY RECORD TO X306 FILE 00001700
//* 00001700
//** 00001700
//DTSBX306 PROC
//** 00001700
//STEP0200 EXEC PGM=DTSBX306,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFX306 DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.X306,
// DISP=SHR
//* 00001700
//*********************************************************************

122
Procs/DTSBX330 Normal file
View File

@ -0,0 +1,122 @@
//**** 00000100
//** 00000200
//** CREATE DAILY CREDITS AND DEBITS ESTABLISHED REPORT. 00000300
//** (*NO* MSTR UPDATE) 00000500
//** 00000600
//* PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.' 00000701
//** RUNTYPE='RQ', 00000801
//*** PREBACK='N', 00000901
//** CHKONLY='N', 00001001
//** IOTRACE='N' 00001101
//**** 00001400
//STEP0991 EXEC PGM=DTSBD400, PERIODIC EXTRACT 00001501
// COND=(0,LT), 00001600
// PARM='QE,N,N,N' 00001702
//* 00003000
//SYSOUT DD SYSOUT=* 00004000
//SYSABOUT DD SYSOUT=* 00005000
//SYSUDUMP DD SYSOUT=* 00006000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007000
//X330FILE DD DSN=&&DTSBE330, 00007100
// DISP=(NEW,PASS,DELETE), 00007200
// UNIT=SYSDA, 00007400
// SPACE=(25000,(1000,1000),RLSE), 00007500
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00007600
//* 00007700
//BE330PRM DD DSN=&&BE330PRM, 00007800
// DISP=(NEW,PASS,DELETE), 00008000
// UNIT=SYSDA, 00008100
// SPACE=(5,(1000,1000),RLSE), 00008200
// DCB=(RECFM=FB,LRECL=5,BLKSIZE=5) 00008300
//* 00008400
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00008500
// AMP=('BUFNI=5,BUFND=10') 00009000
//DTSFVRO1 DD DUMMY 00010000
//DTSFBTCO DD DUMMY 00050000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ330),DISP=SHR 00082001
//**** 00090000
//STEP0992 EXEC PGM=SORT,PARM='VLTEST=0', 00100001
// COND=(0,LT) 00110000
//SYSOUT DD SYSOUT=* 00120000
//SORTIN DD DSN=&&DTSBE330, 00130000
// DISP=(OLD,DELETE,DELETE), 00140000
// UNIT=SYSDA, 00150000
// SPACE=(25000,(1000,1000),RLSE), 00160000
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00170000
//SORTOUT DD DSN=&&BE330SRT, 00180000
// DISP=(,PASS,DELETE), 00190000
// UNIT=SYSDA, 00200000
// SPACE=(25000,(1000,1000),RLSE), 00210000
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00220000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00230000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00240000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00250000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSS776),DISP=SHR 00260000
//** 00270000
//STEP0993 EXEC PGM=DTSBX330, 00280001
// COND=(0,LT), 00290000
// REGION=4096K 00300000
//SYSOUT DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//SYSABEND DD SYSOUT=* 00330000
//DTSX330 DD DSN=&&BE330SRT, 00340000
// DISP=(OLD,DELETE,DELETE), 00350000
// UNIT=SYSDA, 00360000
// SPACE=(25000,(1000,1000),RLSE), 00370000
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00380000
//** 00390000
//BE330PRM DD DSN=&&BE330PRM, 00400000
// DISP=(OLD,DELETE,DELETE), 00401000
// UNIT=SYSDA, 00402000
// SPACE=(5,(1000,1000),RLSE), 00403000
// DCB=(RECFM=FB,LRECL=5,BLKSIZE=5) 00404000
//* 00405000
//DTSFVRO1 DD DSN=&&BE330RPT, 00406000
// DISP=(NEW,PASS,DELETE), 00406200
// UNIT=SYSDA, 00407100
// SPACE=(16394,(900,900),RLSE), 00408000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00409000
//* REPORT RECORD SORT 00410000
//* 00420001
//STEP0994 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00430001
// COND=(0,LT), 00440001
// REGION=0K 00450001
//SYSOUT DD SYSOUT=* 00460001
//SORTIN DD DSN=&&BE330RPT, 00470001
// DISP=(OLD,DELETE,DELETE) 00480001
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00490001
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00500001
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00510001
//SORTOUT DD DSN=&&SRTRPT, 00520001
// DISP=(,PASS,DELETE), 00530001
// UNIT=SYSDA, 00540001
// SPACE=(8192,(1000,1000),RLSE), 00550001
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00560001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00570001
//**** 00580001
//* REPORT GENERATION 00590001
//STEP0995 EXEC PGM=DTSBD800, 00600001
// COND=(0,LT) 00610001
//SYSOUT DD SYSOUT=* 00620001
//SYSABOUT DD SYSOUT=* 00630001
//SYSUDUMP DD SYSOUT=* 00640001
//** 00650001
//PARMIN DD DUMMY 00660001
//** 00670001
//ATLSTIN DD DUMMY 00680001
//** 00690001
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00691003
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00700001
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00720001
// AMP=('BUFNI=5,BUFND=10') 00730001
//* 00740001
//** DEBITS AND CREDITS REPORT 00750001
//RPT330R1 DD SYSOUT=(V,DTS330D1),HOLD=&LVDHOLD., 00761001
// DEST=&LDEST. 00762001
//* 00790001
//RPT330R2 DD SYSOUT=(V,DTS330D2),HOLD=&LVDHOLD., 00801001
// DEST=U@PRT65 00820001
//* 00830001
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00840001
// HOLD=&LVDHOLD., 00850001
// DEST=&LDEST. 00851001

47
Procs/DTSBX335 Normal file
View File

@ -0,0 +1,47 @@
//**** 00000010
//* EXTRACT WAGE DATA FROM TAX MAINFRAME FILES 00001700
//* INTO COMMA-SEPARATED FILES FOR WEB DATABASE 00001700
//* 00001700
//* >> INITIAL CONVERSION 00001700
//** 00001700
//DTSBX335 PROC
//** 00001700
//STEP0100 EXEC PGM=DTSBX335,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFPARM DD DSN=&&X335PARM,
// DISP=(OLD,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(16,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=16)
//*
//DTSFPRF DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PRF,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=28800)
//**
//EXPBX142 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE, 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(200,50),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=42,BLKSIZE=29400) 00009000
//* 00001700
//EXPBX144 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGENAME, 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(50,20),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=52,BLKSIZE=31200) 00009000
//* 00001700
//*********************************************************************

377
Procs/DTSBX340 Normal file
View File

@ -0,0 +1,377 @@
//**** 00000100
//** 00000200
//** INITIAL LOAD: ACCOUNTING DATABASE. 00000399
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX340 PROC 00000799
//* 00000899
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX340, PERIODIC EXTRACT 00001599
// COND=(0,LT), 00001699
// PARM='&RUNTYPE.' 00001799
//* 00001819
//SYSOUT DD SYSOUT=* 00004001
//SYSABOUT DD SYSOUT=* 00005001
//SYSUDUMP DD SYSOUT=* 00006001
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007014
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00012299
// AMP=('BUFNI=5,BUFND=10') 00013001
//CHARGESI DD DSN=DOESTAX.PROD.VSAM.CHGM002,DISP=SHR 00014099
//DTSFVRO1 DD DUMMY 00020039
//DTSFBTCO DD DUMMY 00050039
//**** 00082099
//DTSFSERV DD DSN=ECNTSUP.DOESTAX.&LVLNODE..TAX.INT.X101, 00083099
//** DISP=(NEW,CATLG,CATLG), 00084099
// DISP=(OLD,KEEP,KEEP), 00085099
// UNIT=SYSDA, 00085199
// SPACE=(6,(1000,1000),RLSE), 00085299
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00085399
//* 00085499
//DTSFPRF DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PRF, 00085599
//** DISP=(NEW,CATLG,CATLG), 00085699
// DISP=(OLD,KEEP,KEEP), 00085799
// UNIT=SYSDA, 00085899
// SPACE=(CYL,(10,5),RLSE), 00085999
// DCB=(RECFM=FB,LRECL=88,BLKSIZE=26400) 00086099
//* 00086199
//DTSFDET DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DET, 00086299
//** DISP=(NEW,CATLG,CATLG), 00086399
// DISP=(OLD,KEEP,KEEP), 00086499
// UNIT=SYSDA, 00086599
// SPACE=(CYL,(10,5),RLSE), 00086699
// DCB=(RECFM=FB,LRECL=59,BLKSIZE=29500) 00086799
//* 00086899
//DTSFFSC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.FSC, 00086999
//** DISP=(NEW,CATLG,CATLG), 00087099
// DISP=(OLD,KEEP,KEEP), 00087199
// UNIT=SYSDA, 00087299
// SPACE=(CYL,(10,5),RLSE), 00087399
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600) 00087499
//* 00087599
//DTSFADR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ADR, 00087699
//** DISP=(NEW,CATLG,CATLG), 00087799
// DISP=SHR, 00087899
// UNIT=SYSDA, 00087999
// SPACE=(CYL,(50,10),RLSE), 00088099
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00088199
//* 00088299
//*DTSFDST DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PAYDIST, 00088399
//*** DISP=(NEW,CATLG,KEEP), 00088499
//* DISP=(OLD,KEEP,KEEP), 00088599
//* UNIT=SYSDA, 00088699
//* SPACE=(CYL,(100,50),RLSE), 00088799
//* DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00088899
//** 00088999
//DTSFDST1 DD DSN=&&PAYDIST1, 00089099
// DISP=(NEW,PASS,DELETE), 00089199
// UNIT=SYSDA, 00089299
// SPACE=(CYL,(100,50),RLSE), 00089399
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00089499
//** 00089599
//DTSFDST2 DD DSN=&&PAYDIST2, 00089699
// DISP=(NEW,PASS,DELETE), 00089799
// UNIT=SYSDA, 00089899
// SPACE=(CYL,(100,50),RLSE), 00089999
// DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00090099
//* 00090199
//DTSFRATE DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.RATE, 00090299
//** DISP=(NEW,CATLG,KEEP), 00090399
// DISP=(OLD,KEEP,KEEP), 00090499
// UNIT=SYSDA, 00090599
// SPACE=(CYL,(25,5),RLSE), 00090699
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00090799
//** 00090899
//DTSFACC1 DD DSN=&&ACCT1, 00090999
// DISP=(NEW,PASS,DELETE), 00091099
// UNIT=SYSDA, 00091199
// SPACE=(CYL,(100,50),RLSE), 00091299
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00091399
//* 00091499
//DTSFACC2 DD DSN=&&ACCT2, 00091599
// DISP=(NEW,PASS,DELETE), 00091699
// UNIT=SYSDA, 00091799
// SPACE=(CYL,(50,50),RLSE), 00091899
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00091999
//* 00092099
//DTSFACC3 DD DSN=&&ACCT3, 00092199
// DISP=(NEW,PASS,DELETE), 00092299
// UNIT=SYSDA, 00092399
// SPACE=(CYL,(50,50),RLSE), 00092499
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092599
//* 00092699
//DTSFQTR1 DD DSN=&&QTR1, 00092799
// DISP=(NEW,PASS,DELETE), 00092899
// UNIT=SYSDA, 00092999
// SPACE=(CYL,(200,50),RLSE), 00093099
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093199
//* 00093299
//DTSFQTR2 DD DSN=&&QTR2, 00093399
// DISP=(NEW,PASS,DELETE), 00093499
// UNIT=SYSDA, 00093599
// SPACE=(CYL,(200,50),RLSE), 00093699
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093799
//* 00093899
//DTSFQTR3 DD DSN=&&QTR3, 00093999
// DISP=(NEW,PASS,DELETE), 00094099
// UNIT=SYSDA, 00094199
// SPACE=(CYL,(200,50),RLSE), 00094299
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094399
//* 00094499
//DTSFTRN1 DD DSN=&&TRAN1, 00094599
// DISP=(NEW,PASS,DELETE), 00094699
// UNIT=SYSDA, 00094799
// SPACE=(CYL,(120,40),RLSE), 00094899
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00094999
//* 00095099
//DTSFTRN2 DD DSN=&&TRAN2, 00095199
// DISP=(NEW,PASS,DELETE), 00095299
// UNIT=SYSDA, 00095399
// SPACE=(CYL,(60,40),RLSE), 00095499
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095599
//** 00095699
//DTSFTRN3 DD DSN=&&TRAN3, 00095799
// DISP=(NEW,PASS,DELETE), 00095899
// UNIT=SYSDA, 00095999
// SPACE=(CYL,(60,40),RLSE), 00096099
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00096199
//** 00096299
//DTSFQCOL DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QCOLL, 00096399
//** DISP=(NEW,CATLG,KEEP), 00096499
// DISP=(OLD,KEEP,KEEP), 00096599
// UNIT=SYSDA, 00096699
// SPACE=(CYL,(150,50),RLSE), 00096799
// DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500) 00096899
//** 00096999
//DTSFREL DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.REL, 00097099
//** DISP=(NEW,CATLG,KEEP), 00097199
// DISP=(OLD,KEEP,KEEP), 00097299
// UNIT=SYSDA, 00097399
// SPACE=(CYL,(5,2),RLSE), 00097499
// DCB=(RECFM=FB,LRECL=47,BLKSIZE=28200) 00097599
//** 00097699
//DTSFNAM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.EMP.NAME, 00097799
//** DISP=(NEW,CATLG,KEEP), 00097899
// DISP=(OLD,KEEP,KEEP), 00097999
// UNIT=SYSDA, 00098099
// SPACE=(CYL,(5,3),RLSE), 00098199
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=31800) 00098299
//** 00098399
//DTSFOPO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.OPO, 00098499
//** DISP=(NEW,CATLG,KEEP), 00098599
// DISP=(OLD,KEEP,KEEP), 00098699
// UNIT=SYSDA, 00098799
// SPACE=(CYL,(50,15),RLSE), 00098899
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00098999
//** 00099099
//DTSFAUDT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.AUDIT, 00099199
//** DISP=(NEW,CATLG,KEEP), 00099299
// DISP=(OLD,KEEP,KEEP), 00099399
// UNIT=SYSDA, 00099499
// SPACE=(CYL,(2,5),RLSE), 00099599
// DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00099699
//** 00099799
//*DTSFSUM DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00099899
//** DISP=(NEW,CATLG,CATLG), 00099999
//* DISP=(OLD,KEEP,KEEP), 00100099
//* UNIT=SYSDA, 00100199
//* SPACE=(21900,(1000,1000),RLSE), 00100299
//* DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00100399
//DTSFSUM1 DD DSN=&&ERR1, 00100499
// DISP=(NEW,PASS,DELETE), 00100599
// UNIT=SYSDA, 00100699
// SPACE=(21900,(1000,1000),RLSE), 00100799
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00100899
//** 00100999
//DTSFSUM2 DD DSN=&&ERR2, 00101099
// DISP=(NEW,PASS,DELETE), 00101199
// UNIT=SYSDA, 00101299
// SPACE=(21900,(1000,1000),RLSE), 00101399
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101499
//* 00101599
//DTSFLIEN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.LIEN, 00101699
//** DISP=(NEW,CATLG,CATLG), 00101799
// DISP=(OLD,KEEP,KEEP), 00101899
// UNIT=SYSDA, 00101999
// SPACE=(CYL,(10,4),RLSE), 00102099
// DCB=(RECFM=FB,LRECL=88,BLKSIZE=28160) 00102199
//* 00102299
//DTSFLINQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.LIEN.QTR, 00102399
//** DISP=(NEW,CATLG,CATLG), 00102499
// DISP=(OLD,KEEP,KEEP), 00102599
// UNIT=SYSDA, 00102699
// SPACE=(CYL,(10,4),RLSE), 00102799
// DCB=(RECFM=FB,LRECL=26,BLKSIZE=26000) 00102899
//* 00102999
//DTSFDPC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DPC, 00103099
//** DISP=(NEW,CATLG,CATLG), 00103199
// DISP=(OLD,KEEP,KEEP), 00103299
// UNIT=SYSDA, 00103399
// SPACE=(CYL,(10,4),RLSE), 00103499
// DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00103599
//* 00103699
//DTSFDPCQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DPC.QTR, 00103799
//** DISP=(NEW,CATLG,CATLG), 00103899
// DISP=(OLD,KEEP,KEEP), 00103999
// UNIT=SYSDA, 00104099
// SPACE=(CYL,(10,4),RLSE), 00104199
// DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000) 00104299
//* 00104399
//DTSFMLOG DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.MLOG, 00104499
//** DISP=(NEW,CATLG,CATLG), 00104599
// DISP=(OLD,KEEP,KEEP), 00104699
// UNIT=SYSDA, 00104799
// SPACE=(CYL,(2,1),RLSE), 00104899
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=3000) 00104999
//* 00105099
//* 00105199
//** 00105299
//** NO LONGER NEEDED IN THIS JOB, FILE CREATED DURING THE DAILY CHARGIN00105399
//** JOB DTSCHGD1 00105499
//** 00105599
//*HARGESO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.CHARGE, 00105699
//* DISP=(OLD,KEEP,KEEP), 00105799
//* UNIT=SYSDA, 00105899
//* SPACE=(CYL,(20,10),RLSE), 00105999
//* DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) 00106099
//* 00106199
//*STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCOUNTING DETAIL 00106299
//* COND=(0,LT) 00106399
//*SYSOUT DD SYSOUT=* 00106499
//** 00106599
//*SORTIN DD DSN=&&ACCT1,DISP=(OLD,DELETE,DELETE) 00106699
//* DD DSN=&&ACCT2,DISP=(OLD,DELETE,DELETE) 00106799
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00106899
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00106999
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107099
//*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107199
//*SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107299
//*SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107399
//*SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107499
//*SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ACCT, 00107599
//*** DISP=(NEW,CATLG,KEEP), 00107699
//* DISP=(OLD,KEEP,KEEP), 00107799
//* UNIT=SYSDA, 00107899
//* SPACE=(CYL,(350,75),RLSE), 00107999
//* DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500) 00108099
//* 00108199
//**** 00108299
//*SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00108399
//STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCT INCREMENTAL 00108499
// COND=(0,LT) 00108599
//SYSOUT DD SYSOUT=* 00108699
//* 00108799
//SORTIN DD DSN=&&ACCT3,DISP=(OLD,DELETE,DELETE) 00108899
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00108999
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109199
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.ACCT.INCR, 00109299
//* DISP=(NEW,KEEP,KEEP), 00109399
// DISP=(OLD,KEEP,KEEP), 00109499
// UNIT=SYSDA, 00109599
// SPACE=(CYL,(50,50),RLSE), 00109699
// DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00109799
//* 00109899
//**** 00109999
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00110099
//**** 00110199
//*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTION DETAIL 00111099
//* COND=(0,LT) 00120099
//*YSOUT DD SYSOUT=* 00130099
//* 00140099
//*ORTIN DD DSN=&&TRAN1,DISP=(OLD,DELETE,DELETE) 00150099
//* DD DSN=&&TRAN2,DISP=(OLD,DELETE,DELETE) 00160099
//*ORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00170099
//*ORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00180099
//*ORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00190099
//*ORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00200099
//*UITOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN, 00210099
//* DISP=(NEW,CATLG,KEEP), 00220099
//* DISP=(OLD,KEEP,KEEP), 00230099
//* UNIT=SYSDA, 00240099
//* SPACE=(CYL,(200,100),RLSE), 00241099
//* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) 00242099
//* 00270099
//**** 00280099
//*YSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00290099
//**** 00300099
//STEP0310 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANS INCREMENTAL 00301099
// COND=(0,LT) 00302099
//SYSOUT DD SYSOUT=* 00303099
//* 00304099
//SORTIN DD DSN=&&TRAN3,DISP=(OLD,DELETE,DELETE) 00305099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00306099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00307099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00308099
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.TRAN.INCR, 00309099
//** DISP=(NEW,CATLG,KEEP), 00309199
// DISP=(OLD,KEEP,KEEP), 00309299
// UNIT=SYSDA, 00309399
// SPACE=(CYL,(180,60),RLSE), 00309499
// DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00309599
//* 00309699
//**** 00309799
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00309899
//**** 00309999
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT QUARTER DETAIL 00310099
// COND=(0,LT) 00320099
//SYSOUT DD SYSOUT=* 00330099
//* 00340099
//SORTIN DD DSN=&&QTR1,DISP=(OLD,DELETE,DELETE) 00350099
// DD DSN=&&QTR2,DISP=(OLD,DELETE,DELETE) 00360099
// DD DSN=&&QTR3,DISP=(OLD,DELETE,DELETE) 00361099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00370099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00380099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00390099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00400099
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QTR, 00410099
//** DISP=(NEW,CATLG,KEEP), 00420099
// DISP=(OLD,KEEP,KEEP), 00430099
// UNIT=SYSDA, 00440099
// SPACE=(CYL,(200,50),RLSE), 00441099
// DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00442099
//* 00470099
//**** 00480099
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00490099
//**** 00500099
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT PAY DIST 00501099
// COND=(0,LT) 00502099
//SYSOUT DD SYSOUT=* 00503099
//* 00504099
//SORTIN DD DSN=&&PAYDIST1,DISP=(OLD,DELETE,DELETE) 00505099
// DD DSN=&&PAYDIST2,DISP=(OLD,DELETE,DELETE) 00506099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00507099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00508099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00509099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE) 00509199
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PAYDIST, 00509299
//** DISP=(NEW,CATLG,KEEP), 00509399
// DISP=SHR 00509499
//* UNIT=SYSDA, 00509599
//* SPACE=(CYL,(100,50),RLSE), 00509699
//* DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00509799
//* 00509899
//**** 00509999
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00510099
//**** 00510199
//STEP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT ERR 00511099
// COND=(0,LT) 00520099
//SYSOUT DD SYSOUT=* 00530099
//* 00540099
//SORTIN DD DSN=&&ERR1,DISP=(OLD,DELETE,DELETE) 00550099
// DD DSN=&&ERR2,DISP=(OLD,DELETE,DELETE) 00560099
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00570099
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00580099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00590099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00600099
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00610099
//** DISP=(NEW,CATLG,KEEP), 00620099
// DISP=(OLD,KEEP,KEEP), 00630099
// UNIT=SYSDA, 00640099
// SPACE=(21900,(1000,1000),RLSE), 00650099
// DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00660099
//* 00670099
//**** 00680099
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00690099
//**** 00700099

63
Procs/DTSBX347 Normal file
View File

@ -0,0 +1,63 @@
//**** 00000100
//** 00000200
//** DAILY ATC FILE UPDATE EXTRACT. 00000399
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX347 PROC 00000799
//* 00000899
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX347, PERIODIC EXTRACT 00001599
// COND=(0,LT) 00001699
//* 00001819
//SYSOUT DD SYSOUT=* 00004001
//SYSABOUT DD SYSOUT=* 00005001
//SYSUDUMP DD SYSOUT=* 00006001
//* 00013199
//**** 00082099
//DTSFATHI DD DSN=DOESTAX.&MSTNODE..VSAM.ATH,DISP=SHR, 00083099
// AMP=('BUFNI=5,BUFND=10') 00085099
//* 00085499
//ATHFTRNO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHTRN, 00085599
//* DISP=(NEW,CATLG,CATLG), 00085699
// DISP=(OLD,KEEP,KEEP), 00085799
// UNIT=SYSDA, 00085899
// SPACE=(CYL,(10,5),RLSE), 00085999
// DCB=(RECFM=FB,LRECL=48,BLKSIZE=24000) 00086099
//* 00086199
//ATHFHDRO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHHDR, 00086299
//* DISP=(NEW,CATLG,CATLG), 00086399
// DISP=(OLD,KEEP,KEEP), 00086499
// UNIT=SYSDA, 00086599
// SPACE=(CYL,(10,5),RLSE), 00086699
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) 00086799
//* 00086899
//ATHFRPTO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHRPT, 00086999
//* DISP=(NEW,CATLG,CATLG), 00087099
// DISP=(OLD,KEEP,KEEP), 00087199
// UNIT=SYSDA, 00087299
// SPACE=(CYL,(10,5),RLSE), 00087399
// DCB=(RECFM=FB,LRECL=190,BLKSIZE=28500) 00087499
//* 00087599
//ATHFATXO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHATX, 00087699
//* DISP=(NEW,CATLG,CATLG), 00087799
// DISP=(OLD,KEEP,KEEP), 00087899
// UNIT=SYSDA, 00087999
// SPACE=(CYL,(10,5),RLSE), 00088099
// DCB=(RECFM=FB,LRECL=234,BLKSIZE=28080) 00088199
//* 00088299
//ATHFPAYO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHPAY, 00088399
//* DISP=(NEW,CATLG,CATLG), 00088499
// DISP=(OLD,KEEP,KEEP), 00088599
// UNIT=SYSDA, 00088699
// SPACE=(CYL,(10,5),RLSE), 00088799
// DCB=(RECFM=FB,LRECL=113,BLKSIZE=28250) 00088899
//* 00088999
//ATHFADJO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHADJ, 00089099
//* DISP=(NEW,CATLG,CATLG), 00090099
// DISP=(OLD,KEEP,KEEP), 00100099
// UNIT=SYSDA, 00110099
// SPACE=(CYL,(10,5),RLSE), 00120099
// DCB=(RECFM=FB,LRECL=138,BLKSIZE=28980) 00130099
//* 00140099

384
Procs/DTSBX354 Normal file
View File

@ -0,0 +1,384 @@
//**** 00000100
//** 00000200
//** INITIAL LOAD: ACCOUNTING DATABASE. 00000399
//** (*NO* MSTR UPDATE) 00000505
//** 00000605
//DTSBX354 PROC 00000799
//* 00000899
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX354, PERIODIC EXTRACT 00001599
// COND=(0,LT), 00001699
// TIME=90, 00001799
// PARM='&RUNTYPE.' 00001899
//* 00001919
//SYSOUT DD SYSOUT=* 00004001
//SYSABOUT DD SYSOUT=* 00005001
//SYSUDUMP DD SYSOUT=* 00006001
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007014
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00012299
// AMP=('BUFNI=5,BUFND=10') 00013001
//CHARGESI DD DSN=DOESTAX.PROD.VSAM.CHGM002,DISP=SHR 00014099
//DTSFVRO1 DD DUMMY 00020039
//DTSFBTCO DD DUMMY 00050039
//**** 00082099
//DTSFSERV DD DSN=ECNTSUP.DOESTAX.&LVLNODE..TAX.INT.X101, 00083099
//** DISP=(NEW,CATLG,CATLG), 00084099
// DISP=(OLD,KEEP,KEEP), 00085099
// UNIT=SYSDA, 00085199
// SPACE=(6,(1000,1000),RLSE), 00085299
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00085399
//* 00085499
//DTSFPRF DD DUMMY 00085599
//** DISP=(NEW,CATLG,CATLG), 00085699
//** DISP=(OLD,KEEP,KEEP), 00085799
//** UNIT=SYSDA, 00085899
//** SPACE=(CYL,(10,5),RLSE), 00085999
//** DCB=(RECFM=FB,LRECL=88,BLKSIZE=26400) 00086099
//* 00086199
//DTSFDET DD DUMMY 00086299
//** DISP=(NEW,CATLG,CATLG), 00086399
//** DISP=(OLD,KEEP,KEEP), 00086499
//** UNIT=SYSDA, 00086599
//** SPACE=(CYL,(10,5),RLSE), 00086699
//** DCB=(RECFM=FB,LRECL=59,BLKSIZE=29500) 00086799
//* 00086899
//DTSFFSC DD DUMMY 00086999
//** DISP=(NEW,CATLG,CATLG), 00087099
//** DISP=(OLD,KEEP,KEEP), 00087199
//** UNIT=SYSDA, 00087299
//** SPACE=(CYL,(10,5),RLSE), 00087399
//** DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600) 00087499
//* 00087599
//DTSFADR DD DUMMY 00087699
//** DISP=(NEW,CATLG,CATLG), 00087799
//** DISP=(OLD,KEEP,KEEP), 00087899
//** UNIT=SYSDA, 00087999
//** SPACE=(CYL,(50,10),RLSE), 00088099
//** DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00088199
//* 00088299
//DTSFDST DD DUMMY 00088399
//*** DISP=(NEW,CATLG,KEEP), 00088499
//* DISP=(OLD,KEEP,KEEP), 00088599
//* UNIT=SYSDA, 00088699
//* SPACE=(CYL,(100,50),RLSE), 00088799
//* DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00088899
//** 00088999
//DTSFDST1 DD DUMMY 00089099
//** DISP=(NEW,PASS,DELETE), 00089199
//** UNIT=SYSDA, 00089299
//** SPACE=(CYL,(100,50),RLSE), 00089399
//** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00089499
//** 00089599
//DTSFDST2 DD DUMMY 00089699
//** DISP=(NEW,PASS,DELETE), 00089799
//** UNIT=SYSDA, 00089899
//** SPACE=(CYL,(100,50),RLSE), 00089999
//** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00090099
//* 00090199
//DTSFRATE DD DUMMY 00090299
//** DISP=(NEW,CATLG,KEEP), 00090399
//** DISP=(OLD,KEEP,KEEP), 00090499
//** UNIT=SYSDA, 00090599
//** SPACE=(CYL,(25,5),RLSE), 00090699
//** DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00090799
//** 00090899
//DTSFACC1 DD DSN=&&ACCT1, 00090999
// DISP=(NEW,PASS,DELETE), 00091099
// UNIT=SYSDA, 00091199
// SPACE=(CYL,(100,50),RLSE), 00091299
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00091399
//* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00091499
//* 00091599
//DTSFACC2 DD DSN=&&ACCT2, 00091699
// DISP=(NEW,PASS,DELETE), 00091799
// UNIT=SYSDA, 00091899
// SPACE=(CYL,(50,50),RLSE), 00091999
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00092099
//* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092199
//* 00092299
//DTSFACC3 DD DSN=&&ACCT3, 00092399
// DISP=(NEW,PASS,DELETE), 00092499
// UNIT=SYSDA, 00092599
// SPACE=(CYL,(50,50),RLSE), 00092699
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00092799
//* DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00092899
//* 00092999
//DTSFQTR1 DD DUMMY 00093099
//** DISP=(NEW,PASS,DELETE), 00093199
//** UNIT=SYSDA, 00093299
//** SPACE=(CYL,(200,50),RLSE), 00093399
//** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00093499
//* 00093599
//DTSFQTR2 DD DUMMY 00093699
//** DISP=(NEW,PASS,DELETE), 00093799
//** UNIT=SYSDA, 00093899
//** SPACE=(CYL,(200,50),RLSE), 00093999
//** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094099
//* 00094199
//DTSFQTR3 DD DUMMY 00094299
//** DISP=(NEW,PASS,DELETE), 00094399
//** UNIT=SYSDA, 00094499
//** SPACE=(CYL,(200,50),RLSE), 00094599
//** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00094699
//* 00094799
//DTSFTRN1 DD DUMMY 00094899
//** DISP=(NEW,PASS,DELETE), 00094999
//** UNIT=SYSDA, 00095099
//** SPACE=(CYL,(120,40),RLSE), 00095199
//** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095299
//* 00095399
//DTSFTRN2 DD DUMMY 00095499
//** DISP=(NEW,PASS,DELETE), 00095599
//** UNIT=SYSDA, 00095699
//** SPACE=(CYL,(60,40),RLSE), 00095799
//** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00095899
//** 00095999
//DTSFTRN3 DD DUMMY 00096099
//** DISP=(NEW,PASS,DELETE), 00096199
//** UNIT=SYSDA, 00096299
//** SPACE=(CYL,(60,40),RLSE), 00096399
//** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00096499
//** 00096599
//DTSFQCOL DD DUMMY 00096699
//** DISP=(NEW,CATLG,KEEP), 00096799
//** DISP=(OLD,KEEP,KEEP), 00096899
//** UNIT=SYSDA, 00096999
//** SPACE=(CYL,(150,50),RLSE), 00097099
//** DCB=(RECFM=FB,LRECL=35,BLKSIZE=31500) 00097199
//** 00097299
//DTSFBNK DD DUMMY 00097399
//** DISP=(NEW,CATLG,KEEP), 00097499
//** DISP=(OLD,KEEP,KEEP), 00097599
//** UNIT=SYSDA, 00097699
//** SPACE=(CYL,(5,1),RLSE), 00097799
//** DCB=(RECFM=FB,LRECL=42,BLKSIZE=25200) 00097899
//** 00097999
//DTSFREL DD DUMMY 00098099
//** DISP=(NEW,CATLG,KEEP), 00098199
//** DISP=(OLD,KEEP,KEEP), 00098299
//** UNIT=SYSDA, 00098399
//** SPACE=(CYL,(5,2),RLSE), 00098499
//** DCB=(RECFM=FB,LRECL=47,BLKSIZE=28200) 00098599
//** 00098699
//DTSFNAM DD DUMMY 00098799
//** DISP=(NEW,CATLG,KEEP), 00098899
//** DISP=(OLD,KEEP,KEEP), 00098999
//** UNIT=SYSDA, 00099099
//** SPACE=(CYL,(5,3),RLSE), 00099199
//** DCB=(RECFM=FB,LRECL=53,BLKSIZE=31800) 00099299
//** 00099399
//DTSFOPO DD DUMMY 00099499
//** DISP=(NEW,CATLG,KEEP), 00099599
//** DISP=(OLD,KEEP,KEEP), 00099699
//** UNIT=SYSDA, 00099799
//** SPACE=(CYL,(50,15),RLSE), 00099899
//** DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00099999
//** 00100099
//DTSFAUDT DD DUMMY 00100199
//** DISP=(NEW,CATLG,KEEP), 00100299
//** DISP=(OLD,KEEP,KEEP), 00100399
//** UNIT=SYSDA, 00100499
//** SPACE=(CYL,(2,5),RLSE), 00100599
//** DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00100699
//** 00100799
//DTSFSUM DD DUMMY 00100899
//** DISP=(NEW,CATLG,CATLG), 00100999
//* DISP=(OLD,KEEP,KEEP), 00101099
//* UNIT=SYSDA, 00101199
//* SPACE=(21900,(1000,1000),RLSE), 00101299
//* DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101399
//DTSFSUM1 DD DUMMY 00101499
//** DISP=(NEW,PASS,DELETE), 00101599
//** UNIT=SYSDA, 00101699
//** SPACE=(21900,(1000,1000),RLSE), 00101799
//** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00101899
//** 00101999
//DTSFSUM2 DD DUMMY 00102099
//** DISP=(NEW,PASS,DELETE), 00102199
//** UNIT=SYSDA, 00102299
//** SPACE=(21900,(1000,1000),RLSE), 00102399
//** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00102499
//** 00102599
//CHARGESO DD DUMMY 00102699
//** DISP=(OLD,KEEP,KEEP), 00102799
//** UNIT=SYSDA, 00102899
//** SPACE=(CYL,(20,10),RLSE), 00102999
//** DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) 00103099
//* 00103199
//DTSFLIEN DD DUMMY 00103299
//** DISP=(NEW,CATLG,CATLG), 00103399
//** DISP=(OLD,KEEP,KEEP), 00103499
//** UNIT=SYSDA, 00103599
//** SPACE=(CYL,(10,4),RLSE), 00103699
//** DCB=(RECFM=FB,LRECL=88,BLKSIZE=28160) 00103799
//* 00103899
//DTSFLINQ DD DUMMY 00103999
//** DISP=(NEW,CATLG,CATLG), 00104099
//** DISP=(OLD,KEEP,KEEP), 00104199
//** UNIT=SYSDA, 00104299
//** SPACE=(CYL,(10,4),RLSE), 00104399
//** DCB=(RECFM=FB,LRECL=26,BLKSIZE=26000) 00104499
//* 00104599
//DTSFDPC DD DUMMY 00104699
//** DISP=(NEW,CATLG,CATLG), 00104799
//** DISP=(OLD,KEEP,KEEP), 00104899
//** UNIT=SYSDA, 00104999
//** SPACE=(CYL,(10,4),RLSE), 00105099
//** DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00105199
//* 00105299
//DTSFDPCQ DD DUMMY 00105399
//** DISP=(NEW,CATLG,CATLG), 00105499
//** DISP=(OLD,KEEP,KEEP), 00105599
//** UNIT=SYSDA, 00105699
//** SPACE=(CYL,(10,4),RLSE), 00105799
//** DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000) 00105899
//* 00105999
//DTSFMLOG DD DUMMY 00106099
//** DISP=(NEW,CATLG,CATLG), 00106199
//** DISP=(OLD,KEEP,KEEP), 00106299
//** UNIT=SYSDA, 00106399
//** SPACE=(CYL,(2,1),RLSE), 00106499
//** DCB=(RECFM=FB,LRECL=41,BLKSIZE=4100) 00106599
//* 00106699
//*STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCOUNTING DETAIL 00106799
//* COND=(0,LT) 00106899
//*SYSOUT DD SYSOUT=* 00106999
//** 00107099
//*SORTIN DD DSN=&&ACCT1,DISP=(OLD,DELETE,DELETE) 00107199
//* DD DSN=&&ACCT2,DISP=(OLD,DELETE,DELETE) 00107299
//*SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107399
//*SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107499
//*SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107599
//*SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107699
//*SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107799
//*SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107899
//*SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00107999
//*SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ACCT, 00108099
//*** DISP=(NEW,CATLG,KEEP), 00108199
//* DISP=(OLD,KEEP,KEEP), 00108299
//* UNIT=SYSDA, 00108399
//* SPACE=(CYL,(350,75),RLSE), 00108499
//* DCB=(RECFM=FB,LRECL=61,BLKSIZE=30500) 00108599
//* 00108699
//**** 00108799
//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00108899
//STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCT INCREMENTAL 00108999
// COND=(0,LT) 00109099
//SYSOUT DD SYSOUT=* 00109199
//* 00109299
//SORTIN DD DSN=&&ACCT3,DISP=(OLD,DELETE,DELETE) 00109399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109599
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00109699
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ESSP.ACCT, 00109799
//* DISP=(NEW,CATLG,KEEP), 00109899
// DISP=(OLD,KEEP,KEEP), 00109999
// UNIT=SYSDA, 00110099
// SPACE=(CYL,(50,50),RLSE), 00110199
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=32400) 00110299
//** DCB=(RECFM=FB,LRECL=72,BLKSIZE=30240) 00110399
//* 00110499
//**** 00110599
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00110699
//**** 00110799
//*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTION DETAIL 00111099
//* COND=(0,LT) 00120099
//*YSOUT DD SYSOUT=* 00130099
//* 00140099
//*ORTIN DD DSN=&&TRAN1,DISP=(OLD,DELETE,DELETE) 00150099
//* DD DSN=&&TRAN2,DISP=(OLD,DELETE,DELETE) 00160099
//*ORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00170099
//*ORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00180099
//*ORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00190099
//*ORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00200099
//*UITOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN, 00210099
//* DISP=(NEW,CATLG,KEEP), 00220099
//* DISP=(OLD,KEEP,KEEP), 00230099
//* UNIT=SYSDA, 00240099
//* SPACE=(CYL,(200,100),RLSE), 00241099
//* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) 00242099
//* 00270099
//**** 00280099
//*YSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX342),DISP=SHR 00290099
//**** 00300099
//**EP0310 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANS INCREMENTAL 00301099
//** COND=(0,LT) 00302099
//**SOUT DD SYSOUT=* 00303099
//* 00304099
//**RTIN DD DSN=&&TRAN3,DISP=(OLD,DELETE,DELETE) 00305099
//**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00306099
//**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00307099
//**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00308099
//**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.TRAN.INCR, 00309099
//** DISP=(NEW,CATLG,KEEP), 00309199
//** DISP=(OLD,KEEP,KEEP), 00309299
//** UNIT=SYSDA, 00309399
//** SPACE=(CYL,(180,60),RLSE), 00309499
//** DCB=(RECFM=FB,LRECL=141,BLKSIZE=28200) 00309599
//** 00309699
//**** 00309799
//**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00309899
//**** 00309999
//**EP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT QUARTER DETAIL 00310099
//** COND=(0,LT) 00320099
//**SOUT DD SYSOUT=* 00330099
//* 00340099
//**RTIN DD DSN=&&QTR1,DISP=(OLD,DELETE,DELETE) 00350099
//** DD DSN=&&QTR2,DISP=(OLD,DELETE,DELETE) 00360099
//** DD DSN=&&QTR3,DISP=(OLD,DELETE,DELETE) 00361099
//**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00370099
//**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00380099
//**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00390099
//**RTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00400099
//**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.QTR, 00410099
//** DISP=(NEW,CATLG,KEEP), 00420099
//** DISP=(OLD,KEEP,KEEP), 00430099
//** UNIT=SYSDA, 00440099
//** SPACE=(CYL,(200,50),RLSE), 00441099
//** DCB=(RECFM=FB,LRECL=63,BLKSIZE=31500) 00442099
//** 00470099
//**** 00480099
//**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00490099
//**** 00500099
//**EP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT PAY DIST 00501099
//** COND=(0,LT) 00502099
//**SOUT DD SYSOUT=* 00503099
//* 00504099
//**RTIN DD DSN=&&PAYDIST1,DISP=(OLD,DELETE,DELETE) 00505099
//** DD DSN=&&PAYDIST2,DISP=(OLD,DELETE,DELETE) 00506099
//**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00507099
//**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00508099
//**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00509099
//**RTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00509199
//**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PAYDIST, 00509299
//** DISP=(NEW,CATLG,KEEP), 00509399
//** DISP=(OLD,KEEP,KEEP), 00509499
//** UNIT=SYSDA, 00509599
//** SPACE=(CYL,(100,50),RLSE), 00509699
//** DCB=(RECFM=FB,LRECL=50,BLKSIZE=30000) 00509799
//** 00509899
//**** 00509999
//**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00510099
//**** 00510199
//**EP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT ERR 00511099
//** COND=(0,LT) 00520099
//**SOUT DD SYSOUT=* 00530099
//** 00540099
//**RTIN DD DSN=&&ERR1,DISP=(OLD,DELETE,DELETE) 00550099
//** DD DSN=&&ERR2,DISP=(OLD,DELETE,DELETE) 00560099
//**RTWK01 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00570099
//**RTWK02 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00580099
//**RTWK03 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00590099
//**RTWK04 DD UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE) 00600099
//**RTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ERR, 00610099
//** DISP=(NEW,CATLG,KEEP), 00620099
//** DISP=(OLD,KEEP,KEEP), 00630099
//** UNIT=SYSDA, 00640099
//** SPACE=(21900,(1000,1000),RLSE), 00650099
//** DCB=(RECFM=FB,LRECL=73,BLKSIZE=21900) 00660099
//** 00670099
//**** 00680099
//**SIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX342),DISP=SHR 00690099
//**** 00700099

126
Procs/DTSBX410 Normal file
View File

@ -0,0 +1,126 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES 00001700
//* INTO COMMA-SEPARATED FILES FOR WEB DATABASE 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX410 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT X101 FILE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X101,
//* DISP=(,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00009000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&DTSIX101,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(6,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00009000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX410),DISP=SHR
//*
//STEP0100 EXEC PGM=DTSBX410,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//EXPBX100 DD DSN=DOESTAX.&EXPNODE..EXPBX100, 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(90,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=90) 00009000
//* 00001700
//IMPBX101 DD DSN=&&DTSIX101, 00005000
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00009000
//* 00001700
//EXPBX102 DD DSN=DOESTAX.&EXPNODE..EXPBX102, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(49000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000
//* 00001700
//*EXPBX104 DD DSN=DOESTAX.&EXPNODE..EXPBX104, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=(OLD,KEEP,KEEP), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(21600,(1000,1000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00009000
//* 00001700
//EXPBX106 DD DSN=DOESTAX.&EXPNODE..EXPBX106, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(26500,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000
//* 00001700
//*EXPBX108 DD DSN=DOESTAX.&EXPNODE..EXPBX108, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=(OLD,KEEP,KEEP), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(24000,(1000,1000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000
//* 00001700
//EXPBX110 DD DSN=DOESTAX.&EXPNODE..EXPBX110, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24900,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000
//* 00001700
//EXPBX120 DD DSN=DOESTAX.&EXPNODE..EXPBX120, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(30800,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00009000
//* 00001700
//*EXPBX131 DD DSN=DOESTAX.&EXPNODE..EXPBX131, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=(OLD,KEEP,KEEP), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(28000,(1000,1000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000) 00009000
//* 00001700
//*EXPBX140 DD DSN=DOESTAX.&EXPNODE..EXPBX140,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(28600,(1000,1000),RLSE),
//* DCB=(RECFM=FB,LRECL=143,BLKSIZE=28600)
//*
//EXPBX141 DD DSN=DOESTAX.&EXPNODE..EXPBX141,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=102,BLKSIZE=30600)
//*
//EXPBX142 DD DSN=DOESTAX.&EXPNODE..EXPBX142,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=54,BLKSIZE=31320)
//*
//EXPBX145 DD DSN=DOESTAX.&EXPNODE..EXPBX145,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(30600,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=69,BLKSIZE=27600)
//*********************************************************************

111
Procs/DTSBX411 Normal file
View File

@ -0,0 +1,111 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES 00001700
//* INTO COMMA-SEPARATED FILES FOR WEB DATABASE 00001700
//* 00001700
//* >> INITIAL CONVERSION 00001700
//** 00001700
//DTSBX411 PROC
//** 00001700
//STEP0100 EXEC PGM=DTSBX411,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//BX411TMP DD DSN=&&X411TMP, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(20,10),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//* 00001700
//EXPBX100 DD DSN=DOESTAX.&LVLNODE..EXPBX100, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(90,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=90) 00009000
//* 00001700
//EXPBX102 DD DSN=DOESTAX.&LVLNODE..EXPBX102, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(29000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000
//* 00001700
//EXPBX104 DD DSN=DOESTAX.&LVLNODE..EXPBX104, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(21600,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600) 00009000
//* 00001700
//EXPBX106 DD DSN=DOESTAX.&LVLNODE..EXPBX106, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(26500,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000
//* 00001700
//EXPBX108 DD DSN=DOESTAX.&LVLNODE..EXPBX108, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000
//* 00001700
//EXPBX110 DD DSN=DOESTAX.&LVLNODE..EXPBX110, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24900,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000
//* 00001700
//EXPBX120 DD DSN=DOESTAX.&LVLNODE..EXPBX120, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(30800,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800) 00009000
//* 00001700
//EXPBX130 DD DSN=DOESTAX.&LVLNODE..EXPBX130, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(29430,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=327,BLKSIZE=29430) 00009000
//* 00001700
//EXPBX131 DD DSN=DOESTAX.&LVLNODE..EXPBX131,
// DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(28000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000)
//*
//EXPBX140 DD DSN=DOESTAX.&LVLNODE..EXPBX140, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(28600,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=143,BLKSIZE=28600) 00009000
//* 00001700
//EXPBX141 DD DSN=DOESTAX.&LVLNODE..EXPBX141, 00005000
// DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=102,BLKSIZE=30600) 00009000
//* 00001700
//EXPBX142 DD DSN=DOESTAX.&LVLNODE..EXPBX142,
// DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=54,BLKSIZE=31320)
//*********************************************************************

151
Procs/DTSBX415 Normal file
View File

@ -0,0 +1,151 @@
//**** 00000010
//* IMPORT T011 DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX415 PROC
//** 00001700
//*************************************************************** 00001700
//* COMBINE THE DEBIT MEMO (X150),
//* REFUND (X151),
//* CREDIT MEMO (X152),
//*************************************** REMOVED 11/14/19 ZL1 00001700
//*&& REMOVED CASE TRACKING EVENT LOG (X155),
//*&& MAGNETIC MEDIA WAGE (X144) FILES.
//******* NO LONGER NEEDED 11/14/19 ZL1 00001700
//*************************************************************** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE INPUT FILES
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X150,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25600,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X151,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25600,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X152,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25600,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//* DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X155,
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25600,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//* DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X144,
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(CYL,(25,5),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&BX415IMP,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX415),DISP=SHR
//*
//*************************************************************** 00001700
//* BUILD T011 AND T025 TRANSACTIONS AND WRITE TO BTC FILE
//*************************************************************** 00001700
//STEP0200 EXEC PGM=DTSBX415,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBTRN DD DSN=&&BX415IMP,
// DISP=(OLD,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//* 00001700
//*DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
//* DISP=(,CATLG,DELETE),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BX415.BTC,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..R309.RPT(+1),
// DISP=(,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFWTRN DD DSN=DOESTAX.&LVLNODE..MAG.W4FILE,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//***************************************************************
//STEP0300 EXEC PGM=DTSBX159, ADD NOTE PAD RECORD FOR CREDIT
// COND=(0,LT), PLACED ON HOLD
// 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)
//*
//DTSIZ058 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,DISP=SHR
//*
//*********************************************************************
//*
//* JOB : DELETE THE FTP REFUND FILE
//*********************************************************************
//STEP0350 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//RFUNDEXP DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*********************************************************************
//* |
//* JOB : CREATE A NEW FTP FILE
//* |
//*********************************************************************
//*
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//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)
//*
//*********************************************************************
//*************************************************************** 00001700
//* ALL FILES ARE CLEARED IN JOB BX202
//*************************************************************** 00001700
//*
//*********************************************************************

115
Procs/DTSBX420 Normal file
View File

@ -0,0 +1,115 @@
//**** 00000010
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX420 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X102,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X104,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X106,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X108,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X110,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X120,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X130,DISP=SHR 00005000
//** DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X132,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X140,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X144,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X145,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X149,DISP=SHR 00005000
//*
//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), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX420,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=&&WEBIMPRT,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//X421BTC DD DSN=&&X421BTC, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X422BTC DD DSN=&&X422BTC, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X423BTC DD DSN=&&X423BTC, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BX420.BTC,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD DSN=&&WAGETMP,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=DOESTAX.&LVLNODE..WAGE.BX420.BTC,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//BX214422 DD DSN=DOESTAX.&LVLNODE..BX422.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD DSN=DOESTAX.&LVLNODE..BX423.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BX420.RPT, 00409000
//** DISP=(,PASS,DELETE),
// DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR
// DD DSN=DOESTAX.&LVLNODE..BX423.BX214,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX420.XREF,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX214),DISP=SHR
//*
//*********************************************************************

87
Procs/DTSBX425 Normal file
View File

@ -0,0 +1,87 @@
//**** 00000010
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX420 PROC
//** 00001700
//***** 00001700
//STEP0110 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000
//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),DISP=SHR 00005000
//*
//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), 00008000
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
//*
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX425),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX425,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//EFTFACH DD DSN=&&WEBIMPRT,
// DISP=(OLD,DELETE,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
//* 00001700
//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,
//* DISP=(,CATLG,DELETE),
// DISP=SHR
//* UNIT=SYSDA,
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//DTSFBTCO DD DSN=DOESTAX.DEVL.BX425.BTC,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:PANKAJ.SHARMA@SAGITEC.COM',
// 'TO:RYAN.MOORE-LEE@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:ESAYAS.LEMMA@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY',
//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ',
// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ',
// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//*********************************************************************

52
Procs/DTSBX426 Normal file
View File

@ -0,0 +1,52 @@
//**** 00000010
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX426 PROC
//*
//STEP0200 EXEC PGM=DTSBX426,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*FTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),DISP=SHR
//EFTFACH DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//DTSFVRO1 DD SYSOUT=*
//* 00001700
//X426RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X426ACHR(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X426RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X426PEND(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//PENDFACH DD DSN=DOESTAX.&LVLNODE..ESSP.X426PEND.ACHDRTN(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..ESSP.X426.BTC(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*********************************************************************

70
Procs/DTSBX427 Normal file
View File

@ -0,0 +1,70 @@
//**** 00000010
//* IMPORT EMPLOYER ADDRESS FROM ESSP AND CHECK FOR UPDATES 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX427 PROC
//** 00001700
//STEP0080 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR 00005000
//SORTOUT DD DSN=DOESTAX.CONV.ESSP.ADDRUPD(+1), 00005000
// DISP=(NEW,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX427),DISP=SHR
//*
//STEP0100 EXEC PGM=DTSBX427,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSZMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX110 DD DSN=DOESTAX.CONV.ESSP.ADDRUPD(+1),DISP=SHR 00005000
//X427RPT1 DD DSN=DOESTAX.CONV.ESSP.X427PAID.TXT,DISP=SHR
//X427RPT2 DD DSN=DOESTAX.CONV.ESSP.X427PEND.TXT,DISP=SHR
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..ESSP.X427.BTC,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFVRO1 DD DSN=DOESTAX.CONV.ESSP.BX420.RPT(+0),
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//*
//STEP0110 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:MACARENA.CANTELAS@DC.GOV',
// 'CC:ROSALIND.HOLBROOK@DC.GOV',
// 'CC:TANYA.BARNES@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:ANA.CORONADO@DC.GOV',
// 'SUBJECT: ESSP ADDRESS UPDATE REPORT.....ZL1',
// 'FILEDESC: ESSP X110 ADDRESS UPDATES ',
// 'FILENAME: ESSP_X110_ADDRESS_UPDATES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X427PAID.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//* 00001700
//*********************************************************************

219
Procs/DTSBX430 Normal file
View File

@ -0,0 +1,219 @@
//**** 00000010
//* IMPORT EMPLOYER REPORT DATA FROM ESSP AND CREATE T028 TRANSACTIONS00001700
//* FOR DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX430 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX140,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.DORGX144,DISP=SHR 00005000
//*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140.DD041818,DISP=SHR 00005000
//* DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144.DD041818,DISP=SHR 00005000
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,25),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECESSP.RPTX430(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
//* SPACE=(30720,(3000,2000),RLSE), 00008000
// SPACE=(CYL,(225,50),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.&LVLNODE..USER.PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX417,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=DOESTAX.&IMPNODE..TDECESSP.RPTX430(+1),
// DISP=OLD 00006000
//* 00001700
//X421BTC DD DUMMY 00005000
//* 00001700
//PENDX140 DD DSN=&&PENDX140, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX144 DD DSN=&&PENDX144, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(30720,(2000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX145 DD DUMMY 00005000
//P530X145 DD DUMMY 00005000
//P530X140 DD DUMMY 00005000
//P530X144 DD DUMMY 00005000
//P530WAGE DD DUMMY 00005000
//P530WOUT DD DUMMY 00005000
//P530XREF DD DUMMY 00005000
//X530RPT1 DD DUMMY 00005000
//X530RPT2 DD DUMMY 00005000
//X422BTC DD DUMMY 00005000
//X423BTC DD DUMMY 00005000
//X424BTC DD DUMMY 00005000
//X530BTC DD DUMMY 00005000
//* 00001700
//X430BTC DD DSN=DOESTAX.PROD.ESSP.X430.BTC,DISP=SHR 00005000
//* 00001700
//*430BTC DD DUMMY 00005000
//* DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//WAGETEMP DD DSN=DOESTAX.&LVLNODE..ESSP.WAGETMP,DISP=SHR
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//DTSFW4GE DD DSN=DOESTAX.CONV.ESSP.X430.W4FILE,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP)
//* DISP=MOD,
//* SPACE=(25600,(900,200),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//BX214422 DD DSN=DOESTAX.&LVLNODE..ESSP.BX422.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD DSN=DOESTAX.&LVLNODE..ESSP.BX423.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0), 00409000
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X430RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(700,500),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X430RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//***********************************************************
//* COPY TEMP PENDING FILES TO NEXT GDG
//***********************************************************
//*********************************************************************
//STEP0410 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX140,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.PROD.ESSP.PENDING.X140(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0415 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX144,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X144(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//* 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'CC:TIMOTHY.PERLOW@DC.GOV',
//* 'CC:DAVON.MALLARD@DC.GOV',
// 'SUBJECT: ESSP-TDEC DAILY DUTAS REPORTS..........ZL1',
// 'FILEDESC: DOES TDEC PROCESSING FOR ESSP ',
// 'FILENAME:DAILY-ESSP-TDEC-REPORTS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ERROR_ESSP_DUTAS.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0320 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
//* 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP REPORTS AND PAYMENTS ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ESSP_DUTAS_RPTERRORS.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X530PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//******** END OF REPORT PROC DTSBX530 AS OF 07/05/16 ZL1 ******

48
Procs/DTSBX431 Normal file
View File

@ -0,0 +1,48 @@
//**** 00000010
//* IMPORT X431 CASE TRACKING DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX431 PROC
//** 00001700
//*************************************************************** 00001700
//* BUILD T003 TRANSACTIONS AND WRITE TO BTC FILE
//*************************************************************** 00001700
//STEP0200 EXEC PGM=DTSBX431,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBDLQSI DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.X431,
// DISP=(OLD,KEEP,KEEP),
//* DISP=MOD,
// UNIT=SYSDA,
// SPACE=(CYL,(3,3),RLSE),
// DCB=(RECFM=FB,LRECL=1246,BLKSIZE=24920)
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*************************************************************** 00001700
//* CLEAR THE INPUT FILES
//*************************************************************** 00001700
//STEP0300 EXEC PGM=IDCAMS, INITIALIZE X431 FILE
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X431,
// DISP=(OLD,KEEP,KEEP)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*
//*********************************************************************

156
Procs/DTSBX432 Normal file
View File

@ -0,0 +1,156 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES 00001700
//* INTO COMMA-SEPARATED FILES FOR WEB DATABASE 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX432 PROC
//** 00001700
//COPY2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101,
// DISP=SHR
//INDD02 DD DSN=DOESTAX.CONV.FROMWEB.X101,DISP=SHR
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT X101 FILE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.FROMWEB.X101,
// DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00009000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&DTSIX101,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00009000
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX410),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSSC432,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//BX410TMP DD DSN=&&X410TMP,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//EXPBX100 DD DUMMY 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
//** UNIT=SYSDA, 00007000
//** SPACE=(90,(1000,1000),RLSE), 00008000
//** DCB=(RECFM=FB,LRECL=30,BLKSIZE=90) 00009000
//* 00001700
//IMPBX101 DD DSN=&&DTSIX101, 00005000
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(6,(1000,1000),RLSE), 00008000
//* SPACE=(256,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000) 00009000
//* DCB=(RECFM=VB,LRECL=256,BLKSIZE=25600) 00009000
//* 00001700
//EXPBX102 DD DUMMY 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
//** UNIT=SYSDA, 00007000
//** SPACE=(29000,(1000,1000),RLSE), 00008000
//** DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000
//* 00001700
//EXPBX104 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(21600,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800)
//*
//EXPBX106 DD DUMMY 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
//** UNIT=SYSDA, 00007000
//** SPACE=(26500,(1000,1000),RLSE), 00008000
//** DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000
//* 00001700
//EXPBX108 DD DUMMY
//** DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** UNIT=SYSDA,
//** SPACE=(24000,(1000,1000),RLSE),
//** DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000)
//*
//EXPBX110 DD DUMMY 00005000
//** DISP=(NEW,CATLG,DELETE), 00006000
//** DISP=(OLD,KEEP,KEEP), 00006000
//** UNIT=SYSDA, 00007000
//** SPACE=(24900,(1000,1000),RLSE), 00008000
//** DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000
//* 00001700
//EXPBX120 DD DUMMY
//** DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** UNIT=SYSDA,
//** SPACE=(30800,(1000,1000),RLSE),
//** DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800)
//*
//EXPBX131 DD DUMMY
//** DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** UNIT=SYSDA,
//** SPACE=(28000,(1000,1000),RLSE),
//** DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000)
//*
//EXPBX140 DD DUMMY
//** DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** UNIT=SYSDA,
//** SPACE=(28600,(1000,1000),RLSE),
//** DCB=(RECFM=FB,LRECL=143,BLKSIZE=28600)
//*
//EXPBX141 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X141,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(CYL,(50,10),RLSE),
// DCB=(RECFM=FB,LRECL=102,BLKSIZE=30600)
//*
//EXPBX142 DD DUMMY
//** DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** UNIT=SYSDA,
//** SPACE=(CYL,(10,10),RLSE),
//** DCB=(RECFM=FB,LRECL=54,BLKSIZE=31320)
//*
//EXPBX145 DD DUMMY
//** DISP=(NEW,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** UNIT=SYSDA,
//** SPACE=(30720,(1000,1000),RLSE),
//** DCB=(RECFM=FB,LRECL=69,BLKSIZE=27600)
//*
//STEP0300 EXEC PGM=IDCAMS, COPY X104 FILE TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104,
// DISP=SHR
//** UNIT=SYSDA,
//** SPACE=(8192,(100,200),RLSE),
//** DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.DAILY.OUT.X104(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(23800,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=119,BLKSIZE=2380)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************

29
Procs/DTSBX433 Normal file
View File

@ -0,0 +1,29 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES 00001700
//* INTO COMMA-SEPARATED FILES FOR WEB DATABASE 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX433 PROC
//*
//STEP0400 EXEC PGM=IEBGENER,REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: DAILY X104 AND X141 FILES FROM PRIOR DAY ...'),
// MAILFROM=DUTAS@DC.GOV
//** 'FILEDESC: X104 AND X141 FILES READY FOR PICKUP ')
//** 'FILENAME:DAILY FILES')
//*YSUT1 DD DUMMY
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//*SYSIN DD DUMMY
//SYSUT1 DD DSN=DOESTAX.CONV.X104.X141.FILES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*********************************************************************

64
Procs/DTSBX440 Normal file
View File

@ -0,0 +1,64 @@
//**** 00000100
//** 00000200
//** CREATE T040 TRANSCATIONS FROM AUDIT LABTOP SYSTEM 00000526
//** RUNS BEFORE DAILY UPDATE (DTSPDAY1) 00000626
//** 00000700
//DTSBX440 PROC 00000801
//* 00000900
//** DEFNS NEEDED FOR THIS PROC: 00001100
//** LVLNODE = DEVL/TEST/PROD 00001200
//**** 00001400
//STEP4401 EXEC PGM=DTSBX440, PERIODIC EXTRACT 00001520
// COND=(0,LT) 00001601
//* 00001800
//SYSOUT DD SYSOUT=* 00004000
//SYSABOUT DD SYSOUT=* 00005000
//SYSUDUMP DD SYSOUT=* 00006000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007000
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00012200
// AMP=('BUFNI=5,BUFND=10') 00013000
//* 00030003
//DTSFVRO1 DD DSN=DOESTAX.&MSTNODE..BX440.RPT, 00040010
//** DISP=(,CATLG,DELETE), 00041006
// DISP=(OLD,KEEP,KEEP), 00042006
// SPACE=(8192,(100,200),RLSE), 00043003
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00044003
//* 00045003
//DTSFBTCO DD DSN=&&X440BTC, 00070008
// DISP=(NEW,PASS,DELETE), 00080008
// SPACE=(8192,(100,200),RLSE), 00081008
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00081108
//**** 00082000
//DTSFAUDT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..AUDIT.X144, 00083025
// DISP=(OLD,KEEP,KEEP) 00085001
//******************************************************************* 00085128
//*** COPY AUDIT PACKAGE X144 FILES TO BBACKUP FILE. 00085228
//** 00085328
//******************************************************************* 00085428
//** 00085528
//COPYX144 EXEC PGM=IDCAMS,COND=(0,LT) 00085628
//INDD01 DD DSN=ECNTSUP.DOESTAX.&IMPNODE..AUDIT.X144,DISP=SHR 00085728
//** 00085828
//OUTDD01 DD DSN=DOESTAX.CONV.BACKUP.AUDTX144(+1), 00085928
// DISP=(NEW,CATLG,DELETE), 00086028
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE), 00086128
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=2560) 00086228
//SYSPRINT DD SYSOUT=(*) 00086328
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00086428
//** 00086528
//* 00087000
//* BYPASS STEP WHEN THERE ARE NO ERRORS ON INPUT FILE 00111014
//* 00112014
//STEP4402 EXEC PGM=IEBGENER,COND=(2,NE,STEP4401),REGION=4M 00120020
//SYSPRINT DD SYSOUT=* 00130009
//OUT1 OUTPUT DEST=U1003, 00140009
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 00150009
//* 'CC:GIL.DIMATTIA@DC.GOV', 00160009
// 'SUBJECT: DUTAS AUDIT ERROR REPORT.....ZL1', 00170009
// 'FILEDESC: DUTAS AUDIT REPORT ', 00180009
// 'FILENAME: DUTAS_AUDIT.TXT'), 00190027
// MAILFROM=DUTAS@DC.GOV 00191027
//SYSUT1 DD DSN=DOESTAX.&MSTNODE..BX440.RPT,DISP=SHR 00200010
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 00210009
//SYSIN DD DUMMY 00220009
//* 00230009

46
Procs/DTSBX441 Normal file
View File

@ -0,0 +1,46 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES 00001700
//* INTO COMMA-SEPARATED FILES FOR WEB DATABASE 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX441 PROC
//** 00001700
//STEP0100 EXEC PGM=DTSBX441,
// 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')
//*** CORRECTED INACTIVATE DATE AND CODE
//*XPBX104 DD DSN=DOESTAX.DEVL.X104.COMBIND.INPUT,DISP=SHR
//*
//EXPBX104 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104,DISP=SHR
//*
//EXPNW104 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104.UPD,DISP=SHR
//*
//STEP0200 EXEC PGM=IDCAMS, COPY X104 UPD FILE TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104.UPD,
// DISP=SHR
//*
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104,DISP=SHR
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0300 EXEC PGM=IDCAMS, COPY X104 UPD FILE FOR BKUP
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104.UPD,
// DISP=SHR
//*
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.X441.X104(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(23800,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=119,BLKSIZE=2380)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************

134
Procs/DTSBX442 Normal file
View File

@ -0,0 +1,134 @@
//**** 00000010
//* IMPORT AUDIT DATA FROM LAPTOP AUDIT DATABASE 00001700
//* TO MAINFRAME (WAGES AND AMENDED REPORTS) 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX442 PROC
//** 00001700
//*********************************************************** 00001700
//** CREATE A FILE WITH X163 AND X164 RECORDS ONLY 00001700
//** 00001700
//*********************************************************** 00001700
//STEP4421 EXEC PGM=SORT,PARM='VLTEST=0',
// COND=(0,NE)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..AUDIT.X144, 00005000
// DISP=(OLD,KEEP,KEEP)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&QTRSORT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(25,5),RLSE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX443),DISP=SHR
//*
//** 00001700
//*********************************************************** 00001700
//** SORT BY RECORD TYPE/EMPLOYER/QUARTER 00001700
//** 00001700
//*********************************************************** 00001700
//STEP4422 EXEC PGM=SORT,PARM='VLTEST=0',
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..AUDIT.X144, 00005000
// DISP=(OLD,KEEP,KEEP)
//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=&&WAGESRT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(25,5),RLSE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=25600)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX442),DISP=SHR
//*
//********************************************************
//* CREATE AMENDED REPORT AND WAGE TRANSACTIONS
//********************************************************
//*
//STEP4423 EXEC PGM=DTSBX442,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=30')
//***
//DTSFAUD DD DSN=&&WAGESRT, 00005000
// DISP=(OLD,DELETE,DELETE)
//** 00001700
//DTSFAUQ DD DSN=&&QTRSORT,
// DISP=(OLD,DELETE,DELETE)
//**
//CURRBTCH DD DSN=DOESTAX.&LVLNODE..CURRBTCH,
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(80,(80,80),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//**
//DTSFBTCO DD DSN=&&X442BTC,
// DISP=(NEW,PASS,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFWTMP DD DSN=&&WAGETMP,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//*DTSFWOUT DD DSN=DOESTAX.&LVLNODE..BX442.WAGE,
//** DISP=(NEW,CATLG,CATLG),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFWOUT DD DSN=&&X442WAGE,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BX420.RPT, 00409000
//** DISP=(,PASS,DELETE),
// DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*********************************************************************
//* IF RETURN CODE = 0, COPY TEMP FILES TO CATALOGED FILES.
//*********************************************************************
//STEP4424 EXEC PGM=IDCAMS, COPY WAGES TO BX442.WAGE
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&X442WAGE,
// DISP=(OLD,DELETE,DELETE)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BX442.WAGE,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP4425 EXEC PGM=IDCAMS, COPY T027 TRANSACTIONS TO BTC
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&X442BTC,DISP=(OLD,DELETE,DELETE)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BX442.BTC,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*

136
Procs/DTSBX452 Normal file
View File

@ -0,0 +1,136 @@
//**** 00000010
//* PROCESS ESSP AMENDED REPORT - RELEASED TO DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX452 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.ESSP.AMEND.FAILED.X140(+0),DISP=SHR 00005000
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&AMDRPT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(30720,(2000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX451),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSZX553,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=&&AMDRPT,DISP=(OLD,DELETE,DELETE)
//* 00001700
//PENDX140 DD DSN=DOESTAX.CONV.ESSP.AMEND.PENDX140, 00005000
//* DISP=(,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX144 DD DSN=&&PENDX144, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1500,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX147 DD DSN=&&PENDX147, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1500,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX145 DD DSN=DOESTAX.CONV.ESSP.AMEND.PENDX145, 00005000
//* DISP=(,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//X452BTC DD DSN=DOESTAX.PROD.ESSP.X452.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD DSN=DOESTAX.&LVLNODE..ESSP.WAGETMP,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..ESSP.FTP.X144,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//DTSFW4GE DD DSN=DOESTAX.CONV.ESSP.X452.W4FILE,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//BX214422 DD DSN=DOESTAX.&LVLNODE..ESSP.BX422.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD DSN=DOESTAX.&LVLNODE..ESSP.BX423.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//X452RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X452PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X452RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X452PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
// COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.ESSP.AMEND.PENDX140,
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.AMEND.FAILED.X140(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*
//*

32
Procs/DTSBX475 Normal file
View File

@ -0,0 +1,32 @@
//**** 00000010
//* 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
//DTSBX475 PROC
//** 00001700
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//ADRFILE DD DSN=UI.TAX.PROD.WEEKLY.EXTRACT,
// DISP=(OLD,DELETE,DELETE)
//** 00001700
//STEP0200 EXEC PGM=DTSBX475,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//* 00001700
//ADRFILE DD DSN=UI.TAX.PROD.WEEKLY.EXTRACT, 00005000
// DISP=(NEW,CATLG,DELETE), //* TO START SERIES 00006000
//* DISP=(OLD,KEEP,KEEP), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(30240,(3000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=432,BLKSIZE=30240) 00009000
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*********************************************************************

45
Procs/DTSBX476 Normal file
View File

@ -0,0 +1,45 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) 00001700
//* FROM TAX MASTER FILES FOR USE IN BENEFITS APPLICATIONS 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX476 PROC
//** 00001700
//STEP0100 EXEC PGM=DTSBX476,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//* 00001700
//TAXFILE DD DSN=&&TAXFILE, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(31400,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=314,BLKSIZE=31400) 00009000
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//**************************************************************** 00001700
//STEP0200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDD476), 00760053
// DISP=SHR 00770053
//* 00780053
//STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=&&TAXFILE,
// DISP=(OLD,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(31400,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=314,BLKSIZE=31400)
//OUTDD01 DD DSN=UI.PROD.TEMP.TAXCOPY,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************
//*********************************************************************

52
Procs/DTSBX479 Normal file
View File

@ -0,0 +1,52 @@
//**** 00000010
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
//* FROM TAX MASTER FILES FOR USE IN BENEFITS APPLICATIONS 00001700
//* 00001700
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX476 PROC
//** 00001700
//STEP0100 EXEC PGM=DTSBX479,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//* 00001700
//TAXFILE DD DSN=DOESTAX.DEVL.TAXMAST.UIBSEMPS, 00005000
//* DISP=(,CATLG,DELETE), 00006000
// DISP=SHR 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(31400,(1000,1000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=328,BLKSIZE=3280) 00009000
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//* 00014000
// 00047000
//**************************************************************** 00001700
//STEP0200 EXEC PGM=IDCAMS, DELETE AND DEFINE 00740053
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00750053
//*SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDD477), 00760053
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDD476), 00760053
// DISP=SHR 00770053
//* 00780053
//STEP0400 EXEC PGM=IDCAMS, LOAD VSAM FILE 00740053
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00750053
//INDD01 DD DSN=&&TAXFILE,
// DISP=(OLD,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(31400,(8000,5000),RLSE),
// DCB=(RECFM=FB,LRECL=314,BLKSIZE=31400)
//*OUTDD01 DD DSN=UI.PROD.TEMP.TAXCOPY,DISP=SHR, 00850055
//OUTDD01 DD DSN=DOESTAX.DEVL.TEMP.TAXCOPY,DISP=SHR, 00850055
// AMP=('BUFNI=5,BUFND=30') 00860055
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE), 00760053
// DISP=SHR 00770053
//*********************************************************************
//*********************************************************************

52
Procs/DTSBX501 Normal file
View File

@ -0,0 +1,52 @@
//**** 00000010
//* PROCESS FAILED RETURD ACH DEBIT TRANS FROM WELLS FARGO. 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX501 PROC
//*
//STEP0200 EXEC PGM=DTSBX501,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*FTFACH DD DSN=DOESTAX.&LVLNODE..ESSP.ACHDRTN.DD092615,DISP=SHR
//EFTFACH DD DSN=DOESTAX.CONV.ESSP.X426PEND.ACHDRTN(+0),DISP=SHR
// DD DSN=DOESTAX.PROD.ESSP.X501FAIL.ACHDRTN(+0),DISP=SHR
//* 00001700
//X501RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X501PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X501RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X501FAIL.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//FAILFACH DD DSN=DOESTAX.&MSTNODE..ESSP.X501FAIL.ACHDRTN(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..ESSP.X501.BTC,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*********************************************************************

196
Procs/DTSBX530 Normal file
View File

@ -0,0 +1,196 @@
//**** 00000010
//* IMPORT EMPLOYER PAYMNT DATA FROM ESSP - X145 00001700
//* IMPORT EMPLOYER PAYMNT DATA FROM TDEC - X145 00001700
//* CREATE T025 TRANSACTIONS FOR DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE PRIOR TO (DTSPDAY1) 00001700
//** 00001700
//DTSBX530 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082018,DISP=SHR 00005000
//SORTIN DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+0),DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.PAYMENT,DISP=SHR
// DD DSN=DOESTAX.CONV.DOESESSP.X145SCHK(+0),DISP=SHR
// DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+0),DISP=SHR
// DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+0),DISP=SHR
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+0),DISP=SHR
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.PROD.TDECESSP.PAYX530(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
//* SPACE=(30720,(2000,2000),RLSE), 00008000
// SPACE=(CYL,(50,25),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX417,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=DOESTAX.&MSTNODE..TDECESSP.PAYX530(+1),
// DISP=(OLD,KEEP,KEEP) 00006000
//* 00001700
//X421BTC DD DUMMY 00005000
//* 00001700
//P530X140 DD DUMMY 00005000
//* 00001700
//P530X144 DD DUMMY 00005000
//PENDX145 DD DUMMY 00005000
//* 00001700
//P530X145 DD DSN=&&PENDX145, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX140 DD DUMMY 00005000
//*PENDX140 DD DSN=&&PENDX140, 00005000
//* DISP=(NEW,PASS,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX144 DD DUMMY 00005000
//*PENDX144 DD DSN=&&PENDX144, 00005000
//* DISP=(NEW,PASS,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//X422BTC DD DUMMY 00005000
//X423BTC DD DUMMY 00005000
//X424BTC DD DUMMY 00005000
//* 00001700
//X530BTC DD DSN=DOESTAX.PROD.ESSP.X530.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X430BTC DD DUMMY 00005000
//* 00001700
//P530WAGE DD DUMMY
//*
//P530WOUT DD DUMMY
//WAGETEMP DD DUMMY
//DTSFW4GE DD DUMMY
//BX214422 DD DUMMY
//*
//P530XREF DD DUMMY
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0), 00409000
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X530RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X530PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X530RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X530PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X430RPT1 DD DUMMY
//*
//X430RPT2 DD DUMMY
//*
//***********************************************************
//* COPY TEMP PENDING FILES TO NEXT GDG
//***********************************************************
//*********************************************************************
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX145,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.PROD.ESSP.PENDING.X145(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'CC:SHILONDA.WIGGINS@DC.GOV',
// 'CC:SIA.KIAWU@DC.GOV',
// 'CC:BRANDON.SOLOMON@DC.GOV',
// 'CC:CHINYEE.CHONG@DC.GOV',
// 'CC:ABDINASIR.MOHAMUD@DC.GOV',
// 'SUBJECT: ESSP-TDEC DAILY DUTAS PAYMENTS.........ZL1',
// 'FILEDESC: DOES TDEC PROCESSING FOR ESSP ',
// 'FILENAME:DAILY-ESSP-TDEC-PAYMENTS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X530PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
//* 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ERROR_ESSP_DUTAS.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0320 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
//* 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP REPORTS AND PAYMENTS ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ESSP_DUTAS_RPTERRORS.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X530PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//******** END OF REPORT PROC DTSBX530 AS OF 07/05/16 ZL1 ******

89
Procs/DTSBX626 Normal file
View File

@ -0,0 +1,89 @@
//**** 00000010
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
//* TO MAINFRAME 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBX626 PROC
//*
//STEP0450 EXEC PGM=DTSBX626,
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX626 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//* 00001700
//***
//DTSIX145 DD DSN=&&RPTACH,DISP=(OLD,PASS,DELETE)
//DTSIXACH DD DSN=&&WEBIMPRT,DISP=(OLD,PASS,DELETE)
//* 00001700
//*426RPT1 DD DSN=DOESTAX.DEVL.X426RETN(+1),
//* DISP=(,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//*426RPT2 DD DSN=DOESTAX.DEVL.X426PEND(+1),
//* DISP=(,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//DTSOTOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,DISP=SHR
//*
//DTSOX145 DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//DTSFBTCO DD DSN=DOESTAX.DEVL.X426.BTC,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*********************************************************************
//
//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
//*
//***********************************************************
//STEP0600 EXEC PGM=IEBGENER,REGION=4M,
// COND=(8,NE,STEP0450)
//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 REPORT ',
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT')
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//**

197
Procs/DTSBXACH Normal file
View File

@ -0,0 +1,197 @@
//**** 00000010
//* PROCESS ESSP ACH PAYMENTS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBXACH PROC
//** 00001700
//STEP0100 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.DD020415,DISP=SHR
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..ESSP.RPTACH(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX438),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX438,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..ESSP.RPTACH(+1),
//* DISP=OLD 00006000
// DISP=(OLD,KEEP,KEEP)
//* 00001700
//DTSPX145 DD DUMMY 00005000
//*TSPX145 DD DSN=&&PENDX140, 00005000
//* DISP=(NEW,PASS,DELETE), 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(1000,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//DTSFBTCO DD DUMMY 00005000
//*TSFBTCO DD DSN=DOESTAX.&IMPNODE..X438.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X438RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X438PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X438RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X438PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0), 00409000
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:ESAYAS.LEMMA@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:PANKAJ.SHARMA@SAGITEC.COM',
//* 'CC:SIVA.SAMBASIVAM@SAGITEC.COM',
// 'SUBJECT: ESSP DAILY ACH PAYMENTS RECEIVED....ZL1',
// 'FILEDESC: ESSP ACH PAYMENTS FOR DUTAS ',
// 'FILENAME:ESSP_DUTAS_ACHPAYMTS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X438PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(4,LT)
//SYSOUT DD SYSOUT=*
//*
//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)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..ESSP.ACHOQTR,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSXO438),DISP=SHR
//*
//STEP0600 EXEC PGM=DTSBX438,
// COND=(4,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..ESSP.ACHOQTR,
// DISP=OLD 00006000
//* 00001700
//DTSPX145 DD DSN=&&PENDX140, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X438.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X438RPT1 DD DUMMY
//*438RPT1 DD DSN=DOESTAX.&LVLNODE..X438PAID.TXT,
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(30000,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X438RPT2 DD DUMMY
//*438RPT2 DD DSN=DOESTAX.&LVLNODE..X438PEND.TXT,
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(30000,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0), 00409000
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//STEP0700 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
// COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX140,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.ACHOQTR,
//* DISP=(,CATLG,DELETE),
// DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//** 00001700
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(4,LT)
//SYSOUT DD SYSOUT=*
//*
//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)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..ESSP.ACHIQTR,
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSXI438),DISP=SHR
//*

180
Procs/DTSBXCHK Normal file
View File

@ -0,0 +1,180 @@
//**** 00000010
//* PROCESS TDEC CHECK DEPOSIT FILES 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBXCHK PROC
//** 00001700
//STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR
// DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
//* DISP=(NEW,CATLG,DELETE),
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0220 EXEC PGM=DTSBX429,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
// DISP=SHR 00006000
//* 00001700
//DTSPX145 DD DSN=&&PENDX145, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..TDEC.X429.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
//* DISP=MOD, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X429RPT1 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X429RPT2 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//STEP0230 EXEC PGM=IEBGENER,COND=(3,NE,STEP0220),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO: ZARATH.LALPUTAN@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: NO TDEC CHECKS TODAY .....ZL1',
// 'FILEDESC: DOES-TDEC DAILY CHECK PROCESSING ',
// 'FILENAME:NO_TDEC_DOES_CHECK.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.NOCHECK.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//* SEND EMAIL WHEN CHECK FILES HAS ERRORS
//***********************************************************
//***********************************************************
//STEP0240 EXEC PGM=IEBGENER,COND=(2,NE,STEP0220),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC DAILY CHECKS HAS ERROR..ZL1',
// 'FILEDESC: TDEC DOES ERROR REPORT ',
// 'FILENAME:ERROR_DOES_DUTAS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORCHK.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//* SEND EMAIL WHEN CHECK FILES PROCESSED
//***********************************************************
//***********************************************************
//STEP0245 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC DAILY CHECKS REPORT.....ZL1',
// 'FILEDESC: TDEC DOES CHECKS REPORT ',
// 'FILENAME:TDEC_DOES_CHECK.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.X429PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//STEP0250 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
// COND=(3,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX145,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*
//STEP0260 EXEC PGM=IDCAMS, COPY CHKS RECEIVE TO QTR FILE
// COND=(3,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,
// DISP=OLD, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.G2014Q4,
//* DISP=(,CATLG,DELETE),
// DISP=MOD,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//
//**************** END OF PROC FOR NOW ZL1******
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX145,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
//* DISP=(,CATLG,DELETE),
// DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************

240
Procs/DTSBXDTS Normal file
View File

@ -0,0 +1,240 @@
//**** 00000010
//* PROCESS ESSP REJECTED DATA FILES - RELEASE DATA TO DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBXPEN PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.PROD.ESSP.FAILED.X140,DISP=SHR 00005000
// DD DSN=DOESTAX.PROD.ESSP.FAILED.X145,DISP=SHR 00005000
// DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X140,DISP=SHR
// DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.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)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&MSTNODE..TDECESSP.REJECTS(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX418,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=DOESTAX.&MSTNODE..TDECESSP.REJECTS(+1),
// DISP=OLD 00006000
//* 00001700
//PENDX140 DD DSN=&&PENDX140, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX144 DD DSN=&&PENDX144, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1500,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX145 DD DSN=&&PENDX145, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//X436BTC DD DSN=DOESTAX.&MSTNODE..ESSP.X418.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD DSN=DOESTAX.&LVLNODE..ESSP.WAGETMP,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//DTSFW4GE DD DSN=DOESTAX.&LVLNODE..ESSP.X418.W4FILE,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//BX214422 DD DSN=DOESTAX.&LVLNODE..ESSP.BX422.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD DSN=DOESTAX.&LVLNODE..ESSP.BX423.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//X436RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X418PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=MOD,
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X436RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X418PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=MOD,
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:TIMOTHY.PERLOW@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:MACARENA.CANTELAS@DC.GOV',
// 'CC:ROSALIND.HOLBROOK@DC.GOV',
//* 'CC:DAVON.MALLARD@DC.GOV',
// 'SUBJECT: DUTAS WEEKLY REJECT REPORT......ZL1',
// 'FILEDESC: DUTAS WEEKLY REJECTED DATA FROM ESSP ',
// 'FILENAME:DUTAS_WEEKLY_REJS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X418PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//*TEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//*YSPRINT DD SYSOUT=*
//*UT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
//* 'CC:NANCY.HUDAK@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
//* 'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1',
//* 'FILEDESC: ESSP DUTAS ERROR REPORT ',
//* 'FILENAME:ERROR_ESSP_DUTAS.TXT')
//*YSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR
//*YSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//*YSIN DD DUMMY
//*
//*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES
//* COND=(0,LT)
//*YSOUT DD SYSOUT=*
//*ORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR
//* DD DSN=DOESTAX.&LVLNODE..BX423.BX214,DISP=SHR
//*ORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX420.XREF,
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(30000,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*YSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX214),DISP=SHR
//*
//*********************************************************************
//*
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
// COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX144,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.FAIL.DTSREJS.X144(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*********************************************************************
//** DELETE AND CREATE FILES USED BY REJECT PROC DTSBXDTS
//******************************************************************
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD DSN=DOESTAX.PROD.ESSP.FAILED.X140,
// DISP=(OLD,DELETE,DELETE)
//*
//*********************************************************************
//** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN
//******************************************************************
//STEP0601 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD DSN=DOESTAX.PROD.ESSP.FAILED.X145,
// DISP=(OLD,DELETE,DELETE)
//*
//*********************************************************************
//** DELETE AND CREATE FILES USED BY REJECT PROC DTSBXDTS
//******************************************************************
//STEP0602 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX140 DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X140,
// DISP=(OLD,DELETE,DELETE)
//*
//*********************************************************************
//** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN
//******************************************************************
//STEP0603 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFX145 DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X145,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0604 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
// COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX140,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X140(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//STEP0605 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
// COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX145,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X145(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************

159
Procs/DTSBXPAY Normal file
View File

@ -0,0 +1,159 @@
//**** 00000010
//* PROCESS TDEC REPORT PAYMENTS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBXPAY PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,DISP=SHR
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(30720,(1000,1000),RLSE), 00008000
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX437,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),
// DISP=SHR 00006000
//* 00001700
//DTSPX145 DD DSN=&&PENDX140, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(1000,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
//* DISP=MOD, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//***********************************************************
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:JOY.DIGGS@DC.GOV',
// 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
// 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1',
// 'FILEDESC: DOES TDEC REPORT PAYMENTS ',
// 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1',
// 'FILEDESC: TDEC DUTAS PAYMT REPORT ',
// 'FILENAME:TDEC_DUTAS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//*
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
// COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX140,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1),
// DISP=(,CATLG,DELETE),
//* DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX144,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144,
//* DISP=(,CATLG,DELETE),
// DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX145,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
//* DISP=(,CATLG,DELETE),
// DISP=SHR,
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************

195
Procs/DTSBXREG Normal file
View File

@ -0,0 +1,195 @@
//**** 00000010
//* IMPORT EMPLOYER DATA FROM ESSP SYSTEM FOR PROCESSING 00001700
//* TO MAINFRAME TAX SYSTEM DAILY BATCH CYCLE 00001700
//* 00001700
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBXREG PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X102,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X104,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X106,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X108,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X110,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X120,DISP=SHR 00005000
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..FROMESSP(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX420,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=DOESTAX.&IMPNODE..FROMESSP(+1),
// DISP=SHR 00006000
//* 00001700
//PENDX140 DD DUMMY
//*ENDX140 DD DSN=DOESTAX.&IMPNODE..ESSP.PENDX140,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//PENDX144 DD DUMMY
//*ENDX144 DD DSN=DOESTAX.&IMPNODE..ESSP.PENDX144,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//PENDX145 DD DUMMY
//*ENDX145 DD DSN=DOESTAX.&IMPNODE..ESSP.PENDX145,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//*
//X424BTC DD DSN=DOESTAX.&MSTNODE..ESSP.X424.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X422BTC DD DUMMY 00005000
//*422BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X422.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X423BTC DD DUMMY 00005000
//*423BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X423.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X430BTC DD DUMMY
//*430BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X430.BTC,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X421BTC DD DSN=DOESTAX.&MSTNODE..ESSP.X421.BTC,
//* DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD DUMMY
//*AGETEMP DD DSN=DOESTAX.&IMPNODE..ESSP.WAGETMP,
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* UNIT=SYSDA,
//* SPACE=(25600,(100,100),RLSE),
//* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFW4GE DD DUMMY
//*TSFW4GE DD DSN=DOESTAX.&IMPNODE..ESSP.W4FILE,
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(25600,(100,200),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//WAGEOUT DD DUMMY
//*AGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144,
//* DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(25600,(100,200),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//BX214422 DD DSN=DOESTAX.&IMPNODE..ESSP.BX422.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD DSN=DOESTAX.&IMPNODE..ESSP.BX423.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//DTSFVRO1 DD DSN=DOESTAX.&IMPNODE..ESSP.BX420.RPT(+1), 00409000
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X434RPT1 DD DUMMY
//**34RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PAID.TXT,
//** DISP=(,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** SPACE=(30000,(100,200),RLSE),
//** DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X434RPT2 DD DUMMY
//**34RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PEND.TXT,
//** DISP=(,CATLG,DELETE),
//** DISP=(OLD,KEEP,KEEP),
//** SPACE=(30000,(100,200),RLSE),
//** DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//***********************************************************
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: NO ESSP FTP FILES TODAY ON MAINFRAME......ZL1',
// 'FILEDESC: DOES TDEC PROCESSING FOR ESSP ',
// 'FILENAME:NO_ESSP_DUTAS_FILES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.NOWEBRG.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ERROR_ESSP_DUTAS.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//************ END OF REGISTRATION PROC 01/03/15 ZL1

260
Procs/DTSBXRPT Normal file
View File

@ -0,0 +1,260 @@
//**** 00000010
//* IMPORT EMPLOYER REPORT DATA FROM ESSP AND CREATE T028 TRANSACTIONS00001700
//* FOR DUTAS 00001700
//* 00001700
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
//** 00001700
//DTSBXRPT PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.DORGX140,DISP=SHR 00005000
// DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.DORGX144,DISP=SHR 00005000
//* DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X145,DISP=SHR 00005000
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,DISP=SHR
//* DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.APAYM,DISP=SHR
// DD DSN=DOESTAX.DEVL.FIX.WAGES,DISP=SHR
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECESSP.RPTPAY(+1),
// DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
// UNIT=SYSDA,
// SPACE=(30720,(4000,3000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX417,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* 00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG DD DSN=DOESTAX.&IMPNODE..TDECESSP.RPTPAY(+1),
// DISP=OLD 00006000
//* 00001700
//X421BTC DD DUMMY 00005000
//*421BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X421.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//PENDX140 DD DSN=&&PENDX140, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX144 DD DSN=&&PENDX144, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(30720,(2000,2000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//PENDX145 DD DSN=&&PENDX145, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//* 00001700
//X422BTC DD DUMMY 00005000
//*422BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X422.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X423BTC DD DUMMY 00005000
//*423BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X423.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X424BTC DD DUMMY 00005000
//*424BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X430.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=SHR, 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//X430BTC DD DSN=DOESTAX.PROD.ESSP.X430.BTC, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR 00006000
//* UNIT=SYSDA, 00007000
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00001700
//*TSFBTCO DD DSN=DOESTAX.&LVLNODE..ESSP.X420.BTC,
//* DISP=(NEW,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
//* SPACE=(8192,(100,200),RLSE),
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD DSN=DOESTAX.&LVLNODE..ESSP.WAGETMP,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(25600,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//DTSFW4GE DD DSN=DOESTAX.&LVLNODE..ESSP.X430.W4FILE,
//* DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
//* DISP=MOD,
// SPACE=(25600,(900,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//BX214422 DD DSN=DOESTAX.&LVLNODE..ESSP.BX422.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD DSN=DOESTAX.&LVLNODE..ESSP.BX423.BX214,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP), 00410000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//X421RPT1 DD DUMMY
//X421RPT2 DD DUMMY
//*
//X434RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PAID.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//X434RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X430PEND.TXT(+1),
// DISP=(,CATLG,DELETE),
//* DISP=(OLD,KEEP,KEEP),
// SPACE=(30000,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
//*
//***********************************************************
//* SEND EMAIL WHEN INPUT FILES EMPTY
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: NO ESSP FTP FILES TODAY ON MAINFRAME......ZL1',
// 'FILEDESC: DOES TDEC PROCESSING FOR ESSP ',
// 'FILENAME:NO_ESSP_DUTAS_FILES.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.NOWEBRG.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ERROR_ESSP_DUTAS.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0320 EXEC PGM=IEBGENER,REGION=4M,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:GERALD.SMART@DC.GOV',
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP REPORTS AND PAYMENTS ERROR..ZL1',
// 'FILEDESC: ESSP DUTAS ERROR REPORT ',
// 'FILENAME:ESSP_DUTAS_RPTERRORS.TXT')
//SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X430PEND.TXT(+1),DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//* COPY TEMP PENDING FILES TO NEXT GDG
//***********************************************************
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX140,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.PROD.ESSP.PENDING.X140(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//*
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX144,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X144(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(30720,(2000,2000),RLSE), 00008000
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//
//*********************************************************************
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&PENDX145,
// DISP=(OLD,DELETE,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01 DD DSN=DOESTAX.PROD.ESSP.PENDING.X145(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************
//******** END OF REPORT PROC DTSBXRPT AS OF 01/05/15 ZL1 ******

31
Procs/DTSBY202 Normal file
View File

@ -0,0 +1,31 @@
//**DTSBY202 PROC 00000010
//**
//STEP0100 EXEC PGM=DTSBY202, READ ICESA FILE TO SEND EMAIL
// COND=(0,LT), REPORTS
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//*
//RPT202F1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR
//DTSEMAIL DD DSN=DOESTAX.&LVLNODE..Y202.EMAIL,DISP=SHR
//***************************************************************
//EMAIL EXEC PGM=IEBGENER,
// COND=(0,GT,STEP0100), REPORTS
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PATRICK.HOLMES@DC.GOV',
// 'TO: MARGARET.HERNANDEZ@DC.GOV',
// 'CC: GIL.DIMATTIA@DC.GOV',
//* 'CC: GEORGE.BROWN@DC.GOV',
// 'SUBJECT: ICESA BATCH REPORT ',
// 'FILEDESC: ICESA BANK DEPOSIT TICKETS ',
// 'FILENAME: ICESARPT.PDF')
//SYSUT1 DD DISP=SHR,
// DSN=DOESTAX.&LVLNODE..Y202.EMAIL
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*

71
Procs/DTSBZ190 Normal file
View File

@ -0,0 +1,71 @@
//****************************************************************** 00001700
//DTSBU190 PROC
//****************************************************************** 00001700
//* COPY CONV REPORT AND WAGE TRANSACTIONS FROM ICESA FORMAT 00001700
//* SUBMISSIONS TO PRODUCTION BTC AND WAGE.BTC FILES. 00001700
//****************************************************************** 00001700
//* 00001700
//STEP0280 EXEC PGM=DTSBU190, COPY MESSAGES OUTPUT
// COND=(0,LT),
// PARM='INFO,N'
//INFOMINP DD DSN=DOESTAX.CONV.FTP.BX216,
// DISP=(OLD,DELETE,KEEP),
// SPACE=(31800,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//*
//INFOMOUT DD DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX216,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(,CATLG,DELETE),
// SPACE=(31800,(200,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//*********************************************************************
//STEP0300 EXEC PGM=IDCAMS, INITIALIZE EMPTY CONV.BTC
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0400 EXEC PGM=IDCAMS, INITIALIZE EMPTY CONV.WAGE.BTC
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.WAGE.BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(25600,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0500 EXEC PGM=IDCAMS, INITIALIZE EMPTY BX210
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.FTP.BX210(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(2310,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0600 EXEC PGM=IDCAMS, INITIALIZE EMPTY BX212
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.FTP.BX212(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//STEP0700 EXEC PGM=IDCAMS, INITIALIZE EMPTY BX216
// COND=(4,LT) GENERATION
//SYSPRINT DD SYSOUT=*
//INDD01 DD DUMMY
//OUTDD01 DD DSN=DOESTAX.CONV.FTP.BX216(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(31800,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************

32
Procs/DTSBZ263 Normal file
View File

@ -0,0 +1,32 @@
//DTSBZ263 PROC 00000010
//* 00001700
//STEP0100 EXEC PGM=DTSBZ263, CONVERT WTC FILE
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//**
//OLDWTCI DD DSN=DOESTAX.&LVLNODE..VSAM.WTX,DISP=SHR, 00005000
// AMP=('BUFNI=5,BUFND=10')
//*
//NEWWTCO DD DSN=&&BZ263, 00005000
// DISP=(NEW,PASS,DELETE), 00006000
// UNIT=SYSDA, 00007000
// SPACE=(1280,(2000,5000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=1280) 00009000
//*
//STEP0100 EXEC PGM=IDCAMS, DELETE/DEFINE WTC FILE
// REGION=0K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWTC),DISP=SHR
//*
//*******************************************************************
//STEP0300 EXEC PGM=IDCAMS LOAD VSAM.WTC
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=&&BZ263,DISP=(OLD,DELETE,DELETE)
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=30')
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//*

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