//***** 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 //* 00050400 //***** 00051000 //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,(100,200),RLSE), 00640000 // 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 //********************************************************************* 00920000 //STEP0410 EXEC PGM=IDCAMS, BACKUP BTC GENERATIONS FROM 00921000 // COND=(0,LT) DTSBD400 00922000 //SYSPRINT DD SYSOUT=* 00923000 //INDD01 DD DSN=DOESTAX.&LVLNODE..BTC,DISP=(OLD,DELETE,KEEP) 00923100 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..BD400.BTC.BACKUP(+1), 00923200 // DISP=(,CATLG,DELETE), 00923300 // 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.&LVLNODE..BX420.BTC,DISP=SHR 00970100 // DD DSN=DOESTAX.&LVLNODE..BX440.BTC,DISP=SHR 00970200 // DD DSN=DOESTAX.&LVLNODE..BX442.BTC,DISP=SHR 00970300 // DD DSN=DOESTAX.&LVLNODE..BD110.BTC(&S0100.),DISP=SHR 00971000 // 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,(100,200),RLSE), 01650000 // 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 //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 //DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR, 01800200 // AMP=('BUFNI=5,BUFND=10') 01800300 //DTSFNAIC DD DSN=DOESTAX.&LVLNODE..VSAM.NAIC,DISP=SHR, 01801000 // 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,(100,200),RLSE), 01890000 // 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=(29600,(1000,1000),RLSE), 02064000 // DCB=(RECFM=FB,LRECL=148,BLKSIZE=29600) 02065000 //****************************************************************** 02070000 //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..BE325.RPT(+0),DISP=SHR 02181000 // DD DSN=DOESTAX.&LVLNODE..R309.RPT(+0),DISP=SHR 02182000 // 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,(100,200),RLSE), 02230000 // 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.&LVLNODE..MAG.W4FILE,DISP=SHR 02262300 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE,DISP=MOD 02262400 //**** 02262500 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 02262600 //**** 02262700 //** 02262800 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02262900 //** 02263000 //DTSBD525 INCLUDE MEMBER=DTSUD525 /* UPDATE MEVL RECORDS 02264000 //** 02264100 //DTSW4FIL INCLUDE MEMBER=DTSWGE07 /* REMOVE DUPS SSN FROM W4FILE 02265000 //**** 02544200 //*TSACHD1 INCLUDE MEMBER=DTSACHD1 /* ARCHIVE SELECTED REPORTS 02544300 //** 02544400