//***** 00010000 //* UI TAX DAILY UPDATE. 00030000 //* 00040000 //* CHANGED REFERENCES TO DOESTAX.PROD.BD400.BTC TO 00041000 //* DOESTAX.PROD.BTC 00042000 //* 00043000 //* 09/03/1999 CHANGED NAME OF EMPTY BTC GENERATION OUTPUT 00044000 //* BY STEP0420 FROM *.BD400.BTC TO *.BTC. EHH 00045000 //* 00046000 //* 11/16/99 CHANGED FOR Y2K/390 ENV. ZL1 00047000 //* 04/05/2004 CHANGED DISP ON W4FILE IN STEP0700 FROM MOD 00048000 //* TO OLD FOR NEW WAGE UPDATE PROCESS GD 00049000 //* 00049100 //* 07/08/2008 ADDED CFO REFUND EXPEORT FILE ZL1 00049200 //* 10/04/2006 ADDED NEW STEP AFTER REPORTING (DTSBD525) ZL1 00049300 //* 05/11/2009 ADDED NEW STEP TO EMAIL ICESA (DTSBY202) ZL1 00049400 //* 05/15/2009 ADDED STEP TO INIT ALL EXT FILES(DTSBINIT) ZL1 00049500 //* 06/29/2009 ADDED STEP TO ARCHIVE REPORTS (DTSACHD1) ZL1 00049600 //* 11/18/2009 ADDED STEP TO MERGE W4FILES (STEP0790) ZL1 00049700 //* 09/20/2010 MOD STEPS 480 AND 990 TO INCLUDE FILES FROM 00049800 //* 09/20/2010 BX415 AND BX420 ZL1 00049900 //* 08/25/2011 COMMENT OUT 325 REPORT FILE ZL1 00050000 //* 11/15/2011 ADDED PROD DTSWGE07 - REMOVE DUP SSN ON W4FILE ZL1 00050100 //* 02/27/2012 ADDED X148 AND X153 FILES FOR WAGES & REPORTS ZL1 00050200 //* 08/08/2012 ADDED X440 AND X442 FILES FOR LAB TOP AUDITS ZL1 00050300 //* 01/11/2013 ADDED TDEC WAGE FILES ZL1 00050400 //* 04/11/2013 ADDED NEW FILES TO WRITE MRJN RECORDS FOR WEB ZL1 00050500 //* 08/10/2013 ADDED NEW EXTRQ REPORT FILE FOR EXTERNAL RPTS ZL1 00050600 //* 12/11/2013 ADDED STEP0400- PROCESS ZERO WAGE REPORTS ZL1 00050702 //* 06/03/2015 ADDED ACH REVERSAL BTC FILE ZL1 00050813 //* 07/17/2015 ADDED EXTRA BTC FILES FOR DATA CHANGES OUTSIDE ZL1 00050914 //* 07/17/2015 OF ESSP XN420 AND XZ420 ARE FREE TO USE ZL1 00051014 //* 09/27/2015 ADDED REJECT BTC FILE X418 TO PROC ZL1 00051117 //* 02/05/2016 ADDED AMENDED BTCFILE X451 TO PROC ZL1 00051218 //* 02/05/2016 ADDED AMENDED W4FILE TO PROC ZL1 00051318 //* 09/19/2017 ADDED SPACE TO BD100.RPT STEP0200 ZL1 00051422 //* 10/24/2017 ADDED BE327 SI DAILY ASSESS FILE TO SRTDAILY ZL1 00051523 //* 04/01/2019 ADDED X530 BTC PAYMENT FILE ZL1 00051628 //* 07/27/2015 ADDED X427.BTC FILE FOR ADDRESS UPDATES ZL1 00051728 //***** 00052014 //DTSUBVSM PROC LVLNODE='PROD', 00060000 // S0100='+1', 00090000 // S0200='+1', 00100000 // S0300='+1', 00110000 // S0410='+1', 00111000 // S0490='+1', 00120000 // S0500='+1', 00130000 // S0600='+1', 00140000 // S0700='+1', 00150000 // S0800='+1', 00160000 // S0910='+1' 00170000 //** 00171000 //** 00172000 //********************************************************************* 00180000 //STEP0100 EXEC PGM=DTSBD110, OLA SPLIT 00190000 // COND=(0,LT) 00200000 //SYSOUT DD SYSOUT=* 00220000 //SYSABOUT DD SYSOUT=* 00230000 //SYSUDUMP DD SYSOUT=* 00240000 //DTSFOLAI DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR, 00250000 // AMP=('BUFND=10') 00260000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD110.TRN(+1), 00270000 // DISP=(,CATLG,DELETE), 00280000 // SPACE=(8192,(100,200),RLSE), 00310000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00320000 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD110.RPT(+1), 00330000 // DISP=(,CATLG,DELETE), 00340000 // SPACE=(8192,(100,200),RLSE), 00370000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00380000 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BD110.BTC(+1), 00390000 // DISP=(,CATLG,DELETE), 00400000 // SPACE=(8192,(100,200),RLSE), 00430000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00440000 //****************************************************************** 00450000 //STEP0200 EXEC PGM=DTSBD120, ITDS SCAN 00460000 // COND=(0,LT), 00470000 // PARM='05' 00490000 //SYSOUT DD SYSOUT=* 00500000 //SYSABOUT DD SYSOUT=* 00510000 //SYSUDUMP DD SYSOUT=* 00520000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00530000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD120.TRN(+1), 00540000 // DISP=(,CATLG,DELETE), 00550000 // SPACE=(8192,(100,200),RLSE), 00580000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00590000 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD120.RPT(+1), 00600000 // DISP=(,CATLG,DELETE), 00610000 // SPACE=(8192,(400,600),RLSE), 00640037 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650000 //**********************************************************************00660000 //STEP0300 EXEC PGM=DTSBD130, PROCESS IMPORTS 00670000 // COND=(0,LT) FROM PC BASED SYSTEMS 00680000 //SYSOUT DD SYSOUT=* 00700000 //SYSABOUT DD SYSOUT=* 00710000 //SYSUDUMP DD SYSOUT=* 00720000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00730000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD130.TRN(+1), 00740000 // DISP=(,CATLG,DELETE), 00750000 // SPACE=(8192,(100,200),RLSE), 00780000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00790000 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD130.RPT(+1), 00800000 // DISP=(,CATLG,DELETE), 00810000 // SPACE=(8192,(100,200),RLSE), 00840000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00850000 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BD130.BTC(+1), 00860000 // DISP=(,CATLG,DELETE), 00870000 // SPACE=(8192,(100,200),RLSE), 00900000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00910000 //****************************************************************** 00920102 //**** DELETE ZERO WAGE REPORTS 00920202 //****************************************************************** 00920302 //STEP0400 EXEC PGM=DTSBD145, 00920402 // COND=(0,LT), 00920502 // REGION=0M 00920602 //SYSOUT DD SYSOUT=* 00920702 //SYSABOUT DD SYSOUT=* 00920802 //SYSABEND DD SYSOUT=* 00920902 //SYSUDUMP DD SYSOUT=* 00921002 //* 00921102 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00921202 //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 00921302 // AMP=('BUFNI=5,BUFND=10') 00921402 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00921502 // AMP=('BUFNI=5,BUFND=10') 00921602 //** 00921702 //DTSF145 DD DSN=DOESTAX.&LVLNODE..BD145.ZEROWAGE, 00921802 // DISP=(OLD,KEEP,KEEP), 00921902 // SPACE=(CYL,(5,1)), 00922002 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=12800) 00922102 //** 00922202 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BD145.BTC, 00922302 // DISP=(OLD,KEEP,KEEP), 00922402 // SPACE=(8192,(100,200),RLSE), 00922502 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00922602 //** 00922702 //********************************************************************* 00922802 //STEP0410 EXEC PGM=IDCAMS, BACKUP BTC GENERATIONS FROM 00922900 // COND=(0,LT) DTSBD400 00923000 //SYSPRINT DD SYSOUT=* 00923100 //INDD01 DD DSN=DOESTAX.&LVLNODE..BTC,DISP=(OLD,DELETE,KEEP) 00923200 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..BD400.BTC.BACKUP(+1), 00923300 // DISP=(,CATLG,DELETE), 00923400 // SPACE=(8192,(100,200),RLSE), 00923600 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00923700 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00924000 //****************************************************************** 00925000 //STEP0420 EXEC PGM=IDCAMS, INITIALIZE EMPTY BD400.BTC 00926000 // COND=(0,LT) GENERATION 00927000 //SYSPRINT DD SYSOUT=* 00928000 //INDD01 DD DUMMY 00929000 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00929100 // DISP=(,CATLG,DELETE), 00929200 // SPACE=(8192,(100,200),RLSE), 00929500 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00929600 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00929700 //****************************************************************** 00929800 //STEP0480 EXEC PGM=SORT, SORT BTC RECORDS 00930000 // COND=(0,LT) 00940000 //SYSOUT DD SYSOUT=* 00960000 //SORTIN DD DSN=DOESTAX.&LVLNODE..BX415.BTC,DISP=SHR 00970000 // DD DSN=DOESTAX.PROD.ESSP.X420.BTC,DISP=SHR 00970112 // DD DSN=DOESTAX.PROD.ESSP.XN420.BTC,DISP=SHR 00970214 // DD DSN=DOESTAX.PROD.ESSP.XZ420.BTC,DISP=SHR 00970314 // DD DSN=DOESTAX.PROD.ESSP.X418.BTC,DISP=SHR 00970417 // DD DSN=DOESTAX.PROD.ESSP.X421.BTC,DISP=SHR 00970517 // DD DSN=DOESTAX.PROD.ESSP.X424.BTC,DISP=SHR 00970617 // DD DSN=DOESTAX.PROD.ESSP.X426.BTC,DISP=SHR 00970717 // DD DSN=DOESTAX.PROD.ESSP.X427.BTC,DISP=SHR 00970817 //* DD DSN=DOESTAX.PROD.TDEC.X429.BTC,DISP=SHR 00970928 // DD DSN=DOESTAX.PROD.ESSP.X430.BTC,DISP=SHR 00971017 // DD DSN=DOESTAX.PROD.ESSP.X435.BTC,DISP=SHR 00971117 // DD DSN=DOESTAX.PROD.ESSP.X436.BTC,DISP=SHR 00971217 // DD DSN=DOESTAX.PROD.ESSP.X451.BTC,DISP=SHR 00971318 // DD DSN=DOESTAX.PROD.ESSP.X452.BTC,DISP=SHR 00971427 // DD DSN=DOESTAX.PROD.ESSP.X530.BTC,DISP=SHR 00971528 // DD DSN=DOESTAX.&LVLNODE..BX420.BTC,DISP=SHR 00971628 // DD DSN=DOESTAX.&LVLNODE..BX440.BTC,DISP=SHR 00971728 // DD DSN=DOESTAX.&LVLNODE..BX442.BTC,DISP=SHR 00971828 // DD DSN=DOESTAX.&LVLNODE..BD145.BTC,DISP=SHR 00971928 // DD DSN=DOESTAX.&LVLNODE..BD110.BTC(&S0100.),DISP=SHR 00972009 // DD DSN=DOESTAX.&LVLNODE..BD130.BTC(&S0300.),DISP=SHR 00980000 // DD DSN=DOESTAX.&LVLNODE..BD400.BTC.BACKUP(&S0410.), 00981000 // DISP=SHR 00982000 //SORTOUT DD DSN=&&SRTBTC, 00990000 // DISP=(,PASS,DELETE), 01000000 // UNIT=SYSDA, 01010000 // SPACE=(8192,(100,200),RLSE), 01020000 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01030000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 01040000 //********************************************************************* 01050000 //STEP0490 EXEC PGM=DTSBD140, BTC RECORD PROCESSOR 01060000 // COND=(0,LT) 01070000 //SYSOUT DD SYSOUT=* 01090000 //SYSABOUT DD SYSOUT=* 01100000 //SYSUDUMP DD SYSOUT=* 01110000 //DTSFBTCI DD DSN=&&SRTBTC,DISP=(OLD,DELETE,DELETE) 01120000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01130000 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01140000 // AMP=('BUFNI=5,BUFND=10') 01150000 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01151000 // AMP=('BUFNI=5,BUFND=10') 01152000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD140.TRN(+1), 01160000 // DISP=(,CATLG,DELETE), 01170000 // SPACE=(8192,(100,200),RLSE), 01200000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01210000 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD140.RPT(+1), 01220000 // DISP=(,CATLG,DELETE), 01230000 // SPACE=(8192,(100,200),RLSE), 01260000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01270000 //**** 01270100 //DTSBX214 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX214,DISP=SHR 01271000 //* DISP=(,CATLG,DELETE), 01272000 //* SPACE=(30000,(100,200),RLSE), 01273000 //* DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) 01274000 //****************************************************************** 01280000 //STEP0500 EXEC PGM=DTSBD150, PRE UPDATE ACCOUNTING 01290000 // COND=(0,LT) TRANSACTION COLLECTION 01300000 //SYSOUT DD SYSOUT=* 01320000 //SYSABOUT DD SYSOUT=* 01330000 //SYSUDUMP DD SYSOUT=* 01340000 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01350000 // AMP=('BUFNI=5,BUFND=10') 01360000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD150.TRN(+1), 01370000 // DISP=(,CATLG,DELETE), 01380000 // SPACE=(8192,(100,200),RLSE), 01410000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420000 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD150.RPT(+1), 01430000 // DISP=(,CATLG,DELETE), 01440000 // SPACE=(8192,(100,200),RLSE), 01470000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01480000 //****************************************************************** 01490000 //STEP0600 EXEC PGM=DTSBD200, TRANSACTION ACCUMULATION 01500000 // COND=(0,LT) AND SORT 01510000 //SYSOUT DD SYSOUT=* 01530000 //SYSABOUT DD SYSOUT=* 01540000 //SYSUDUMP DD SYSOUT=* 01550000 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..BD110.TRN(&S0100.),DISP=SHR 01560000 // DD DSN=DOESTAX.&LVLNODE..BD120.TRN(&S0200.),DISP=SHR 01570000 //** DD DSN=DOESTAX.&LVLNODE..BD130.TRN(&S0300.),DISP=SHR 01580000 // DD DSN=DOESTAX.&LVLNODE..BD140.TRN(&S0490.),DISP=SHR 01590000 // DD DSN=DOESTAX.&LVLNODE..BD150.TRN(&S0500.),DISP=SHR 01600000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD200.TRN(+1), 01610000 // DISP=(,CATLG,DELETE), 01620000 // SPACE=(8192,(200,300),RLSE), 01650036 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01660000 //SYSIN DD DUMMY 01661000 //****************************************************************** 01670000 //STEP0700 EXEC PGM=DTSBD300, EMPLOYER MASTER 01680000 // COND=(0,LT), UPDATE 01690000 // PARM='P,N,&BYPASS1.,&BYPASS2.,&BYPASS3.' 01711000 //SYSOUT DD SYSOUT=* 01720000 //SYSABOUT DD SYSOUT=* 01730000 //SYSUDUMP DD SYSOUT=* 01740000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01750000 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01760000 // AMP=('BUFNI=5,BUFND=10') 01770000 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01780000 // AMP=('BUFNI=5,BUFND=10') 01790000 //DTSFWTC DD DSN=DOESTAX.&LVLNODE..VSAM.WTC,DISP=SHR, 01791000 // AMP=('BUFNI=5,BUFND=10') 01792000 //DTSFWGH DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 01793000 // AMP=('BUFNI=5,BUFND=10') 01794000 //EXPBZ016 DD DSN=DOESTAX.DEVL.ZL1.CREDIT,DISP=SHR 01794129 //DTSFWTRN DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE, 01795000 // DISP=(OLD,KEEP,KEEP), /* INITIALIZE FOR 01796100 // SPACE=(CYL,(20,5)), /* 1ST TIME USE 01797000 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 01798000 //* 01798100 //** WAGE EXPORT TO SERVER 01798200 //DTSFW148 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X148, 01798300 //* DISP=(NEW,CATLG,CATLG), 01798400 // DISP=(OLD,KEEP,KEEP), 01798500 // SPACE=(CYL,(10,5)), 01798600 // DCB=(RECFM=FB,LRECL=134,BLKSIZE=13400) 01798700 //** WAGE EXPORT TO SERVER 01798800 //DTSFW153 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153, 01798900 //* DISP=(NEW,CATLG,CATLG), 01799000 // DISP=(OLD,KEEP,KEEP), 01799100 // SPACE=(CYL,(10,5)), 01799200 // DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300) 01799300 //** CFO REFUND EXPORT FILE 01799400 //DTSFX306 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X306, 01799500 //** DISP=(NEW,CATLG,CATLG), 01799600 // DISP=(OLD,KEEP,KEEP), 01799700 // UNIT=SYSDA, 01799800 // SPACE=(CYL,(5,5),RLSE), 01799900 // DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900) 01800000 //* 01800100 //** PAYMENT DISTRIBUTION FILE 01800200 //DSTAUDIT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.U542, 01800300 //** DISP=(NEW,CATLG,CATLG), 01800400 // DISP=(OLD,KEEP,KEEP), 01800500 // UNIT=SYSDA, 01800600 // SPACE=(CYL,(5,5),RLSE), 01800700 // DCB=(RECFM=FB,LRECL=94,BLKSIZE=30550) 01800800 //* 01800900 //DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR, 01801000 // AMP=('BUFNI=5,BUFND=10') 01801100 //DTSFNAIC DD DSN=DOESTAX.&LVLNODE..VSAM.NAIC,DISP=SHR, 01802000 // AMP=('BUFNI=5,BUFND=10') 01810000 //DTSFSIC DD DSN=DOESTAX.&LVLNODE..VSAM.SIC,DISP=SHR, 01820000 // AMP=('BUFNI=5,BUFND=10') 01830000 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..BD200.TRN(&S0600.),DISP=SHR 01840000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD300.RPT(+1), 01850000 // DISP=(,CATLG,DELETE), 01860000 // SPACE=(8192,(500,200),RLSE), 01890030 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01900000 //****************************************************************** 01910000 //STEP0800 EXEC PGM=DTSBD180, POST ACCOUNTING UPDATE 01920000 // COND=(0,LT) ATC FILE SCAN 01930000 //SYSOUT DD SYSOUT=* 01950000 //SYSABOUT DD SYSOUT=* 01960000 //SYSUDUMP DD SYSOUT=* 01970000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01980000 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01990000 // AMP=('BUFNI=5,BUFND=10') 02000000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD180.RPT(+1), 02010000 // DISP=(,CATLG,DELETE), 02020000 // SPACE=(8192,(100,200),RLSE), 02050000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 02060000 //DTSFX217 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX217, 02061000 // DISP=(OLD,KEEP,KEEP), 02062000 // UNIT=SYSDA, 02063000 // SPACE=(CYL,(5,2)), 02064035 //*ZL1 SPACE=(29600,(1000,1000),RLSE), 02064135 // DCB=(RECFM=FB,LRECL=148,BLKSIZE=29600) 02065000 //****************************************************************** 02070000 //STEP0810 EXEC PGM=DTSBD181, UPDATE AHDR-LAST-USED-ITEM-NO 02071000 // COND=(0,LT), 02072000 // REGION=0M 02073000 //SYSOUT DD SYSOUT=* 02074000 //SYSABOUT DD SYSOUT=* 02075000 //SYSABEND DD SYSOUT=* 02076000 //SYSUDUMP DD SYSOUT=* 02077000 //* 02078000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02079000 //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 02079100 // AMP=('BUFNI=5,BUFND=10') 02079200 //* 02079300 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 02079400 // AMP=('BUFNI=5,BUFND=10') 02079500 //* 02079600 //****************************************************************** 02079700 //STEP0910 EXEC PGM=SORT, SORT REPORT RECORDS 02080000 // COND=(0,LT) 02090000 //SYSOUT DD SYSOUT=* 02110000 //SORTIN DD DSN=DOESTAX.&LVLNODE..BD110.RPT(&S0100.),DISP=SHR 02120000 // DD DSN=DOESTAX.&LVLNODE..BD120.RPT(&S0200.),DISP=SHR 02130000 // DD DSN=DOESTAX.&LVLNODE..BD130.RPT(&S0300.),DISP=SHR 02140000 // DD DSN=DOESTAX.&LVLNODE..BD140.RPT(&S0490.),DISP=SHR 02150000 // DD DSN=DOESTAX.&LVLNODE..BD150.RPT(&S0500.),DISP=SHR 02160000 // DD DSN=DOESTAX.&LVLNODE..BD300.RPT(&S0700.),DISP=SHR 02170000 // DD DSN=DOESTAX.&LVLNODE..BD180.RPT(&S0800.),DISP=SHR 02180000 // DD DSN=DOESTAX.&LVLNODE..EXTRQ.RPT,DISP=SHR 02181000 // DD DSN=DOESTAX.&LVLNODE..BE327.RPT(+0),DISP=SHR 02182023 // DD DSN=DOESTAX.&LVLNODE..R309.RPT(+1),DISP=SHR 02182123 // DD DSN=DOESTAX.&LVLNODE..RPT.R202,DISP=SHR 02183000 // DD DSN=DOESTAX.&LVLNODE..BX420.RPT,DISP=SHR 02184000 //SORTOUT DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+1), 02190000 // DISP=(,CATLG,DELETE), 02200000 // SPACE=(8192,(2000,2000),RLSE), 02230034 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 02240000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 02250000 //********************************************************************* 02260000 //STEP0930 EXEC PGM=IDCAMS, DELETE AND DEFINE OLA FILE 02260100 // COND=(0,LT) 02260200 //SYSPRINT DD SYSOUT=* 02260300 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDOLA),DISP=SHR 02260400 //****************************************************************** 02260500 //STEP0960 EXEC PGM=DTSBD998, INITIALIZE OLA FILE 02260600 // COND=(0,LT) 02260700 //SYSOUT DD SYSOUT=* 02260800 //SYSABOUT DD SYSOUT=* 02260900 //SYSABEND DD SYSOUT=* 02261000 //CAIMRPTS DD SYSOUT=* 02261100 //DTSFOLA DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR 02261200 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIOLA),DISP=SHR 02261300 //****************************************************************** 02261400 //** 02261500 //STEP0970 EXEC PGM=IDCAMS, MERGE WEB AND ICESA W4FILES 02261600 // COND=(0,LT) 02261700 //SYSPRINT DD SYSOUT=* 02261800 //SYSOUT DD SYSOUT=* 02261900 //SYSABOUT DD SYSOUT=* 02262000 //SYSABEND DD SYSOUT=* 02262100 //CAIMRPTS DD SYSOUT=* 02262200 //INDD01 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,DISP=SHR 02262300 // DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,DISP=SHR 02262400 // DD DSN=DOESTAX.&LVLNODE..MAG.W4FILE,DISP=SHR 02262500 // DD DSN=DOESTAX.&EXTNODE..ESSP.X420.W4FILE,DISP=SHR 02262609 // DD DSN=DOESTAX.&EXTNODE..ESSP.X430.W4FILE,DISP=SHR 02262709 // DD DSN=DOESTAX.&EXTNODE..ESSP.X435.W4FILE,DISP=SHR 02262809 // DD DSN=DOESTAX.&EXTNODE..ESSP.X436.W4FILE,DISP=SHR 02262909 // DD DSN=DOESTAX.&LVLNODE..ESSP.X451.W4FILE,DISP=SHR 02263018 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE,DISP=MOD 02263118 //**** 02263218 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 02263318 //**** 02263418 //STEP0980 EXEC PGM=IDCAMS, MERGE X153 FILES 02263518 // COND=(0,LT) 02263618 //SYSPRINT DD SYSOUT=* 02263718 //SYSOUT DD SYSOUT=* 02263818 //SYSABOUT DD SYSOUT=* 02263918 //SYSABEND DD SYSOUT=* 02264018 //CAIMRPTS DD SYSOUT=* 02264118 //INDD01 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,DISP=SHR 02264218 // DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,DISP=SHR 02264318 // DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264418 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264518 //**** 02264618 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264718 //**** 02264818 //** 02264918 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02265033 //** 02265133 //** REMOVED PANDEMIC CHANGED TO REGULAR PROD ZL1 07/09/21 02265233 //*TSDRPTS INCLUDE MEMBER=DTSD0P /* CHANGED FOR PANDEMIC 02265333 //** 02265433 //*TSBD525 INCLUDE MEMBER=DTSUD525 /* SEE JOB DTSRQ328 02265533 //** 02265633 //** MOVED TO ITS OWN JOB DTSW4FIL / RUNS AFTER PDAY1 02265733 //** 02265833 //*DTSW4FIL INCLUDE MEMBER=DTSWGE07 /* REMOVE DUPS SSN FROM W4FILE 02266000 //**** 02544200 //*TSACHD1 INCLUDE MEMBER=DTSACHD1 /* ARCHIVE SELECTED REPORTS 02544300 //** 02544400