Files
DUTAS/Procs/DTSDUPDU

363 lines
29 KiB
Plaintext

//***** 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, 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, 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