//***** 00010000 //* UI TAX DAILY UPDATE. 00030000 //* 00040000 //* CHANGED REFERENCES TO DOESTAX.PROD.BD400.BTC TO 00041031 //* DOESTAX.PROD.BTC 00042031 //* 00043016 //* 09/03/1999 CHANGED NAME OF EMPTY BTC GENERATION OUTPUT 00044017 //* BY STEP0420 FROM *.BD400.BTC TO *.BTC. EHH 00045017 //* 00046017 //* 11/16/99 CHANGED FOR Y2K/390 ENV. ZL1 00047057 //* 04/05/2004 CHANGED DISP ON W4FILE IN STEP0700 FROM MOD 00048066 //* TO OLD FOR NEW WAGE UPDATE PROCESS GD 00049066 //* 00049185 //* 07/08/2008 ADDED CFO REFUND EXPEORT FILE ZL1 00049287 //* 10/04/2006 ADDED NEW STEP AFTER REPORTING (DTSBD525) ZL1 00049387 //* 05/11/2009 ADDED NEW STEP TO EMAIL ICESA (DTSBY202) ZL1 00049492 //* 05/15/2009 ADDED STEP TO INIT ALL EXT FILES(DTSBINIT) ZL1 00049592 //* 06/29/2009 ADDED STEP TO ARCHIVE REPORTS (DTSACHD1) ZL1 00049695 //* 11/18/2009 ADDED STEP TO MERGE W4FILES (STEP0790) ZL1 00049796 //* 09/20/2010 MOD STEPS 480 AND 990 TO INCLUDE FILES FROM 00049897 //* 09/20/2010 BX415 AND BX420 ZL1 00049997 //* 08/25/2011 COMMENT OUT 325 REPORT FILE ZL1 00050098 //* 11/15/2011 ADDED PROD DTSWGE07 - REMOVE DUP SSN ON W4FILE ZL1 00050199 //* 02/27/2012 ADDED X148 AND X153 FILES FOR WAGES & REPORTS ZL1 00050299 //* 08/08/2012 ADDED X440 AND X442 FILES FOR LAB TOP AUDITS ZL1 00050399 //* 01/11/2013 ADDED TDEC WAGE FILES ZL1 00050499 //* 04/11/2013 ADDED NEW FILES TO WRITE MRJN RECORDS FOR WEB ZL1 00050599 //* 08/10/2013 ADDED NEW EXTRQ REPORT FILE FOR EXTERNAL RPTS ZL1 00050699 //* 00050799 //***** 00051097 //DTSUBVSM PROC LVLNODE='PROD', 00060031 // S0100='+1', 00090004 // S0200='+1', 00100025 // S0300='+1', 00110004 // S0410='+1', 00111013 // S0490='+1', 00120025 // S0500='+1', 00130057 // S0600='+1', 00140006 // S0700='+1', 00150006 // S0800='+1', 00160009 // S0910='+1' 00170058 //** 00171018 //** 00172018 //********************************************************************* 00180000 //STEP0100 EXEC PGM=DTSBD110, OLA SPLIT 00190000 // COND=(0,LT) 00200042 //SYSOUT DD SYSOUT=* 00220000 //SYSABOUT DD SYSOUT=* 00230000 //SYSUDUMP DD SYSOUT=* 00240000 //DTSFOLAI DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR, 00250006 // AMP=('BUFND=10') 00260000 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD110.TRN(+1), 00270001 // DISP=(,CATLG,DELETE), 00280003 // SPACE=(8192,(100,200),RLSE), 00310057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00320057 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD110.RPT(+1), 00330001 // DISP=(,CATLG,DELETE), 00340003 // SPACE=(8192,(100,200),RLSE), 00370057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00380057 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BD110.BTC(+1), 00390001 // DISP=(,CATLG,DELETE), 00400003 // SPACE=(8192,(100,200),RLSE), 00430057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00440057 //****************************************************************** 00450000 //STEP0200 EXEC PGM=DTSBD120, ITDS SCAN 00460004 // COND=(0,LT), 00470004 // PARM='05' 00490004 //SYSOUT DD SYSOUT=* 00500004 //SYSABOUT DD SYSOUT=* 00510004 //SYSUDUMP DD SYSOUT=* 00520004 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00530004 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD120.TRN(+1), 00540004 // DISP=(,CATLG,DELETE), 00550004 // SPACE=(8192,(100,200),RLSE), 00580057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00590057 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD120.RPT(+1), 00600004 // DISP=(,CATLG,DELETE), 00610004 // SPACE=(8192,(100,200),RLSE), 00640057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650057 //**********************************************************************00660004 //STEP0300 EXEC PGM=DTSBD130, PROCESS IMPORTS 00670004 // COND=(0,LT) FROM PC BASED SYSTEMS 00680042 //SYSOUT DD SYSOUT=* 00700004 //SYSABOUT DD SYSOUT=* 00710004 //SYSUDUMP DD SYSOUT=* 00720004 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00730004 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD130.TRN(+1), 00740004 // DISP=(,CATLG,DELETE), 00750004 // SPACE=(8192,(100,200),RLSE), 00780057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00790057 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD130.RPT(+1), 00800004 // DISP=(,CATLG,DELETE), 00810004 // SPACE=(8192,(100,200),RLSE), 00840057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00850057 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BD130.BTC(+1), 00860004 // DISP=(,CATLG,DELETE), 00870004 // SPACE=(8192,(100,200),RLSE), 00900057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00910057 //********************************************************************* 00920004 //STEP0410 EXEC PGM=IDCAMS, BACKUP BTC GENERATIONS FROM 00921013 // COND=(0,LT) DTSBD400 00922013 //SYSPRINT DD SYSOUT=* 00923013 //INDD01 DD DSN=DOESTAX.&LVLNODE..BTC,DISP=(OLD,DELETE,KEEP) 00923115 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..BD400.BTC.BACKUP(+1), 00923214 // DISP=(,CATLG,DELETE), 00923313 // SPACE=(8192,(100,200),RLSE), 00923657 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00923757 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00924013 //****************************************************************** 00925013 //STEP0420 EXEC PGM=IDCAMS, INITIALIZE EMPTY BD400.BTC 00926013 // COND=(0,LT) GENERATION 00927013 //SYSPRINT DD SYSOUT=* 00928013 //INDD01 DD DUMMY 00929014 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00929117 // DISP=(,CATLG,DELETE), 00929213 // SPACE=(8192,(100,200),RLSE), 00929557 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00929657 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00929713 //****************************************************************** 00929813 //STEP0480 EXEC PGM=SORT,PARM='VLTEST=0', SORT BTC RECORDS 00930005 // COND=(0,LT) 00940042 //SYSOUT DD SYSOUT=* 00960005 //SORTIN DD DSN=DOESTAX.&LVLNODE..BX415.BTC,DISP=SHR 00970097 // DD DSN=DOESTAX.&LVLNODE..BX420.BTC,DISP=SHR 00970197 // DD DSN=DOESTAX.&LVLNODE..BX440.BTC,DISP=SHR 00970299 // DD DSN=DOESTAX.&LVLNODE..BX442.BTC,DISP=SHR 00970399 // DD DSN=DOESTAX.&LVLNODE..BD110.BTC(&S0100.),DISP=SHR 00971097 // DD DSN=DOESTAX.&LVLNODE..BD130.BTC(&S0300.),DISP=SHR 00980005 // DD DSN=DOESTAX.&LVLNODE..BD400.BTC.BACKUP(&S0410.), 00981013 // DISP=SHR 00982013 //SORTOUT DD DSN=&&SRTBTC, 00990005 // DISP=(,PASS,DELETE), 01000005 // UNIT=SYSDA, 01010005 // SPACE=(8192,(100,200),RLSE), 01020057 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01030005 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 01040006 //********************************************************************* 01050005 //STEP0490 EXEC PGM=DTSBD140, BTC RECORD PROCESSOR 01060005 // COND=(0,LT) 01070042 //SYSOUT DD SYSOUT=* 01090004 //SYSABOUT DD SYSOUT=* 01100004 //SYSUDUMP DD SYSOUT=* 01110004 //DTSFBTCI DD DSN=&&SRTBTC,DISP=(OLD,DELETE,DELETE) 01120005 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01130004 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01140004 // AMP=('BUFNI=5,BUFND=10') 01150004 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01151055 // AMP=('BUFNI=5,BUFND=10') 01152055 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD140.TRN(+1), 01160004 // DISP=(,CATLG,DELETE), 01170004 // SPACE=(8192,(100,200),RLSE), 01200057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01210057 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD140.RPT(+1), 01220004 // DISP=(,CATLG,DELETE), 01230004 // SPACE=(8192,(100,200),RLSE), 01260057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01270057 //**** 01270178 //DTSBX214 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX214,DISP=SHR 01271080 //* DISP=(,CATLG,DELETE), 01272080 //* SPACE=(30000,(100,200),RLSE), 01273080 //* DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) 01274080 //****************************************************************** 01280005 //STEP0500 EXEC PGM=DTSBD150, PRE UPDATE ACCOUNTING 01290005 // COND=(0,LT) TRANSACTION COLLECTION 01300042 //SYSOUT DD SYSOUT=* 01320005 //SYSABOUT DD SYSOUT=* 01330005 //SYSUDUMP DD SYSOUT=* 01340005 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01350005 // AMP=('BUFNI=5,BUFND=10') 01360005 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD150.TRN(+1), 01370005 // DISP=(,CATLG,DELETE), 01380005 // SPACE=(8192,(100,200),RLSE), 01410057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01420057 //DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..BD150.RPT(+1), 01430005 // DISP=(,CATLG,DELETE), 01440005 // SPACE=(8192,(100,200),RLSE), 01470057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01480057 //****************************************************************** 01490005 //STEP0600 EXEC PGM=DTSBD200, TRANSACTION ACCUMULATION 01500005 // COND=(0,LT) AND SORT 01510042 //SYSOUT DD SYSOUT=* 01530005 //SYSABOUT DD SYSOUT=* 01540005 //SYSUDUMP DD SYSOUT=* 01550005 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..BD110.TRN(&S0100.),DISP=SHR 01560025 // DD DSN=DOESTAX.&LVLNODE..BD120.TRN(&S0200.),DISP=SHR 01570025 //** DD DSN=DOESTAX.&LVLNODE..BD130.TRN(&S0300.),DISP=SHR 01580025 // DD DSN=DOESTAX.&LVLNODE..BD140.TRN(&S0490.),DISP=SHR 01590025 // DD DSN=DOESTAX.&LVLNODE..BD150.TRN(&S0500.),DISP=SHR 01600025 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD200.TRN(+1), 01610005 // DISP=(,CATLG,DELETE), 01620005 // SPACE=(8192,(100,200),RLSE), 01650057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01660057 //SYSIN DD DUMMY 01661007 //****************************************************************** 01670005 //STEP0700 EXEC PGM=DTSBD300, EMPLOYER MASTER 01680065 // COND=(0,LT), UPDATE 01690043 // PARM='P,N,&BYPASS1.,&BYPASS2.,&BYPASS3.' 01711084 //SYSOUT DD SYSOUT=* 01720006 //SYSABOUT DD SYSOUT=* 01730006 //SYSUDUMP DD SYSOUT=* 01740006 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01750006 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01760006 // AMP=('BUFNI=5,BUFND=10') 01770006 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 01780006 // AMP=('BUFNI=5,BUFND=10') 01790006 //DTSFWTC DD DSN=DOESTAX.&LVLNODE..VSAM.WTC,DISP=SHR, 01791062 // AMP=('BUFNI=5,BUFND=10') 01792062 //DTSFWGH DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 01793062 // AMP=('BUFNI=5,BUFND=10') 01794062 //DTSFWTRN DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE, 01795099 // DISP=(OLD,KEEP,KEEP), /* INITIALIZE FOR 01796183 // SPACE=(CYL,(20,5)), /* 1ST TIME USE 01797075 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 01798062 //* 01798187 //** WAGE EXPORT TO SERVER 01798299 //DTSFW148 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X148, 01798399 //* DISP=(NEW,CATLG,CATLG), 01798499 // DISP=(OLD,KEEP,KEEP), 01798599 // SPACE=(CYL,(10,5)), 01798699 // DCB=(RECFM=FB,LRECL=134,BLKSIZE=13400) 01798799 //** WAGE EXPORT TO SERVER 01798899 //DTSFW153 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153, 01798999 //* DISP=(NEW,CATLG,CATLG), 01799099 // DISP=(OLD,KEEP,KEEP), 01799199 // SPACE=(CYL,(10,5)), 01799299 // DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300) 01799399 //** CFO REFUND EXPORT FILE 01799487 //DTSFX306 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X306, 01799587 //** DISP=(NEW,CATLG,CATLG), 01799687 // DISP=(OLD,KEEP,KEEP), 01799787 // UNIT=SYSDA, 01799887 // SPACE=(CYL,(5,5),RLSE), 01799987 // DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900) 01800087 //* 01800199 //** PAYMENT DISTRIBUTION FILE 01800299 //DSTAUDIT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.U542, 01800399 //** DISP=(NEW,CATLG,CATLG), 01800499 // DISP=(OLD,KEEP,KEEP), 01800599 // UNIT=SYSDA, 01800699 // SPACE=(CYL,(5,5),RLSE), 01800799 // DCB=(RECFM=FB,LRECL=94,BLKSIZE=30550) 01800899 //* 01800987 //DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR, 01801062 // AMP=('BUFNI=5,BUFND=10') 01801162 //DTSFNAIC DD DSN=DOESTAX.&LVLNODE..VSAM.NAIC,DISP=SHR, 01802006 // AMP=('BUFNI=5,BUFND=10') 01810006 //DTSFSIC DD DSN=DOESTAX.&LVLNODE..VSAM.SIC,DISP=SHR, 01820006 // AMP=('BUFNI=5,BUFND=10') 01830006 //DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..BD200.TRN(&S0600.),DISP=SHR 01840008 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD300.RPT(+1), 01850006 // DISP=(,CATLG,DELETE), 01860006 // SPACE=(8192,(100,200),RLSE), 01890057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01900057 //****************************************************************** 01910006 //STEP0800 EXEC PGM=DTSBD180, POST ACCOUNTING UPDATE 01920006 // COND=(0,LT) ATC FILE SCAN 01930042 //SYSOUT DD SYSOUT=* 01950006 //SYSABOUT DD SYSOUT=* 01960006 //SYSUDUMP DD SYSOUT=* 01970006 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01980006 //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, 01990006 // AMP=('BUFNI=5,BUFND=10') 02000006 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BD180.RPT(+1), 02010006 // DISP=(,CATLG,DELETE), 02020006 // SPACE=(8192,(100,200),RLSE), 02050057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 02060057 //DTSFX217 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX217, 02061099 // DISP=(OLD,KEEP,KEEP), 02062099 // UNIT=SYSDA, 02063099 // SPACE=(29600,(1000,1000),RLSE), 02064099 // DCB=(RECFM=FB,LRECL=148,BLKSIZE=29600) 02065099 //****************************************************************** 02070006 //STEP0810 EXEC PGM=DTSBD181, UPDATE AHDR-LAST-USED-ITEM-NO 02071099 // COND=(0,LT), 02072099 // REGION=0M 02073099 //SYSOUT DD SYSOUT=* 02074099 //SYSABOUT DD SYSOUT=* 02075099 //SYSABEND DD SYSOUT=* 02076099 //SYSUDUMP DD SYSOUT=* 02077099 //* 02078099 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02079099 //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, 02079199 // AMP=('BUFNI=5,BUFND=10') 02079299 //* 02079399 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 02079499 // AMP=('BUFNI=5,BUFND=10') 02079599 //* 02079699 //****************************************************************** 02079799 //STEP0910 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 02080036 // COND=(0,LT) 02090042 //SYSOUT DD SYSOUT=* 02110006 //SORTIN DD DSN=DOESTAX.&LVLNODE..BD110.RPT(&S0100.),DISP=SHR 02120025 // DD DSN=DOESTAX.&LVLNODE..BD120.RPT(&S0200.),DISP=SHR 02130025 // DD DSN=DOESTAX.&LVLNODE..BD130.RPT(&S0300.),DISP=SHR 02140025 // DD DSN=DOESTAX.&LVLNODE..BD140.RPT(&S0490.),DISP=SHR 02150025 // DD DSN=DOESTAX.&LVLNODE..BD150.RPT(&S0500.),DISP=SHR 02160025 // DD DSN=DOESTAX.&LVLNODE..BD300.RPT(&S0700.),DISP=SHR 02170010 // DD DSN=DOESTAX.&LVLNODE..BD180.RPT(&S0800.),DISP=SHR 02180010 // DD DSN=DOESTAX.&LVLNODE..EXTRQ.RPT,DISP=SHR 02181099 // DD DSN=DOESTAX.&LVLNODE..R309.RPT(+0),DISP=SHR 02182088 // DD DSN=DOESTAX.&LVLNODE..RPT.R202,DISP=SHR 02183091 // DD DSN=DOESTAX.&LVLNODE..BX420.RPT,DISP=SHR 02184097 //SORTOUT DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(+1), 02190006 // DISP=(,CATLG,DELETE), 02200006 // SPACE=(8192,(100,200),RLSE), 02230057 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 02240057 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 02250006 //********************************************************************* 02260006 //STEP0930 EXEC PGM=IDCAMS, DELETE AND DEFINE OLA FILE 02260158 // COND=(0,LT) 02260258 //SYSPRINT DD SYSOUT=* 02260358 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDOLA),DISP=SHR 02260458 //****************************************************************** 02260558 //STEP0960 EXEC PGM=DTSBD998, INITIALIZE OLA FILE 02260658 // COND=(0,LT) 02260758 //SYSOUT DD SYSOUT=* 02260858 //SYSABOUT DD SYSOUT=* 02260958 //SYSABEND DD SYSOUT=* 02261058 //CAIMRPTS DD SYSOUT=* 02261158 //DTSFOLA DD DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR 02261258 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSIOLA),DISP=SHR 02261358 //****************************************************************** 02261458 //** 02261596 //STEP0970 EXEC PGM=IDCAMS, MERGE WEB AND ICESA W4FILES 02261696 // COND=(0,LT) 02261796 //SYSPRINT DD SYSOUT=* 02261896 //SYSOUT DD SYSOUT=* 02261996 //SYSABOUT DD SYSOUT=* 02262096 //SYSABEND DD SYSOUT=* 02262196 //CAIMRPTS DD SYSOUT=* 02262296 //INDD01 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,DISP=SHR 02262399 // DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,DISP=SHR 02262499 // DD DSN=DOESTAX.&LVLNODE..MAG.W4FILE,DISP=SHR 02262599 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE,DISP=MOD 02262799 //**** 02262899 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 02262999 //**** 02263099 //STEP0980 EXEC PGM=IDCAMS, MERGE X153 FILES 02263199 // COND=(0,LT) 02263299 //SYSPRINT DD SYSOUT=* 02263399 //SYSOUT DD SYSOUT=* 02263499 //SYSABOUT DD SYSOUT=* 02263599 //SYSABEND DD SYSOUT=* 02263699 //CAIMRPTS DD SYSOUT=* 02263799 //INDD01 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,DISP=SHR 02263899 // DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,DISP=SHR 02263999 // DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264099 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264199 //**** 02264299 //SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264399 //**** 02264499 //** 02264599 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02264699 //** 02264799 //*TSBD525 INCLUDE MEMBER=DTSUD525 /* SEE JOB DTSRQ328 02264899 //** 02264999 //** MOVED TO ITS OWN JOB DTSW4FIL / RUNS AFTER PDAY1 02265099 //** 02265199 //*DTSW4FIL INCLUDE MEMBER=DTSWGE07 /* REMOVE DUPS SSN FROM W4FILE 02266099 //**** 02544259 //*TSACHD1 INCLUDE MEMBER=DTSACHD1 /* ARCHIVE SELECTED REPORTS 02544395 //** 02544494