222 lines
18 KiB
Plaintext
222 lines
18 KiB
Plaintext
//***** 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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
|