//***** 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 //***** 00050000 //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..BD110.BTC(&S0100.),DISP=SHR 00970000 // 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 //****************************************************************** 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 //****************************************************************** 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..BD180.RPT(&S0800.),DISP=SHR 02180000 //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 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02262000 //** 02262100 //DTSBX330 INCLUDE MEMBER=DTSBX330 /* CREDIT/DEBIT DAILY REPORT 02263000 //** 02544100 //**** 02544200